?? 圖表_繪制f1.frm
字號(hào):
VERSION 5.00
Begin VB.Form frmInputParameters
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "圖表"
ClientHeight = 4035
ClientLeft = 60
ClientTop = 345
ClientWidth = 5640
LinkTopic = "Form1"
ScaleHeight = 4035
ScaleWidth = 5640
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox txtFile
Alignment = 2 'Center
Height = 375
Left = 120
TabIndex = 9
Top = 3000
Width = 5415
End
Begin VB.CommandButton cmdExit
Caption = "退 出"
Height = 375
Left = 4440
TabIndex = 7
ToolTipText = "結(jié)束程序運(yùn)行"
Top = 3480
Width = 1095
End
Begin VB.CommandButton cmdOK
Caption = "確 定"
Height = 375
Left = 3000
TabIndex = 6
ToolTipText = "選擇好文件并給出行數(shù)和列數(shù)后單擊"
Top = 3480
Width = 1215
End
Begin VB.FileListBox File1
Appearance = 0 'Flat
Height = 1470
Left = 120
TabIndex = 2
Top = 1080
Width = 2655
End
Begin VB.DirListBox Dir1
Appearance = 0 'Flat
Height = 2190
Left = 3000
TabIndex = 1
Top = 360
Width = 2415
End
Begin VB.DriveListBox Drive1
Appearance = 0 'Flat
Height = 300
Left = 120
TabIndex = 0
Top = 360
Width = 2655
End
Begin VB.Label Label5
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "數(shù)據(jù)文件全名"
ForeColor = &H80000008&
Height = 255
Left = 1320
TabIndex = 8
Top = 2760
Width = 3015
End
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "選擇數(shù)據(jù)文件"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 5
Top = 840
Width = 2535
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "選擇目錄"
ForeColor = &H80000008&
Height = 255
Left = 3000
TabIndex = 4
Top = 120
Width = 2415
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "選擇驅(qū)動(dòng)器"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 3
Top = 120
Width = 2655
End
End
Attribute VB_Name = "frmInputParameters"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
File1.Pattern = "*.dat" '文件列表框1只顯示數(shù)據(jù)文件
End Sub
'選擇目錄
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
'選擇驅(qū)動(dòng)器
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
'確定數(shù)據(jù)文件
Private Sub File1_Click()
txtFile.Text = Dir1.Path & "\" & File1.FileName
End Sub
'確定,給出文件名和行數(shù)、列數(shù)后單擊
Private Sub cmdOK_Click()
strFileName = txtFile.Text
Unload Me
'顯示作圖窗體
frmPicture.Visible = True
End Sub
'退出,結(jié)束程序運(yùn)行
Private Sub cmdExit_Click()
Unload Me
End
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -