VB语言第2章教案(上3).pptVIP

Visual Basic各内部控件的简介表 例：控件的拖动 Private Sub CmdDrog_Click() CmdMove.DragMode = 1 设置拖动模式为自动 CmdMove.MousePointer = 15 设置鼠标指针为移动指针样式 CmdMove.Caption = 说走就走! End Sub Private Sub CmdStop_Click() CmdMove.DragMode = 0 设置拖动模式为手动 CmdMove.Caption = 歇会儿,说什么也不走了! CmdMove.MousePointer = 12 设置鼠标指针为禁用指针样式 End Sub Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Source.Top = Y 设置按钮对象的顶端位置 Source.Left = X 设置按钮对象的左端位置 End Sub Private Sub Form_Load() CmdStop_Click 调用CmdStop_Click()过程,设置CmdMove按钮的初始属性 End Sub 例