Differenze tra le versioni di "Mostrare un'immagine con il Drop del suo file in una PictureBox"
Da Gambas-it.org - Wikipedia.
(8 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 1: | Riga 1: | ||
− | Il caso è quello in cui si intende far mostrare | + | Il caso è quello in cui si intende far mostrare in una ''PictureBox'' un'immagine, semplicemente trascinando il suo file desktop, preso anche da una finestra esterna all'applicativo Gambas, e rilasciandolo all'interno della predetta ''PictureBox''. |
+ | <BR>Per consentire di mostrare un'immagine di qualsiasi dimensione, la ''PictureBox'' sarà posta all'interno di una ''ScrollView'' e ridimensionata alle dimensioni dell'immagine caricata. | ||
− | + | Mostriamo un semplice esempio: | |
− | + | Private ScrollView1 As ScrollView | |
− | + | Private PictureBox1 As PictureBox | |
− | |||
− | |||
− | |||
− | |||
− | + | Public Sub Form_Open() | |
+ | With ScrollView1 = New ScrollView(Me) | ||
+ | .X = 0 | ||
+ | .Y = 0 | ||
+ | .W = Me.W | ||
+ | .H = Me.H | ||
+ | End With | ||
− | ''' | + | With PictureBox1 = New PictureBox(ScrollView1) As "PictureBox1" |
+ | .X = 0 | ||
+ | .Y = 0 | ||
+ | .W = ScrollView1.W | ||
+ | .H = ScrollView1.H | ||
+ | <FONT color=gray>' ''Impostiamo la proprietà "''.Drop''" a "Vero" per consentire l'attivazione dell'Evento "_Drop":''</font> | ||
+ | .Drop = True | ||
+ | End With | ||
− | + | End | |
− | |||
− | |||
− | |||
− | |||
− | + | Public Sub PictureBox1_Drop() | |
− | + | Dim percorso As String | |
− | + | ||
− | + | percorso = Drag.Paste("text/uri-list")[0] | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | Dim | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
+ | With PictureBox1 | ||
+ | <FONT color=gray>' ''Carica l'immagine nella "PictureBox":''</font> | ||
+ | .Picture = Picture.Load(Trim(percorso)) | ||
+ | <FONT color=gray>' ''Ridimensiona la "PictureBox" adattandola alle dimensioni dell'immagine caricata:''</font> | ||
+ | .Resize(.Picture.W, .Picture.H) | ||
+ | End With | ||
− | + | End | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− |
Versione attuale delle 09:41, 4 ago 2023
Il caso è quello in cui si intende far mostrare in una PictureBox un'immagine, semplicemente trascinando il suo file desktop, preso anche da una finestra esterna all'applicativo Gambas, e rilasciandolo all'interno della predetta PictureBox.
Per consentire di mostrare un'immagine di qualsiasi dimensione, la PictureBox sarà posta all'interno di una ScrollView e ridimensionata alle dimensioni dell'immagine caricata.
Mostriamo un semplice esempio:
Private ScrollView1 As ScrollView Private PictureBox1 As PictureBox Public Sub Form_Open() With ScrollView1 = New ScrollView(Me) .X = 0 .Y = 0 .W = Me.W .H = Me.H End With With PictureBox1 = New PictureBox(ScrollView1) As "PictureBox1" .X = 0 .Y = 0 .W = ScrollView1.W .H = ScrollView1.H ' Impostiamo la proprietà ".Drop" a "Vero" per consentire l'attivazione dell'Evento "_Drop": .Drop = True End With End Public Sub PictureBox1_Drop() Dim percorso As String percorso = Drag.Paste("text/uri-list")[0] With PictureBox1 ' Carica l'immagine nella "PictureBox": .Picture = Picture.Load(Trim(percorso)) ' Ridimensiona la "PictureBox" adattandola alle dimensioni dell'immagine caricata: .Resize(.Picture.W, .Picture.H) End With End