VB 单选按扭optionbutton实现一种功能

来源：百度知道 编辑：UC知道 时间：2024/06/04 12:59:43
请高手们帮个忙,谢谢了...

打开VB,建一个form1的窗体,里有text1
Frame1里有Option1(0),Option1(1),Option1(2)
Option1(0)是斜体
Option1(1)是粗体
Option1(2)是下划线

利用select case结构编写Option1三个单选按扭,选中一个Option1单选按扭,上面text1里的字就变成对应单选按扭Option1所对应的斜体,粗体或下划线

麻烦高手写详细点 Private Sub 也写上

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.FontItalic = True
Text1.FontBold = False
Text1.FontUnderline = False
Case 1
Text1.FontItalic = False
Text1.FontBold = True
Text1.FontUnderline = False
Case 2
Text1.FontItalic = False
Text1.FontBold = False
Text1.FontUnderline = True
End Select
End Sub

Private Sub Option1_Click(Index As Integer)
Text1.FontItalic = Option1(0).value
Text1.FontBold = Option1(1).value
Text1.FontUnderline =Option1(2).value
end sub

Select Case Index
Case 0
Text1.FontItalic = True
Case 1
Text1.FontBold = True
Case 2
Text1.FontUnderline = True
End Select

mm