VB中建一个文本框，一个命令按钮，单击命令按钮则文本框中有字，再单击，字就消失~怎么编程呢？

答案:6 悬赏:0

解决时间 2021-04-27 23:04

提问者网友：霸道ぁ小哥
2021-04-27 08:21

想了好久，还是不会~！
大家帮帮忙~一个字，谢~

最佳答案

二级知识专家网友：有钳、任性
2021-04-27 09:18

创建一个全局变量，
在你说的单击命令按钮里判断这个变量，如果是0，给这个值设1，清空文本框(如果需要的话将文本框的内容保存起来)；如果是1就设0,将你要文字覆值给文本框,简单吧。程序试试自己写。

全部回答

1楼网友：duile
2021-04-27 14:37

Private Sub Command1_Click() If Text1.Text = "" Then Text1.Text = "显示的字" Else Text1.Text = "" End Sub Private Sub Form_Load() Text1.Text = "" End Sub

2楼网友：陪衬角色
2021-04-27 13:24

怎么楼上的都把事情搞得繁复了。。 private sub command1_click() if command1.caption = "显示" then text1 = "文字" command1.caption = "消除" elseif command1.caption = "消除" then text1 = "" end if end sub

3楼网友：傲娇菇凉
2021-04-27 12:13

是不是这样： Private Sub Command1_Click() Text1.Enabled = Text1.Enabled = False End Sub 如果只是要实现有字无字的效果就是这样： Private Sub Command1_Click() If Text1.Text = "" Then Text1.Text = "Hello ~~" Else Text1.Text = "" End Sub

4楼网友：心痛成瘾
2021-04-27 12:02

Private Sub Command1_Click() If len(Text1.Text) = 0 Then Text1.Text = "点击钮,下次点击消失" Else Text1.Text = "" end if End Sub

5楼网友：情窦初殇
2021-04-27 10:50

你好！ Private Sub Command1_Click() If Len(Text1.Text) > 0 Then Text1 = "" Else Text1 = "有字" End If End Sub 打字不易，采纳哦！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！