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

发布网友发布时间：2022-03-27 09:47

共3个回答

懂视网时间：2022-03-27 14:08

VB中用代码方式给文字添加下划线的代码如下：

　　下划线Label1.FontUnderline等于true。

热心网友时间：2022-03-27 11:16

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

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

热心网友时间：2022-03-27 12:34

在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