Differenze tra le versioni di "Mostrare un'immagine con il Drop del suo file in una PictureBox"
Da Gambas-it.org - Wikipedia.
(5 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: | 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 | ||
− | |||
− | Dim | + | Public Sub PictureBox1_Drop() |
+ | |||
+ | Dim percorso As String | ||
− | + | percorso = Drag.Paste("text/uri-list")[0] | |
− | + | ||
− | <FONT color=gray>' '' | + | 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) | |
− | <FONT color=gray>' '' | + | 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