>hi all,
>how do i put a diffrent picture in combo box
>thank's
>
>-iwan-
Let you have directory with pictures
Than
Thisform._df=curdir()
Set default to (thisform.text1.value)
nm=alltrim(sys(2000,'*.bmp'))
i=1
Do while not empty(nm)
Thisform.combo.additem(nm)
Thisform.combo.picture[i]=nm
*!* If isdigit(nm) and isdigit(substr(nm,3,1)) and isdigit(substr(nm,3,1))
Thisform.code=thisform.code+1
*!* Else
*!* Thisform.code1=thisform.code1+1
*!* Endif
nm=alltrim(sys(2000,'*.bmp',1))
i=i+1
Enddo
This code will show you pictures+their names
MVP-2006-2011, PHD in Math and Physics ,
host of
www.foxclub.ru,
VFP lector at Interface and Microinform companies
Head science researcher of VNIIA Rosatom.