Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Wybór miejsca wpisywania tekstu
anonim




Typ: Nie zarejestrowany
Wybór miejsca wpisywania tekstu

Witam, chcialbym napisać kod klawisza, po nacisnięciu którego pojawialby się określony znak w polu tekstowym, w miejscu migania kursora tekstowego, tak aby miejsce to można bylo wybierać za pomocą myszy lub strzalek klawiatury.
Prosze o pomc w tej sprawie.
Z góry dziękuje i  pozdrawiam

[Post edytowany dnia 21-02-2005 23:17 przez hicks]

21-02-2005 22:45
  
hicks
raptor user



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

Mam nadzieję, że o to Ci chodziło:

Zrób na formie 2 przyciski (Command1 i Command2) i 1 TextBox (Text1) i wklej poniższy kod:

'prosty:
Private Sub Command1_Click()
    Dim strDodawany As String
   
    strDodawany = "jakiś tam tekst"

    Text1.SelText = strDodawany
End Sub

'rozbudowany:
Private Sub Command2_Click()
    Dim strDodawany As String
   
    strDodawany = "jakiś tam tekst"

    If Text1.SelLength <> 0 Then
        Dim strHead As String, strEnd As String, lngSelStart As Long
        lngSelStart = Text1.SelStart + Text1.SelLength
        strHead = Left(Text1.Text, lngSelStart)
        strEnd = Right(Text1.Text, Len(Text1.Text) - lngSelStart)
        Text1.Text = strHead & strDodawany & strEnd
    Else
        Text1.SelText = strDodawany
    End If
End Sub

Oba mają guziaczki podobne działanie. Jednak kod zawarty w Command2 nie usuwa zaznaczonego wcześniej tekstu... ;D

[Post edytowany dnia 21-02-2005 23:22 przez hicks]


_____________________________________________
TLHW Clan member

21-02-2005 23:15
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
anonim




Typ: Nie zarejestrowany

Wielkie dzięki. Mam jeszcze jedną prośbę, czy móglbys mi pomóc z podobnym kodem, tyle że kasującym znak, stojący za migającym kursoerm tekstowym.
Z góry dzięki i pozdawiam

22-02-2005 17:40
  
hicks
raptor user



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

Private Sub Command1_Click()
    Text1.SelLength = 1
    Text1.SelText = ""
End Sub


_____________________________________________
TLHW Clan member

24-02-2005 12:05
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1