?? wavfile.pag
字號(hào):
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.PropertyPage 聲音文件
Caption = "聲音文件"
ClientHeight = 3495
ClientLeft = 0
ClientTop = 0
ClientWidth = 4710
PaletteMode = 0 'Halftone
ScaleHeight = 3495
ScaleWidth = 4710
Begin MSComDlg.CommonDialog BrsDlg
Left = 3960
Top = 720
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton BrsCmd
Caption = "Browse..."
Height = 375
Left = 2880
TabIndex = 2
Top = 360
Width = 975
End
Begin VB.TextBox txtFileName
Height = 330
Left = 90
TabIndex = 1
Top = 370
Width = 2700
End
Begin VB.Label EmailLbl
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "endlessfree@sohu.com"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 480
TabIndex = 4
Top = 2280
Width = 3615
End
Begin VB.Label InfLbl
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Author : endlessfree"
ForeColor = &H000000FF&
Height = 255
Left = 960
TabIndex = 3
Top = 1800
Width = 2415
End
Begin VB.Line LinkLine
Index = 0
X1 = 4440
X2 = 120
Y1 = 3000
Y2 = 3000
End
Begin VB.Line LinkLine
Index = 4
X1 = 4440
X2 = 120
Y1 = 1560
Y2 = 1560
End
Begin VB.Label lblFileName
Caption = "FileName:"
Height = 240
Left = 90
TabIndex = 0
Top = 120
Width = 2700
End
Begin VB.Line LinkLine
BorderColor = &H8000000E&
BorderWidth = 3
Index = 3
X1 = 4440
X2 = 120
Y1 = 1560
Y2 = 1560
End
Begin VB.Line LinkLine
BorderColor = &H8000000E&
BorderWidth = 3
Index = 1
X1 = 4440
X2 = 120
Y1 = 3000
Y2 = 3000
End
End
Attribute VB_Name = "聲音文件"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Sub BrsCmd_Click()
BrsDlg.DialogTitle = "打開(kāi)一個(gè)換熱器輸入數(shù)據(jù)文件"
BrsDlg.DefaultExt = "wav"
BrsDlg.Filter = "wav fiels|*.wav"
BrsDlg.ShowOpen
txtFileName.Text = BrsDlg.FileName
End Sub
Private Sub EmailLbl_Click()
ShellExecute 0&, vbNullString, "mailto:" & "endlessfree@chinaren.com", vbNullString, "C:\", SW_SHOWNORMAL
End Sub
Private Sub txtFileName_Change()
Changed = True
End Sub
Private Sub PropertyPage_ApplyChanges()
SelectedControls(0).FileName = txtFileName.Text
End Sub
Private Sub PropertyPage_SelectionChanged()
txtFileName.Text = SelectedControls(0).FileName
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -