Tolong pilih kategori sesuai, jenis posting (diskusi atau bukan) dan sertakan tag/topik yang sesuai seperti komputer, java, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus!
- Bagi Anda yang ingin mendaftar, baca link berikut:
http://diskusiweb.com/discussion/50491/how-to-registrasi-diskusiweb-com-baca-ini-terlebih-dahulu
- Cara menyisipkan kode program supaya tampil rapi dan terformat dengan baik di diskusiweb.com: http://www.diskusiweb.com/discussion/50415/cara-menyisipkan-kode-program-di-diskusiweb-com
- Cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

membuat array dan kontrol dinamis pada vb ?

teman2 sy ada beberapa pertanyaan :

1. ada yang tau fungsi untuk menghitung jumlah elemen array pada vb ?

2. gimana cara membuat kontrol dinamis, misal dalam berulangan:

for i=1 to 5

menambah kontrol textbox pada form dengan nama text1-text5
dan mengatur properti2 yang diperlukan untuk masing2 textbox

next

Comments

  • untuk menghitung jumlah elemen array bisa menggunakan perintah:
    'deklarasikan sebuah variabel array
    Dim ArrData(1 To 10) As String
    
    'isikan data dalam variabel array tersebut
    For i = 1 To 10
    ArrData(i) = "Data " & i
    Next i
    
    'melihat jumlah elemen pada variabel array tersebut
    MsgBox Count(ArrData)
    

    ======================================================================

    untuk menambah kontrol secara dinamis (dalam contoh: textbox) melalui kode yang paling mudah bisa dengan:
    1. buat sebuah kontrol textbox, buat menjadi sebuah array (misal: Text1(0)), kemudian dibuat tersembunyi (Text1(0).Visible = False)
    2. untuk membuat duplikasi dari kontrol tersebut secara dinamis bisa menggunakan perintah:
    For i = 1 To 5
    'menambah kontrol secara dinamis
    Load Text1(i)
    
    'atur peletakan dan ukuran kontrol
    Text1(i).Left = 100
    Text1(i).Top = 100 * i
    Text1(i).Width = 300
    
    'munculkan kontrol yang telah ditambahkan dan diatur
    Text1(i).Visible = True
    Next i
    

    ======================================================================

    semoga membantu
    CMIIW
Sign In or Register to comment.