VB6.0无负担实现xp风格
1、导入资源文件;
2、在主程序的所有过程之前做如下声明:
'声明API函数
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Sub Form_Initialize()
InitCommonControls
End Sub
1、把xp.res导入工程中;
2、在主程序的所有过程之前做如下声明:
'声明API函数
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Sub Form_Initialize()
InitCommonControls
End Sub