Ciao a tutti,
il problema che non sono riuscito a risolvere (e spero che qualcuno sia in grado di darmi una mano
) è il seguente:
- quando provo a caricare un file tramite Drag and Drop ad es. su una PictureBox, che contiene al suo interno caratteri "speciali" (tipo spazi, lettere accentate ec..) il file non viene caricato e viene generato una Eccezzione (Not a object); in pratica non trova il file.
- caricando lo stesso file tramite una Dialog (es: DialogOpenFile) invece il file viene caricato correttamente.
Penso che il problema potrebbe essere dovuto ad una possibile codifica diversa con cui vengono restituite le stringhe dagli oggetti Drag e Dialog.
Infatti le stringhe restituite dei rispettivi file sono:
- tramite Drag and Drop: /home/luigi/Desktop/Gota_D'%C3%A1gua_by_Eiti_Kimura.jpg
- tramite Dialog: /home/luigi/Desktop/Gota_D'água_by_Eiti_Kimura.jpg
Penso sia un bug di Gambas, la versione di Linux che stò utilizzando è Ubuntu 14.04 64bit e Gambas 3.1.1
Un mega grazie a chi riesce ad aiutarmi a risolvere questo grattacapo!
Il codice:
Public Sub PictureBoxImage_Drop()
Print Drag.Data
LoadImage
End
Public Sub LoadImage()
Dim filePicture As String
Dim imagePicture As Image
filePicture = Drag.Data
Print filePicture
filePicture = Right(filePicture, Len(filePicture) - 7)
filePicture = Left(filePicture, Len(filePicture) - 2)
Print filePicture
imagePicture = Image.Load(filePicture)
PictureBoxImage.Picture = imagePicture.Picture
Catch
Error.Text
End
Public Sub ButtonOpen_Click()
Dim filePicture As String
Dim imagePicture As Image
If (Dialog.OpenFile() == False)
Print Dialog.Path
filePicture = Dialog.Path
imagePicture = Image.Load(filePicture)
PictureBoxImage.Picture = imagePicture.Picture
Endif
End