Hallo,
ich programmiere gerade einen icon-editor,
aber irgenwie malt der Computer nicht bei der mouse
sieht jemand was hieran falsch ist?:
MfG Vincent
ich programmiere gerade einen icon-editor,
aber irgenwie malt der Computer nicht bei der mouse
sieht jemand was hieran falsch ist?:
VB.NET-Quellcode
- Private Sub Painter_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
- d = MousePosition
- xd = MousePosition.X
- yd = MousePosition.Y
- End Sub
- Private Sub Painter_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
- xu = MousePosition.X
- yu = MousePosition.Y
- u = MousePosition
- Dim widthpic As Single
- Dim heightpic As Single
- If xd < xu Then
- widthpic = xu - xd
- Else
- widthpic = xd - xu
- End If
- If yd < yu Then
- heightpic = yu - yd
- Else
- heightpic = yd - yu
- End IfDim z As Graphics = Me.CreateGraphics()
- Dim stift As New Pen(colorr.SelectedColor, Num.Value)Dim pinsel As New SolidBrush(colorr.SelectedColor)
- Select art
- Case "linie"
- z.DrawLine(stift, d, u)
- Case "kreis"
- z.DrawEllipse(stift, widthpic, heightpic, widthpic, heightpic)
- Case "rechteck"z.DrawRectangle(stift, widthpic, heightpic, widthpic, heightpic)
- End Select
- End Sub
MfG Vincent