VB怎么给字符加下划线拜托各位了 3Q

Option Explicit Private m_bUnderLine As Boolean Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If m_bUnderLine Then m_bUnderLine = False Label1FontUnderline = False End If End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1FontUnderline = True m_bUnderLine = True End Sub

打下划线的方法如下：

1、打开word文档，选择插入-符号-其他符号-子集，选择基本拉丁语-下划线，点击插入即可。

2、右键点击输入法麦克风图标，选择表情&符号-符号大全-标点符号，拉动列表找到下划线，点击下划线即可。

编程语言的标识符

C语言

标识符由字母（A-Z，a-z）、数字（0-9）、下划线“_”组成，并且首字符不能是数字，但可以是字母或者下划线。例如，正确的标识符：abc，a1，prog_to。

不能把C语言关键字作为用户标识符，例如if，for，while等。

标识符长度是由机器上的编译系统决定的，一般的限制为8字符（注：8字符长度限制是C89标准，C99标准已经扩充长度，其实大部分工业标准都更长）。

我爱你
——————
你很好
——————
我喜欢你
——————
用制表符"—"代替下划线"_",在文本框中会连接在一起,与表格线一样
以下为所有的制表符
┌┍┎┏┐┑┒—└┕┖┗┘┙┚┛━
├┤┝┥┞┦┟┧┠┨┡┩┢┪┣┫┃│
┬┴┭┵┮┶┯┷┰┸┱┹┲┺┳┻
┼╄┽╅┾╆┿╇╀╈╁╉╂╊╃╋
以下为示范:
┌———┐
│我爱你│
├———┤
│你很好│
└———┘
在平时文本中的效果比在网页编辑中的效果要好的多
如果复制的横线不完整,可以在VB中使用Chr(-22108)

到底是VB还是Word
如果是VB,你可以这样做
'写一个过程,用来搞定你要变的TextBox
Private Sub PreTextBox(txt As TextBox)
'去除边框
txtBorderStyle = 0
'背景跟窗口同色
txtBackColor = MeBackColor
'画一条线在Text的下面
MeAutoRedraw = True
MeLine (txtLeft, txtTop + txtHeight)-(txtLeft + txtWidth, txtTop + txtHeight)
End Sub
Private Sub Form_Load()
'用的时候这样
PreTextBox Text1
End Sub

在VB的控件中TEXT控件做不到这个。
但是RichTextBox控件就可以了！按ctrl+t 选中Microsoft Rich Textbox 选项
新建工程，添加按钮和超级文本（RichTextBox控件）代码如下：
Private Sub Command1_Click()
RichTextBox1SelColor = vbRed '设置颜色
RichTextBox1SelFontName = 黑体 '设置字体
RichTextBox1SelBold = True '加粗
RichTextBox1SelFontSize = 14 '字体大小
RichTextBox1SelUnderline = True '下划线
End Sub

VB中用代码方式给文字添加下划线和删除线，代码如下：
//Underline属性添加下划线
Private Sub Check1_Click()
Label1FontUnderline = IIf(Check1Value = vbChecked, True, False)
End Sub
//Strikethrough属性添加删除线
Private Sub Check2_Click()
Label1FontStrikethrough = IIf(Check2Value = vbChecked, True, False)
End Sub

---