如何在VB中,实现选中的字体才出现下划线呢!
发布网友
发布时间：2022-03-27 09:47
共2个回答
热心网友
时间：2022-03-27 11:16
在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
热心网友
时间：2022-03-27 12:34
TEXT就是 记事本的 编辑窗口！
RichTextBox则是 写字板的 编辑窗口！
你 去试试这两个 程序 就知道了
RichTextBox可以实现！
