vb:我想在鼠标点击之后,在鼠标的后面出现文本框,但我不知道如何让文本框得到准确

显示全部楼层 · 2011-9-11 21:24:16

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Top = Y + 5 '校准5Text1.Left = X + 4 '校准4End Sub校准一定像素即可的到精确的位置。测试通过。...

千问 · 2011-9-11 21:24:16

鼠标点击的时候，先获取鼠标的坐标然后根据鼠标的坐标X,Y值，设置文本框的left属性和top属性即可...

千问 · 2011-9-11 21:24:16

先获取鼠标光标left的属性应该再加上系统里那个光标图片的宽...