Di listbox itu ada property yang namanya ListCount. Property ListCount ini bisa digunakan untuk mendeteksi berapa jumlah data yg ada di ListBox. Contoh : Private Sub listX_Click() txtKord.Text = listX.List(listX.ListCount) End Sub
Demikian semoga membantu regards Eko Heri http://www.smsqta.com --- In [email protected], eko santoso <[EMAIL PROTECTED]> wrote: > > Mohon bantuan dari teman2... > Saya bingung mengecek data pada list box yang sudah > diimport dari excell (data berupa angka), > yang saya inginkan adalah bagaimana caranya bisa dicek > bahwa angka yang boleh diimport tidak > lebih dari 250. Saya ingin jika data yg diimport lebih > dari 250 maka keluar message "data melebihi > batas". Bagaimana ya caranya???saya sudah mencoba2 dgn > membuat tombol cmd yang isinya > jika listX.List(listX.ListIndex) > 250 maka akan > keluar message box tapi error terus.....saya bingung > sintaksnya (maklum pemula)....Mohon > pencerahannnya......Dibawah adalah programmnya....... > ====================================================== > Private Sub cmdImport_Click() > Dim objXLApp As Excel.Application > Dim intLoopCounter As Integer > Dim count As Integer > Set objXLApp = New Excel.Application > > With objXLApp > .Workbooks.Open "C:\Book1.xls" > .Workbooks(1).Worksheets(1).Select > > count = 1 > While StrComp(.Cells(count, 1), "") <> 0 > > listX.AddItem .Range("G" & count) > listY.AddItem .Range("H" & count) > count = count + 1 > Wend > End With > Set objXLApp = Nothing > cmdImport.Enabled = False > End Sub > =================== > Private Sub listX_Click() > txtKord.Text = listX.List(listX.ListIndex) > End Sub > =================== > Private Sub listY_Click() > txtKord.Text = listY.List(listY.ListIndex) > End Sub > =================== > Private Sub txtKord_Change() > > End Sub > ================================ > > > > _____________________________________________________________________ _______________ > Get the Yahoo! toolbar and be alerted to new email wherever you're surfing. > http://new.toolbar.yahoo.com/toolbar/features/mail/index.php >
