frm_menu.frm

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

VERSION 5.00
Begin VB.Form frm_Menu 
   Caption         =   "Menus"
   ClientHeight    =   3390
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7080
   LinkTopic       =   "Form1"
   ScaleHeight     =   3390
   ScaleWidth      =   7080
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu ppm_Start 
      Caption         =   "文件(&F)"
      Begin VB.Menu pdi_Minimized 
         Caption         =   "最小化(&W)"
      End
      Begin VB.Menu pdi_Move 
         Caption         =   "移动"
      End
      Begin VB.Menu Seperator01 
         Caption         =   "-"
      End
      Begin VB.Menu ppi_Exit 
         Caption         =   "退出(&E)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu ppm_View 
      Caption         =   "视图(&V)"
      Begin VB.Menu ppi_ShowStatus 
         Caption         =   "状态栏"
         Checked         =   -1  'True
      End
   End
   Begin VB.Menu ppm_Skins 
      Caption         =   "皮肤(&S)"
      Begin VB.Menu ppi_Titanium 
         Caption         =   "Titanium"
      End
      Begin VB.Menu ppi_Default 
         Caption         =   "默认"
      End
      Begin VB.Menu ppi_Blue 
         Caption         =   "Blue"
      End
      Begin VB.Menu ppi_Deco 
         Caption         =   "Deco"
      End
      Begin VB.Menu ppi_Holograph 
         Caption         =   "Holograph"
      End
      Begin VB.Menu ppi_TreasureChest 
         Caption         =   "TreasureChest"
      End
      Begin VB.Menu ppi_ALPI 
         Caption         =   "ALPI"
      End
      Begin VB.Menu ppi_Doesnt_Suck 
         Caption         =   "Doesnt_Suck"
      End
      Begin VB.Menu ppi_SteelBlade 
         Caption         =   "SteelBlade"
      End
      Begin VB.Menu ppi_Wazoo 
         Caption         =   "Wazoo"
      End
      Begin VB.Menu ppi_SteelRain 
         Caption         =   "SteelRain"
      End
      Begin VB.Menu ppi_Coupe 
         Caption         =   "Coupe"
      End
      Begin VB.Menu ppi_BoilerRoom 
         Caption         =   "BoilerRoom"
      End
      Begin VB.Menu ppi_Executive 
         Caption         =   "Executive"
      End
      Begin VB.Menu ppi_Weaponx 
         Caption         =   "Weaponx"
      End
      Begin VB.Menu ppi_Valentine 
         Caption         =   "Valentine"
      End
      Begin VB.Menu ppi_WildBrowser 
         Caption         =   "WildBrowser"
      End
      Begin VB.Menu ppi_BluePad 
         Caption         =   "BluePad"
      End
      Begin VB.Menu pdi_Win98 
         Caption         =   "Win98"
      End
      Begin VB.Menu ppi_WinXP 
         Caption         =   "WinXP"
      End
   End
   Begin VB.Menu ppm_Tutorials 
      Caption         =   "操作(&T)"
      Begin VB.Menu ppi_SkinableForm 
         Caption         =   "停止滚动"
      End
      Begin VB.Menu ppi_SkinableButton 
         Caption         =   "自动滚动"
      End
      Begin VB.Menu ppi_PulldownMenu 
         Caption         =   "修改时间"
      End
      Begin VB.Menu ppi_ChannelBar 
         Caption         =   "修改数量"
      End
      Begin VB.Menu ppi_ListObject 
         Caption         =   "上 一 张"
      End
      Begin VB.Menu ppi_Toolbar 
         Caption         =   "下 一 张"
      End
      Begin VB.Menu ppi_Panel 
         Caption         =   "复    位"
      End
      Begin VB.Menu ppi_quit 
         Caption         =   "退    出"
      End
   End
   Begin VB.Menu ppm_Help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu ppi_About 
         Caption         =   "关于..."
      End
   End
End
Attribute VB_Name = "frm_Menu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long


Private Sub pdi_Minimized_Click()
    frm_Main.WindowState = 1
End Sub

Private Sub pdi_Move_Click()
    Dim v_lRtn As Long
    
    frm_Main.MousePointer = 15
    v_lRtn = SetCursorPos((frm_Main.Left / 15) + ((frm_Main.Width / 2) / 15), (frm_Main.Top / 15) + 15)
End Sub







Private Sub pdi_Win98_Click()
    Call ChangeSkinToWin98(frm_Main)
End Sub

Private Sub ppi_About_Click()
    frm_About.Show 1
End Sub

Private Sub ppi_ALPI_Click()
    Call ChangeSkinToALPI(frm_Main)
End Sub

Private Sub ppi_Blue_Click()
    Call ChangeSkinToBlue(frm_Main)
End Sub

Private Sub ppi_BluePad_Click()
    Call ChangeSkinToBluePad(frm_Main)
End Sub

Private Sub ppi_BoilerRoom_Click()
    Call ChangeSkinToBoilerRoom(frm_Main)
End Sub

Private Sub ppi_ChannelBar_Click()
Call frm_Main.caozuo(3)
End Sub

Private Sub ppi_Coupe_Click()
    Call ChangeSkinToCoupe(frm_Main)
End Sub

Private Sub ppi_Deco_Click()
    Call ChangeSkinToDeco(frm_Main)
End Sub

Private Sub ppi_Default_Click()
    Call ChangeSkinToDefault(frm_Main)
End Sub

Private Sub ppi_Doesnt_Suck_Click()
    Call ChangeSkinToDoesnt_Suck(frm_Main)
End Sub

Private Sub ppi_Executive_Click()
    Call ChangeSkinToExecutive(frm_Main)
End Sub

Private Sub ppi_Exit_Click()
    Unload frm_Main
    Unload frm_Menu
    End
End Sub

Private Sub ppi_Holograph_Click()
    Call ChangeSkinToHolograph(frm_Main)
End Sub



Private Sub ppi_ListObject_Click()
Call frm_Main.caozuo(4)
End Sub

Private Sub ppi_Panel_Click()
Call frm_Main.caozuo(6)
End Sub

Private Sub ppi_PulldownMenu_Click()
Call frm_Main.caozuo(2)
End Sub

Private Sub ppi_quit_Click()
Call frm_Main.caozuo(7)
End Sub

Private Sub ppi_ShowStatus_Click()
    If frm_Menu.ppi_ShowStatus.Checked = True Then
        frm_Menu.ppi_ShowStatus.Checked = False
        frm_Main.Line1.Visible = False
        frm_Main.lbl_Statusbar.Visible = False
    Else
        frm_Menu.ppi_ShowStatus.Checked = True
        frm_Main.Line1.Visible = True
        frm_Main.lbl_Statusbar.Visible = True
    End If
End Sub


Private Sub ppi_SkinableButton_Click()
Call frm_Main.caozuo(1)
End Sub

Private Sub ppi_SkinableForm_Click()
Call frm_Main.caozuo(0)
End Sub

Private Sub ppi_SteelBlade_Click()
    Call ChangeSkinToSteelBlade(frm_Main)
End Sub

Private Sub ppi_SteelRain_Click()
    Call ChangeSkinToSteelRain(frm_Main)
End Sub

Private Sub ppi_Titanium_Click()
    Call ChangeSkinToTitanium(frm_Main)
End Sub

Private Sub ppi_Toolbar_Click()
Call frm_Main.caozuo(5)
End Sub

Private Sub ppi_TreasureChest_Click()
    Call ChangeSkinToTreasureChest(frm_Main)
End Sub

Private Sub ppi_Valentine_Click()
    Call ChangeSkinToValentine(frm_Main)
End Sub

Private Sub ppi_Wazoo_Click()
    Call ChangeSkinToWazoo(frm_Main)
End Sub

Private Sub ppi_Weaponx_Click()
    Call ChangeSkinToWeaponx(frm_Main)
End Sub

Private Sub ppi_WildBrowser_Click()
    Call ChangeSkinToWildBrowser(frm_Main)
End Sub

Private Sub ppi_WinXP_Click()
    Call ChangeSkinToWinXP(frm_Main)
End Sub