Load Array Unlimeted

Go down

Load Array Unlimeted

Post  migduel on Fri Aug 26, 2011 10:26 am

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 Very Happy
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 Very Happy
avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 32
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: Load Array Unlimeted

Post  agori on Wed Sep 28, 2011 7:33 am

terangin lagi um penempatan ma yang lainnya Embarassed
avatar
agori
Bripda
Bripda

Jumlah posting : 15
Join date : 28.09.11
Lokasi : indramayu

Lihat profil user http://mig33kertasemaya.blogspot.com

Kembali Ke Atas Go down

Re: Load Array Unlimeted

Post  migduel on Tue Oct 04, 2011 9:57 am

agori wrote:terangin lagi um penempatan ma yang lainnya Embarassed

penempatanya di vb6 bounce
avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 32
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: Load Array Unlimeted

Post  Sponsored content


Sponsored content


Kembali Ke Atas Go down

Kembali Ke Atas


 
Permissions in this forum:
Anda tidak dapat menjawab topik