Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Potrzebna natychmiastowa pomoc!!!
VBMaster




Typ: neutral
Postów: 13
Zarejestrowany: Jun 2003
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
Pokaż profil VBMaster  Wyślij email do VBMaster   Odwiedź stronę VBMaster  
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Najlepiej chyba za pomocą:
Text1.SelStart = pozycja_kursora

Pozycja 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
Pokaż profil m-a-x  Wyślij email do m-a-x   
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
Pokaż profil VBMaster  Wyślij email do VBMaster   Odwiedź stronę VBMaster  
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 Sub

Jednak 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
Pokaż profil m-a-x  Wyślij email do m-a-x   
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
Pokaż profil VBMaster  Wyślij email do VBMaster   Odwiedź stronę VBMaster  
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
Pokaż profil m-a-x  Wyślij email do m-a-x   
VBMaster




Typ: neutral
Postów: 13
Zarejestrowany: Jun 2003

Nie mialem czasu aby unowoczesnic (tworzylem screen saver typu matrix)

Dim skladowe As Integer

Private Sub Text1_Change()
If Text1.Text = "end>" Then
End
ElseIf Text1.Text = "colortext>" Then
skladowe = InputBox[""]
Text1.ForeColor = QBColor(skladowe)
Text1.Text = ""
End If
End Sub

20-07-2003 15:15
Pokaż profil VBMaster  Wyślij email do VBMaster   Odwiedź stronę VBMaster  
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1