Question

vb里单复选框，单选框：宋体楷体黑体，复选框：粗体斜体下划线，代码怎么写？

Answer 1

Private Sub Check1_Click(Index As Integer)

  Select Case Index

  Case 0

    Text1.FontBold = Check1(Index).Value

  Case 1

    Text1.FontItalic = Check1(Index).Value

  Case 2

    Text1.FontUnderline = Check1(Index).Value

  End Select

End Sub

Private Sub Form_Load()

  Text1.Text = "单选与复选框应用"

  Text1.Alignment = 2

  Text1.FontSize = 18

End Sub

Private Sub Option1_Click(Index As Integer)

  Select Case Index

  Case 0

    Text1.FontName = "宋体"

  Case 1

    Text1.FontName = "楷体"

  Case 2

    Text1.FontName = "黑体"

  End Select

End Sub

Answer 2

Private Sub option1_Click()
Text1.FontName = "宋体"
End Sub
Private Sub option2_Click()
Text1.FontName = "楷体"
End Sub
Private Sub option3_Click()
Text1.FontName = "黑体"
End Sub
Private Sub check1_Click()
Text1.FontBold=True
End Sub
Private Sub check2_Click()
Text1.FontItalic=True
End Sub
Private Sub check3_Click()
Text1.FontUnderline=True
End Sub

Answer 3

fontname

Answer 4

要不要用控件数组呢？