Profil: Reaso7 | DonanımHaber Forum

Şimdi Ara

@Reaso7

Takip Et 0 takipçi

Özel Mesaj

22 Aralık 2012
Tarihinde Katıldı

Takip Ettikleri
0 üye

Görüntülenme
Toplam: 1 (Bu ay: 0)

Fırsat Ekle

Gönderileri

Tümü (1)

Sadece Konular (1)

Sadece Bağlantılar (0)

Reaso7 (Deniz Unal) · Delphi / C++ /Vb altına konu açtı. 13 yıl

Select case kullanımı hk.

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

Yanıt Yok

Yanıtla

Favorilere Ekle

Temel Bilgiler ve İstatistikler

Aktiflik: Şu anda DH'de değil
Son Giriş: 8 yıl önce
Son Mesaj Zamanı: 13 yıl
Mesaj Sayısı: 1
Gerçek Toplam Mesaj Sayısı: 1
İkinci El Bölümü Mesajları: 0
Konularının görüntülenme sayısı: 0 (Bu ay: 4)
Toplam aldığı artı oy sayısı: 0 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Yazılım Geliştirme

Mesajları

İkinci El Referansları