AIUTO VB.Net: Problema con drag and drop

martedì 21 agosto 2012 - 09.58

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags VB.NET | .NET 4.0 | Windows 7 | Visual Studio Express

lollobubu Profilo | Newbie

1 messaggi | Data Invio: mar 21 ago 2012 - 09:58

Ciao Ragazzi...sono nuovo quindi se ho sbagliato a postare non arrabbiatevi...comunque avrei bsogno di una mano...sto realizzando un programma composto da una listview con un imagelist e un panel...le immagini visualizzate nella listview devono poter essere trascinate nel panel...
qua il mio codice fino ad ora...poi ho messo anche lo screen del programma

1040x432 79Kb

Imports System.IO
Public Class Form1

Function createThumbnail(ByVal image As Image, ByVal w As Integer, ByVal h As Integer) As Image
Dim canvas As New Bitmap(w, h)

Dim g As Graphics = Graphics.FromImage(canvas)
g.FillRectangle(New SolidBrush(Color.White), 0, 0, w, h)

Dim fw As Double = CDbl(w) / CDbl(image.Width)
Dim fh As Double = CDbl(h) / CDbl(image.Height)
Dim scale As Double = Math.Min(fw, fh)

Dim w2 As Integer = CInt(image.Width * scale)
Dim h2 As Integer = CInt(image.Height * scale)

g.DrawImage(image, (w - w2) \ 2, (h - h2) \ 2, w2, h2)
g.Dispose()

Return canvas
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim imageDir As String = "C:\"
Dim jpgFiles As String() = _
System.IO.Directory.GetFiles(imageDir, "*.jpg")

Dim width As Integer = 100
Dim height As Integer = 80

ImageList1.ImageSize = New Size(width, height)
ListView1.LargeImageList = ImageList1

For i As Integer = 0 To jpgFiles.Length - 1
Dim original As Image = Bitmap.FromFile(jpgFiles(i))
Dim thumbnail As Image = createThumbnail(original, width, height)

ImageList1.Images.Add(thumbnail)
ListView1.Items.Add(jpgFiles(i), i)

original.Dispose()
thumbnail.Dispose()
Next
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Panel1.AllowDrop = True
End Sub

End Class

alx_81 Profilo | Guru

8.814 messaggi | Data Invio: sab 25 ago 2012 - 14:26

>Ciao Ragazzi...sono nuovo quindi se ho sbagliato a postare non
>arrabbiatevi...comunque avrei bsogno di una mano...
Ciao e benvenuto su dotnethell.it!

>sto realizzando un programma composto da una listview con un imagelist e un panel...le
>immagini visualizzate nella listview devono poter essere trascinate nel panel...
ma nel codice che hai scritto non c'è nulla di drag and drop..
leggi questi link:
http://www.vb-helper.com/howto_net_drag_drop.html
http://msdn.microsoft.com/en-us/library/ms973845.aspx
--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.microsoft.com/profiles/Alessandro.Alpi

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !