mdul_main.bas

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

        .pic_Viewport.BackColor = &H304B95
       .pic_Viewport.Refresh
     
        Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "", False)
        pLastTransparencyPath = ""
    End With
End Sub

Public Sub ChangeSkinToALPI(m_Form As Form)
    Call InitSkinStruct("ALPI")
    Call ChangeSkin("ALPI", m_Form)
    
    With m_Form
        '.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\ALPI"
        '.ctrl_SkinableForm.BackColor = &H2E2E32
        '.ctrl_SkinableForm.CaptionTop = 135
        '.ctrl_SkinableForm.CaptionColor = &H0&
        'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
        
        '.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\ALPI"
        '.ctrl_btn_Previous.ForeColor = &HFFFFFF
        '.ctrl_btn_Previous.LoadSkin
        '.ctrl_btn_Previous.Refresh
        '.ctrl_btn_Next.SkinPath = App.Path & "\Skins\ALPI"
        '.ctrl_btn_Next.ForeColor = &HFFFFFF
        '.ctrl_btn_Next.LoadSkin
        '.ctrl_btn_Next.Refresh
        '.ctrl_btn_dq.SkinPath = App.Path & "\Skins\ALPI"
        '.ctrl_btn_dq.ForeColor = &HFFFFFF
        '.ctrl_btn_dq.LoadSkin
        '.ctrl_btn_dq.Refresh
        
        '.ctrl_ListObject.SkinPath = App.Path & "\Skins\ALPI"
        '.ctrl_ListObject.ForeColor = &HFFFFFF
        '.ctrl_ListObject.MouseMoveColor = &H0&
        '.ctrl_ListObject.MouseDownColor = &H0&
        .iml_Toolbar.ListImages.Clear
        .iml_Toolbar.ListImages.Add 1, , LoadPicture(App.Path & "\Skins\ALPI\Toolbar Icons\icn_Back.gif")
        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\ALPI\Toolbar Icons\icn_Forward.gif")
        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\ALPI\Toolbar Icons\icn_Home.gif")
        .iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\ALPI\Toolbar Icons\icn_Refresh.gif")
        .iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\ALPI\Toolbar Icons\icn_Open.gif")
        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\ALPI\Toolbar Icons\icn_Document.gif")
        .iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\ALPI\Toolbar Icons\icn_Search.gif")
        .iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\ALPI\Toolbar Icons\icn_Help.gif")
        .iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\ALPI\Toolbar Icons\icn_Stop.gif")
       
        .ctrl_ListObject.DrawMenu
        
       
        '.ctrl_Panel.SkinPath = App.Path & "\Skins\ALPI"
        '.ctrl_Panel.DrawPanel
        
        '.ctrl_PullDownMenu.BackColor = &H2E2E32
        '.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 ChangeSkinToDoesnt_Suck(m_Form As Form)
    Call InitSkinStruct("Doesnt_Suck")
    Call ChangeSkin("Doesnt_Suck", m_Form)
    
    With m_Form
        '.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\Doesnt_Suck"
        '.ctrl_SkinableForm.BackColor = &HCECECE
        '.ctrl_SkinableForm.CaptionTop = 270
        '.ctrl_SkinableForm.CaptionColor = &H0&
        'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
        
        '.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\Doesnt_Suck"
        '.ctrl_btn_Previous.ForeColor = &H0&
        '.ctrl_btn_Previous.LoadSkin
        '.ctrl_btn_Previous.Refresh
        '.ctrl_btn_Next.SkinPath = App.Path & "\Skins\Doesnt_Suck"
        '.ctrl_btn_Next.ForeColor = &H0&
        '.ctrl_btn_Next.LoadSkin
        '.ctrl_btn_Next.Refresh
        '.ctrl_btn_dq.SkinPath = App.Path & "\Skins\Doesnt_Suck"
        '.ctrl_btn_dq.ForeColor = &H0&
        '.ctrl_btn_dq.LoadSkin
        '.ctrl_btn_dq.Refresh
        
        '.ctrl_ListObject.SkinPath = App.Path & "\Skins\Doesnt_Suck"
        '.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\Doesnt_Suck\Toolbar Icons\icn_Back.gif")
        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\Doesnt_Suck\Toolbar Icons\icn_Forward.gif")
        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\Doesnt_Suck\Toolbar Icons\icn_Home.gif")
        .iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\Doesnt_Suck\Toolbar Icons\icn_Refresh.gif")
        .iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\Doesnt_Suck\Toolbar Icons\icn_Open.gif")
        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\Doesnt_Suck\Toolbar Icons\icn_Document.gif")
        .iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\Doesnt_Suck\Toolbar Icons\icn_Search.gif")
        .iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\Doesnt_Suck\Toolbar Icons\icn_Help.gif")
        .iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\Doesnt_Suck\Toolbar Icons\icn_Stop.gif")
     
        .ctrl_ListObject.DrawMenu
        
      
        '.ctrl_Panel.SkinPath = App.Path & "\Skins\Doesnt_Suck"
        '.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 ChangeSkinToSteelBlade(m_Form As Form)
    Call InitSkinStruct("SteelBlade")
    Call ChangeSkin("SteelBlade", m_Form)
    
    With m_Form
        '.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\SteelBlade"
        '.ctrl_SkinableForm.BackColor = &H0&
        '.ctrl_SkinableForm.CaptionTop = 405
        '.ctrl_SkinableForm.CaptionColor = &HFFFFFF
        'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
        
        '.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\SteelBlade"
        '.ctrl_btn_Previous.ForeColor = &HFFFFFF
        '.ctrl_btn_Previous.LoadSkin
        '.ctrl_btn_Previous.Refresh
        '.ctrl_btn_Next.SkinPath = App.Path & "\Skins\SteelBlade"
        '.ctrl_btn_Next.ForeColor = &HFFFFFF
        '.ctrl_btn_Next.LoadSkin
        '.ctrl_btn_Next.Refresh
        '.ctrl_btn_dq.SkinPath = App.Path & "\Skins\SteelBlade"
        '.ctrl_btn_dq.ForeColor = &HFFFFFF
        '.ctrl_btn_dq.LoadSkin
        '.ctrl_btn_dq.Refresh
        
        '.ctrl_ListObject.SkinPath = App.Path & "\Skins\SteelBlade"
        '.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\SteelBlade\Toolbar Icons\icn_Back.gif")
        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\SteelBlade\Toolbar Icons\icn_Forward.gif")
        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\SteelBlade\Toolbar Icons\icn_Home.gif")
        .iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\SteelBlade\Toolbar Icons\icn_Refresh.gif")
        .iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\SteelBlade\Toolbar Icons\icn_Open.gif")
        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\SteelBlade\Toolbar Icons\icn_Document.gif")
        .iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\SteelBlade\Toolbar Icons\icn_Search.gif")
        .iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\SteelBlade\Toolbar Icons\icn_Help.gif")
        .iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\SteelBlade\Toolbar Icons\icn_Stop.gif")
     
        .ctrl_ListObject.DrawMenu
        
       
        '.ctrl_Panel.SkinPath = App.Path & "\Skins\SteelBlade"
        '.ctrl_Panel.DrawPanel
        
        '.ctrl_PullDownMenu.BackColor = &H0&
        '.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 & "\Skins\SteelBlade", True)
        pLastTransparencyPath = App.Path & "\Skins\SteelBlade"
    End With
End Sub

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

        Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "", False)
        pLastTransparencyPath = ""
    End With
End Sub

Public Sub ChangeSkinToSteelRain(m_Form As Form)
    Call InitSkinStruct("SteelRain")
    Call ChangeSkin("SteelRain", m_Form)
    
    With m_Form
        '.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\SteelRain"
        '.ctrl_SkinableForm.BackColor = &H40241B
        '.ctrl_SkinableForm.CaptionTop = 250
        '.ctrl_SkinableForm.CaptionColor = &H0&
        'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
        
        '.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\SteelRain"
        '.ctrl_btn_Previous.ForeColor = &HFFFFFF
        '.ctrl_btn_Previous.LoadSkin
        '.ctrl_btn_Previous.Refresh
        '.ctrl_btn_Next.SkinPath = App.Path & "\Skins\SteelRain"
        '.ctrl_btn_Next.ForeColor = &HFFFFFF
        '.ctrl_btn_Next.LoadSkin
        '.ctrl_btn_Next.Refresh
        '.ctrl_btn_dq.SkinPath = App.Path & "\Skins\SteelRain"
        '.ctrl_btn_dq.ForeColor = &HFFFFFF
        '.ctrl_btn_dq.LoadSkin
        '.ctrl_btn_dq.Refresh
        
        '.ctrl_ListObject.SkinPath = App.Path & "\Skins\SteelRain"
        '.ctrl_ListObject.ForeColor = &H0&
        '.ctrl_ListObject.MouseMoveColor = &H0&
        '.ctrl_ListObject.MouseDownColor = &HFFFFFF
        .iml_Toolbar.ListImages.Clear
        .iml_Toolbar.ListImages.Add 1, , LoadPicture(App.Path & "\Skins\SteelRain\Toolbar Icons\icn_Back.gif")
        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\SteelRain\Toolbar Icons\icn_Forward.gif")
        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\SteelRain\Toolbar Icons\icn_Home.gif")
        .iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\SteelRain\Toolbar Icons\icn_Refresh.gif")
        .iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\SteelRain\Toolbar Icons\icn_Open.gif")
        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\SteelRain\Toolbar Icons\icn_Document.gif")