在运行时更改窗体和usercontrol（.frm和.ctl）的字体

Question

我有一个VB 6加载项，它将所有项目添加到项目组，遍历这些项目的每个组件，如果找到表单或用户控件，则更改其属性。

属性由用户定义。如果用户想要更改所有表单或usercontrol的高度，则代码段如下

Private Sub Update_ButtonClick()
  '..declaring all the variables here

  ' VBInstance is initialized to VBIDE.VBE when the add-in is loaded

  For Index = 1 To projCount
    compoCount = VBInstance.VBProjects(Index).VBComponents.Count
    For jIndex = 1 To compoCount

      csFileName = VBInstance.VBProjects(Index).VBComponents(jIndex).name
      componentType = VBInstance.VBProjects(Index).VBComponents(jIndex).Type

      If componentType = VBIDE.vbext_ct_VBForm Or componentType = VBIDE.vbext_ct_UserControl Then '.frm or .ctl         
        VBInstance.VBProjects(Index).VBComponents(jIndex).Properties(propChange).Value = propvalue 'changing the property
        VBInstance.VBProjects(Index).VBComponents(jIndex).SaveAs csFileName 'Saving the file
      End If
    Next jIndex
  Next Index
End Sub

每当我将属性名称设为Font时，我都会收到错误

  

运行时错误'425'无效对象使用

我在http://visualbasic.freetutes.com/learn-vb6-advanced/lesson13/p20.html尝试了PropertyBag.WriteProperty，但这并不符合我的目的。

有没有办法设置控件或表单的Font属性？

当我在记事本中打开ctl或表单时，我找不到Font属性，所以我不能在这里使用文本替换。

有人可以帮忙吗？

更新代码：

Private Sub Update_ButtonClick()
    Dim fobject As New StdFont
    fobject.Name = "Arial"
    Set propvalue = fobject
    For Index = 1 To projCount
     compoCount = VBInstance.VBProjects(Index).VBComponents.Count
     For jIndex = 1 To compoCount
      csFileName = VBInstance.VBProjects(Index).VBComponents(jIndex).Name
      componentType = VBInstance.VBProjects(Index).VBComponents(jIndex).Type
      If componentType = 5 Or componentType = 8 Then 
       VBInstance.VBProjects(Index).VBComponents(jIndex).Properties("Font").Value=  propvalue
      VBInstance.VBProjects(Index).VBComponents(jIndex).SaveAs csFileName 
      End If
       Next jIndex
     Next Index 
End Sub

我得到的错误是

Run-time error '425':
Invalid object use

Answer 1

Font属性是一个对象，而不是一个简单的内在值。您需要将Set与分配给StdFont的相应propvalue对象一起使用。

或者，您可以使用特殊情况设置字体，并将属性的.Name属性设置为所需的字体名称。