
VB美化窗体问题。
PrivateSubForm_Load()DimFileNameAsStringDimIniFileAsStringFileName="C:\ProgramFiles\C...
Private Sub Form_Load()
Dim FileName As String
Dim IniFile As String
FileName = "C:\Program Files\Codejock Software\ActiveX\Xtreme SuitePro ActiveX v12.0.1\Samples\SkinFramework\Styles\Office2007.cjstyles"
IniFile = "NormalBlue.ini"
SkinFramework1.LoadSkin Dlg.FileName, IniFile
SkinFramework1.ApplyWindow Me.hWnd
SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics
End Sub
我下载了美化窗体的控件。Xtreme SuitePro V12中的SkinFramework控件,我加到窗体中了,它那里说上面的代码就能美化,为什么我运行出错啊。
调试时:
SkinFramework1.LoadSkin Dlg.FileName, IniFile 出错。
说是 要求对象。 该怎么改啊,求助!! 展开
Dim FileName As String
Dim IniFile As String
FileName = "C:\Program Files\Codejock Software\ActiveX\Xtreme SuitePro ActiveX v12.0.1\Samples\SkinFramework\Styles\Office2007.cjstyles"
IniFile = "NormalBlue.ini"
SkinFramework1.LoadSkin Dlg.FileName, IniFile
SkinFramework1.ApplyWindow Me.hWnd
SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics
End Sub
我下载了美化窗体的控件。Xtreme SuitePro V12中的SkinFramework控件,我加到窗体中了,它那里说上面的代码就能美化,为什么我运行出错啊。
调试时:
SkinFramework1.LoadSkin Dlg.FileName, IniFile 出错。
说是 要求对象。 该怎么改啊,求助!! 展开
1个回答
展开全部
Dlg.FileName ?
Dlg是什么东西。既然你定义了Filename。为何还要加个dlg。
删掉“Dlg.”即可。
Dlg是什么东西。既然你定义了Filename。为何还要加个dlg。
删掉“Dlg.”即可。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询