設(shè)窗體上有一個(gè)名稱為CDl的通用對(duì)話框、一個(gè)名稱為Textl的文本框和一個(gè)名稱為Commandl的命令按鈕。
設(shè)窗體上有一個(gè)名稱為CDl的通用對(duì)話框、一個(gè)名稱為Textl的文本框和一個(gè)名稱為Commandl的命令按鈕。程序執(zhí)行時(shí),單擊Commandl按鈕,則顯示打開文件對(duì)話框,操作者從中選擇一個(gè)文本文件,并單擊對(duì)話框上的“打開”按鈕后,則可打開該文字文件,并讀人一行文本,顯示在Textl中。下面是實(shí)現(xiàn)此功能的事件過程,請(qǐng)?zhí)羁铡?Private Sub Command1_Click CD1.Filter=“文本文件|*.txt|Word文檔|*.doc” CDl.FilterIndex=1:CD1.ShowOpen If CD1.FileName<>“” Then Open 【9】 For Input As #1 Line Input#1,ch$ Close#1:Text1.Text= 【10】 End If End Sub
正確答案:(*p) ; ABBA
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。