4个回答
展开全部
1,先定义一个全局变量 iNum
2,在窗口启动代码下初始化该变量
private sub form1_load()
iNum = 0
end sub
3,在窗口点击代码中添加如下代码
private sub form1_click()
iNum = iNum + 1
text1.text = ""
text1.text = iNum
end sub
其它添加控件的操作略
希望能帮上你
2,在窗口启动代码下初始化该变量
private sub form1_load()
iNum = 0
end sub
3,在窗口点击代码中添加如下代码
private sub form1_click()
iNum = iNum + 1
text1.text = ""
text1.text = iNum
end sub
其它添加控件的操作略
希望能帮上你
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
sub form1_load()
text1.text=0
end sub
Sub form1_Click()
text1.text=text1.text+1
end sub
text1.text=0
end sub
Sub form1_Click()
text1.text=text1.text+1
end sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim
i
As
Integer
'定义整数i
Private
Sub
Form_Click()
'开始窗体的单击过程
i
=
i
+
1
'修改i的内容
Text1.Text
=
i
'将文本框的内容换成在该窗口上鼠标单击的次数
End
Sub
'结束本过程
i
As
Integer
'定义整数i
Private
Sub
Form_Click()
'开始窗体的单击过程
i
=
i
+
1
'修改i的内容
Text1.Text
=
i
'将文本框的内容换成在该窗口上鼠标单击的次数
End
Sub
'结束本过程
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
定义一个公用变量,然后点击一次就加一,然后刷新文本框内容显示就可以了啊
,还不明白就hi我吧
,还不明白就hi我吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询