Neuer Einblendeffekt

mcandy007 · 11. März 2009, 18:33

Neuer kleiner aber feine Einblendeffekt
Hier mal der Code walle die sich diesen Effekt vorher anschauen wollen hier der LINK: myvideo.at/watch/6106662
Und der CODE: Ihr braucht einen Timer(Name: Timer1)

VB.NET-Quellcode

Public Class Form1
Dim aufgehenrechts As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Width = Me.Width + aufgehenrechts
If Me.Size.Width = 300 Then ' Hier einragen wie groß deine Form bei Width werden soll
Me.Height = Me.Height + 2
aufgehenrechts = 0
End If
If Me.Size.Height = 300 Then ' Hier einragen wie groß deine Form bei Heigt werden soll
Timer1.Stop()
Me.ControlBox = True
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1
Timer1.Start()
aufgehenrechts = 2
Me.Width = 0
Me.Height = 0
Me.ControlBox = False
End Sub
End Class

Testet einfach mal!
Komentare erwünscht! :thumbsup:

~blaze~ · 11. März 2009, 18:41

Hi
Bitte vergleiche doch Zahlenwerte nicht mit "300" sondern einfach mit 300. Z.B.:

VB.NET-Quellcode

Dim x As Integer = 300
If x = 300 Then
End If

So ist ein richtiger Vergleich mit einer Zahl. Vergleiche mit Strings werden mit "" außen rum gemacht.

Gruß
~blaze~

Enten Mann · 11. März 2009, 18:42

Richtig geil

mcandy007 · 11. März 2009, 18:43

Macht es einen unterschied?

Enten Mann · 11. März 2009, 18:47

Also "300" wird als Fehler gemeldet nur 300 funtz

mcandy007 · 11. März 2009, 18:48

sry bei mir gehts aber! ok ich besser es aus sry nohcmal! 8-)

Malischh · 11. März 2009, 18:49

Ja. Es macht einen Unterschied ob du die hier benutzt: ""
Auch vom Programmierstil!

IbBlue · 11. März 2009, 19:07

Das ist der Hammer (=

kevin89 · 11. März 2009, 20:02

Das hab ich schon gepostet. Ist nichts anderes als mein Code in länger was soll ich wohl jetzt denken :cursing:

vb-paradise.de/allgemeines/tip…klappeffekt-fuer-fenster/

Enten Mann · 11. März 2009, 20:04

Löschen

kevin89 · 11. März 2009, 20:11

Ja denn das finde ich echt *******... erklär mal bitte mcandy007

mcandy007 · 11. März 2009, 20:17

Nur weil ich auch mal einen kleinen einblöende effekt gemacht hab und der effekt was es schon gibt ist ncih tvon dir!
auserdem mein code ist kürzer!

noname · 11. März 2009, 20:19

Ist doch nun wirklich nicht schlimm. Die meisten hier (einschließlich mir) wussten nicht, dass es das schon gab. Ich glaube auch er hat dies nicht gewusst.

Und nebenbei: So komplex oder innovativ dass man hier von Ideen- oder Codeklau schreiben kann, sind eure Schnipsel auch wieder nicht

Edit: Ich sollte meine Posts wirklich schneller abschicken

mcandy007 · 11. März 2009, 20:20

thx noname! weil habe den code selber geschrieben und hatte auch selber die idee!

kevin89 · 11. März 2009, 20:32

Ja ich hab doch auch nicht gesagt das es geklaut oder nachgemacht ist ich habe gesagt erklär doch bitte mal.

@ noname: Klar stimmt die Codes sind ziemlich primitiv aber es ging mir ja (wenn überhaupt) nur um die Idee

kevin89 · 11. März 2009, 20:35

Jo dazu kann man echt nix anderes sagen lol

mcandy007 · 11. März 2009, 20:36

was soll ich bitte mal erklären?^^

kevin89 · 11. März 2009, 20:41

Nee hast es schon erklärt ich wollte erklärt haben wie du auf die Idee gekommen bist

mcandy007 · 11. März 2009, 20:44

asoo!

Ganjin · 14. März 2009, 16:14

Ich hab das immer so gemacht: (ein und ausblend effeckt)

VB.NET-Quellcode

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Me.Size.Width = 400 Then
Timer1.Stop()
Timer2.Start()
Else
Me.Width = Me.Width + 5
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If Me.Size.Height = 350 Then
Timer2.Stop()
Else
Me.Height = Me.Height + 5
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
If Me.Size.Width = 125 Then
Timer3.Stop()
Timer4.Start()
Else
Me.Width = Me.Width - 5
End If
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
If Me.Size.Height = 40 Then
Timer4.Stop()
End
Else
Me.Height = Me.Height - 5
End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True
Timer3.Start()
End Sub

4 Timer mit Interval 10

Neuer Einblendeffekt

Neuer Einblendeffekt

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben