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
waaaa sangat membantu . thanks
sep, sama sama
hehehe