List User Mig33 ( Repair )

Kamis, 17 November 2011

Pada sampel yang kemaren ada sedikit yang kurang enak dipandang kayaknya
Yaitu Pada Saat ngelist kadang Bisa Double dan Ada Blank List . Berhubung lagi ga sibuk neh aq perbaikin.
Cari pada Bagian Data Arrival seperti Gambar :

Kalo Udah Trus Tambahin Koding Kaya gambar , Tulis Manual aja ya  :D :

Jadinya Seperti Ini ntar :
If a = “0202C400″ Then
ListCode
End If

Dan Ini Sub ListCode nya :
Private Sub ListCode()
Dim a As String
Dim B As String
Dim out As String
Dim user() As String
Dim c As Integer
Listuser.Clear
a = Mid(DatIn, 14, 2)
a = A2H(a)
B = Unhex(a)
out = Mid(DatIn, 16, B )
user() = Split(out, “;”)
For c = 0 To UBound(user()) – 1
Listuser.AddItem user(c)
total.text = Listuser.ListCount
Next c
End Sub

Good Luck  Mudah-mudahan Listnya Ga bakal Double Atau Kacau lagi. :D


Terima kasih sudah membaca List User Mig33 ( Repair ) dan sempatkan untuk membaca yang lainnya broth..
TEMPLATE DESIGN BY
m-template - by: bagas96

0 komentar:

copy smiley kode

Posting Komentar

I orange fress script kang bagas96 copyright 2011
diteri.mig33.us