Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: formowanie % i pln
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
formowanie % i pln

Cze. chce uzyskać coś takiego: mam textboxt i chce aby tam było wpisany znak % na stałe. TZN. jak cos wpisze np 12 to bedzie tam 12%. Jak sformatowac takie pole?


_____________________________________________
May the Force be with you...

09-09-2004 15:07
Pokaż profil Dagged  Wyślij email do Dagged        1728948
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Napisałem coś takiego - powinno działać:

Private Sub text1_change()
s = Text1.SelStart
l = Text1.SelLength
ll = Len(Text1.Text)
If Right$(Text1.Text, 1) = "%" Then
If Not IsNumeric(Left$(Text1.Text, Len(Text1.Text) - 1)) Then Text1.Text = Val(Text1.Text) & "%"
Else
If IsNumeric(Text1.Text) Then Text1.Text = Text1.Text & "%" Else Text1.Text = Val(Text1.Text) & "%"
End If

Text1.SelStart = s - ll + Len(Text1.Text)
Text1.SelLength = l
End Sub


_____________________________________________
www.mob.abc.pl - moja strona o VB

09-09-2004 19:55
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
thx

wielkie dzieki
pozdrawiam


_____________________________________________
May the Force be with you...

11-09-2004 11:16
Pokaż profil Dagged  Wyślij email do Dagged        1728948
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1