critolly 发表于 2007-11-13 17:23:00

VBA实例5：拖放式选择题（解除工程密码，且已更新代码）

解除工程密码，并参考zyhqzn朋友（谢谢！）的意见重新做了修改，经朋友测试是成功的！



caiko 发表于 2007-11-13 18:25:44

哈，我也来坐坐沙发，下了后再回复。

vpzb4810 发表于 2007-11-13 18:30:54

楼主，不能拖动啊，请检查！

llp168 发表于 2007-11-13 18:45:37

大佬，好象不行耶。拖不动，点击判断也没有音乐。是不是要用什么特殊技巧呢？疑惑中。

naxiewuzhu 发表于 2007-11-13 19:23:08

乡长又策划高难的啦，佩服，没有最难，只有更难！下一届华罗庚！

user_lagkruav 发表于 2007-11-13 19:27:20

我这里测试完全可行，怎么会这样～～？？检讨去了…………

a128943834 发表于 2007-11-13 19:42:44

本乡长临时召开了乡常委非常会议，经过热烈讨论终于找到了问题的症结，现已改过，请检测！

user_puodfjak 发表于 2007-11-13 19:45:18

好！很好！！太好了！！！

user_alwykspv 发表于 2007-11-13 19:46:02

毫无反应（当然我是启用了“宏”）
建议：
1.去掉“判断”按钮，在“then"后加判断语句更直接。
2.能否去掉vba工程密码，虽然这个密码弱不禁风，但是由laose老师直接放出源代码更好一些。

user_ysdumeab 发表于 2007-11-13 19:55:06

小改一下：
PrivateSubLabel1_MouseUP(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)
DimdownXAsInteger
DimdownYAsInteger
Label1.Left=X-downX+Label1.Left
Label1.Top=Y-downY+Label1.Top
IfLabel1.Left>TextBox1.LeftAndLabel1.Left<TextBox1.Left+TextBox1.WidthAndLabel1.Top>TextBox1.TopAndLabel1.Top<TextBox1.Top+TextBox1.HeightThen
TextBox1.Text=&quot;A&quot;
WMP1.URL=&quot;right.wav&quot;
MsgBox&quot;做对了，恭喜你！&quot;,vbOKOnly,&quot;提示&quot;
EndIf
WMP1.URL=&quot;&quot;
TextBox1.Text=&quot;&quot;
Label1.Left=123
Label1.Top=300
EndSub
把输入框（TextBox1）拉大一点。
想问一下laose老师，downx和downy这两个变量是什么？


页: [1] 2 3
查看完整版本: VBA实例5：拖放式选择题（解除工程密码，且已更新代码）