甲磺酸:请大家帮我详细解释一下啊 还有vb 从那里开始学起啊 谢谢了

来源：百度文库 编辑：中科新闻网 时间：2024/04/29 23:35:50
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG = 1

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Image1.Picture = Source
frmS4.Image1.Picture = LoadPicture("")
Image1.Move (X - dragx), (Y - dragy)
Image1.Visible = True
frmS4.Image1.Visible = False
End Sub

Private Sub Form_Load()
Load frmS4
frmS4.Show
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
dragx = X
dragy = Y
Image1.Drag BEGIN_DRAG
End Sub
请大家帮我详细解释一下啊 还有vb 从那里开始学起啊 谢谢了 请大家帮我解释一下！！ 请vb先辈帮我解释一下const的用法 梦蛇 请大家帮我解释一下 谢谢 请大家帮我解释一下词语 请大家帮我结解释一下 请大家帮我解释一下“大国民素质” VB的问题~请大家帮我详细解释下~下面这段代码 请各位高手帮我详细地解释一下！！不胜感激！ 请专业人士把“木马”帮我详细的解释一下