Skip to main content

AccessTr.neT


Açılışta Combobox Item Hazır Gelsin Hk.

Açılışta Combobox Item Hazır Gelsin Hk.

Çözüldü #1
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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
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
<<< 10-HAGİ-10 >>>
Cevapla
Çözüldü #3
(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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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ı.
<<< 10-HAGİ-10 >>>
Son Düzenleme: 16/01/2012, 17:36, Düzenleyen: mcmaho.
Cevapla
Çözüldü #5
(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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da