VB dragdrop事件到底怎么用呀谁能举个例子

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 22:14:20

VB dragdrop事件到底怎么用呀谁能举个例子
VB dragdrop事件到底怎么用呀谁能举个例子

参考：http://iask.sina.com.cn/b/5207783.html

Option Explicit
    Dim cx As Long, cy As Long

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) '在FORM的dragdrop事件中移动控件
    Source.Move X - cx, Y - cy
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '记录当前鼠标位置并开始拖动
    Picture1.Drag 1
    cx = X
    cy = Y
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '结束拖动
    Picture1.Drag 2
End Sub

VB dragdrop事件到底怎么用呀谁能举个例子 VB里的mousemove事件举例在VB里,举一个利用mousemove引发的事件.就是想知道这个mousemove事件是怎么用的! vb怎么设计几个键盘按钮事件 vb怎么用单引号 VB,知道三角函数,怎么用VB算度数? VB中算术表达式ln10用VB表达式怎么表示最近怎么那么多UFO事件啊,到底发生什么事了 lg7.6 用VB语言怎么表示? 怎么用VB计算N的阶层 VB里app.该怎么用呢? 怎么用VB表达出00 用vb怎么生成3位随机数 VB中计算c = 5 (x-32) / 9 用VB语言怎么写 VB随机数怎么做 VB怎么写计算器 VB作业怎么做湖南湘乡校园踩踏事件详情湖南湘乡校园踩踏事件,怎么发生的到底?具体情况说说. 独立事件互斥事件的概率是怎样运算的已知两个概率,到底哪个事件是用乘法,哪个事件用加法.

VB dragdrop事件到底怎么用呀 谁能举个例子

VB dragdrop事件到底怎么用呀谁能举个例子