VB 的mousedown能不能有这样的效果？

显示全部楼层 · 2010-2-28 15:26:57

dim i as integerPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)if button=1 then text1(i).text= X & "." & Y:i=i+1if i=3 the i=0'如果还要加text4就在这里加数字 end sub'这个要添加text控件数组(就是在窗体上复制text1然后粘贴)

千问 · 2010-2-28 15:26:57

不要单独创建文本框控件，创建控件数组，通过下标就可以选择相应控件，用一个全局变量作计数器

千问 · 2010-2-28 15:26:57

使用一个全局变量(public语句)来记录单击次数