mdul_main.bas

基于51和VB的广告牌控制系统

        '.ctrl_btn_dq.SkinPath = App.Path & "\Skins\WinXP"
        '.ctrl_btn_dq.ForeColor = &H0&
        '.ctrl_btn_dq.LoadSkin
        '.ctrl_btn_dq.Refresh
        
        '.ctrl_ListObject.SkinPath = App.Path & "\Skins\WinXP"
        '.ctrl_ListObject.ForeColor = &H0&
        '.ctrl_ListObject.MouseMoveColor = &HC0&
        '.ctrl_ListObject.MouseDownColor = &H0&
        .iml_Toolbar.ListImages.Clear
        .iml_Toolbar.ListImages.Add 1, , LoadPicture(App.Path & "\Skins\WinXP\Toolbar Icons\icn_Back.gif")
        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\WinXP\Toolbar Icons\icn_Forward.gif")
        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\WinXP\Toolbar Icons\icn_Home.gif")
        .iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\WinXP\Toolbar Icons\icn_Refresh.gif")
        .iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\WinXP\Toolbar Icons\icn_Open.gif")
        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\WinXP\Toolbar Icons\icn_Document.gif")
        .iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\WinXP\Toolbar Icons\icn_Search.gif")
        .iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\WinXP\Toolbar Icons\icn_Help.gif")
        .iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\WinXP\Toolbar Icons\icn_Stop.gif")
    
        .ctrl_ListObject.DrawMenu
        
               '.ctrl_Panel.SkinPath = App.Path & "\Skins\WinXP"
        '.ctrl_Panel.DrawPanel
        
        '.ctrl_PullDownMenu.BackColor = &H8000000F
        '.ctrl_PullDownMenu.ForeColor = &H0&
        '.ctrl_PullDownMenu.Refresh
        
        .Line1.BorderColor = &H0&
        .lbl_Statusbar.ForeColor = &H0&
        
        .pic_Viewport.BackColor = &H8000000F
       .pic_Viewport.Refresh

        Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "\Skins\WinXP", True)
        pLastTransparencyPath = App.Path & "\Skins\WinXP"
    End With
End Sub

Public Sub ChangeSkinToValentine(m_Form As Form)
    Call InitSkinStruct("Valentine")
    Call ChangeSkin("Valentine", m_Form)
    
    With m_Form
        '.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\Valentine"
        '.ctrl_SkinableForm.BackColor = &HA6C1E2
        '.ctrl_SkinableForm.CaptionTop = 420
        '.ctrl_SkinableForm.CaptionColor = &H0&
        'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
        
        '.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\Valentine"
        '.ctrl_btn_Previous.ForeColor = &H0&
        '.ctrl_btn_Previous.LoadSkin
        '.ctrl_btn_Previous.Refresh
        '.ctrl_btn_Next.SkinPath = App.Path & "\Skins\Valentine"
        '.ctrl_btn_Next.ForeColor = &H0&
        '.ctrl_btn_Next.LoadSkin
        '.ctrl_btn_Next.Refresh
        '.ctrl_btn_dq.SkinPath = App.Path & "\Skins\Valentine"
        '.ctrl_btn_dq.ForeColor = &H0&
        '.ctrl_btn_dq.LoadSkin
        '.ctrl_btn_dq.Refresh
        
        '.ctrl_ListObject.SkinPath = App.Path & "\Skins\Valentine"
        '.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\Valentine\Toolbar Icons\icn_Back.gif")
        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\Valentine\Toolbar Icons\icn_Forward.gif")
        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\Valentine\Toolbar Icons\icn_Home.gif")
        .iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\Valentine\Toolbar Icons\icn_Refresh.gif")
        .iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\Valentine\Toolbar Icons\icn_Open.gif")
        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\Valentine\Toolbar Icons\icn_Document.gif")
        .iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\Valentine\Toolbar Icons\icn_Search.gif")
        .iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\Valentine\Toolbar Icons\icn_Help.gif")
        .iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\Valentine\Toolbar Icons\icn_Stop.gif")
       
        .ctrl_ListObject.DrawMenu
        
        '.ctrl_Panel.SkinPath = App.Path & "\Skins\Valentine"
        '.ctrl_Panel.DrawPanel
        
        '.ctrl_PullDownMenu.BackColor = &HA6C1E2
        '.ctrl_PullDownMenu.ForeColor = &H0&
        '.ctrl_PullDownMenu.Refresh
        
        .Line1.BorderColor = &H0&
        .lbl_Statusbar.ForeColor = &H0&
        
        .pic_Viewport.BackColor = &HCADCFA
        .pic_Viewport.Refresh
        
        Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "", False)
        pLastTransparencyPath = ""
    End With
End Sub

Public Sub ChangeSkinToWildBrowser(m_Form As Form)
    Call InitSkinStruct("WildBrowser")
    Call ChangeSkin("WildBrowser", m_Form)
    
    With m_Form
        '.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\WildBrowser"
        '.ctrl_SkinableForm.BackColor = &H968D80
        '.ctrl_SkinableForm.CaptionTop = 285
        '.ctrl_SkinableForm.CaptionColor = &H0&
        'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
        
        '.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\WildBrowser"
        '.ctrl_btn_Previous.ForeColor = &HFFFFFF
        '.ctrl_btn_Previous.LoadSkin
        '.ctrl_btn_Previous.Refresh
        '.ctrl_btn_Next.SkinPath = App.Path & "\Skins\WildBrowser"
        '.ctrl_btn_Next.ForeColor = &HFFFFFF
        '.ctrl_btn_Next.LoadSkin
        '.ctrl_btn_Next.Refresh
        '.ctrl_btn_dq.SkinPath = App.Path & "\Skins\WildBrowser"
        '.ctrl_btn_dq.ForeColor = &HFFFFFF
        '.ctrl_btn_dq.LoadSkin
        '.ctrl_btn_dq.Refresh
        
        '.ctrl_ListObject.SkinPath = App.Path & "\Skins\WildBrowser"
        '.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\WildBrowser\Toolbar Icons\icn_Back.gif")
        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\WildBrowser\Toolbar Icons\icn_Forward.gif")
        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\WildBrowser\Toolbar Icons\icn_Home.gif")
        .iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\WildBrowser\Toolbar Icons\icn_Refresh.gif")
        .iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\WildBrowser\Toolbar Icons\icn_Open.gif")
        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\WildBrowser\Toolbar Icons\icn_Document.gif")
        .iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\WildBrowser\Toolbar Icons\icn_Search.gif")
        .iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\WildBrowser\Toolbar Icons\icn_Help.gif")
        .iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\WildBrowser\Toolbar Icons\icn_Stop.gif")
      
        .ctrl_ListObject.DrawMenu
        
    
        '.ctrl_Panel.SkinPath = App.Path & "\Skins\WildBrowser"
        '.ctrl_Panel.DrawPanel
        
        '.ctrl_PullDownMenu.BackColor = &H968D80
        '.ctrl_PullDownMenu.ForeColor = &HFFFFFF
        '.ctrl_PullDownMenu.Refresh
        
        .Line1.BorderColor = &HFFFFFF
        .lbl_Statusbar.ForeColor = &HFFFFFF
        
        .pic_Viewport.BackColor = &H968D80
        .pic_Viewport.Refresh

        Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "\Skins\WindBrowser", True)
        pLastTransparencyPath = App.Path & "\Skins\WindBrowser"
    End With
End Sub

Public Sub ChangeSkinToBluePad(m_Form As Form)
    Call InitSkinStruct("BluePad")
    Call ChangeSkin("BluePad", m_Form)
    
    With m_Form
        '.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\Titanium"
        '.ctrl_SkinableForm.BackColor = &H4B4A4A
        '.ctrl_SkinableForm.CaptionTop = 195
        '.ctrl_SkinableForm.CaptionColor = &H0&
        'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
        
        '.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\Titanium"
        '.ctrl_btn_Previous.ForeColor = &HFFFFFF
        '.ctrl_btn_Previous.LoadSkin
        '.ctrl_btn_Previous.Refresh
        '.ctrl_btn_Next.SkinPath = App.Path & "\Skins\Titanium"
        '.ctrl_btn_Next.ForeColor = &HFFFFFF
        '.ctrl_btn_Next.LoadSkin
        '.ctrl_btn_Next.Refresh
        '.ctrl_btn_dq.SkinPath = App.Path & "\Skins\Titanium"
        '.ctrl_btn_dq.ForeColor = &HFFFFFF
        '.ctrl_btn_dq.LoadSkin
        '.ctrl_btn_dq.Refresh
        
        '.ctrl_ListObject.SkinPath = App.Path & "\Skins\Titanium"
        '.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\Titanium\Toolbar Icons\icn_Back.gif")
        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\Titanium\Toolbar Icons\icn_Forward.gif")
        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\Titanium\Toolbar Icons\icn_Home.gif")
        .iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\Titanium\Toolbar Icons\icn_Refresh.gif")
        .iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\Titanium\Toolbar Icons\icn_Open.gif")
        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\Titanium\Toolbar Icons\icn_Document.gif")
        .iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\Titanium\Toolbar Icons\icn_Search.gif")
        .iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\Titanium\Toolbar Icons\icn_Help.gif")
        .iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\Titanium\Toolbar Icons\icn_Stop.gif")
      
        .ctrl_ListObject.DrawMenu
 
        
        '.ctrl_Panel.SkinPath = App.Path & "\Skins\Titanium"
        '.ctrl_Panel.DrawPanel
        
        '.ctrl_PullDownMenu.BackColor = &H4B4A4A
        '.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 ChangeSkinToWin98(m_Form As Form)
    Call InitSkinStruct("Win98")
    Call ChangeSkin("Win98", m_Form)
    
    With m_Form
        '.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\Win98"
        '.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\Win98"
        '.ctrl_btn_Previous.ForeColor = &H0&
        '.ctrl_btn_Previous.LoadSkin
        '.ctrl_btn_Previous.Refresh
        '.ctrl_btn_Next.SkinPath = App.Path & "\Skins\Win98"
        '.ctrl_btn_Next.ForeColor = &H0&
        '.ctrl_btn_Next.LoadSkin
        '.ctrl_btn_Next.Refresh
        '.ctrl_btn_dq.SkinPath = App.Path & "\Skins\Win98"
        '.ctrl_btn_dq.ForeColor = &H0&
        '.ctrl_btn_dq.LoadSkin
        '.ctrl_btn_dq.Refresh
        
        '.ctrl_ListObject.SkinPath = App.Path & "\Skins\Win98"
        '.ctrl_ListObject.ForeColor = &H0&
        '.ctrl_ListObject.MouseMoveColor = &HC0&
        '.ctrl_ListObject.MouseDownColor = &H0&
        .iml_Toolbar.ListImages.Clear
        .iml_Toolbar.ListImages.Add 1, , LoadPicture(App.Path & "\Skins\Win98\Toolbar Icons\icn_Back.gif")
        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\Win98\Toolbar Icons\icn_Forward.gif")
        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\Win98\Toolbar Icons\icn_Home.gif")
        .iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\Win98\Toolbar Icons\icn_Refresh.gif")
        .iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\Win98\Toolbar Icons\icn_Open.gif")
        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\Win98\Toolbar Icons\icn_Document.gif")
        .iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\Win98\Toolbar Icons\icn_Search.gif")
        .iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\Win98\Toolbar Icons\icn_Help.gif")
        .iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\Win98\Toolbar Icons\icn_Stop.gif")
     
        .ctrl_ListObject.DrawMenu
     
        
        '.ctrl_Panel.SkinPath = App.Path & "\Skins\Win98"
        '.ctrl_Panel.DrawPanel
        
        '.ctrl_PullDownMenu.BackColor = &H8000000F
        '.ctrl_PullDownMenu.ForeColor = &H0&
        '.ctrl_PullDownMenu.Refresh
        
        .Line1.BorderColor = &H0&
        .lbl_Statusbar.ForeColor = &H0&
        
       .pic_Viewport.BackColor = &H8000000F
       .pic_Viewport.Refresh
   
        Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "\Skins\Win98", True)
        pLastTransparencyPath = App.Path & "\Skins\Win98"
    End With
End Sub