form1.frm

复件 VB界面换肤 复件 VB界面换肤

VERSION 5.00
Object = "{A64838E4-98C4-49CB-A43F-668F19BA2DBD}#1.0#0"; "JSSKIN.OCX"
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "xp"
      Height          =   435
      Left            =   960
      TabIndex        =   6
      Top             =   1890
      Width           =   1305
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Perfect Whistler"
      Height          =   375
      Left            =   900
      TabIndex        =   5
      Top             =   1320
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Luna"
      Height          =   375
      Left            =   900
      TabIndex        =   4
      Top             =   840
      Width           =   1335
   End
   Begin JSSKIN.JSBORDER JSBORDER3 
      Align           =   2  'Align Bottom
      Height          =   345
      Left            =   0
      TabIndex        =   3
      Top             =   2850
      Width           =   4680
      _ExtentX        =   8255
      _ExtentY        =   609
   End
   Begin JSSKIN.JSBORDER JSBORDER2 
      Align           =   4  'Align Right
      Height          =   2445
      Left            =   3855
      TabIndex        =   2
      Top             =   405
      Width           =   825
      _ExtentX        =   1455
      _ExtentY        =   4313
   End
   Begin JSSKIN.JSBORDER JSBORDER1 
      Align           =   3  'Align Left
      Height          =   2445
      Left            =   0
      TabIndex        =   1
      Top             =   405
      Width           =   255
      _ExtentX        =   450
      _ExtentY        =   4313
   End
   Begin JSSKIN.JSCAPTION JSCAPTION1 
      Align           =   1  'Align Top
      Height          =   405
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4680
      _ExtentX        =   8255
      _ExtentY        =   714
      Movable         =   0   'False
      ShowIcon        =   0   'False
      ControlBox      =   0   'False
      Style           =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'出图标
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000
 '出图标


Private Sub Command1_Click()
Me.JSCAPTION1.Path = App.Path & "\luna.jss"
Me.JSBORDER1.Path = App.Path & "\luna.jss"
Me.JSBORDER2.Path = App.Path & "\luna.jss"
Me.JSBORDER3.Path = App.Path & "\luna.jss"
Me.JSCAPTION1.REDRAW
End Sub

Private Sub Command2_Click()
Me.JSCAPTION1.Path = App.Path & "\PW.jss"
Me.JSBORDER1.Path = App.Path & "\PW.jss"
Me.JSBORDER2.Path = App.Path & "\PW.jss"
Me.JSBORDER3.Path = App.Path & "\PW.jss"
Me.JSCAPTION1.REDRAW
End Sub

Private Sub Command3_Click()
Me.JSCAPTION1.Path = App.Path & "\jj.jss"
Me.JSBORDER1.Path = App.Path & "\jj.jss"
Me.JSBORDER2.Path = App.Path & "\jj.jss"
Me.JSBORDER3.Path = App.Path & "\jj.jss"
Me.JSCAPTION1.REDRAW
End Sub

Private Sub Form_Load()


Me.JSCAPTION1.Path = App.Path & "\luna.jss"
Me.JSBORDER1.Path = App.Path & "\luna.jss"
Me.JSBORDER2.Path = App.Path & "\luna.jss"
Me.JSBORDER3.Path = App.Path & "\luna.jss"
'出图标
    Dim alStyle As Long
    alStyle = GetWindowLong(hwnd, GWL_STYLE) Or WS_SYSMENU
    SetWindowLong hwnd, GWL_STYLE, alStyle
  '出图标

    
End Sub