Question

在VB中如何将文本框变成下划线.

我想在WORD中输入汉字冒号后面是下划线，该如何达到这个效果。
如：姓名：-----------

Answer 1

到底是VB还是Word?

如果是VB,你可以这样做.....

'写一个过程,用来搞定你要变的TextBox
Private Sub PreTextBox(txt As TextBox)
'去除边框
txt.BorderStyle = 0
'背景跟窗口同色
txt.BackColor = Me.BackColor

'画一条线在Text的下面
Me.AutoRedraw = True
Me.Line (txt.Left, txt.Top + txt.Height)-(txt.Left + txt.Width, txt.Top + txt.Height)
End Sub

Private Sub Form_Load()
'用的时候这样
PreTextBox Text1
End Sub

Answer 2

rivate Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) _
And (KeyAscii < 65 Or KeyAscii > 90) _
And (KeyAscii < 97 Or KeyAscii > 122) _
And KeyAscii <> vbKeyBack _
And KeyAscii <> 95 Then
KeyAscii = 0
End If
End Sub