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 )

Information

Saya tidak akan lagi share Application tapi saya akan Share Ilmu, <ILMU APA ?>, yaitu ilmu Microsoft Visual Basic 6.0 ( VB6 / VB Classic ) & Microsoft Visual Basic 2008 / Net ( VB.NET ). Yaitu tentang membuat software software sederhana, beserta Source Code yang sudah jadi.Dari memasukan Text ke Text box sampai membuat Antivirus walaupun saya belum sehebat Teman saya ( Arrival Dwi Sentosa )