回覆列表
-
1 # 使用者7662460603875
-
2 # 藍風24
以下程式實現:在文字框輸入內容,按回車鍵(Enter鍵)後,文字框中的內容輸出到列表框。
1)在窗體上佈置一個TextBox控制元件和一個ListBox控制元件
2)程式碼
Option Explicit
Private Sub Form_Load()
" 窗體啟動時,清空Text1和List1
Text1.Text = ""
List1.Clear
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
" 如果按下了回車鍵(回車鍵的Ascii碼為13)
If KeyAscii = 13 Then
Dim s As String
" 取出Text1中輸入的內容並濾除前後的空格
s = Trim(Text1.Text)
If s "" Then
" 如果Text1中輸入的內容不為空,則新增到List1中
List1.AddItem s
" 新增後,清空Text1
Text1.Text = ""
End If
End If
End Sub
3)執行效果
窗體啟動時
在Text1中輸入,按回車後,輸入的內容在List1中顯示
VB 6中隨機訪問(Random Access)的單位是定長的記錄(例如格式固定的花名冊中的一行),Open語句中的Len指的是就是這個長度;不是任意格式的檔案都能透過隨機訪問方式得到想要的資料。具體來講,你可以先用PUT語句將一條或多條記錄寫進檔案,然後用文字編輯器開啟,此時你看到的格式就是GET語句可以讀取的格式;你應該安裝完整的Visual Basic 6.0環境,同時安裝相應的MSDN Library。這樣你就可以在VB的官方文件裡得到準確而權威的解答。另外,Visual Basic 6.0很早之前就不維護了,而且其文件也逐漸不維護了,所以你在網際網路上尋找VB 6官方文件應該非常困難。現在只有零散的文件還可以搜到,比如:Using Random File Access,而且多數情況下是英文的,如果英文吃力建議你尋找VB 6配套的MSDN Library,這個應該還是相對容易的,而且中文版的翻譯還很不錯!