vb如何怎么判断字符是否有下划线

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

你打印的是文本框内的字符串 t(i) ，t(i)是不带属性的
直接打印文本框内容也不行，text3text也是不带属性的
上面代码要打印下划线，需要添加下面一条语句
PrinterFontUnderline = True

代码:

PrivateSubCommand1_Click()

IfMeCommand1Caption="加上下zhidao划内线"Then

Text1FontUnderline=True

MeCommand1Caption="去掉容下划线"

Else

Text1FontUnderline=False

MeCommand1Caption="加上下划线"

EndIf

EndSub

PrivateSubForm_Load()

MeCommand1Caption="加上下划线"

EndSub

扩展资料：

CommandButton命令按钮最常用的事件是鼠标点击（Click）事件，当点击按钮时，犹如发出了一道命令，而这也正是“命令按钮”这个说法的由来。

在VisualBasic *** 作界面中，CommandButton（命令按钮）控件在程序中主要作为按钮进行使用。默认的名称为CommandX（X为1、2、3，等等），命名规则为CmdX（X为用户自定义的名字，如CmdCopy、CmdPaste，等等）。

当一个按钮的Cancel属性设置为True时，按ESC键与单击此命令按钮的作用相同，因此，这个命令按钮被称为取消按钮。在一个窗体中，只允许一个命令按钮的Cancel属性为True。

---