mdul_main.bas

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

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

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

Public Sub ChangeSkinToHolograph(m_Form As Form)
    Call InitSkinStruct("Holograph")
    Call ChangeSkin("Holograph", m_Form)
    
    With frm_Main
        '.ctrl_SkinableForm.SkinPath = App.Path & "\Skins\Holograph"
        '.ctrl_SkinableForm.BackColor = &H3A5959
        '.ctrl_SkinableForm.CaptionTop = 285
        '.ctrl_SkinableForm.CaptionColor = &HFFFFFF
        'Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
        
        '.ctrl_btn_Previous.SkinPath = App.Path & "\Skins\Holograph"
        '.ctrl_btn_Previous.ForeColor = &HFFFFFF
        '.ctrl_btn_Previous.LoadSkin
        '.ctrl_btn_Previous.Refresh
        '.ctrl_btn_Next.SkinPath = App.Path & "\Skins\Holograph"
        '.ctrl_btn_Next.ForeColor = &HFFFFFF
        '.ctrl_btn_Next.LoadSkin
        '.ctrl_btn_Next.Refresh
        '.ctrl_btn_dq.SkinPath = App.Path & "\Skins\Holograph"
        '.ctrl_btn_dq.ForeColor = &HFFFFFF
        '.ctrl_btn_dq.LoadSkin
        '.ctrl_btn_dq.Refresh
        
        '.ctrl_ListObject.SkinPath = App.Path & "\Skins\Holograph"
        '.ctrl_ListObject.MouseMoveColor = &HFFFFFF
        '.ctrl_ListObject.MouseDownColor = &HFFFFFF
        '.ctrl_ListObject.ForeColor = &HFFFFFF
        .iml_Toolbar.ListImages.Clear
        .iml_Toolbar.ListImages.Add 1, , LoadPicture(App.Path & "\Skins\Holograph\Toolbar Icons\icn_Back.gif")
        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\Holograph\Toolbar Icons\icn_Forward.gif")
        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\Holograph\Toolbar Icons\icn_Home.gif")
        .iml_Toolbar.ListImages.Add 4, , LoadPicture(App.Path & "\Skins\Holograph\Toolbar Icons\icn_Refresh.gif")
        .iml_Toolbar.ListImages.Add 5, , LoadPicture(App.Path & "\Skins\Holograph\Toolbar Icons\icn_Open.gif")
        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\Holograph\Toolbar Icons\icn_Document.gif")
        .iml_Toolbar.ListImages.Add 7, , LoadPicture(App.Path & "\Skins\Holograph\Toolbar Icons\icn_Search.gif")
        .iml_Toolbar.ListImages.Add 8, , LoadPicture(App.Path & "\Skins\Holograph\Toolbar Icons\icn_Help.gif")
        .iml_Toolbar.ListImages.Add 9, , LoadPicture(App.Path & "\Skins\Holograph\Toolbar Icons\icn_Stop.gif")
       
        .ctrl_ListObject.DrawMenu
        
            
        '.ctrl_Panel.SkinPath = App.Path & "\Skins\Holograph"
        '.ctrl_Panel.DrawPanel
        
        '.ctrl_PullDownMenu.BackColor = &H3A5959
        '.ctrl_PullDownMenu.ForeColor = &HFFFFFF
        '.ctrl_PullDownMenu.Refresh
        
        .Line1.BorderColor = &HFFFFFF
        .lbl_Statusbar.ForeColor = &HFFFFFF
        
        .pic_Viewport.BackColor = &H263C3C
       .pic_Viewport.Refresh
     
        Call .ctrl_TransparetForm.ShapeForm(frm_Main, App.Path & "", False)
        pLastTransparencyPath = ""
    End With
End Sub

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