Visual Basic Kod Bankası

Load Örneği

Option Explicit
Dim i, k, l, d
' form'a bir textbox ve commandbutton yerleştirin properties penceresinden index özelliklerini 0 (sıfır) yapın
Private Sub Form_Load()
'form'a yerleştirilen kontrollerin ve formun boyutları ayarlanıyor.
Width = 2500
Height = 3500
Caption = "Load"
Command1(0).Left = 120
Command1(0).Height = 420
Command1(0).Top = 700
Command1(0).Width = 620
Text1(0).Top = 10
Text1(0).Width = 420
Text1(0).Left = 120
Text1(0).Height = 220
Show

For i = 1 To 3
Load Text1(i) ' ilk textbox indexi 0 olduğu için 1 den 3 e kadar textbox oluşturuyor.
Text1(i).Text = i 'içine i değerini yazılıyor.
Text1(i).Visible = True ' oluşturulan textbox görünür yapılıyor.
l = Text1(i - 1).Left + Text1(i).Width + 100 ' textboxun yerleştirileceği konum oluşturuluyor.
Text1(i).Left = l ' oluşturulan textbox yeni konumuna yerleştiriliyor.
Next
d = Command1(0).Top 'commandbutton'un ilk konumları saptanıyor.
k = Command1(0).Left
For i = 1 To 9
k = Command1(i - 1).Left + Command1(i - 1).Width + 100 ' oluşturulacak commandbutton sol konumu oluşturuluyor.
If i = 3 Or i = 6 Or i = 9 Then ' bu alanda satır atlatılıyor.
d = Command1(i - 1).Top + Command1(i - 1).Height + 100 ' commandbutton üst konumu oluşturuluyor.
k = 120 'sol konum ilk değerine getiriliyor.
End If
Load Command1(i) ' kontrol oluşturuluyor.
Command1(i).Caption = i ' adını değiştiriyor.
Command1(i).Visible = True 'görünür yapılıyor.
Command1(i).Left = k 'sol konumuna yerleştiriliyor.
Command1(i).Top = d ' üst konumuna yerleştiriliyor.
Next
End Sub