?? menues.pag
字號:
VERSION 5.00
Begin VB.PropertyPage Menues
Caption = "Menues"
ClientHeight = 3495
ClientLeft = 0
ClientTop = 0
ClientWidth = 5925
LockControls = -1 'True
PaletteMode = 0 'Halftone
ScaleHeight = 3495
ScaleWidth = 5925
Begin VB.TextBox txtMenuStartup
Height = 330
Left = 180
TabIndex = 5
Top = 1845
Width = 870
End
Begin VB.TextBox txtMenusMax
Height = 330
Left = 180
TabIndex = 3
Top = 1125
Width = 870
End
Begin VB.TextBox txtMenuCur
Height = 330
Left = 180
TabIndex = 1
Top = 450
Width = 870
End
Begin VB.Label Label1
BackColor = &H0080C0FF&
Caption = "為程序最先啟動時顯示的菜單項。"
Height = 435
Index = 1
Left = 1305
TabIndex = 7
Top = 1815
Width = 1680
End
Begin VB.Label Label1
BackColor = &H0080C0FF&
Caption = "當前菜單項的大小不能大于最大菜單數。"
Height = 435
Index = 0
Left = 1305
TabIndex = 6
Top = 480
Width = 1680
End
Begin VB.Label lblMenuStartup
AutoSize = -1 'True
Caption = "菜單開始數:"
Height = 180
Left = 180
TabIndex = 4
Top = 1620
Width = 990
End
Begin VB.Label lblMenusMax
AutoSize = -1 'True
Caption = "最大菜單數:"
Height = 180
Left = 180
TabIndex = 2
Top = 900
Width = 990
End
Begin VB.Label lblMenuCur
AutoSize = -1 'True
Caption = "當前菜單項:"
Height = 180
Left = 180
TabIndex = 0
Top = 225
Width = 990
End
Begin VB.Shape Shape1
BackColor = &H0080C0FF&
BackStyle = 1 'Opaque
Height = 570
Index = 0
Left = 1170
Shape = 4 'Rounded Rectangle
Top = 390
Width = 1980
End
Begin VB.Shape Shape1
BackColor = &H0080C0FF&
BackStyle = 1 'Opaque
Height = 570
Index = 1
Left = 1170
Shape = 4 'Rounded Rectangle
Top = 1710
Width = 1980
End
End
Attribute VB_Name = "Menues"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private Sub txtMenuStartup_Change()
On Error Resume Next
Changed = True
End Sub
Private Sub txtMenusMax_Change()
On Error Resume Next
Changed = True
End Sub
Private Sub txtMenuCur_Change()
On Error Resume Next
Changed = True
End Sub
Private Sub PropertyPage_ApplyChanges()
On Error Resume Next
SelectedControls(0).MenuStartup = txtMenuStartup.Text
SelectedControls(0).MenusMax = txtMenusMax.Text
SelectedControls(0).MenuCur = txtMenuCur.Text
End Sub
Private Sub PropertyPage_SelectionChanged()
On Error Resume Next
txtMenuStartup.Text = SelectedControls(0).MenuStartup
txtMenusMax.Text = SelectedControls(0).MenusMax
txtMenuCur.Text = SelectedControls(0).MenuCur
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -