Tuesday, 16 June 2015

Cara menampilkan isi File Notepad Ke TextBox VB6

Cara menampilkan isi File Notepad Ke TextBox VB6 - ok kali ini saya akan share bagaimana cara nya agar isi file notepad atau file .txt bisa di masukan ke textbox.

- pertama setting propertiesnya multiline = true
- buat function ReadTextFileContents . coding sebagai berikut:

Public Function ReadTextFileContents(fileName As String) As String
 
  Dim fNum As Integer, isOpen As Boolean
 
  On Error GoTo error_handler
  fNum = FreeFile()
  Open fileName For Input As #fNum
  isOpen = True
 
  ReadTextFileContents = Input(LOF(fNum), fNum)
 
error_handler:
  If isOpen Then Close #fNum
  If Err Then Err.Raise Err.Number, , Err.Description
 
End Function

-ketiga letakan kode berikut di button:
Text1.Text = ReadTextFileContents("D:\Data Taufik\Log Doc")

selesai

Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

No comments:

Post a Comment

 

Network

Pesan

Semoga situs ini bermanfaat