Komponen ini digunakan untuk menampung tipe data karakter, Buat contoh silahkan desain tampilan form sebagai berikut:
Nama Obyek
|
Properties
|
Nilai
|
Label1
|
Caption
|
Nilai
|
Check1
|
Caption
|
Urut / Sort
|
Command1
|
Caption
|
Simpan
|
Command2
|
Caption
|
Hapus Semua
|
Command3
|
Caption
|
Exit
|
List1
|
Sorted
|
False
|
Text1
|
Value
|
=0
|
Kemudian atur codingnya seperti dibawah ini:
Nama Obyek
|
Procedure
|
Command1
|
Click
|
thisform.list1.AddListItem(STR(thisform.text1.Value,4,0))
|
|
Command2
|
Click
|
thisform.list1.Clear
|
|
Command3
|
Click
|
thisform.Release
|
|
Check1
|
Click
|
IF
thisform.check1.Value=1 then
thisform.list1.Sorted=
.T.
ELSE
thisform.list1.Sorted=.f.
endif
|
|
Setelah selesai jalankan programnya, maka tampilannya akan seperti ini:
0 Response to "Cara Menggunakan List Box Pada foxpro"
Posting Komentar