?? frmbase_wait.frm
字號:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmBase_Wait
BorderStyle = 0 'None
ClientHeight = 5565
ClientLeft = 0
ClientTop = 0
ClientWidth = 7395
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5565
ScaleWidth = 7395
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 465
Left = 2520
TabIndex = 0
Top = 1440
Width = 1845
End
Begin VB.CommandButton Command3
Caption = "Command3"
Height = 465
Left = 2520
TabIndex = 3
Top = 990
Width = 1845
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 465
Left = 2520
TabIndex = 2
Top = 540
Width = 1845
End
Begin MSComCtl2.Animation Avi
Height = 735
Left = 690
TabIndex = 1
Top = 540
Width = 1605
_ExtentX = 2831
_ExtentY = 1296
_Version = 393216
FullWidth = 107
FullHeight = 49
End
End
Attribute VB_Name = "FrmBase_Wait"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal LpStrCommand As String, _
' ByVal LpStrReturnString As String, _
' ByVal UReturnLength As String, _
' ByVal ByValhwndCallBack As Long) As Long
'
'
'
''ByVal Sender As System.object, ByVal E As System.EventArgs
'Private Sub ProcPlay()
' Dim CmdStr As String
' Dim Retu As Long
' CmdStr = "\FINDFILE.avi"
' Retu = mciSendString(CmdStr, 0, 0, 0)
'End Sub
Private Sub Command1_Click()
Avi.Open "c:\clock.avi"
Avi.AutoPlay = True
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Avi.AutoPlay = False
Avi.Visible = False
End Sub
Private Sub Form_Load()
Avi.Open "c:\clock.avi"
Avi.AutoPlay = True
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -