vb中给文字增大缩小加下划线加删除线粗体斜体代码

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

我来回答

共3个回答

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

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

　　下划线Label1.FontUnderline等于true。

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

'控件一个文本框text1,五个按钮command1至command5
Private Sub Command1_Click() '增大字体
   Text1.FontSize = Text1.FontSize + 1
End Sub
Private Sub Command2_Click() '缩小字体
   If Text1.FontSize > 2 Then Text1.FontSize = Text1.FontSize - 1
End Sub
Private Sub Command3_Click() '变换下划线
   Text1.FontUnderline = Not Text1.FontUnderline
End Sub
Private Sub Command4_Click()  '变换粗体
   Text1.FontBold = Not Text1.FontBold
End Sub
Private Sub Command5_Click() '变换斜体
   Text1.FontItalic = Not Text1.FontItalic
End Sub

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

看一下font属性就知道了