Şimdi Ara

Select case kullanımı hk.

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

3 Misafir - 3 Masaüstü

5 sn

1
Cevap

0
Favori

286
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

Öne Çıkar

0 oy

Cevapla

Sayfa: 1

Giriş

Mesaj

Merhaba arkadaşlar,

Yapmak istediğim bir listbox içinde bulanan baslıklar secildiginde text1 ve label1 içine acıklamasının gelmesi bunu hallettim ama ikinci bir secenek olarak da

text2 içine yazılan yazı eğer list1 dekilerden biriyle aynı ise sankı secılmıs gıbı text1 e ve label1 getırmesını ıstıyorum.

bulamadıgında uyarıyı alıyorum fakat buldugunda ıstedıgımı yaptıramadım

Yardımlarınızı beklıyorum.

Tesekkurler.

Private Sub Command1_Click()

Dim i%
Dim d%

For i = 0 To Form2.List1.ListCount - 1
If Text2 = Form2.List1.List(i) Then

Text1 = ""

Exit Sub
End If
Next i
MsgBox Text2 & "Bulunamadı.."
End Sub

Private Sub Form_Load()
List1.AddItem "CHANGES PERMITTED FOR REISSUE/REVALIDATION."
List1.AddItem "CHANGES NOT PERMITTED IN CASE OF REISSUE/REVALIDATION."
List1.AddItem "ANY TIME CHARGE EUR 50.00 FOR REISSUE/REVALIDATION."
List1.AddItem "CANCELLATIONS (iptal)-- BEFORE DEPARTURE(hiç kullanılmamaış bilet)-- CANCELLATIONS PERMITTED FOR REFUND."
List1.AddItem "CHARGE EUR 75.00 FOR CANCEL/REFUND"
List1.AddItem "AFTER DEPARTURE -- CANCELLATIONS PERMITTED FOR CANCEL/REFUND. "
List1.AddItem "FOR CANCELLATIONS AFTER DEPARTURE THE REFUND GIVEN WILL BE THE DIFFERENCE BETWEEN THE FARE PAID AND THE APPLICAPLE FARE FOR THE JOURNEY FLOWN. "

End Sub

Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Text1.Text = "Re-issue veya revalidation amaçlı değişikliklere cezasız izin verilmektedir"

Case 1
Text1.Text = "Rezervasyon ve parkur değişikliğine izin verilmez. Eğer notun devamında NOTE - NOT PERMITTED EVEN FOR MEDICAL REASON yazıyor ise Tibbi nedenlerden dolayı olsa dahi anlamına gelmektedir. "

Case 2
Text1.Text = "Rezervasyon ve parkur değişikliği için 50 EUR alınır. Çocuk yolcu için, bu ceza üzerinden çocuk indirimi uygulanır.(Bebek için koltuk işgal etmediğinden dolayı ceza alınmaz)"
Label2 = "ANY TİME = Ne zaman değişiklik yapılırsa yapılsın. CHILD/INFANT DISCOUNTS APPLY. "

Case 3
Text1.Text = "Cezasız iadeye izin verilir."
Label2 = "Biletleme sırasında DU tahsil edilmiş ise sadece DU kesintisi yapılarak iade edilir."

Case 4
Text1.Text = "İptal iade durumunda 75 EUR ceza alınır."

Case 5
Text1.Text = "Cezasız iadeye izin veriyor."
Label2 = "Kısmen kullanılmış bilet. Kullanılan parkura ait tek yön koltuk ücreti ve vergiler ödenen tutarlardan düşülerek hesaplanır."

Case 6
Text1.Text = "Uçulan parkurun ücreti hesaplanır ve ödenen ücretten çıkarılır."

End Select
End Sub