?? mfrm_option.frm
字號:
VERSION 5.00
Begin VB.Form mfrm_Option
BorderStyle = 1 'Fixed Single
Caption = "套打系統選項:"
ClientHeight = 1110
ClientLeft = 45
ClientTop = 330
ClientWidth = 3825
ControlBox = 0 'False
Icon = "mfrm_Option.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1110
ScaleWidth = 3825
StartUpPosition = 2 '屏幕中心
Begin VB.CheckBox ChkDefMode
Caption = "默認系統(&D)"
Height = 195
Left = 90
TabIndex = 2
Top = 720
Width = 1305
End
Begin VB.CommandButton CmdCancel
Cancel = -1 'True
Caption = "取 消(&C)"
Height = 375
Left = 2640
TabIndex = 4
Top = 600
Width = 1125
End
Begin VB.CommandButton CmdOK
Caption = "確 定(&O)"
Height = 375
Left = 1470
TabIndex = 3
Top = 600
Width = 1125
End
Begin VB.ComboBox CmbSystem
Height = 300
Left = 1560
Style = 2 'Dropdown List
TabIndex = 1
Top = 150
Width = 1905
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "請選擇系統(&M):"
Height = 180
Left = 210
TabIndex = 0
Top = 210
Width = 1260
End
End
Attribute VB_Name = "mfrm_Option"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const c_ModeTable As String = "t_SysModule"
Dim mDefMode As String, mSystem As String
Private Sub CmdCancel_Click()
Me.Hide
End Sub
Private Sub CmdOK_Click()
Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set mfrm_Option = Nothing
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -