mover.prg

来自「MSComm控件资料,Visual Basic 6.0(以下简称VB) 是一种功」· PRG 代码 · 共 26 行

*  Program...........: MOVER.PRG
*  Author............: Menachem Bazian, CPA               
*  Project...........: Visual Codebook 3.0                
*  Created...........: June 01, 1995 - 17:05:04
*  Copyright.........: (c) Flash Creative Management, Inc     , 1995
*) Description.......: A wrapper for the standard mover dialog
*  Calling Samples...: 
*  Parameter List....: taFullList - Array with the full list in it
*                    : taSelectedList - Array to hold the selected items
*                    : tlNoSort
*  Major change list.: 

#INCLUDE 'INCLUDE\APPINCL.H'

PARAMETERS taFullList, taSelectedList, tlNoSort
LOCAL loMoverForm

loMoverForm  = CREATEOBJECT("moverform")
loMoverForm.cSelectedListRowSource  = "taSelectedList"
loMoverForm.cFullListRowSource      = "taFullList"
loMoverForm.MoverContainer_Dialog1.lstFullList.lSorted = !tlNoSort
loMoverForm.Refresh()

loMoverForm.Show(WIN_MODAL)

RETURN