Potrzebna natychmiastowa pomoc!!! Witam Jak mozna ustawic kursor w dowolnym miejscu w textboxie i zrobic tak by uzytkownik nie mogl zmieniac tej pozycji?
18-07-2003 12:07
m-a-x
Typ: neutral Postów: 366 Zarejestrowany: Jan 2003
Najlepiej chyba za pomocą:Text1.SelStart = pozycja_kursoraPozycja kursora jest to liczba znaków licząc od początku. Żeby użytkownik nie mógł zmieniać tej pozycji najlepiej ustawić Text1.Enabled = false. Jeżeli nie chcesz tego robić to od biedy można dodać takie zdażenia do tej kontrolki:OnClick, OnKeyDown itp no i w nich powpisywać to co podałem na początku. _____________________________________________ Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!
18-07-2003 14:08
VBMaster
Typ: neutral Postów: 13 Zarejestrowany: Jun 2003
Thx ale troche sie pomylilem. Pisze konsole (cos takiego jak w winshicie). I wiecie pisze C:\>. uzytkownik nie moze zmienic pozycji kursora wczesniej niz jest ostatni znak, ale moze wpisywac dowolne rzeczy (np. C:\> dir windows) takiego efektu nie bedzie jak ustawie text1.enabled na false. Sorki.
18-07-2003 20:08
m-a-x
Typ: neutral Postów: 366 Zarejestrowany: Jan 2003
Dodanie zdażenia a w nim takiego kodu powinno zapobiec wpisywaniu czegoś przed ostatnim znakiem. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Text1.SelStart = Len(Text1.Text)End SubJednak mysle że to dokońca nie rozwiązuje twojego problemu W tym przypadku karetke można przenieść (ale nie spowoduje to wpisania znaku gdzieś w środku tekstu).Jeżeli nic innego nie będziesz mógł znaleźć i nikt ci nie będzie w stanie więcej pomóc to owiele prostrzym rozwiązaniem jest zastosowanie dodatkowego TextBox'a (przeznaczonego na wpisywanie komend (drugi odpowiedzialny tylko za wyświetlanie)) i zrobienie czegoś podobnego powiedzmy do chat'a. _____________________________________________ Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!
19-07-2003 01:23
VBMaster
Typ: neutral Postów: 13 Zarejestrowany: Jun 2003
Jak cos wpisuje to wyswietla mi sie np.(C:\> 4d6i8r). Dziex ale jednak zkorzystam z minichata . I jeszcze jedno: gdy uzytkownik wpisuje jakis znak [np. >] to wtedy program zapisuje znaki od samego poczatku do znaku wprowadzonego i zapisuje w zmiennej polecenie i analizuje je, jesli program nie znajdzie tego polecenia wtedy na chwile w calym textboxie wyskakuje text "Command invalid" a pozniej znika. Jak to zrobic?
19-07-2003 10:15
m-a-x
Typ: neutral Postów: 366 Zarejestrowany: Jan 2003
Jak ci mam pomóc jak nie mam kodu twojego programu? Wrzuć tu coś a może ktoś coś będzie wiedział. Pozdrówka _____________________________________________ Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!
19-07-2003 16:08
VBMaster
Typ: neutral Postów: 13 Zarejestrowany: Jun 2003
Nie mialem czasu aby unowoczesnic (tworzylem screen saver typu matrix)Dim skladowe As IntegerPrivate Sub Text1_Change()If Text1.Text = "end>" ThenEndElseIf Text1.Text = "colortext>" Thenskladowe = InputBox[""]Text1.ForeColor = QBColor(skladowe)Text1.Text = ""End IfEnd Sub
20-07-2003 15:15
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20