Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Formun boyutunu değiştirme
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Vb.net Kontrolleri - 1

Yazar: programmar
Vb.nette kullandıgımız Kontrolleri görecegiz.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 9303
Yayın Tar:29.08.2007
Yazar : sun86
Hit :1684

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Forma sadece bir buton ekleyin,güzel bir görünüm için butonun left ve top özellikleri 1500 olsun, caption özelliğini BÜYÜT olarak değiştirin,formun da Width ve height özellikleri 3000 olsun. Daha sonra şağıdaki kodları boş kod sayfanıza girin.

Dim a As Byte 'butonun büyütme veya küçültme özelliğini, aldığı rakamlarla belirleyecek değişken

Private Sub Command1_Click() 'butona basıldığında işlenecek olaylar
If a Mod 2 = 0 Then 'eğer a değişkeni 2 nin katıysa şunları yap;
Command1.Caption = "KÜÇÜLT" 'butonun başlığı KÜÇÜLT olsun

For i = 3000 To 10000 Step 5 '3000 den 10000 e kadar 5er atlayarak aşağıdaki işlemleri gerçekleştir, tabi i değişkeni her atlayışta bir üst değeri alsın

Form1.Width = i ' i değişkeninin şuanki değeri formun genişliğini belirlesin
Form1.Height = i ' i değişkeninin şuanki değeri formun yüksekliğini belirlesin
Command1.Top = i - 1500 'i nin 1500 eksiği butonun formun üstüyle arasındaki mesafeyi belirlesin
Command1.Left = i - 1500 'i nin 1500 eksiği butonun formun soluyla arasındaki mesafeyi belirlesin
Form1.Refresh 'form herseferinde yenilensin
Next i
a = a + 1 'anın değeri 1 arttı böylece 2. tıklamada 2nin katı olmayacak,3.tıklamada 2nin katı olacak ve bu böyle hertıklamada değişerek devam edecek :)

ElseIf a Mod 2 = 1 Then 'eğer a 2nin katı değilse şunları yap;
Command1.Caption = "BÜYÜT" 'butonun başlığı BÜYÜT olsun
For i = 10000 To 3000 Step -1 '10000 den 3000 e kadar 5er inerek aşağıdaki işlemleri gerçekleştir, tabi i değişkeni her atlayışta bir alt değeri alsın

Form1.Width = i ' i değişkeninin şuanki değeri formun genişliğini belirlesin
Form1.Height = i ' i değişkeninin şuanki değeri formun yüksekliğini belirlesin
Command1.Top = i - 1500 'i nin 1500 eksiği butonun formun üstüyle arasındaki mesafeyi belirlesin
Command1.Left = i - 1500 'i nin 1500 eksiği butonun formun soluyla arasındaki mesafeyi belirlesin
Form1.Refresh 'form herseferinde yenilensin
Next i
a = a + 1 'malum a değişkeni yükseliyor birdahaki tıklamada buton büyütmeye karar veriyor
End If
End Sub

Bu arada program çalıştırılırken sanırım ekran kartının özellikleriyle ilgili olarak ekranda gariplikler oluşabiliyor, korkulacak birşey olmasa gerek.




Yorumlar, eklemeler ve düşünceler
        çok iyi arkadaşar

   hc1988, 31.08.2007 13:04
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin