Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !
Forum Başlıklarına gitmek için tıklayınız
| Kod Alanı: |
'-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- '-*-* *-*- '-*-* C o d e d b y M e l i h U c a r *-*- '-*-* h t t p : / / w w w . t e c h m a s t e r . o r g *-*- '-*-* *-*- '-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- 'Formumuza bir adet Timer Koyalim ve asagidaki kodları ekleyelim Private Sub Timer1_Timer() Dim ilkyukseklik, sonyukseklik, ilkgenislik, songenislik ilkyukseklik = 510 sonyukseklik = 6405 ilkgenislik = 1845 songenislik = 6840 Form1.Width = ilkgenislik Form1.Height = ilkyukseklik For y = ilkyukseklik To sonyukseklik Form1.Height = y If y = sonyukseklik Then For g = ilkgenizlik To songenislik Form1.Width = g If g = songenislik Then Timer1.Enabled = False End If Next End If Next End Sub 'Hepsi bu kadar şimdi F5 tusu ile form animasyonumuzu test edebiliriz.. |