不明白到底是什么意思!呵呵,用程序修改的!! '自定义一个字体类型 Public Type frmFont FontName As String ForeColor As Long FontSize As Byte FontBold As Boolean FontItalic As Boolean FontStrikethru As Boolean FontTransparent As Boolean FontUnderline As Boolean End Type '改变窗体的字体(改成一个控件的,如pic,当然也可以自己写的) Public Sub ChangeFrmFont(frm As Form, pic As PictureBox) '保留原来的字体 obFont.FontName = frm.FontName obFont.FontSize = frm.FontSize obFont.ForeColor = frm.ForeColor obFont.FontBold = frm.FontBold obFont.FontItalic = frm.FontItalic obFont.FontStrikethru = frm.FontStrikethru obFont.FontTransparent = frm.FontTransparent obFont.FontUnderline = frm.FontUnderline
我说的是窗体或控件的字体,不是我们代码的字体,呵呵,^_^^_^
'自定义一个字体类型
Public Type frmFont
FontName As String
ForeColor As Long
FontSize As Byte
FontBold As Boolean
FontItalic As Boolean
FontStrikethru As Boolean
FontTransparent As Boolean
FontUnderline As Boolean
End Type
'改变窗体的字体(改成一个控件的,如pic,当然也可以自己写的)
Public Sub ChangeFrmFont(frm As Form, pic As PictureBox) '保留原来的字体
obFont.FontName = frm.FontName
obFont.FontSize = frm.FontSize
obFont.ForeColor = frm.ForeColor
obFont.FontBold = frm.FontBold
obFont.FontItalic = frm.FontItalic
obFont.FontStrikethru = frm.FontStrikethru
obFont.FontTransparent = frm.FontTransparent
obFont.FontUnderline = frm.FontUnderline
'改变窗体的字体
frm.FontName = pic.FontName
frm.ForeColor = pic.ForeColor
frm.FontSize = pic.FontSize
frm.FontBold = pic.FontBold
frm.FontItalic = pic.FontItalic
frm.FontStrikethru = pic.FontStrikethru
frm.FontTransparent = pic.FontTransparent
frm.FontUnderline = pic.FontUnderline
End Sub'恢复窗体原来的字体
Public Sub RestoreFrmFont(frm As Form) '恢复窗体原来的字体
frm.FontName = obFont.FontName
frm.ForeColor = obFont.ForeColor
frm.FontSize = obFont.FontSize
frm.FontBold = obFont.FontBold
frm.FontItalic = obFont.FontItalic
frm.FontStrikethru = obFont.FontStrikethru
frm.FontTransparent = obFont.FontTransparent
frm.FontUnderline = obFont.FontUnderlineEnd Sub
你说得没有错,但和我说的不是一个意思,你先建一个窗体,窗体的字体是不是默认为一个值,我需要修改的就是这个值,比如说默认是字体1,我想修改为字体2,也就是说我新建一个窗体或一个控件时,他的字体是字体2,而不是字体1,就是想知道实现这个功能在什么地方修改。