Question

VB中的text文本控件中实现下划线

VB中的text文本控件中实现下划线
如果是全加上下划线是用fontunderline属性，但是我想要问的是，能不能只是让特定的几个字加其它的不加呢？比如把二个变量的值让同一个text显示，让其中的一个加下划线，一个不加，能否实现。

Answer 1

VB中的textbox控件是不支持下划线的，因此单纯用textbox无法实现下划线，可以考虑用richtextbox来实现。

TextBox的常用属性有：
　　Text：设置控件中的文本。
　　MultiLine：设置控件是否可以接受多行文本。
　　ScrollBars：设置控件是否具有水平或垂直滚动条。（但当MultiLine属性为False时，它是不起作用的。）
　　Alignment：设置控件中文本的对齐方式。
　　PasswordChar：以特定的字符来代替控件中的文本字符，这个属性很适合设置密码对话框。
　　Locked：设置文本框内容在运行时是否可以被用户编辑。设置True时，不能编辑。
　　ToolTipText：设置汉用户将鼠标移至该控件时，所出现的提示文本。

Answer 2

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