如何实现VB里当鼠标点击输入框时,输入框内的提示文字自动消失

如何实现VB里当鼠标点击输入框时,输入框内的提示文字自动消失
Private Sub Text1_GotFocus()If Text1.Text = "提示文字" Then Text1.Text = ""End Sub Private Sub Text1_LostFocus()If Text1.Text = "" Then Text1.Text = "提示文字"End Sub

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鼠标选中text自动清除其内容
回答：private Sub text1_focus()Text1.test = "";End Sub方法名可以随便取的。

用VB编程怎样使鼠标在一文本框时上面出现自己指定的字,离开时又...
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = "鼠标移入时要显示的文本"End Sub

在VB中健个命令按钮和一个文本框单击按钮时文本框消失
1、首先，在窗体上面添加一个文本框。2、单击文本框，在属性窗口设置文本框的属性，清空文本内容。3、将文本框的enabled属性设置为False。4、在窗体上添加一个命令按钮，如下图所示。5、在属性窗口，设置命令按钮的Caption属性为“允许输入”。6、双击命令按钮，编辑其代码。7、运行程序，输入“百度”。

vb中双击窗体消失文字
1、 按下面的顺序“开始→所有程序→Microsoft Visual Basic 6.0中文版→Microsoft Visual Basic 6.0中文版”打开VB6.0。2、在窗体的“属性”窗口中把“Caption”和“名称”属性的值均改为“测试”，我们看到工程和体的标题栏内容都变为“测试”。3、 双击“测试”窗体，弹出编程框，在编程框的“...

...按钮1上1秒后能在鼠标旁边弹出提示文本?移开文本消失?
Button1, "一个按钮")ToolTip1.InitialDelay = 1000 '延迟时间1秒 ToolTip1.AutoPopDelay = 360000000 '提示文本最大显示静止时间100个小时 你也可以设置个定时器，当按钮获得光标是隐藏ToolTip的显示，并启动定时器（如果按钮失去光标关闭定时器），定时器1秒钟后显示ToolTip，并关闭定时器。

VB Text里当鼠标单击某一行时即自动选取整一行文字!
用这一串代码就可以了..Private Sub Text1_Click()i = Text1.SelStart j = i Do If i = 0 Then t = 1 If t = 0 Then '如果没找到行尾 If Mid(Text1.Text, i, 1) = Chr(13) Then t = 1 '找到行尾 i = i - 1 End If If Mid(Text1.Text, j, 1) = Chr(13) ...

VB编程,如何实现鼠标光标自动在文本输入框里面?
实现鼠标光标自动在文本输入框内部的VB编程操作相当直接。首先，你需要在程序启动时的首个执行点编写代码。这个点就是窗体加载事件，通过在"Form_Load()"事件中添加相应代码来完成。具体操作如下：输入"Textbox1.SetFocus"语句。这句代码的功能是将焦点设置在名为"Textbox1"的文本框上。当程序启动后，...

VB编程,如何实现鼠标光标自动在文本输入框里面?
在Form_Load()事件中写下相应语句。 然后，键入：Textbox1.SetFocus 该语句的意思是：设置Text1文本框的焦点。即，打开程序后，光标自动停在Text1文本框内。