Load object pada saat run time di vb

Tambahkan sebuah Command di form kemudian ganti name-nya menjadi CMD dan isikan angka 0 pada property index-nya. Hal ini dilakukan karena nantinya object dengan index ke i yang akan diload.

codingnya sbb:

Private Sub Form_Load()
n = 0
x = 0
Me.Caption = “Reserver:” + Str(n) + ” Remain: ” + Str(50 – n)
For i = 1 To 49
Load cmd(i)

If i Mod 10 = 0 Then
cmd(i).Left = (cmd(i – 1).Left + cmd(i).Width) + 10
cmd(i).Top = cmd(0).Top
cmd(i).Caption = i + 1
cmd(i).Visible = True

Else
cmd(i).Top = (cmd(i – 1).Top + cmd(i).Height) + 10
cmd(i).Left = cmd(i – 1).Left
cmd(i).Caption = i + 1
cmd(i).Visible = True
End If

Next
For i = 1 To 49
If i Mod 2 <> 0 Then
cmd(i).BackColor = vbGreen

Else
cmd(i).BackColor = &H80000013
End If

Next

End Sub

SOURCE CODE DOWNLOAD

Semoga bermanfaat.
Silahkan berikan pertanyaan di comment jika ada yang kurang dimengerti.

4 Tanggapan

  1. mas klo eventnya saat commandbutton di klik caranya gimana. thanks.

  2. mas, klo load object tapi masuk dalam frame gimana caranya

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: