回覆列表
-
1 # 使用者1314642057245112
-
2 # 使用者6789703360709
試試把那句修改成這樣open"e:\b.txt"forinputas#1ifnoteof(1)theninput#1,i,s,d,bclose#1
-
3 # 手機使用者79942294873
"新增一個Lebel控制元件 "比如用Text1來接收鍵盤的字元 Private Sub Text1_Change() Label1.Caption = "共輸入" & Len(Text1.Text) & "個字元" End Sub 希望可以幫到你
VB中的input函式的用法:
1、首先啟動vb6,新建一個標準exe檔案,進入窗體主介面。
2、在工具箱裡雙擊按鈕控制元件,在窗體上建立一個按鈕物件。
3、雙擊按鈕控制元件進入程式碼編寫區域,選擇物件為conmmand1,過程為click。
4、接著輸入程式碼:Dima,bAsIntegera=InputBox("請輸入整數值","提示資訊")。
5、點選工具欄中的啟動按鈕進行調整,點選按鈕,接著會彈出提示資訊對話方塊。
6、執行檔案-儲存工程命令,將工程和窗體依次進行儲存即可完成操作。