abc.com.pl 6
01 1moj (3)
abc.com.pl 7
Podręcznik PHP (2)
Lackey Mercedes Obietnica magii
Wybuch (4)
tip03 (2)
Józef Ignacy Kraszewski Królewscy synowie
Chalker Jack L Swiaty Rombu 04 Meduza Tygrys w opalach
141 05 (9)
[ Pobierz całość w formacie PDF ]
.Strona: [ > ] z 1 AutorTemat: Wybór miejsca wpisywania tekstuanonimTyp:Nie zarejestrowanyWybór miejsca wpisywania tekstuWitam, 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 hicksraptor userTyp:moderatorPostów: 279Zarejestrowany: Apr 2003Mam 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 = strDodawanyEnd 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 IfEnd SubOba 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 member21-02-2005 23:15 2511367anonimTyp:Nie zarejestrowanyWielkie 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 pozdawiam22-02-2005 17:40 hicksraptor userTyp:moderatorPostów: 279Zarejestrowany: Apr 2003Private Sub Command1_Click() Text1.SelLength = 1 Text1.SelText = ""End Sub_____________________________________________TLHW Clan member24-02-2005 12:05 2511367Wszystkich odpowiedzi: 3 :: Maxymalnie na stronê: 20Strona: [ > ] z 1 [ Pobierz caÅ‚ość w formacie PDF ]
