📄 mdul_main.bas
字号:
.iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\SteelRain\Toolbar Icons\icn_Search.gif")
.iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\SteelRain\Toolbar Icons\icn_Help.gif")
.iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\SteelRain\Toolbar Icons\icn_Stop.gif")
.ctrl_ListObject.DrawMenu
'.ctrl_Panel.SkinPath = App.Path & "\Skins\SteelRain"
'.ctrl_Panel.DrawPanel
'.ctrl_PullDownMenu.BackColor = &H40241B
'.ctrl_PullDownMenu.ForeColor = &HFFFFFF
'.ctrl_PullDownMenu.Refresh
.Line1.BorderColor = &HFFFFFF
.lbl_Statusbar.ForeColor = &HFFFFFF
.pic_Viewport.BackColor = &H0&
.pic_Viewport.Refresh
Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "", False)
pLastTransparencyPath = ""
End With
End Sub
Public Sub ChangeSkinToCoupe(m_Form As Form)
Call InitSkinStruct("Coupe")
Call ChangeSkin("Coupe", m_Form)
With m_Form
'.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\Coupe"
'.ctrl_SkinableForm.BackColor = &HABFEFF
'.ctrl_SkinableForm.CaptionTop = 180
'.ctrl_SkinableForm.CaptionColor = &H0&
'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
'.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\Coupe"
'.ctrl_btn_Previous.ForeColor = &H0&
'.ctrl_btn_Previous.LoadSkin
'.ctrl_btn_Previous.Refresh
'.ctrl_btn_Next.SkinPath = App.Path & "\Skins\Coupe"
'.ctrl_btn_Next.ForeColor = &H0&
'.ctrl_btn_Next.LoadSkin
'.ctrl_btn_Next.Refresh
'.ctrl_btn_dq.SkinPath = App.Path & "\Skins\Coupe"
'.ctrl_btn_dq.ForeColor = &H0&
'.ctrl_btn_dq.LoadSkin
'.ctrl_btn_dq.Refresh
'.ctrl_ListObject.SkinPath = App.Path & "\Skins\Coupe"
'.ctrl_ListObject.ForeColor = &H0&
'.ctrl_ListObject.MouseMoveColor = &HC0&
'.ctrl_ListObject.MouseDownColor = &HFFFFFF
.iml_Toolbar.ListImages.Clear
.iml_Toolbar.ListImages.Add 1, , LoadPicture(App.Path & "\Skins\Coupe\Toolbar Icons\icn_Back.gif")
.iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\Coupe\Toolbar Icons\icn_Forward.gif")
.iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\Coupe\Toolbar Icons\icn_Home.gif")
.iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\Coupe\Toolbar Icons\icn_Refresh.gif")
.iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\Coupe\Toolbar Icons\icn_Open.gif")
.iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\Coupe\Toolbar Icons\icn_Document.gif")
.iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\Coupe\Toolbar Icons\icn_Search.gif")
.iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\Coupe\Toolbar Icons\icn_Help.gif")
.iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\Coupe\Toolbar Icons\icn_Stop.gif")
.ctrl_ListObject.DrawMenu
'.ctrl_Panel.SkinPath = App.Path & "\Skins\Coupe"
'.ctrl_Panel.DrawPanel
'.ctrl_PullDownMenu.BackColor = &HABFEFF
'.ctrl_PullDownMenu.ForeColor = &H0&
'.ctrl_PullDownMenu.Refresh
.Line1.BorderColor = &H0&
.lbl_Statusbar.ForeColor = &H0&
.pic_Viewport.BackColor = &HCCFF&
.pic_Viewport.Refresh
Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "", False)
pLastTransparencyPath = ""
End With
End Sub
Public Sub ChangeSkinToBoilerRoom(m_Form As Form)
Call InitSkinStruct("BoilerRoom")
Call ChangeSkin("BoilerRoom", m_Form)
With m_Form
'.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\BoilerRoom"
'.ctrl_SkinableForm.BackColor = &H111327
'.ctrl_SkinableForm.CaptionTop = 255
'.ctrl_SkinableForm.CaptionColor = &H0&
'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
'.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\BoilerRoom"
'.ctrl_btn_Previous.ForeColor = &HFFFFFF
'.ctrl_btn_Previous.LoadSkin
'.ctrl_btn_Previous.Refresh
'.ctrl_btn_Next.SkinPath = App.Path & "\Skins\BoilerRoom"
'.ctrl_btn_Next.ForeColor = &HFFFFFF
'.ctrl_btn_Next.LoadSkin
'.ctrl_btn_Next.Refresh
'.ctrl_btn_dq.SkinPath = App.Path & "\Skins\BoilerRoom"
'.ctrl_btn_dq.ForeColor = &HFFFFFF
'.ctrl_btn_dq.LoadSkin
'.ctrl_btn_dq.Refresh
'.ctrl_ListObject.SkinPath = App.Path & "\Skins\BoilerRoom"
'.ctrl_ListObject.ForeColor = &H0&
'.ctrl_ListObject.MouseMoveColor = &H0&
'.ctrl_ListObject.MouseDownColor = &H0&
.iml_Toolbar.ListImages.Clear
.iml_Toolbar.ListImages.Add 1, , LoadPicture(App.Path & "\Skins\BoilerRoom\Toolbar Icons\icn_Back.gif")
.iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\BoilerRoom\Toolbar Icons\icn_Forward.gif")
.iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\BoilerRoom\Toolbar Icons\icn_Home.gif")
.iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\BoilerRoom\Toolbar Icons\icn_Refresh.gif")
.iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\BoilerRoom\Toolbar Icons\icn_Open.gif")
.iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\BoilerRoom\Toolbar Icons\icn_Document.gif")
.iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\BoilerRoom\Toolbar Icons\icn_Search.gif")
.iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\BoilerRoom\Toolbar Icons\icn_Help.gif")
.iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\BoilerRoom\Toolbar Icons\icn_Stop.gif")
.ctrl_ListObject.DrawMenu
'.ctrl_Panel.SkinPath = App.Path & "\Skins\BoilerRoom"
'.ctrl_Panel.DrawPanel
'.ctrl_PullDownMenu.BackColor = &H111327
'.ctrl_PullDownMenu.ForeColor = &HFFFFFF
'.ctrl_PullDownMenu.Refresh
.Line1.BorderColor = &HFFFFFF
.lbl_Statusbar.ForeColor = &HFFFFFF
.pic_Viewport.BackColor = &H0&
.pic_Viewport.Refresh
Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "", False)
pLastTransparencyPath = ""
End With
End Sub
Public Sub ChangeSkinToExecutive(m_Form As Form)
Call InitSkinStruct("Executive")
Call ChangeSkin("Executive", m_Form)
With m_Form
'.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\Executive"
'.ctrl_SkinableForm.BackColor = &H6E8385
'.ctrl_SkinableForm.CaptionTop = 370
'.ctrl_SkinableForm.CaptionColor = &H0&
'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
'.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\Executive"
'.ctrl_btn_Previous.ForeColor = &H0&
'.ctrl_btn_Previous.LoadSkin
'.ctrl_btn_Previous.Refresh
'.ctrl_btn_Next.SkinPath = App.Path & "\Skins\Executive"
'.ctrl_btn_Next.ForeColor = &H0&
'.ctrl_btn_Next.LoadSkin
'.ctrl_btn_Next.Refresh
'.ctrl_btn_dq.SkinPath = App.Path & "\Skins\Executive"
'.ctrl_btn_dq.ForeColor = &H0&
'.ctrl_btn_dq.LoadSkin
'.ctrl_btn_dq.Refresh
'.ctrl_ListObject.SkinPath = App.Path & "\Skins\Executive"
'.ctrl_ListObject.ForeColor = &H0&
'.ctrl_ListObject.MouseMoveColor = &H0&
'.ctrl_ListObject.MouseDownColor = &HC0&
.iml_Toolbar.ListImages.Clear
.iml_Toolbar.ListImages.Add 1, , LoadPicture(App.Path & "\Skins\Executive\Toolbar Icons\icn_Back.gif")
.iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\Executive\Toolbar Icons\icn_Forward.gif")
.iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\Executive\Toolbar Icons\icn_Home.gif")
.iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\Executive\Toolbar Icons\icn_Refresh.gif")
.iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\Executive\Toolbar Icons\icn_Open.gif")
.iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\Executive\Toolbar Icons\icn_Document.gif")
.iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\Executive\Toolbar Icons\icn_Search.gif")
.iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\Executive\Toolbar Icons\icn_Help.gif")
.iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\Executive\Toolbar Icons\icn_Stop.gif")
.ctrl_ListObject.DrawMenu
'.ctrl_Panel.SkinPath = App.Path & "\Skins\Executive"
'.ctrl_Panel.DrawPanel
'.ctrl_PullDownMenu.BackColor = &H6E8385
'.ctrl_PullDownMenu.ForeColor = &H0&
'.ctrl_PullDownMenu.Refresh
.Line1.BorderColor = &H0&
.lbl_Statusbar.ForeColor = &H0&
.pic_Viewport.BackColor = &H0&
.pic_Viewport.Refresh
Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "", False)
pLastTransparencyPath = ""
End With
End Sub
Public Sub ChangeSkinToWeaponx(m_Form As Form)
Call InitSkinStruct("Weaponx")
Call ChangeSkin("Weaponx", m_Form)
With m_Form
'.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\Weaponx"
'.ctrl_SkinableForm.BackColor = &HCECECE
'.ctrl_SkinableForm.CaptionTop = 135
'.ctrl_SkinableForm.CaptionColor = &H0&
'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
'.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\Weaponx"
'.ctrl_btn_Previous.ForeColor = &H0&
'.ctrl_btn_Previous.LoadSkin
'.ctrl_btn_Previous.Refresh
'.ctrl_btn_Next.SkinPath = App.Path & "\Skins\Weaponx"
'.ctrl_btn_Next.ForeColor = &H0&
'.ctrl_btn_Next.LoadSkin
'.ctrl_btn_Next.Refresh
'.ctrl_btn_dq.SkinPath = App.Path & "\Skins\Weaponx"
'.ctrl_btn_dq.ForeColor = &H0&
'.ctrl_btn_dq.LoadSkin
'.ctrl_btn_dq.Refresh
'.ctrl_ListObject.SkinPath = App.Path & "\Skins\Weaponx"
'.ctrl_ListObject.ForeColor = &H0&
'.ctrl_ListObject.MouseMoveColor = &H0&
'.ctrl_ListObject.MouseDownColor = &HC0&
.iml_Toolbar.ListImages.Clear
.iml_Toolbar.ListImages.Add 1, , LoadPicture(App.Path & "\Skins\Weaponx\Toolbar Icons\icn_Back.gif")
.iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\Weaponx\Toolbar Icons\icn_Forward.gif")
.iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\Weaponx\Toolbar Icons\icn_Home.gif")
.iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\Weaponx\Toolbar Icons\icn_Refresh.gif")
.iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\Weaponx\Toolbar Icons\icn_Open.gif")
.iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\Weaponx\Toolbar Icons\icn_Document.gif")
.iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\Weaponx\Toolbar Icons\icn_Search.gif")
.iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\Weaponx\Toolbar Icons\icn_Help.gif")
.iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\Weaponx\Toolbar Icons\icn_Stop.gif")
.ctrl_ListObject.DrawMenu
'.ctrl_Panel.SkinPath = App.Path & "\Skins\Weaponx"
'.ctrl_Panel.DrawPanel
'.ctrl_PullDownMenu.BackColor = &HCECECE
'.ctrl_PullDownMenu.ForeColor = &H0&
'.ctrl_PullDownMenu.Refresh
.Line1.BorderColor = &H0&
.lbl_Statusbar.ForeColor = &H0&
.pic_Viewport.BackColor = &H0&
.pic_Viewport.Refresh
Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "", False)
pLastTransparencyPath = ""
End With
End Sub
Public Sub ChangeSkinToWinXP(m_Form As Form)
Call InitSkinStruct("WinXP")
Call ChangeSkin("WinXP", m_Form)
With m_Form
'.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\WinXP"
'.ctrl_SkinableForm.BackColor = &H8000000F
'.ctrl_SkinableForm.CaptionTop = 120
'.ctrl_SkinableForm.CaptionColor = &HFFFFFF
'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
'.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\WinXP"
'.ctrl_btn_Previous.ForeColor = &H0&
'.ctrl_btn_Previous.LoadSkin
'.ctrl_btn_Previous.Refresh
'.ctrl_btn_Next.SkinPath = App.Path & "\Skins\WinXP"
'.ctrl_btn_Next.ForeColor = &H0&
'.ctrl_btn_Next.LoadSkin
'.ctrl_btn_Next.Refresh
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -