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

laose 发表于: 2007-11-13 17:23 来源: 扑奔PPT网

iloveppt 发表于 2007-11-13 17:55:22

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

huishiao 发表于 2007-11-13 17:57:54

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

iloveppt 发表于 2007-11-13 18:01:48

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

chen8332 发表于 2007-11-13 18:25:32

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

laose 发表于 2007-11-13 18:51:03

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

laose 发表于 2007-11-13 20:12:31

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

[ 本帖最后由 laose 于 2007-11-13 20:13 编辑 ]

龙江龙 发表于 2007-11-13 23:25:26

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

zyhqzn 发表于 2007-11-14 08:51:08

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

zyhqzn 发表于 2007-11-14 09:45:17

小改一下：
Private Sub Label1_MouseUP(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Dim downX As Integer
  Dim downY As Integer
  Label1.Left = X - downX + Label1.Left
  Label1.Top = Y - downY + Label1.Top
  If Label1.Left > TextBox1.Left And Label1.Left < TextBox1.Left + TextBox1.Width And Label1.Top > TextBox1.Top And Label1.Top < TextBox1.Top + TextBox1.Height Then
  TextBox1.Text = "A"
   WMP1.URL = "right.wav"
  MsgBox "做对了，恭喜你！", vbOKOnly, "提示"
  End If
  WMP1.URL = ""
TextBox1.Text = ""
  Label1.Left = 123
  Label1.Top = 300
End Sub
把输入框（TextBox1）拉大一点。
想问一下laose老师，downx和downy这两个变量是什么？

[ 本帖最后由 zyhqzn 于 2007-11-14 09:52 编辑 ]

laose 发表于 2007-11-14 18:14:46

谢谢你的修改，把绝对变量改为相对变量非常不错。

月影如镜 发表于 2007-11-14 23:07:59

俺收藏了！谢谢动感老师！

bjdasmk 发表于 2007-11-15 08:24:58

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

fengwuwen 发表于 2007-11-30 11:37:31

我还是动不了呀

fengwuwen 发表于 2007-11-30 13:45:50

安了软件也看不了呀

fengwuwen 发表于 2007-11-30 14:13:47

到底要啥软件呀，急死人了

qx0710 发表于 2008-3-16 17:24:23

新浪UC个聊教学专区

bant2006 发表于 2008-3-17 20:37:13

感谢楼主的辛苦劳动,:zc ,但有继续哦:10

qyleaf 发表于 2008-10-30 01:07:09

怎么拖动不了呢，郁闷中:(

treehunter 发表于 2008-10-31 09:47:22

很好，万分感谢，很有帮助，大家共勉

96692 发表于 2008-12-23 09:23:32

xxxxxxx非常感谢。。。。。。。。。。。。