AIUTO VB.Net: Problema con drag and drop

martedì 21 agosto 2012 - 09.58
Tag Elenco Tags  VB.NET  |  .NET 4.0  |  Windows 7  |  Visual Studio Express

lollobubu Profilo | Newbie

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

>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
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 !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5