Form ' a Açılış Efekti Verme[StarTÜRK/TürkHackTeam]

S

StarTÜRK

Kıdemli Üye
22 Eki 2009
3,765
0
\windows\sys

50297307.png


Gerekli olanlar:
1 adet timer
Timer'ın interval olayını 100 yapın.

Visual Basic i çalıştırıp yeni bir proje açıyoruz.
Gelen tasarım penceresi içerisini çift tıklıyıp Forum load kısmına gidiyoruz ve kodumuzu yapıştırıyoruz.
Araç kutusundan 1tane Timer tasarıma ekiyoruz ve Timer'e çift tıklıyoruz Timer kodumuzu yapıştırıyopruz.

Bunları yaparsak penceremiz açılırken yukarıdan aşagı dogru açılış yapıcaktır

Forum Looad Kodu

Kod: 
Timer1.Start()  
Timer1.interval=100


Timer Kodu

Kod: 
Dim x, y, k As Integer
x = 300
y = 0
For k = 0 To 300
y += 1.1
Me.Size = New System.Drawing.Size(x, y)
Next
Timer1.Stop()



Tüm Kod

Kod: 
Public Class StarTÜRK
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer1.Interval = 1000
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim x, y, k As Integer
        x = 300
        y = 0
        For k = 0 To 300
            y += 1.1
            Me.Size = New System.Drawing.Size(x, y)
        Next
        Timer1.Stop()
    End Sub
End Class
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.