Yapmak istediğim bir listbox icinde bulanan baslıklar secildiginde text1 ve label1 icine acıklamasının gelmesi bunu hallettim ama ikinci bir secenek olarak da
text2 icine 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
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(hic 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 amaclı 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 icin 50 EUR alınır. Cocuk yolcu icin, bu ceza uzerinden cocuk indirimi uygulanır.(Bebek icin 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 yon koltuk ucreti ve vergiler odenen tutarlardan duşulerek hesaplanır."
Case 6
Text1.Text = "Uculan parkurun ucreti hesaplanır ve odenen ucretten cıkarılır."
End Select
End Sub
__________________