Load Array Unlimeted

[migduel]

Scrips DiBawah ini Untuk Load Array Unlimeted , Jika Kalian Ingin Membuat App Plud / Atau Yang Berbau Bom2an Bisa Menggunakan Scrips Dibawah ini :

Code:

Private Sub CmdLoad_Click()
For idx = 1 To Sock.ArrayCount
Sock.ArrayRemove idx
Unload TimerAlive(idx)
Next
On Error GoTo err
Lvw.ListItems.Clear
LoadText
LblJumlah.Caption = Lvw.ListItems.Count
Exit Sub
err:
LblJumlah.Caption = Lvw.ListItems.Count
Exit Sub
End Sub

Code:

Private Sub LoadText()
On Error GoTo t
  Dim R As String, N As Long, Ind As Long
  Ind = 0
  N = FreeFile
  Open App.Path & "\List multi.txt" For Input As #N
    Do While Not EOF(N)
      Line Input #N, R
      Ind = Ind + 1
      sCDKeys() = Split(R, ";")
        Lvw.ListItems.Add , , sCDKeys(0), , 2
        Lvw.ListItems(Ind).SubItems(1) = sCDKeys(1)
        Sock.ArrayAdd Ind
        Load TimerAlive(Ind)
    Loop
  Close N
Exit Sub
t:
Exit Sub
End Sub

Tambahka Variabel sCDKeys() As String di General Atau Di Subitems nya
Serta Tambahkan ImageList pada Lvw / ListView
Untuk Set Multi / Textnya Buatlah NotePate dengan nama List Multi
dan penyusunanya sebagai Berikut :

jendral_kancil-001;paswod
jendral_kancil-002;paswod
jendral_kancil-003;paswod
jendral_kancil-004;paswod
jendral_kancil-005;paswod
jendral_kancil-006;paswod
jendral_kancil-007;paswod
jendral_kancil-008;paswod
jendral_kancil-009;paswod
jendral_kancil-010;paswod
Dan Seterusnya

[agori]

terangin lagi um penempatan ma yang lainnya

[migduel]

terangin lagi um penempatan ma yang lainnya

penempatanya di vb6

[Sponsored content]