değişken label

[zulfuernek]

labele her tıkladığımda farklı yazılar göstermesi

yani;

1. tık "USD"
2. tık "EUR"
3. tık "GBP"
4. tık "NOK"
5. tık "CHF"

gibi

 

[zulfuernek]

döngü halinde olmalı

 

[Haluk]

Böyle bir şey işinize yarar mı?

Dim Sayac As Integer

Private Sub Label1_Click()
Select Case Sayac
    Case 0
    Label1 = "USD"
        Case 1
        Label1 = "EUR"
            Case 2
            Label1 = "GBP"
                Case 3
                Label1 = "NOK"
        Case 4
        Label1 = "CHF"
    Case Else
    Label1 = "Tanımlanmadı"
End Select
Sayac = Sayac + 1
End Sub

 

[zulfuernek]

HALUK HOCAM EN ÜSTTEKİ SATIRI NEREYE YAZACAĞIM

Dim Sayac As Integer

 

[Haluk]

Modülün en üstüne yazacaksınız.

 

[zulfuernek]

haluk hocam istediğim gibi ancak tamamlabdı dedikten sonra başa sarmıyor. başa sarması için ne yapmalıyım

 

[zulfuernek]

çalışıyor evet dediğiniz gibi hocam ama tamamlandı diyip bitiyor. tekrar başa alabilirmiyiz acaba tıklayınca

 

[Haluk]

Bu şekilde bir deneyin...

Dim Sayac As Integer

Private Sub Label1_Click()
Select Case Sayac
    Case 0
    Label1 = "USD"
        Case 1
        Label1 = "EUR"
            Case 2
            Label1 = "GBP"
                Case 3
                Label1 = "NOK"
        Case 4
        Label1 = "CHF"
    Case Else
    Sayac = -1
End Select
Sayac = Sayac + 1
End Sub

 

[zulfuernek]

haluk hocam emeğinize sağlık.
sizden bir ricam daha var.

ımage ve resim atama konusunda bir yeni konu başlatıyorum. bilginiz varsa ilgilenebilirmisiniz

saygıllarımla

 

[zulfuernek]

haluk hocam bunda ufak bi sorun var. son chf yi gösteriyor usd ye başa dönmek için bir kaç defa tıklayınca algılıyor. tek tıkla almıyor yani. ama döngü yapıyor. sadece döngü bitiminde bu sorunu veriyor.

 

[Korhan Ayhan]

Deneyiniz.

Dim Say As Byte

Private Sub Label1_Click()
    Say = Say + 1
    Select Case Say
        Case 1: Label1.Caption = "USD"
        Case 2: Label1.Caption = "EUR"
        Case 3: Label1.Caption = "GBP"
        Case 4: Label1.Caption = "NOK"
        Case 5: Label1.Caption = "CHF": Say = 0
    End Select
End Sub