Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Wielkość Liter - textBox
Imago




Typ: neutral
Postów: 21
Zarejestrowany: Oct 2004
Wielkość Liter - textBox

Witam, glupie lamesrkie pytanie.

Mam zrobiony formularz, urzytkownicy moga dokonywac wpisow w aplikacji - okna textbox. Ale jakz robic aby text ktory wpisuja zawsze byl z duzej litery, niezaleznie czy beda mieli wcisniety cps czy nie. Poporstu aby zawsze w oknie byly duze litery( i jak analogiczne cos takiegoz robic dla malych liter), dzieki z gory za pomoc, pozdrawiam.

19-02-2005 16:52
Pokaż profil Imago  Wyślij email do Imago   Odwiedź stronę Imago  
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

Funkcja StrConv np. StrConv("ala", vbProperCase)


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

19-02-2005 17:03
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Imago




Typ: neutral
Postów: 21
Zarejestrowany: Oct 2004
Ale jak to lamer dalej mam maly problem

ok fenx ;] o to chodzilo mi dzieki, ale jak to wrzucic  do aplikacji najlepiej i jakz zapisac hmm aby po odwolaniu okno np: text1.text mialo odrazu ustawione duze litery  bo z przeladowaniem wiem jak zrobic ale jakz robuic aby mialo od razu i na satle? :/ jeszcze raz dzieki za help

19-02-2005 17:51
Pokaż profil Imago  Wyślij email do Imago   Odwiedź stronę Imago  
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

Nie rozumiem o_O


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

19-02-2005 18:02
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Imago




Typ: neutral
Postów: 21
Zarejestrowany: Oct 2004
;]

:/ no jak bys mi mogl to podac na przykladzie:

jak takie cos wstawic aby odrazu przy pisaniu w textbox odrazu byly duze litery, np: na jakie zdarzenie cos takiego wywolac. wiem wiem jestem lama fenx za help. Po prostu niewiem jak takie cos zrobic :/

19-02-2005 18:12
Pokaż profil Imago  Wyślij email do Imago   Odwiedź stronę Imago  
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

np. zdarzenie KeyPress - sprawdzasz czy Text1.Text = "" jezeli tak to wstawiasz duża literę i tyle

Najprostzy przykład - oczywiście wymagający poprawek:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text = "" Then
    Text1.Text = StrConv(Chr$(KeyAscii), vbProperCase)
    KeyAscii = 0
    Text1.SelStart = 2
End If
End Sub


albo

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text = "" Then
    Text1.Text = UCase(Chr$(KeyAscii))
    KeyAscii = 0
    Text1.SelStart = 2
End If
End Sub


[Post edytowany dnia 19-02-2005 18:20 przez DJK]


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

19-02-2005 18:19
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Imago




Typ: neutral
Postów: 21
Zarejestrowany: Oct 2004
ok ;]

ok mam ;] sorkiz a zawracanie glowy zrobilem fenx

19-02-2005 18:23
Pokaż profil Imago  Wyślij email do Imago   Odwiedź stronę Imago  
Imago




Typ: neutral
Postów: 21
Zarejestrowany: Oct 2004
a jednak jestem lama

hmm  w przykladzie:
<i>Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text = "" Then
    Text1.Text = StrConv(Chr$(KeyAscii), vbProperCase)
    KeyAscii = 0
    Text1.SelStart = 2
End If
End Sub</i>

ok tylko pieerwsza litera sie zmienia,
Ja jak glupi jakz robie: Text1.Text = StrConv(Text2.Text, vbUpperCase)

to gdy pisze no: dom to mam MOD (czyli odwrotnie) dziekiz a cierpliwosc i jeszcze raz za help ;]

19-02-2005 18:54
Pokaż profil Imago  Wyślij email do Imago   Odwiedź stronę Imago  
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

hmmmm - czemu używasz vbUpperCase a nie vbProperCase - poza tym sprawdź czy nie usunąłeś lini Text1.Text.SelStart bo to własnie ona odpowiada za to żeby kursor pojawił się za pierwszą literą - poza tym cytuję: "...skrypt działa jednak zmienia tylko 1 litere z wpisanego textu" - chciałeś żeby pierwsza litera była duża czy pierwsza litera każdego wyrazu ??

[Post edytowany dnia 20-02-2005 11:59 przez DJK]


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

20-02-2005 11:59
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Imago




Typ: neutral
Postów: 21
Zarejestrowany: Oct 2004
litera

chciałbym aby wszystkie litery były duże np ; JAN NOWAK, a narazie mam Jan nowak.

n-ty raz dzieki ;]

20-02-2005 12:23
Pokaż profil Imago  Wyślij email do Imago   Odwiedź stronę Imago  
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

Spróbuj tego:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii <> 8 And KeyAscii <> 13 And KeyAscii > 31 Then
    Dim sTemp As String
    Dim Pos As Integer
   
    If Text1.SelText <> "" Then
        Text1.SelText = ""
    End If
   
    Pos = Text1.SelStart + 1
    sTemp = Left$(Text1.Text, Text1.SelStart)
    sTemp = sTemp & UCase$(Chr$(KeyAscii)) & Right$(Text1.Text, Len(Text1.Text) - Text1.SelStart)
    Text1.Text = sTemp
    Text1.SelStart = Pos
    KeyAscii = 0
End If
End Sub



_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

20-02-2005 14:01
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Wszystkich odpowiedzi: 10 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1