Differenze tra le versioni di "Mostrare un'immagine con il Drop del suo file in una PictureBox"
Da Gambas-it.org - Wikipedia.
Riga 7: | Riga 7: | ||
− | + | Public Sub Form_Open() | |
With ScrollView1 = New ScrollView(Me) | With ScrollView1 = New ScrollView(Me) | ||
Riga 25: | Riga 25: | ||
End With | End With | ||
− | + | End | |
− | + | ||
+ | Public Sub PictureBox1_Drop() | ||
Dim percorso As String | Dim percorso As String | ||
− | percorso = Drag.Paste("text/uri-list | + | percorso = Drag.Paste("text/uri-list")[0] |
− | + | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
With PictureBox1 | With PictureBox1 | ||
<FONT color=gray>' ''Carica l'immagine nella "PictureBox":''</font> | <FONT color=gray>' ''Carica l'immagine nella "PictureBox":''</font> | ||
Riga 48: | Riga 41: | ||
End With | 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