Load object pada saat run time di vb

Posted on Maret 3, 2010 by 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.

Filed under: VISUAL BASIC |

« »

4 Tanggapan

  1. woofer, on April 18, 2010 at 8:16 am said:

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

    Balas
  2. santos, on Maret 7, 2012 at 10:16 am said:

    mas, klo load object tapi masuk dalam frame gimana caranya

    Balas

Tinggalkan Balasan ke santos Batalkan balasan