Bagaimana Cara Memasukan Text pada Textfile ke Textbox di MS VB6.0

Bila kamu bisa memasukan file kedalam list file tetapi tidak bisa memasukan Text ke Textbox, itu mudah

Pertama :
- Buka Microsoft Visual Basic 6.0 lalu pilih tab New lalu pilih Standard Exe

- Lalu tambah satu textbox dan satu button

- Klik dua kali pada form lalu ketikan :

Private Sub Command1_Click()
Call Readme
End Sub

Private Sub Readme()
    On Error Resume Next
    Dim sFile As String
    sFile = App.Path & "\Contoh.txt"
    Dim sData As String
    Open sFile For Binary Access Read As #1
        sData = String(LOF(1), Chr(0))
        Get #1, , sData
    Close #1
    Text1 = sData
End Sub

Bila kamu cape mengetik anda bisa  Download   ( Via ARTAV )

                                                        Download  ( Via Mediafire )

                                                        Download  ( Direct Mediafire )