Döngü Kontrol İfadeleri

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Exit Do

Kullanım amacı ve Örnek:
Exit Do Do Loop ,While Wend döngülerinden bazı şartların gerçekleşmesi durumunda çıkmak için kullanılmaktadır..

Private Sub Command1_Click()
Dim i , j
 j=0
Do
  i=i+1
  j=j+i^2
  Label1=j
  if Text1="son" then Exit Do
  Loop Until i>10000000
  Msgbox(i & ".adımda çıkıldı")
End Sub

Bu programda text kutusuna eğer son yazılırsa döngüden çıkılacak. Çıkılmaz ise kendi 10000000 olunca çıkacaktır.

Exit For

Kullanım amacı::
Bu ifade ise For Next döngüsündan bazı şartların gerçekleşmesi durumunda çıkılması için kullanılır.

Exit Sub,Exit Function

Kullanım amacı::
Exit Sub ve Exit Function ifadeleri alt program sonuna ulaşmadan alt programdan çıkmada kullanılmaktadır.

End

Kullanım amacı:
Programı sona erdirir. Bütün açık olan form ve dosyaları kapatır.

With-End With

Kullanım amacı ve Örnek:
Herhangi bir kontol elemanının birden fazla özelliğini değiştirmek ya da metotlarına ulaşmak için kolaylık sağlar.

Private Sub Command1_Click()
    Combo1.additem "Fuat"
    Combo1.additem "Şengül"
    Combo1.additem "Sanalkurs"
    Combo1.additem "Net"
    Combo1.fontbold "true" "Yazı kalınlığı açık"
    Combo1.fontname "Times New Roman" "Yazı sitili"
  End Sub

With-End With ile yapalım şimdi:

Private Sub Command1_Click()
    With Combo1
       .additem "Fuat"
       .additem "Şengül"
       .additem "Sanalkurs"
       .additem "Net"
       .fontbold "true" "Yazı Kalınlığı açık"
       .fontname "Times New Roman" "Yazı sitili"
    End With 
 End Sub

Görüşmek üzere...

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[Karcemackers]

Paylasım icin tesekkurler.

 

[ßyMesMes]

Rica ederim.

 

[cixcocuk97]

Teşekkür Ederim