Konfetti-Grafikausgabe auf Formular

Konfetti-Grafikausgabe auf Formular via ScaleMode, DrawWidth, XPos, YPos
Sub laden()
Dim CX%, CY%, Msg$, XPos%, YPos%
On Error Resume Next
Randomize Zufallsgenerator.
Form2.WindowState = 2
Form2.FontName = "Arial"
ForeColor = Rnd * RGB(Rnd * 255, Rnd * 255, Rnd * 255) QBColor(4) = Set foreground to red.
FontSize = Rnd * 72 Set point size.
CX = Rnd * ScaleWidth Get horizontal center.
CY = Rnd * ScaleHeight Get vertical center.
Cls Clear form.
Msg = " K o n f e t t i "
CurrentX = CX - TextWidth(Msg) Horizontal position.
CurrentY = CY - TextHeight(Msg) Vertical position.
Print Msg Print message.
Do
ScaleMode = Rnd * 7 Set ScaleMode to pixels.
DrawWidth = Rnd * 16 Set DrawWidth.
XPos = Rnd * ScaleWidth Get horizontal position.
YPos = Rnd * ScaleHeight * 1.5 Get vertical position.
PSet (Rnd * XPos * 7, Rnd * YPos * 1.5), _ QBColor(Rnd * 15) = Draw confetti.
RGB(Rnd * 255, Rnd * 255, Rnd * 255)
DoEvents Yield to other.
Loop
End Sub
Private Sub Form_Load()
Form2.Show
Call laden
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call laden
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

           
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.