如何在文本框中显示一个提示框

Question

Private Sub Form_Load()
Text1.ToolTipText = "你的提示筐"
End Sub

Answer 1

设置文本框的ToolTipText 属性为你的提示内容。

Answer 2

例如：
录入对话框为如下
序号：0001 
设备名称：AAAAA
当鼠标移到“0001”“本框时，要显示一个提示栏，这个提示栏的信息要在
录入对话框里添加和修改

Answer 3

你的对话框是一个FORM？
还是一个文本框？
什么叫“这个提示栏的信息要在录入对话框里添加和修改”？
你想在录入对话框的那个控件里面修改？
你这个所谓“提示栏”的信息内容是什么？从哪里来？

Answer 4

Private Sub Form_Load()
Me.Show
Text1.Visible = False
Text1.Left = Label1.Left
Text1.Top = Label1.Top
Text1.Text = Label1.Caption
Text1.BorderStyle = 0
End SubPrivate Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Visible = True
Text1.SetFocus
End SubPrivate Sub Text1_Change()
Label1.Caption = Text1.Text
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0: Text1.Visible = False
End SubPrivate Sub Text1_LostFocus()
Text1.Visible = False
End Sub
'最好窗口上有其他控件……

Answer 5

Private Sub Form_Load()
Me.Show
Text1.Visible = False
Text1.Left = Label1.Left
Text1.Top = Label1.Top
Text1.Text = Label1.Caption
Text1.BorderStyle = 0
End SubPrivate Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Visible = True
Text1.SetFocus
End SubPrivate Sub Text1_Change()
Label1.Caption = Text1.Text
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0: Text1.Visible = False
End SubPrivate Sub Text1_LostFocus()
Text1.Visible = False
End Sub
'最好窗口上有其他控件