• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Vb.net Yazı Animasyonu

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Dark Hack

Onaylı Üye
Katılım
8 May 2016
Mesajlar
208
Beğeni Puanı
1
Public Class[font='Titillium Web', sans-serif] Form1[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] i [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif] [/FONT][font='Titillium Web', sans-serif]Integer[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif] [/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Timer1_Tick([/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] sender [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif] System.Object, [/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] e [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif] System.EventArgs) Handles Timer1.Tick[/FONT]


[font='Titillium Web', sans-serif]i = i + 1[/FONT]

[font='Titillium Web', sans-serif]lblYazi.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif] = ""[/FONT]

[font='Titillium Web', sans-serif]lblYazi.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif] = lblYazi.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif] & Microsoft.VisualBasic.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif]("Yazımızı buraya yazıyoruz", i)[/FONT]


[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif] [/FONT][font='Titillium Web', sans-serif]Sub[/FONT]


[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif] [/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Form1_Load([/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] sender [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif] System.Object, [/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] e [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif] System.EventArgs) Handles MyBase.Load[/FONT]

[font='Titillium Web', sans-serif]Timer1.Interval = 50[/FONT]

[font='Titillium Web', sans-serif]Timer1.Start()[/FONT]

[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif] [/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt