窗口样式

Question

请问怎样才能是我的程序的窗口在XP中显示98的窗口样式？

Answer 1

VB程序在XP下运行时窗口是圆角的样式，我想让程序运行时显示WIN98的窗口样式，就是“不是圆角的窗口”

Answer 2

注意判断系统平台，只有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 LongPrivate Sub Form_Initialize()
    'On Error Resume Next
    Call InitCommonControls
    Call DeactivateWindowTheme(Me.hwnd)
    '恢复
    'Call ActivateWindowTheme(Me.hwnd)
End Sub