• Visual basic - Pengen belajar Visual basic dari awal sampe akhir kunjungilah situs ini
  • www.vbcode.com
• Ilmu Komputer - situs ini membahas segala sesuatu yang berhubungan dengan komputer baik hardware maupun software
  • www.IlmuKomputer.com
• ASP - pengen tahu perkembangan bahasa pemograman yang satu ini aspnuke...apaan sih aspnuke itu?...
  • aspnuke

TRIK VISUAL BASIC VOLUME 001

• Tambahkan Control lewat syntax

Menambahkan Kontrol ke Form Saat Run-Time
Sebelumnya anda buatkan satu project baru (Project Standart.EXE)
setelah itu anda COPY source code dibawah ini dan PASTE ke dalam Form1.

Selamat menikmati, semoga berhasil.


Option Explicit

'**************************************************
'
' Menambahkan Control ke Form
'
' Copyright (c) Sep 2003 by Amsori
' http://www.geocities.com/doit_ku
'
'**************************************************

Dim WithEvents Text1 As VB.TextBox
Dim WithEvents List1 As VB.ListBox
Dim WithEvents Label1 As VB.Label
Dim WithEvents Label2 As VB.Label

Private Sub Form_Load()
Dim i As Integer

Form1.Caption = "Menambahkan Control ke Form Saat Run-Time"

' Tambahkan kontrol ListBox
Set Label1 = Controls.Add("VB.Label", "Label1", Form1)
Set Label2 = Controls.Add("VB.Label", "Label2", Form1)
' Letakkan posisi List1 dan atur tingginya
Label1.Move 100, 100, 5500, 300
Label2.Move 100, 500, 5500, 500
' Tampilkan List1
Label1.Visible = True
Label2.Visible = True
Label1.FontBold = True
Label1.FontSize = 12
Label2.FontSize = 10
Label2.Alignment = vbCenter
Label1.Caption = "PAGATRI SOFTWARE HOUSE"
Label2.Caption = "Copyright (c) Sep 2003 by Amsori's Programmer"

' Tambahkan kontrol ListBox
Set List1 = Controls.Add("VB.ListBox", "List1", Form1)
List1.Move 1500, 1000, 2500, 3000
List1.Visible = True
' Tambahkan data ke List1
For i = 1 To 25
List1.AddItem "Ini adalah baris ke - " & i
Next

' Tambahkan TextBox
Set Text1 = Controls.Add("VB.TextBox", "txtText1", Form1)
Text1.Move 1500, List1.Top + List1.Height + 200, 2500, 100
Text1.Visible = True

End Sub

Private Sub List1_Click()
Text1.Text = List1.Text
End Sub

• Cara mengkopikan file kedalam direktory

Copy Direktori dan Semua Subfolders beserta Filenya?
Copy source code dibawah ini dan paste ke editor VB anda.
Terlebih dahulu ganti nama direktori yang akan di copy.

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

' beris perintah ini akan mengkopi direktori ContohAccess2000 yang
' berada di drive C, ke drive D.
' Sehingga di drive D akan terdapat direktori ContohAccess2000
' beserta sub-dir dan file filenya.

fso.CopyFolder "C:\ContohAccess2000", "D:\"

Set fso = Nothing