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
private sub command1_click()
if command1.caption = "显示" then
text1 = "文字"
command1.caption = "消除"
elseif command1.caption = "消除" then
text1 = ""
end if
end sub
在你说的单击命令按钮里判断这个变量，如果是0，给这个值设1，清空文本框(如果需要的话将文本框的内容保存起来)；如果是1就设0,将你要文字覆值给文本框,简单吧。程序试试自己写。
If Len(Text1.Text) > 0 Then
Text1 = ""
Else
Text1 = "有字"
End If
End Sub
If len(Text1.Text) = 0 Then
Text1.Text = "点击了按钮,下次点击消失"
Else
Text1.Text = ""
end if
End Sub
在VB中健个命令按钮和一个文本框单击按钮时文本框消失
1、首先，在窗体上面添加一个文本框。2、单击文本框，在属性窗口设置文本框的属性，清空文本内容。3、将文本框的enabled属性设置为False。4、在窗体上添加一个命令按钮，如下图所示。5、在属性窗口，设置命令按钮的Caption属性为“允许输入”。6、双击命令按钮，编辑其代码。7、运行程序，输入“百度”。...
vb中单击窗体显示文字双击窗体清楚文本怎么做
一共七步首先，在窗口中添加一个文本框，如下图所示，然后进入下一步。其次，单击文本框，在属性窗口中设置文本框的属性，清除文本，如下图所示，然后进入下一步。接着，将文本框的enabled属性设置为False，如下图所示，然后进入下一步。然后，在表单上添加一个命令按钮，如下图所示，然后进入下一步。
在VB中怎样用按钮清除文本框中的文本
1.首先，在表单中添加一个文本框。2.单击文本框，在“属性”窗口中设置文本框的属性，然后清空文本内容。3.将文本框的启用属性设置为False。4.在窗口主体上添加一个命令按钮，如下图所示。5.在属性窗口中，将命令按钮的标题属性设置为“允许进入”。6.双击command按钮编辑代码，如下图所示。7.运行程...
用VB编程怎样使鼠标在一文本框时上面出现自己指定的字,离开时又...
新建一个EXE工程 在窗体上放个文本框 编辑如下代码:Dim S As String Private Sub Form_Load()S = "默认原来的文本"Text1.Text = S End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = S End Sub Private Sub Text1_MouseMo...
vb中如何删除txt文件内容?
命令按钮中添加代码：Private Sub Command1_Click()Open App.Path &"\\123.txt" For Output As #1 Print #1, ""Close #1 End Sub 实现效果：单击命令按钮后，123.txt文件中的内容被清空 第二题：一个窗体，一个命令文本框 文本框change事件中添加代码：Private Sub Text1_Change()Open "C:\\a....
VB中,如何实现:当鼠标点击文本框时,文本框内的提示字符会自动消隐_百 ...
Private Sub Form_Activate()defs = "请在这里输入" '定义提示字符 Command1.SetFocus '给按钮置焦点 End Sub Private Sub Text1_GotFocus() '文本框得到焦点 If Text1 = defs Then Text1 = ""End SubPrivate Sub Text1_LostFocus() '文本框失去焦点 If Text1 = "" Then Text...
如何在VB中设计一个文本框控件,用于显示文字
1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index...
VB中如何在文本框内输入文字的同时,在标签上显示文本框中的文字
代码如下：1、方法一：text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 2、方法二：sub command1_click()label1.caption = string("*",len(text1.text))end sub
vb编程里,如何实现点击窗体中一个文本框出现日历控件,然后可以选择相应...
首先在默认form1窗体上画一个文本框text1、再画一个日历控件MonthView1，记得是MonthView1控件，你自己排列好它们两个的位置即可，一切都按默认（不用改属性）。然后复制以下代码到form1的代码窗口里运行即可看到结果啦（如图）：Private Sub Form_Load()MonthView1.Visible = False End Sub Private Sub ...
VB单击按钮显示文字
1.首先，添加一个文本框，如下图所示。2.在属性窗口中设置文本框的复制属性，然后清除文本内容，如下图所示。3.文本框的enabled属性设置为false，如下图所示。4.向表单添加命令按钮，如下图所示。5.在属性窗口中，将命令按钮的标题属性设置为“允许访问”，如下图所示。6.双击命令按钮编辑其代码，如...
