直接透明不可以,模拟以下:
下划线位置重叠两个控件, 一个TextBox,一个Label,Textbox的Visible属性设置为False,Label的Text属性设置为"_______________",Label的Click事件设置为
e.From.Control("TextBox1").Visible = True
e.Sender.Visible = False
TextBox 的Enter事件设置为:
if e.Keycode = 13 Orelse e.Keycode = 9 then
e.From.Control("Label").Visible = True
e.Sender.Visible = False
End if
TextBox的Leave事件设置为:
e.From.Control("Label").Visible = True
e.Sender.Visible = False