?? frmhelp.frm
字號:
VERSION 5.00
Begin VB.Form FrmHelp
BorderStyle = 1 'Fixed Single
Caption = "Help"
ClientHeight = 6375
ClientLeft = 45
ClientTop = 330
ClientWidth = 6900
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6375
ScaleWidth = 6900
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text1
Appearance = 0 'Flat
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6375
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Text = "FrmHelp.frx":0000
Top = 0
Width = 6855
End
End
Attribute VB_Name = "FrmHelp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim fil As Integer
Dim textline As String
If Dir(App.Path + "\readme.txt") <> "" Then
fil = FreeFile
Open App.Path + "\readme.txt" For Input As #fil
Do While Not EOF(fil)
Line Input #fil, textline ' 讀入一行數據并將其賦予某變量。
Text1.Text = Text1.Text + textline + Chr$(13) + Chr$(10)
Loop
Close #fil
Else
MsgBox "找不到指定文件"
Exit Sub
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -