?? frmmsg.frm
字號:
VERSION 5.00
Begin VB.Form frmMsg
BorderStyle = 3 'Fixed Dialog
Caption = "Confirm Save"
ClientHeight = 1905
ClientLeft = 2385
ClientTop = 2385
ClientWidth = 5385
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 1905
ScaleWidth = 5385
ShowInTaskbar = 0 'False
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 720
Index = 2
Left = 150
Picture = "frmMsg.frx":0000
ScaleHeight = 720
ScaleWidth = 735
TabIndex = 5
Top = 180
Width = 735
End
Begin VB.CommandButton btnCancel
Cancel = -1 'True
Caption = "&Cancel"
Height = 435
Left = 4110
TabIndex = 3
Top = 1350
Width = 1095
End
Begin VB.CommandButton btnAll
Caption = "No to &All"
Height = 435
Left = 2790
TabIndex = 2
Top = 1350
Width = 1095
End
Begin VB.CommandButton btnNo
Caption = "&No"
Height = 435
Left = 1470
TabIndex = 1
Top = 1350
Width = 1095
End
Begin VB.CommandButton btnYes
Caption = "&Yes"
Default = -1 'True
Height = 435
Left = 180
TabIndex = 0
Top = 1350
Width = 1095
End
Begin VB.Label Label1
Caption = "Label1"
Height = 585
Left = 960
TabIndex = 4
Top = 420
Width = 4215
End
End
Attribute VB_Name = "frmMsg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btnCancel_Click()
frmMain.UserMsgChoice = "Cancel"
Unload Me
End Sub
Private Sub btnNo_Click()
frmMain.UserMsgChoice = "No"
Unload Me
End Sub
Private Sub btnAll_Click()
frmMain.UserMsgChoice = "All"
Unload Me
End Sub
Private Sub btnYes_Click()
frmMain.UserMsgChoice = "Yes"
Unload Me
End Sub
Private Sub Form_Load()
'cause system sound
MsgBeep (0)
'center form
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Select Case frmMain.MsgMode
Case "File"
'assign message for "Save File" dialog on close
Me.Caption = "Confirm Save"
Label1 = "The file " & frmMain.ActiveForm.Caption & " has changed." & Chr$(13) & Chr$(13) & "Do you wish to save the file before closing?"
btnAll.Caption = "No to &All"
Case "Search"
'assign message for "Replace All" button in Search dialog
Me.Caption = "Confirm Replace"
Label1 = "Replace Selected Text?"
btnAll.Caption = "Yes to &All"
End Select
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -