Da Gambas-it.org - Wikipedia.
|
|
| Riga 2: |
Riga 2: |
| | | | |
| | | | |
| − | | + | Mostriamo un semplice esempio: |
| − | ===Usando i componenti ''gb.gtk'', ''gb.gtk3'' o ''gb.gui''===
| |
| − | Se è stato impostato uno di questi componenti: ''gb.gtk'', ''gb.gtk3'' o ''gb.gui'', allora potrà essere utilizzato il seguente codice:
| |
| − | '''Public''' Sub Form_Open()
| |
| − |
| |
| − | <FONT color=gray>' ''Impostiamo la proprietà "''.Drop''" a "Vero" per consentire l'attivazione dell'evento del "Drop":''</font>
| |
| − | PictureBox1.Drop = True
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub PictureBox1_Drop()
| |
| − |
| |
| − | Dim dati, percorso, percorso_controllato As String
| |
| − |
| |
| − |
| |
| − | dati = Drag.Data
| |
| − |
| |
| − | percorso = String.Mid(dati, 8, String.Len(dati))
| |
| − |
| |
| − | percorso_controllato = controllo(Trim(percorso))
| |
| − |
| |
| − | PictureBox1.Picture = Picture.Load(percorso_controllato)
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | <FONT color=gray>' ''I percorsi dei file contenenti uno o più spazi, oppure caratteri particolari, possono generare errore.''
| |
| − | ' ''Questa funzione intende risolvere quel problema.''</font>
| |
| − | '''Private''' Function controllo(percorsoFile As String) As String
| |
| − |
| |
| − | Dim b As Byte = 1
| |
| − | Dim s1, s2 As String
| |
| − | Dim n As Byte
| |
| − |
| |
| − |
| |
| − | While b < Len(percorsoFile) + 1
| |
| − | s1 = String.Mid(percorsoFile, b, 1)
| |
| − | If s1 = "%" Then
| |
| − | n = Val("&" & Mid(percorsoFile, b + 1, 2))
| |
| − | s1 = Chr(n)
| |
| − | b += 2
| |
| − | Endif
| |
| − | s2 &= s1
| |
| − | Inc b
| |
| − | Wend
| |
| − |
| |
| − | Return s2
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | | |
| − | | |
| − | ===Usando il componente ''gb.qt4''===
| |
| − | Se è stato impostato il componente ''gb.qt4'', allora potrà essere utilizzato il seguente codice:
| |
| | '''Public''' Sub Form_Open() | | '''Public''' Sub Form_Open() |
| | | | |
Versione delle 08:36, 15 lug 2016
Il caso è quello in cui si intende far mostrare da una PictureBox un'immagine, semplicemente trascinando il suo file, preso anche da una finestra esterna all'applicativo Gambas, e rilasciandolo all'interno della predetta PictureBox.
Mostriamo un semplice esempio:
Public Sub Form_Open()
' Impostiamo la proprietà ".Drop" a "Vero" per consentire l'attivazione dell'evento del "Drop":
PictureBox1.Drop = True
End
Public Sub PictureBox1_Drop()
Dim dati As String
dati = Drag.Paste("text/uri-list")
dati = Scan(dati, "file://*")[0]
PictureBox1.Picture = Picture.Load(Trim(dati))
End
