不要使用任何特殊字体,只用宋体。 为保证这一点,可以在每个From里的Form_Load事件里加上下面的东东。Private Sub Form_load() Dim ctl As Control Dim oFont As StdFont On Error Resume Next For Each ctl In Controls Set oFont = ctl.Font With oFont .Name = "宋体" .Charset = 134 End With Next End Sub注意上面的Charset一定要设。
with label1.font
.name="宋体"
.size=9
end with
dim ctl as control
..... on error resume next
for each ctl in controls
ctl.font.name="宋体"
next
end sub
为保证这一点,可以在每个From里的Form_Load事件里加上下面的东东。Private Sub Form_load()
Dim ctl As Control
Dim oFont As StdFont On Error Resume Next
For Each ctl In Controls
Set oFont = ctl.Font
With oFont
.Name = "宋体"
.Charset = 134
End With
Next
End Sub注意上面的Charset一定要设。