Question

vb换字体的变成代码应该是什么？

就是宋体，楷体，隶书字体的变化

Answer 1

VB6.0换字体的程序代码是对对象的FontName 属性赋值：

• FontName 属性，返回或设置在控件中或在运行时画图或打印操作中，显示文本所用的字体。

  该属性的缺省值取决于系统，Visual Basic
  中可用的字体取决于系统的配置、显示设备和打印设备。与字体相关的属性只能设置为真正存在的字体的值。

• 在运行时，可以用 FontCount 和 Fonts
  属性获得系统可用字体的信息。

• FontCount 属性，返回或设置当前显示设备或活动打印机可用的字体。

  获取可用字体信息代码：

  Private Sub Command1_Click()

      Dim I   ' 声明变量.

      For I = 0 To Printer.FontCount - 1  ' 确定字体数.

          List1.AddItem Printer.Fonts(I)    ' 把每一种字体放进列表框.

      Next I

  End Sub

Answer 2

font 属性

text1.font=“楷体”

追问

For I = 1 To 4
If OP(I).Value = True Then
Text.FontName = OP(I).Caption
End If
NEXT
利用单选按钮数组，可以这样编程吗？为什么说我未定义，op应该定义为什么？为什么还说我变量或WITH变量未设置？