Ads

Senin, 11 April 2011

Visual Basic 6.0 : Membaca File dan Menampilkannya di Form Yang Lain

Hari ini saya melihat pertanyaan di Artikel Visual Basic 6.0 saya yang lama, yaitu Visual Basic 6.0 : Pengenalan Form. Pertanyaannya adalah sebagai berikut:


mas, gimana caranya ketika kita klik button di form1, trus actionnya membuka file txt pada database kemudian menampilkannya pada form2, jika pilih button lain pada form1, maka pada form2 menampilkan file txt lain pada database. aku dah coba dengan coding ini:




detail1.Show()
detail1.BringToFront()

‘detail1.lbldetail.Text()
Dim sr As IO.StreamReader = IO.File.OpenText(”film1.txt”)
a = sr.ReadLine
a = +a
detail1.lbldetail.Text = (String.Format(a))
sr.Close()

tapi ga bisa.ada ide?

Nah dari pertanyaan ini, yang saya tangkap si bahwa penanya bermaksud menanyakan Bagaimana membuat program yang dapat membuka suatu file menggunakan object yang ada di suatu form, dan lalu menampilkannya outputnyaa di form yang lain dengan menggunakan Bahasa Pemograman Visual Basic 6.0. Soal yang dia sebut database, saya masih rada bingung maksudnya database bagaimana, tetapi tampaknya si kesulitannya hanya ada di buka file dan menampilkannya di form lain, soalnya keliatan dari contoh script yang teman kita kirim ini.


Solusi dari saya adalah sebagai berikut.


- Pertama Buat dua Form


- Form pertama terdiri dari 2 Command Button, untuk baca file 1 dan file 2


- Form kedua terdiri dari 1 label untuk menampilkan data


- Buat dua file untuk di baca, nama film1.txt dan film2.txt


- Buat 1 module untuk baca data


Nah berikut ini script lengkapnya


Module1



Property
Attribute VB_Name = "modBacaFile"

Script
Function bacaFile(namaFile As String) As String
Dim fnum As Integer, isOpen As Boolean
On Error GoTo Error_Handler

fnum = FreeFile()
Open namaFile For Input As #fnum
'Jika File Kebuka maka isOpen = True
'Jika Gagal berarti file langsung ke error handler
isOpen = True
' Baca Semua File ke dalam satu string
bacaFile = Input(LOF(fnum), fnum)

Error_Handler:
' Tutup File
If isOpen Then Close #fnum
'Jika Ada Error di infokan ke user
If Err Then Err.Raise Err.Number, , Err.Description
End Function

Form1



Property
VERSION 5.00
Begin VB.Form frmInput
Caption = "Form1"
ClientHeight = 3930
ClientLeft = 60
ClientTop = 345
ClientWidth = 4665
LinkTopic = "Form1"
ScaleHeight = 3930
ScaleWidth = 4665
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdBaca2
Caption = "Baca File 2"
Height = 1095
Left = 720
TabIndex = 1
Top = 2040
Width = 3015
End
Begin VB.CommandButton cmdBaca1
Caption = "Baca File 1"
Height = 1095
Left = 720
TabIndex = 0
Top = 600
Width = 3015
End
End
Attribute VB_Name = "frmInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Scirpt
Private Sub cmdBaca1_Click()
Dim frm As New frmOutput
frm.lblData = bacaFile(App.Path & "\film1.txt")
frm.Caption = "Baca File1"
frm.Show
End Sub

Private Sub cmdBaca2_Click()
Dim frm As New frmOutput
frm.lblData = bacaFile(App.Path & "\film2.txt")
frm.Caption = "Baca File2"
frm.Show
End Sub

Form2



Property
VERSION 5.00
Begin VB.Form frmOutput
Caption = "Form2"
ClientHeight = 6390
ClientLeft = 60
ClientTop = 345
ClientWidth = 6915
LinkTopic = "Form2"
ScaleHeight = 6390
ScaleWidth = 6915
StartUpPosition = 3 'Windows Default
Begin VB.Label lblData
BorderStyle = 1 'Fixed Single
Caption = "Label1"
Height = 6015
Left = 120
TabIndex = 0
Top = 120
Width = 6615
End
End
Attribute VB_Name = "frmOutput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Untuk Script lengkapnya bisa di unduh / download di sini.


Semoga bermanfaat


2 Responses to “Visual Basic 6.0 : Membaca File dan Menampilkannya di Form Yang Lain”

  1. waaaa sangat membantu . thanks :D

1 komentar:

Nunuw Jack mengatakan...

nanya mas, kalo bikin open folder menggunakan menu editor..lalu di tampilkan di teksboks dan ekstensinya .txt dan .doc yang dibuka, open lalu tampil d teks boks


mohon bantuan