form2.frm

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

         Caption         =   "重置位置"
      End
      Begin VB.Menu MnuAbout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "FRMMAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

    Private pb As PropertyBag

Sub CLEARBORDER()
    FRMPREVIEW.TOPLEFT.BorderStyle = 0
    FRMPREVIEW.TOPMID.BorderStyle = 0
    FRMPREVIEW.TOPRIGHT.BorderStyle = 0
    FRMPREVIEW.LEFTTOP.BorderStyle = 0
    FRMPREVIEW.LEFTMID.BorderStyle = 0
    FRMPREVIEW.LEFTBOT.BorderStyle = 0
    FRMPREVIEW.RIGHTTOP.BorderStyle = 0
    FRMPREVIEW.RIGHTMID.BorderStyle = 0
    FRMPREVIEW.RIGHTBOT.BorderStyle = 0
    FRMPREVIEW.BOT.BorderStyle = 0
End Sub

Private Sub CLOSEBOX_Click(Index As Integer)
Me.CommonDialog2.ShowOpen
CLOSEBOX(Index).Picture = LoadPicture(CommonDialog2.FileName)
FRMPREVIEW.CLOSEBOX.Picture = CLOSEBOX(0).Picture
End Sub


Private Sub Form_Load()
SetParent FRMPREVIEW.hWnd, Me.SAMPLECONTAINER.hWnd
FRMPREVIEW.Show
With Me.List1
.AddItem "TOPLEFT"
.AddItem "TOPMID"
.AddItem "TOPRIGHT"
.AddItem "LEFTTOP"
.AddItem "LEFTMID"
.AddItem "LEFTBOT"
.AddItem "RIGHTTOP"
.AddItem "RIGHTMID"
.AddItem "RIGHTBOT"
.AddItem "BOTTOM"
End With
End Sub

Private Sub Form_Resize()
On Error Resume Next
With Me.SAMPLECONTAINER
.Width = Me.ScaleWidth - .Left
.Height = Me.ScaleHeight - .Top
End With
FRMPREVIEW.Move (Me.SAMPLECONTAINER.Width / 2) - (FRMPREVIEW.Width / 2), (Me.SAMPLECONTAINER.Height / 2) - (FRMPREVIEW.Height / 2)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload FRMPREVIEW
End Sub

Private Sub List1_Click()
CLEARBORDER
If Me.List1.Text = "TOPLEFT" Then
    FRMPREVIEW.TOPLEFT.BorderStyle = 1
ElseIf Me.List1.Text = "TOPMID" Then
    FRMPREVIEW.TOPMID.BorderStyle = 1
ElseIf Me.List1.Text = "TOPRIGHT" Then
    FRMPREVIEW.TOPRIGHT.BorderStyle = 1
ElseIf Me.List1.Text = "LEFTTOP" Then
    FRMPREVIEW.LEFTTOP.BorderStyle = 1
ElseIf Me.List1.Text = "LEFTMID" Then
    FRMPREVIEW.LEFTMID.BorderStyle = 1
ElseIf Me.List1.Text = "LEFTBOT" Then
    FRMPREVIEW.LEFTBOT.BorderStyle = 1
ElseIf Me.List1.Text = "RIGHTTOP" Then
    FRMPREVIEW.RIGHTTOP.BorderStyle = 1
ElseIf Me.List1.Text = "RIGHTMID" Then
    FRMPREVIEW.RIGHTMID.BorderStyle = 1
ElseIf Me.List1.Text = "RIGHTBOT" Then
    FRMPREVIEW.RIGHTBOT.BorderStyle = 1
ElseIf Me.List1.Text = "BOTTOM" Then
    FRMPREVIEW.BOT.BorderStyle = 1
End If
End Sub

Private Sub List1_DblClick()
Me.CommonDialog2.ShowOpen
If Me.List1.Text = "TOPLEFT" Then
 CommonDialog2.Filter = "图片 (*.bmp)|*.bmp"
    FRMPREVIEW.TOPLEFT.Picture = LoadPicture(Me.CommonDialog2.FileName)
ElseIf Me.List1.Text = "TOPMID" Then
    FRMPREVIEW.TOPMID.Picture = LoadPicture(Me.CommonDialog2.FileName)
ElseIf Me.List1.Text = "TOPRIGHT" Then
    FRMPREVIEW.TOPRIGHT.Picture = LoadPicture(Me.CommonDialog2.FileName)
ElseIf Me.List1.Text = "LEFTTOP" Then
    FRMPREVIEW.LEFTTOP.Picture = LoadPicture(Me.CommonDialog2.FileName)
ElseIf Me.List1.Text = "LEFTMID" Then
    FRMPREVIEW.LEFTMID.Picture = LoadPicture(Me.CommonDialog2.FileName)
ElseIf Me.List1.Text = "LEFTBOT" Then
    FRMPREVIEW.LEFTBOT.Picture = LoadPicture(Me.CommonDialog2.FileName)
ElseIf Me.List1.Text = "RIGHTTOP" Then
    FRMPREVIEW.RIGHTTOP.Picture = LoadPicture(Me.CommonDialog2.FileName)
ElseIf Me.List1.Text = "RIGHTMID" Then
    FRMPREVIEW.RIGHTMID.Picture = LoadPicture(Me.CommonDialog2.FileName)
ElseIf Me.List1.Text = "RIGHTBOT" Then
    FRMPREVIEW.RIGHTBOT.Picture = LoadPicture(Me.CommonDialog2.FileName)
ElseIf Me.List1.Text = "BOTTOM" Then
    FRMPREVIEW.BOT.Picture = LoadPicture(Me.CommonDialog2.FileName)
End If
CLEARBORDER
DO_skin FRMPREVIEW
End Sub

Private Sub MAXBOX_Click(Index As Integer)
Me.CommonDialog2.ShowOpen
MAXBOX(Index).Picture = LoadPicture(CommonDialog2.FileName)
If FRMPREVIEW.WindowState = 2 Then
    FRMPREVIEW.MAXRESBOX.Picture = Me.RESBOX(0).Picture
Else
    FRMPREVIEW.MAXRESBOX.Picture = Me.MAXBOX(0).Picture
End If
End Sub

Private Sub MINBOX_Click(Index As Integer)
Me.CommonDialog2.ShowOpen
MINBOX(Index).Picture = LoadPicture(CommonDialog2.FileName)
FRMPREVIEW.MINBOX.Picture = MINBOX(0).Picture
End Sub

Private Sub MnuAbout_Click()
FrmAbout.Show 1
End Sub

Private Sub MnuExit_Click()
End
End Sub

Private Sub MnuOpen_Click()
Dim varTemp As Variant
   Dim byteArr() As Byte
 On Error Resume Next
   Set pb = New PropertyBag
    CommonDialog1.Filter = "皮肤 (*.jss)|*.jss"
  CommonDialog1.ShowOpen
   Open CommonDialog1.FileName For Binary As #1
   Get #1, , varTemp
   Close #1
    Me.Caption = ""
   Me.Caption = Me.Caption + "   " & CommonDialog1.FileName
   byteArr = varTemp
   pb.Contents = byteArr
   With pb
   FRMPREVIEW.TOPLEFT.Picture = .ReadProperty("TOPLEFT")
   FRMPREVIEW.TOPMID.Picture = .ReadProperty("TOPMID")
   FRMPREVIEW.TOPRIGHT.Picture = .ReadProperty("TOPRIGHT")
   Me.MINBOX(0).Picture = .ReadProperty("MIN")
    Me.MAXBOX(0).Picture = .ReadProperty("MAX")
   Me.CLOSEBOX(0).Picture = .ReadProperty("CLOSE")
   Me.MINBOX(1).Picture = .ReadProperty("MIN3")
   Me.MAXBOX(1).Picture = .ReadProperty("MAX3")
   Me.CLOSEBOX(1).Picture = .ReadProperty("CLOSE3")
   Me.MINBOX(2).Picture = .ReadProperty("MIN2")
   Me.MAXBOX(2).Picture = .ReadProperty("MAX2")
   Me.CLOSEBOX(2).Picture = .ReadProperty("CLOSE2")
   Me.RESBOX(0).Picture = .ReadProperty("RES1")
   Me.RESBOX(1).Picture = .ReadProperty("RES2")
   Me.RESBOX(2).Picture = .ReadProperty("RES3")
   Me.ONTOP(0).Picture = .ReadProperty("ONTOP1")
   Me.ONTOP(2).Picture = .ReadProperty("ONTOP3")
   FRMPREVIEW.LEFTTOP.Picture = .ReadProperty("LEFTTOP")
   FRMPREVIEW.LEFTMID.Picture = .ReadProperty("LEFTMID")
   FRMPREVIEW.LEFTBOT.Picture = .ReadProperty("LEFTBOT")
   FRMPREVIEW.RIGHTTOP.Picture = .ReadProperty("RIGHTTOP")
   FRMPREVIEW.RIGHTMID.Picture = .ReadProperty("RIGHTMID")
   FRMPREVIEW.RIGHTBOT.Picture = .ReadProperty("RIGHTBOT")
    FRMPREVIEW.BOT.Picture = .ReadProperty("BOTTOM")
   FRMPREVIEW.Label1.ForeColor = .ReadProperty("FORECOLOR")
     FRMPREVIEW.Label2.ForeColor = .ReadProperty("BACKCOLOR")
   Me.Picture1.BackColor = .ReadProperty("FORECOLOR")
    Me.Picture2.BackColor = .ReadProperty("BACKCOLOR")
    Me.TXTGAP.Text = .ReadProperty("ICONSPACE")
   Me.TXTRIGHT.Text = .ReadProperty("FROMRIGHT")
   Me.TXTTOP.Text = .ReadProperty("FROMTOP")
    Me.TXTCTOP.Text = .ReadProperty("YOFFSET")
   Me.TXTCLEFT.Text = .ReadProperty("XOFFSET")
    Me.TXTCLEFT2.Text = .ReadProperty("XOFFSET2")
   
   End With
   FRMPREVIEW.MINBOX.Picture = FRMMAIN.MINBOX(0).Picture
   FRMPREVIEW.CLOSEBOX.Picture = FRMMAIN.CLOSEBOX(0).Picture
   FRMPREVIEW.ONTOPBOX.Picture = FRMMAIN.ONTOP(0).Picture
    If FRMPREVIEW.WindowState = 2 Then
        FRMPREVIEW.MAXRESBOX.Picture = FRMMAIN.RESBOX(0).Picture
    Else
        FRMPREVIEW.MAXRESBOX.Picture = FRMMAIN.MAXBOX(0).Picture
    End If
   DO_skin FRMPREVIEW
End Sub

Private Sub MnuRestore_Click()
FRMPREVIEW.WindowState = 0
FRMPREVIEW.Height = 3360
FRMPREVIEW.Width = 4800
FRMPREVIEW.Move (Me.SAMPLECONTAINER.Width / 2) - (FRMPREVIEW.Width / 2), (Me.SAMPLECONTAINER.Height / 2) - (FRMPREVIEW.Height / 2)
End Sub

Private Sub MnuSave_Click()
   Dim varTemp As Variant
   On Error GoTo errhandler
    CommonDialog1.Filter = "皮肤 (*.jss)|*.jss"
   CommonDialog1.ShowSave
   Set pb = New PropertyBag
 With pb
   .WriteProperty "TOPLEFT", FRMPREVIEW.TOPLEFT.Picture
   .WriteProperty "TOPMID", FRMPREVIEW.TOPMID.Picture
   .WriteProperty "TOPRIGHT", FRMPREVIEW.TOPRIGHT.Picture
   .WriteProperty "MIN", Me.MINBOX(0).Picture
   .WriteProperty "MAX", Me.MAXBOX(0).Picture
   .WriteProperty "CLOSE", Me.CLOSEBOX(0).Picture
   .WriteProperty "MIN3", Me.MINBOX(1).Picture
   .WriteProperty "MAX3", Me.MAXBOX(1).Picture
   .WriteProperty "CLOSE3", Me.CLOSEBOX(1).Picture
   .WriteProperty "MIN2", Me.MINBOX(2).Picture
   .WriteProperty "MAX2", Me.MAXBOX(2).Picture
   .WriteProperty "CLOSE2", Me.CLOSEBOX(2).Picture
   .WriteProperty "RES1", Me.RESBOX(0).Picture
   .WriteProperty "RES2", Me.RESBOX(1).Picture
   .WriteProperty "RES3", Me.RESBOX(2).Picture
   .WriteProperty "ONTOP1", Me.ONTOP(0).Picture
   .WriteProperty "ONTOP3", Me.ONTOP(2).Picture
   .WriteProperty "LEFTTOP", FRMPREVIEW.LEFTTOP.Picture
   .WriteProperty "LEFTMID", FRMPREVIEW.LEFTMID.Picture
   .WriteProperty "LEFTBOT", FRMPREVIEW.LEFTBOT.Picture
   .WriteProperty "RIGHTTOP", FRMPREVIEW.RIGHTTOP.Picture
   .WriteProperty "RIGHTMID", FRMPREVIEW.RIGHTMID.Picture
   .WriteProperty "RIGHTBOT", FRMPREVIEW.RIGHTBOT.Picture
   .WriteProperty "BOTTOM", FRMPREVIEW.BOT.Picture
   .WriteProperty "FORECOLOR", FRMPREVIEW.Label1.ForeColor
   .WriteProperty "BACKCOLOR", FRMPREVIEW.Label2.ForeColor
   .WriteProperty "ICONSPACE", Me.TXTGAP.Text
   .WriteProperty "FROMRIGHT", Me.TXTRIGHT.Text
   .WriteProperty "FROMTOP", Me.TXTTOP.Text
   .WriteProperty "YOFFSET", Me.TXTCTOP.Text
   .WriteProperty "XOFFSET", Me.TXTCLEFT.Text
    .WriteProperty "XOFFSET2", Me.TXTCLEFT2.Text
End With
   varTemp = pb.Contents
   Open CommonDialog1.FileName For Binary As #1
   Put #1, , varTemp
   Close #1
errhandler:
   Exit Sub
End Sub

Private Sub ONTOP_Click(Index As Integer)
Me.CommonDialog2.ShowOpen
ONTOP(Index).Picture = LoadPicture(CommonDialog2.FileName)
FRMPREVIEW.ONTOPBOX.Picture = ONTOP(0).Picture
End Sub

Private Sub Picture1_Click()
Me.CommonDialog1.ShowColor
Picture1.BackColor = Me.CommonDialog1.Color
FRMPREVIEW.Label1.ForeColor = Picture1.BackColor

End Sub
Private Sub Picture2_Click()
Me.CommonDialog1.ShowColor
Picture2.BackColor = Me.CommonDialog1.Color
FRMPREVIEW.Label2.ForeColor = Picture2.BackColor

End Sub
Private Sub RESBOX_Click(Index As Integer)
Me.CommonDialog2.ShowOpen
RESBOX(Index).Picture = LoadPicture(CommonDialog2.FileName)
FRMPREVIEW.MAXRESBOX.Picture = RESBOX(0).Picture
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
CLEARBORDER
End Sub

Private Sub Text1_Change()
FRMPREVIEW.Label1.Caption = Text1.Text
FRMPREVIEW.Label2.Caption = Text1.Text '88
End Sub

Private Sub TXTCLEFT_Change()
DO_skin FRMPREVIEW
End Sub

Private Sub TXTCLEFT2_Change()
DO_skin FRMPREVIEW
End Sub

Private Sub TXTCTOP_Change()
DO_skin FRMPREVIEW
End Sub

Private Sub TXTGAP_Change()
DO_skin FRMPREVIEW
End Sub

Private Sub TXTRIGHT_Change()
DO_skin FRMPREVIEW
End Sub

Private Sub TXTTOP_Change()
DO_skin FRMPREVIEW
End Sub