Hallo,
ich möchte gerne eine Schlafe erstrellen. Also wenn ich auf der ToolBox auf mein ''+'' drücke kann ich aus einem Ordner ein Icon auswählen und dann bewegen. Nun wie kriege ich es hin das ich mehrere auswähle kann und schon das gewählte Icon rastert bzw dann es sich dann nicht mehr bewegt ausser ich klicke drauf und ziehe es auf die gewünschte Positon.
Hoffe ihr könnt mir helfen
MfG,
davidtrixx
Mein Code:
ich möchte gerne eine Schlafe erstrellen. Also wenn ich auf der ToolBox auf mein ''+'' drücke kann ich aus einem Ordner ein Icon auswählen und dann bewegen. Nun wie kriege ich es hin das ich mehrere auswähle kann und schon das gewählte Icon rastert bzw dann es sich dann nicht mehr bewegt ausser ich klicke drauf und ziehe es auf die gewünschte Positon.
Hoffe ihr könnt mir helfen
MfG,
davidtrixx
Mein Code:
VB.NET-Quellcode
- Public Class Form1
- Private Property toMove As Boolean
- Private bmp As Bitmap
- Private pt As Point
- Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
- Using dlg As New OpenFileDialog
- If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
- bmp = New Bitmap(dlg.FileName)
- End If
- End Using
- End Sub
- Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
- toMove = True
- Me.Invalidate()
- End Sub
- Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
- If toMove Then
- pt = e.Location
- Me.Invalidate()
- End If
- End Sub
- Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp
- toMove = False
- End Sub
- Private Sub Form1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
- If bmp Is Nothing Then
- Return
- End If
- e.Graphics.DrawImage(bmp, pt)
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
- End
- End Sub
- Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
- End Sub
- Private Sub ToolStrip2_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)
- End Sub
- Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
- Using dlg As New OpenFileDialog
- If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
- bmp = New Bitmap(dlg.FileName)
- End If
- End Using
- End Sub
- Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
- End Sub
- Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- End Sub
- End Class