VB6.0添加皮肤控件
PrivateSubForm_Load()DimTempAsString,IAsInteger,JAsInteger,SkPatnAsStringFile1.Path=A...
Private Sub Form_Load()
Dim Temp As String, I As Integer, J As Integer, SkPatn As String
File1.Path = App.Path + "\PPT"
File1.Pattern = "*.ppt"
File1.Refresh
SkPatn = App.Path + "\Skins\MP10.ssk"
Skin1.LoadSkin SkPatn
Skin1.ApplySkin Me.hwnd
Read_Config_File
Label3.Caption = TitleBar
cmdEdit.Enabled = False
List1.ListIndex = 0
Me.Show
cmdPlay.SetFocus
End Sub
部件中追加了ActiveSkin 4.3，然后代码中这么写的，但是这里Skin1.LoadSkin会提示变量未定义，是什么鬼，很少用vb，请大神指教 展开
Dim Temp As String, I As Integer, J As Integer, SkPatn As String
File1.Path = App.Path + "\PPT"
File1.Pattern = "*.ppt"
File1.Refresh
SkPatn = App.Path + "\Skins\MP10.ssk"
Skin1.LoadSkin SkPatn
Skin1.ApplySkin Me.hwnd
Read_Config_File
Label3.Caption = TitleBar
cmdEdit.Enabled = False
List1.ListIndex = 0
Me.Show
cmdPlay.SetFocus
End Sub
部件中追加了ActiveSkin 4.3，然后代码中这么写的，但是这里Skin1.LoadSkin会提示变量未定义，是什么鬼，很少用vb，请大神指教 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
