Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak to przeskoczyć?
Tamgo




Typ: neutral
Postów: 129
Zarejestrowany: Aug 2004
Jak to przeskoczyć?

Podgladam ci ja co inni robią. Trafiłem na taki fajowy kalkulatorek. Więc zacząłem nad nim lekko pracować. No i bęc. Przestał działać, gdy go zacząłem upiększać bitmapkami na przyciskach. Bo w kodziku ma takie cóś.

Private Sub Cyfra_Click(Index As Integer) ''' Cyfra to button z cyfrą od 0 do 9
    If OstKlik <> "NMR" Then        ''' OstKlik to ostatnie kliknięcie
        Pokaz = Format(0, "."      ''' Pokaz etykieta, która wyświetla wyniki
        Przec = False                    ''' przecinek
    End If
    If Przec Then
        Pokaz = Pokaz + Cyfra (Index).Caption
    Else
        Pokaz = Left(Pokaz, InStr(Pokaz, Format(0, ".") - 1) + Cyfra (Index).Caption + Format(0, "."
    End If
    If OstKlik = "MIN" Then Pokaz = "-" & Pokaz          ''' MIN umownie znak minus
    OstKlik = "NMR"
End Sub

No więc właśnie. W kodziku wykorzystuje właściwość Caption, a jak wiadomo przy bitmapkach to Caption musi być "", czyli pusty. Kurcze, taki fajny kalkulatorek, jak to przeskoczyć? Od razu powiem, że próbowałem wykorzystać wartość indexu, zaczął mi jakieś głupoty robić. A poza tym w dalszej części kodu autor korzysta z tej właściwości (Caption) na przyciskach funkcyjnych, więc i tak się nie da. Wg mnie należy tylko w jakiś sposób zastąpić właściwość Caption - jej wartość, i bedzie O.K. Ma ktoś jakiego pomysła?
Dzięki za podpowiedź.

[Post edytowany dnia 27-03-2005 00:09 przez Tamgo]

27-03-2005 00:05
Pokaż profil Tamgo  Wyślij email do Tamgo        4484571
hicks
raptor user



Typ: moderator
Postów: 279
Zarejestrowany: Apr 2003

Spróbuj użyć własności Tag...


_____________________________________________
TLHW Clan member

27-03-2005 00:16
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
Tamgo




Typ: neutral
Postów: 129
Zarejestrowany: Aug 2004

Dzięki hicks. Jak mogę to nazwać? Aaaa, to była zaćma na moich oczach, przecież to takie proste.

29-03-2005 12:55
Pokaż profil Tamgo  Wyślij email do Tamgo        4484571
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1