search a image
Posted: Mon Jan 20, 2025 9:23 am
I wish search a folder into a database to change an Image from a combobox
@ 152, 10 COMBOBOX aGet[1] VAR cAzienda ITEMS aAziende SIZE 370,90 PIXEL OF oDlg;
ON CHANGE ChangeComboBoxItem(aGet[1], oBmp01, oAziende)
If found the dir01 as Dat2016 then not found the image (File(cImagePath)) but the image is on that folder DAT2016\immagini\logo.bmp
where is the error ?
@ 152, 10 COMBOBOX aGet[1] VAR cAzienda ITEMS aAziende SIZE 370,90 PIXEL OF oDlg;
ON CHANGE ChangeComboBoxItem(aGet[1], oBmp01, oAziende)
Code: Select all | Expand
FUNCTION ChangeComboBoxItem(oComboBox, oBmp01, oAziende)
LOCAL cSelectedItem := oComboBox:GetText()
LOCAL cDir01, cImagePath
IF oAziende:Seek(cSelectedItem)
cDir01 := oAziende:Dir01
cImagePath := ".\"+cDir01 + "\immagini\logo.bmp"
// Verifica se il file immagine esiste
IF File(cImagePath)
oBmp01:LoadBmp(cImagePath)
ELSE
MsgInfo("Immagine non trovata: " + cImagePath, "Errore")
ENDIF
ELSE
MsgInfo("Elemento non trovato nel database: " + cSelectedItem, "Errore")
ENDIF
RETURN NILIf found the dir01 as Dat2016 then not found the image (File(cImagePath)) but the image is on that folder DAT2016\immagini\logo.bmp
where is the error ?
