急急 vb中命令按钮的的功能设计

比如我要设计一个按钮,它的功能是这样的一按按钮就显示内容在文本框上再按该按钮内容就删掉... 比如我要设计一个按钮 ,它的功能是这样的 一按按钮就显示内容在文本框上 再按该按钮内容就删掉 展开
 我来答
gzh1992n
2009-03-13 · 超过24用户采纳过TA的回答
知道答主
回答量:69
采纳率:0%
帮助的人:68.8万
展开全部
我的最简单!!

首先拉一个按钮(command1)和一个文本框(text1),然后复制以下代码:
Dim a As Integer
Private Sub Command1_Click()
If a Mod 2 = 0 Then
Text1.Text = ""
a = a + 1
Else
Text1.Text = "您要显示的内容"
a = a + 1
End If
End Sub

Private Sub Form_Load()
a = 1
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
binuisoft
2009-03-13 · TA获得超过1449个赞
知道小有建树答主
回答量:385
采纳率:0%
帮助的人:416万
展开全部
Private Sub Command1_Click()
If Command1.Tag = "insert" Then
Text1.Text = ""
Command1.Tag = "delete"
Else
Text1.Text = "你好"
Command1.Tag = "insert"
End If
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
s68651521
2009-03-13 · TA获得超过3.2万个赞
知道小有建树答主
回答量:674
采纳率:0%
帮助的人:416万
展开全部
Private Sub Command1_Click()
If Command1.Tag = "isPrinted" Then
Text1.Text = ""
Command1.Tag = "isDeleted"
Else
Text1.Text = "This is a TEST Message!"
Command1.Tag = "isPrinted"
End If
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友e28c80924
2009-03-13 · TA获得超过1013个赞
知道小有建树答主
回答量:451
采纳率:0%
帮助的人:495万
展开全部
Private Sub Command1_Click()
If Text1.Text <> "" Then
Text1.Text = ""
Else
Text1.Text = "你好"
End If
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
shoemorw
2009-03-13 · TA获得超过191个赞
知道小有建树答主
回答量:218
采纳率:0%
帮助的人:154万
展开全部
那请问,我要是再按第3下你希望出现什么效果?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式