mdul_main.bas

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

Attribute VB_Name = "mdul_Main"
Option Explicit

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Type TSkin
    SkinName As String
    FormBackColor As Long
    CaptionTop As Integer
    CaptionColor As Long
    SButtonForeColor As Long
    ListForeColor As Long
    ListMouseDownColor As Long
    ListMouseMoveColor As Long
    PdMenuForeColor As Long
    CSubItemTop As Integer
    CMouseDownColor As Long
    CMouseMoveColor As Long
    CSubMouseDownColor As Long
    CSubMouseMoveColor As Long
End Type

Public pSkin As TSkin
Public pIndex As Integer
Public pLastTransparencyPath As String
Dim txtline As String

Sub Main()
    frm_Main.Show
End Sub

Public Sub Initialize()
Dim suiji As Integer

    Call frm_Main.ctrl_SkinableForm.LoadSkin(frm_Main)
    
        
    Call frm_Main.ctrl_PullDownMenu.AddItem("文件")
    Call frm_Main.ctrl_PullDownMenu.AddItem("视图")
    Call frm_Main.ctrl_PullDownMenu.AddItem("皮肤")
    Call frm_Main.ctrl_PullDownMenu.AddItem("操作")
    Call frm_Main.ctrl_PullDownMenu.AddItem("帮助")
        
   
    Call frm_Main.ctrl_ListObject.AddItem("停止滚动")
    Call frm_Main.ctrl_ListObject.AddItem("自动滚动")
    Call frm_Main.ctrl_ListObject.AddItem("修改时间")
    Call frm_Main.ctrl_ListObject.AddItem("修改数量")
    Call frm_Main.ctrl_ListObject.AddItem("上 一 张")
    Call frm_Main.ctrl_ListObject.AddItem("下 一 张")
    Call frm_Main.ctrl_ListObject.AddItem("复      位")
    Call frm_Main.ctrl_ListObject.AddItem("退      出")

Randomize ' 对随机数生成器做初始化的动作

suiji = Int(Rnd * 18 + 1) '生成1-18内的随机数

Select Case suiji
       Case 1
       Call ChangeSkinToTitanium(frm_Main)
       Case 2
       Call ChangeSkinToDefault(frm_Main)
       Case 3
       Call ChangeSkinToBlue(frm_Main)
       Case 4
       Call ChangeSkinToDeco(frm_Main)
       Case 5
       Call ChangeSkinToHolograph(frm_Main)
       Case 6
       Call ChangeSkinToTreasureChest(frm_Main)
       Case 7
       Call ChangeSkinToALPI(frm_Main)
       Case 8
       Call ChangeSkinToDoesnt_Suck(frm_Main)
       Case 9
       Call ChangeSkinToSteelBlade(frm_Main)
       Case 10
       Call ChangeSkinToWazoo(frm_Main)
       Case 11
       Call ChangeSkinToSteelRain(frm_Main)
       Case 12
       Call ChangeSkinToCoupe(frm_Main)
       Case 13
       Call ChangeSkinToBoilerRoom(frm_Main)
       Case 14
       Call ChangeSkinToExecutive(frm_Main)
       Case 15
       Call ChangeSkinToWeaponx(frm_Main)
       Case 16
       Call ChangeSkinToValentine(frm_Main)
       Case 17
       Call ChangeSkinToWildBrowser(frm_Main)
       Case 18
       Call ChangeSkinToBluePad(frm_Main)
       Case Else
       Call ChangeSkinToBluePad(frm_Main)
End Select


  
  
End Sub

Public Sub InitSkinStruct(m_SkinName As String)
    Dim v_lRtn As Long
    Dim v_sString As String
    Dim v_sFilePath As String
    
    v_sFilePath = App.Path & "\Skins\" & m_SkinName & "\Settings.ini"
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("General", "SkinName", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.SkinName = TrimString(v_sString)
        
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("SkinableForm", "BackColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.FormBackColor = Val(TrimString(v_sString))
    
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("SkinableForm", "CaptionTop", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CaptionTop = Val(TrimString(v_sString))
    
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("SkinableForm", "CaptionColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CaptionColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("SkinableButton", "ForeColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.SButtonForeColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("PullDownMenu", "ForeColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.PdMenuForeColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ListObject", "ForeColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.ListForeColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ListObject", "MouseDownColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.ListMouseDownColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ListObject", "MouseMoveColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.ListMouseMoveColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ChannelBar", "SubItemTop", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CSubItemTop = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ChannelBar", "MouseDownColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CMouseDownColor = Val(TrimString(v_sString))
    
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ChannelBar", "MouseMoveColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CMouseMoveColor = Val(TrimString(v_sString))

    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ChannelBar", "SubMouseDownColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CSubMouseDownColor = Val(TrimString(v_sString))
    
    v_sString = Space(255)
    v_lRtn = GetPrivateProfileString("ChannelBar", "SubMouseMoveColor", "", v_sString, Len(v_sString), v_sFilePath)
    pSkin.CSubMouseMoveColor = Val(TrimString(v_sString))
End Sub

Public Function TrimString(m_Str As String) As String
    m_Str = RTrim$(m_Str)
    m_Str = Left(m_Str, Len(m_Str) - 1)
    TrimString = m_Str
End Function

Public Sub ChangeSkin(m_SkinName As String, m_Form As Form)
    Dim v_oControl As Control

    Call InitSkinStruct(m_SkinName)
    For Each v_oControl In m_Form
        If TypeName(v_oControl) = "ctrl_SkinableForm" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.BackColor = pSkin.FormBackColor
            v_oControl.CaptionTop = pSkin.CaptionTop
            v_oControl.CaptionColor = pSkin.CaptionColor
            Call v_oControl.LoadSkin(frm_Main)
        ElseIf TypeName(v_oControl) = "ctrl_SkinableButton" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.ForeColor = pSkin.SButtonForeColor
            v_oControl.LoadSkin
        ElseIf TypeName(v_oControl) = "ctrl_ListObject" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.ForeColor = pSkin.ListForeColor
            v_oControl.MouseDownColor = pSkin.ListMouseDownColor
            v_oControl.MouseMoveColor = pSkin.ListMouseMoveColor
        ElseIf TypeName(v_oControl) = "ctrl_Panel" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.DrawPanel
        ElseIf TypeName(v_oControl) = "ctrl_PullDownMenu" Then
            v_oControl.BackColor = pSkin.FormBackColor
            v_oControl.ForeColor = pSkin.PdMenuForeColor
            v_oControl.Refresh
        ElseIf TypeName(v_oControl) = "ctrl_ProgressBar" Then
            v_oControl.SkinPath = App.Path & "\Skins\" & m_SkinName
            v_oControl.LoadSkin
        End If
    Next v_oControl
    
    Set v_oControl = Nothing
End Sub


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

        .ctrl_ListObject.DrawMenu
        
               
        '.ctrl_Panel.SkinPath = App.Path & "\Skins\Default"
        '.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 ChangeSkinToTitanium(m_Form As Form)
    Call InitSkinStruct("Titanium")
    Call ChangeSkin("Titanium", 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