窗口样式
请问怎样才能是我的程序的窗口在XP中显示98的窗口样式？ 问题点数：20、回复次数：3Top
1 楼sworddx（.:RNPA:. hillin）回复于 2005-01-15 22:32:50 得分 0
不太理解你的意思Top
2 楼achinacracker（）回复于 2005-01-15 22:38:56 得分 0
VB程序在XP下运行时窗口是圆角的样式，我想让程序运行时显示WIN98的窗口样式，就是“不是圆角的窗口”Top
3 楼cso（无聊中...）回复于 2005-01-15 23:36:20 得分 20
注意判断系统平台，只有xp,2003有uxtheme.dll文件，也就是说Private Sub Form_Initialize()的代码中要判断当前系统平台，如果不是xp,2003，就不要执行DeactivateWindowTheme。
如果偷懒不想判断系统平台，也可以在Private Sub Form_Initialize()后面的第一句写上On Error Resume Next，不过这不是好习惯。
Option Explicit
Private Declare Sub InitCommonControls Lib "comctl32" ()
Private Declare Function ActivateWindowTheme Lib "uxtheme" Alias "SetWindowTheme" (ByVal hwnd As Long, _
Optional ByVal pszSubAppName As Long = 0, _
Optional ByVal pszSubIdList As Long = 0 _
) As Long
Private Declare Function DeactivateWindowTheme Lib "uxtheme" Alias "SetWindowTheme" (ByVal hwnd As Long, _
Optional ByRef pszSubAppName As String = " ", _
Optional ByRef pszSubIdList As String = " " _
) As Long
Private Sub Form_Initialize()
'On Error Resume Next
Call InitCommonControls
Call DeactivateWindowTheme(Me.hwnd)
'恢复
'Call ActivateWindowTheme(Me.hwnd)
End SubTop
