modstyle.bas

来自「使用vb寫出完美網頁遊戲外掛的原始碼分享」· BAS 代码 · 共 83 行

Attribute VB_Name = "ModStyle"
Option Explicit
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Sub CreateStyle()
With frmMain.ucMain
      
      ' You can set a custom color scheme
      .SetScheme New SchemeOffice2003

      ' Set the window handle of the main window
      .MainHwnd = frmMain.hwnd
            
      ' Publish all views
      .AddView "Stat", frmStat
      .AddView "Chat", frmChat
      .AddView "Info", frmInfo
      .AddView "Skill", frmSkill
      .AddView "Inv", frmInv
      '.AddView "Buf", frmBuf
      '.AddView "Friend", frmFriend
     ' .AddView "Clan", frmClan
     ' .AddView "VMap", frmVMap
      .AddView "People", frmPeople
      .AddView "Mons", frmMon
      .AddView "NPC", frmNPC
      .AddView "Item", frmItem
      '.AddView "Pet", frmPet
      .AddView "Map", frmMap
      .AddView "Party", frmParty
      
      With .AddPerspective("Main")
         With .AddFolder("Left_Folder", vbRelRight, 0.5, .ID_EDITOR_AREA)
            .AddView "Stat"
            .ActiveViewId = "Stat"
         End With
         With .AddFolder("Right_Folder", vbRelRight, 0.5, "Left_Folder")
            .AddView "Info"
            .AddView "Skill"
            .AddView "Map"
           ' .AddView "Buf"
           ' .AddView "Friend"
            '.AddView "Clan"
            '.AddView "VMap"
            .ActiveViewId = "Info"
         End With
         
         With .AddFolder("Left_Bottom_Folder", vbRelBottom, 0.5, "Left_Folder")
            .AddView "Chat"
            .ActiveViewId = "Chat"
         End With
         
         With .AddFolder("Right_Bottom_Folder", vbRelBottom, 0.5, "Right_Folder")
            .AddView "People"
            .AddView "Mons"
            .AddView "NPC"
            .AddView "Item"
            '.AddView "Pet"
            .AddView "Party"
            .ActiveViewId = "People"
         End With
         .ActiveViewId = "Stat"
      End With
      .ShowPerspective "Main"
      .Refresh
   End With
End Sub

Public Sub CreateChat()
frmChat.lstChatMenu.AddItem "Public"
frmChat.lstChatMenu.AddItem "Shout"
frmChat.lstChatMenu.AddItem "Whisper"
frmChat.lstChatMenu.AddItem "Party"
'frmChat.lstChatMenu.AddItem "Clan"
'frmChat.lstChatMenu.AddItem "Trade"
'frmChat.lstChatMenu.AddItem "Alliances"
'frmChat.lstChatMenu.AddItem "Friends"
frmChat.lstChatMenu.ListIndex = 0
End Sub