AccessTr.neT
Açılışta Combobox Item Hazır Gelsin Hk. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılışta Combobox Item Hazır Gelsin Hk. (/konu-acilista-combobox-item-hazir-gelsin-hk.html)



Açılışta Combobox Item Hazır Gelsin Hk. - drummers - 16/01/2012

ComboBox3 de item olarak 1,2,3,4,5,6,7,8,9,10,11,12 ekli

Benim istediğim form açılışında (yani loadına) nasıl bir kod yazmalıyımki

Bulunduğumuz ay "Ocak" İse "12" , "Şubat" ise "1", "Mart" ise "2" vs..vs..vs.. seçli gelsin

Yani bulunduğumuz ayın bir alt rakamını seçecek.

Teşekkürler


Cvp: Açılışta Combobox Item Hazır Gelsin Hk. - mcmaho - 16/01/2012

listindex özelliğini kullanırsan istedigini alırsın.
Private Sub Form_Load()
If Month(Date) > 1 Then
Combo1.ListIndex = Month(Date) - 2
Else
Combo1.ListIndex = 11
End If
End Sub


Cvp: Açılışta Combobox Item Hazır Gelsin Hk. - drummers - 16/01/2012

(16/01/2012, 13:44)mcmaho yazdı: listindex özelliğini kullanırsan istedigini alırsın.
Private Sub Form_Load()
If Month(Date) > 1 Then
Combo1.ListIndex = Month(Date) - 2
Else
Combo1.ListIndex = 11
End If
End Sub

Vb 2010 da hata veriyor bu kod



Cvp: Açılışta Combobox Item Hazır Gelsin Hk. - mcmaho - 16/01/2012

bu kodları örnek olarak verdim. bu kodlar vb 6 için. combo nesnesinin listindex özelliğini kullanacaksın.vb 2010 a göre ayarla kodları.


Cvp: Açılışta Combobox Item Hazır Gelsin Hk. - drummers - 16/01/2012

(16/01/2012, 17:34)mcmaho yazdı: bu kodları örnek olarak verdim. bu kodlar vb 6 için. combo nesnesinin listindex özelliğini kullanacaksın.vb 2010 a göre ayarla kodları.

If Now.Month >= 2 Then ComboBox1.Text = Now.Month - 1
If Now.Month = 1 Then ComboBox1.Text = 12
Böyle çözdüm