?? vmsgbox.frm
字號:
VERSION 5.00
Begin VB.Form vmsgbox
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 1650
ClientLeft = 0
ClientTop = 0
ClientWidth = 4995
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "vmsgbox.frx":0000
ScaleHeight = 110
ScaleMode = 3 'Pixel
ScaleWidth = 333
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Label cancel_a
BackStyle = 0 'Transparent
Height = 330
Left = 3000
TabIndex = 4
Top = 1125
Width = 885
End
Begin VB.Shape cancel_c
BorderColor = &H00C0C0C0&
FillColor = &H00C0C0C0&
Height = 330
Left = 3000
Top = 1125
Width = 885
End
Begin VB.Label cancel_b
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "取 消"
ForeColor = &H00404040&
Height = 180
Left = 3225
TabIndex = 3
Top = 1200
Width = 495
End
Begin VB.Label confirm_a
BackStyle = 0 'Transparent
Height = 330
Left = 2040
TabIndex = 2
Top = 1125
Width = 885
End
Begin VB.Label confim_b
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "確 定"
ForeColor = &H00404040&
Height = 180
Left = 2265
TabIndex = 1
Top = 1200
Width = 495
End
Begin VB.Shape confim_c
BorderColor = &H00C0C0C0&
FillColor = &H00C0C0C0&
Height = 330
Left = 2040
Top = 1125
Width = 885
End
Begin VB.Label msginfo
BackStyle = 0 'Transparent
ForeColor = &H00404040&
Height = 615
Left = 1200
TabIndex = 0
Top = 480
Width = 3495
WordWrap = -1 'True
End
Begin VB.Image msgpic
Height = 480
Left = 360
Picture = "vmsgbox.frx":1ADF2
Top = 480
Width = 480
End
End
Attribute VB_Name = "vmsgbox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cancel_a_Click()
'按下了取消鍵
ReMsgBox = 1
Unload Me
End Sub
Private Sub cancel_a_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'取消鍵顏色變換
cancel_c.BorderColor = &H808080
End Sub
Private Sub cancel_a_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'取消鍵顏色變換
cancel_c.BorderColor = &HC0C0C0
End Sub
Private Sub confirm_a_Click()
'按下啦確定鍵
ReMsgBox = 0
Unload Me
End Sub
Private Sub confirm_a_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'確定鍵顏色變換
confim_c.BorderColor = &H808080
End Sub
Private Sub confirm_a_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'確定鍵顏色變換
confim_c.BorderColor = &HC0C0C0
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
confirm_a_Click
End If
End Sub
Private Sub Form_Load()
'窗口居中
CenterForm Me
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -