在VB中加入“文件——打開”功能

啟動VB，在窗體上畫壹個TEXTBOX，MultiLine屬性設為True，ScrollBars屬性設為2。點擊“工具”--“菜單編輯器”，在標題中輸入“文件(&F)”，在名稱中輸入“Fi”，再點擊“下壹個”，點壹下向右的箭頭，在標題中輸入“打開(&O)”，在名稱中輸入“Op”，點確定，至此菜單的工作完成。

下面加入通用對話框：點“工程”--“部件”，從中找到“Microsoft Common Dialog Control 6.0”，把前面的方框內打上勾，點“關閉”。在窗體上畫壹個剛添加的通用對話框控件。

下面開始寫代碼：

單擊窗體上的“文件”，選“打開”，這時會跳出代碼框。在其中輸入：

Dim FileName0 As String, FileText As String, R As String

CommonDialog1.DialogTitle = "打開文件"

CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"

CommonDialog1.ShowOpen '打開對話框

FileName0 = CommonDialog1.FileName

If FileName0 = "" Then Exit Sub

Open FileName0 For Input As #1

Do While Not EOF(1)

Line Input #1, FileText

R = R + FileText & Chr(13) + Chr(10)

Loop

Text1.Text = R

Close #1

好了，妳可以成功了。

上一篇:鋁單板幕墻施工工藝流程方案

下一篇:法蘭克加工中心上面的選擇性停止怎麽用？