Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: txt
VBija




Typ: neutral
Postów: 56
Zarejestrowany: Mar 2003
txt

1) jak strawdzić jaką długość będzie miał łańcuch po wyświetleniu go metodą print??
2)jak spradzić ktura litera w nim jes no długości 100 pixeli??


_____________________________________________
zobacz moją stronę http://vbija.prv.pl/
Andrzej Wodyński

09-08-2003 06:37
Pokaż profil VBija  Wyślij email do VBija   Odwiedź stronę VBija       2647002
bisiek




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

Aby sprawdzić długość lub wysokość można użyć labela z AutoSize lub TextHeight(text) i TextWidth(text) w danej kontrolce

Aby sprawdzić literę lub więcej liter Mid$(text,nr litery,ilość liter do pobrania)


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

09-08-2003 21:36
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
VBija




Typ: neutral
Postów: 56
Zarejestrowany: Mar 2003

to wiem, ale czy nieda się tego prościej?? niemajakieś funkcji co to sprawdzi??


_____________________________________________
zobacz moją stronę http://vbija.prv.pl/
Andrzej Wodyński

10-08-2003 06:59
Pokaż profil VBija  Wyślij email do VBija   Odwiedź stronę VBija       2647002
bisiek




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

Prościej się raczej nie da. Może źle mnie zrozumiałeś z tym labelem. TextWidth i TextHeight to funkcje, są w prawie wszystkich podstawowych kontrolkach.
Prosty przykład w pictureboxie:

Dim MyTextWidth As Long
Dim MyTextHeight As Long

With PictureBox1
.FontName = "Times New Roman" 'Nazwa wybranej czcionki
.FontSize = 10 'Rozmiar czcionki
'można dopisać kolejne wartości
MyTextWidht = .TextWidth("Mój tekst"
MyTextHeight = .TextHeight("Mój tekst"
End With


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

10-08-2003 09:52
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
bisiek




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

Nie doczytałem że chodzi o pixel!
Potrzebny jest jeden label (Label1), czcionka na formie i na labelu musi być taka sama. Zamiast formy można użyć pictureboxa.

Dim a As String, aa As String

    Label1.Caption = "Z tego tekstu ma zostać znak na 100 pikselu w poziomie"

    For i = 1 To Len(Label1.Caption)
        aa = a 'Poprzednie znaki
        a = Left$(Label1.Caption, i) 'Peprzednie znaki i znak sprawdzany
        'Czcionka w formie i w labelu musi być taka sama
       
        If Me.TextWidth(aa) <= 100 * Screen.TwipsPerPixelX And Me.TextWidth(a) >= 100 * Screen.TwipsPerPixelX Then

            MsgBox Mid$(Label1.Caption, i, 1)

        End If
    Next

Coś takiego powinno działać


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

10-08-2003 10:10
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1