Rubellos

Torty H · 27. April 2011, 09:46

Guten Morgen liebes VB-Paradise

ist es möglich eine art Rubellos zu machen mit einer Picturebox ???

larserik98 · 27. April 2011, 10:02

Gdi+

Würde ich mach denken..

Bin bei GDI+ aber echt nicht sehr talentiert..
Glaube mit Brushes geht das.
Evtl. Kommen ja mal die GDI+ Experten

Torty H · 27. April 2011, 10:08

hab es so gemacht ich habe

eine Große PicBox

und 100 kleine PicBoxen in der Großen

wen ich jetzt eine mit mous Move berühr dann schalte ich diese auf visible = False

nur is das ja ein riesen Aufwand alle 100 kleinen PicBoxen auf mousemove event zu setzten und einzutragen PicBoxblablub.visible=False

-.- dazu brauch ich ja stunden

und mit GDI+ habe ich noch nie was zu tun gehabt

larserik98 · 27. April 2011, 10:09

Torty H schrieb:

hab es so gemacht ich habe

eine Große PicBox

und 100 kleine PicBoxen in der Großen

wen ich jetzt eine mit mous Move berühr dann schalte ich diese auf visible = False

nur is das ja ein riesen Aufwand alle 100 kleinen PicBoxen auf mousemove event zu setzten und einzutragen PicBoxblablub.visible=False

-.- dazu brauch ich ja stunden

und mit GDI+ habe ich noch nie was zu tun gehabt

LOL!?

Da ist ja dann nicht dieser "Rubell" effekt.....

GDI+ ist was anderes...

sandiro · 27. April 2011, 10:14

Also du kannst theoretisch im Code alle Pictureboxen durchlaufen und das Ereignis MouseMove hinzufügen,
allerdings wie larserik98 schon sagte, mit GDI+ wäre besser (ich kenn mich aber auch nicht aus damit)

Gruss
sandiro

Torty H · 27. April 2011, 10:16

joa der efekt ist nicht wirklich der gleiche deswegen
breuchte ich ja hilfe weil das was ich habe zu aufwändig und nicht den gewünschten Efekt brinkt

LucaWelker · 27. April 2011, 10:18

Also wenn du es so machen willst mit den Picboxen, dann weiß doch allen Picboxen das gleiche Mousemove event zu du hast doch den sender parameter, welcher dir zurück gibt von welchem Control es kam und dann kannst du es doch visible false setzten.. Da brauchst du den Aufwand nicht.

Aber trotzdem ist die lösung nicht sehr schön:)

lg.

LucaWelker

larserik98 · 27. April 2011, 10:20

Torty H schrieb:

joa der efekt ist nicht wirklich der gleiche deswegen
breuchte ich ja hilfe weil das was ich habe zu aufwändig und nicht den gewünschten Efekt brinkt

Ich glaube du machst so:

VB.NET-Quellcode

lalala.visible=false
lalala.visible=false
lalala.visible=false
lalala.visible=false

Man kann aber auch:
For each benutzen..

Aber GDI+ ist die beste lösung, der reste ist mist...

Vitox · 27. April 2011, 10:20

vbdotnetheaven.com/Uploadfile/…8AM/GdiPlusBiggeners.aspx

du kannst ja im MouseMoveEvent immer einen Punkt transparent zeichnen lassen, auf ein Control, das irgeneine andere Farbe im Vordergrund hat, wodurch der Hintergrund nach und nach sichtbar wir

Gruß Vitox

larserik98 · 27. April 2011, 10:22

Vitox schrieb:

vbdotnetheaven.com/Uploadfile/…8AM/GdiPlusBiggeners.aspx

du kannst ja im MouseMoveEvent immer einen Punkt transparent zeichnen lassen, auf ein Control, das irgeneine andere Farbe im Vordergrund hat, wodurch der Hintergrund nach und nach sichtbar wir

Gruß Vitox

Mit System.random einen Zufallspunkt nehmen...
Man müsste dann aber wieder eine Liste hinzufügen,damit nicht punkte mehrfach genommen werden, sonst dauert das zu lange..

Torty H · 27. April 2011, 10:24

random ?? ne weildie maus ja das übernemen soll welcher punkt verschwindet !?

EiPott · 27. April 2011, 10:26

Einfach mit einem Pen (als TextureBrush) mit dem Bild "dahinter" auf das gefüllte Bild zeichnen.

larserik98 · 27. April 2011, 10:29

Torty H schrieb:

random ?? ne weildie maus ja das übernemen soll welcher punkt verschwindet !?

Ja so geht auch

Torty H · 27. April 2011, 10:47

EiPott schrieb:

Einfach mit einem Pen (als TextureBrush) mit dem Bild "dahinter" auf das gefüllte Bild zeichnen.

??

Erklärung ??

bin noch nicht so lange in vb eher php

larserik98 · 27. April 2011, 10:51

Torty H schrieb:

EiPott schrieb:

Einfach mit einem Pen (als TextureBrush) mit dem Bild "dahinter" auf das gefüllte Bild zeichnen.

??

Erklärung ??

bin noch nicht so lange in vb eher php

Guck mal hier im Forum.
Da gab es ein SUPER Tutorial

Counter Bug · 27. April 2011, 11:00

Mir fällt im Moment nur diese Lösung ein, ist allerdings unsauber, alleine wegen Setpixel.

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Drawing
Public Class Rubbellos
Dim draw As Boolean = False
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
draw = True
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
draw = False
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If draw = True Then
Try
Dim bmp As Bitmap
bmp = CType(PictureBox1.Image, Bitmap)
bmp.SetPixel(e.X, e.Y, Color.FromArgb(0, 0, 0, 0))
PictureBox1.Image = CType(bmp, Image)
Catch exc As Exception
End Try
End If
End Sub
End Class

EiPott · 27. April 2011, 11:02

Und Sau langsam.

Counter Bug · 27. April 2011, 11:03

Naja, langsam nicht, habs ja selbst ausprobiert, nur mit mehr Pixeln^^
Richtiger wäre zu sagen, es geht noch schneller.

ErfinderDesRades · 27. April 2011, 11:09

ein Versuch

larserik98 · 27. April 2011, 11:19

ErfinderDesRades schrieb:

ein Versuch

Der Code ist gut!

Ich würde nur die Sizes ein bisschen kleiner machen.
Fehlt nur noch den Cursor als Daumen dastellen.

Rubellos

Rubellos

-

Torty H schrieb:

Torty H schrieb:

VB.NET-Quellcode

Vitox schrieb:

Torty H schrieb:

EiPott schrieb:

Torty H schrieb:

EiPott schrieb:

VB.NET-Quellcode

ErfinderDesRades schrieb:

Tags

8 Benutzer haben hier geschrieben