Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: TextBox i kursor?
Ania




Typ: neutral
Postów: 8
Zarejestrowany: Jun 2004
TextBox i kursor?

Zalogowałam się tutaj bo bardzo, ale to bardzo potrzebuję pomocy. Muszę zrobić projekt w VB i się motam już na samym początku. Moja wiedza nie jest zbyt imponująca, ale mam nadzieję, że znajdzie się tutaj cierpliwa osoba, która wytłumaczy jak co zrobić.
Po pierwsze wiszę teraz na problemie takim: Chcę aby po wpisaniu w jedno pole tekstowe czterech cyfr visible drugiego zmieniało się na true.

[Post edytowany dnia 09-06-2004 00:09 przez Ania]

08-06-2004 19:40
Pokaż profil Ania  Wyślij email do Ania   
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Najpierw zaczne od kilku spraw
1) Skoro jestes tu nowa jest mi milo ci powitac jako pierwszemu i prosze cie abys zapoznala sie
- ze struktura forum tzn.: poszczegolnymi dzialami i rodzajami pytan jakie sie w nich zadaj
- przeczytaniem tego textu co ulatwi nam przyszla prace na forum http://board.freeweb.pl/posts.php?board_id=1543&topic_id=77394&division=615
Jest to regulamin tego forum
2) Pomogę ci troszkę najprostszym przykładem bedacym rozwiazaniem na twoje pytanie moze byc:
' stworz nowa "formatke"
' wstaw na nie dwa pola tekstowe Text1 i Text2
' polu Text2 zmien wlasciwosc Visible na False
' dodaj ponizszy kod:

Private Sub Text1_Change()
' Sprawdzamy czy wprowadzony lancuch znakow ma zadana dlugosc

If Len(Text1.Text) = 4 Then
' Jezlei tak to sprawdzamy czy sa to cyferki
 
If IsNumeric(Text1.Text) Then Text2.Visible = True
' Jezeli tak to pokazujemy drugie pole tekstowe

Else
' W przeciwnym wypadku gdy cyferek jest mniej lub wiecej niz 4
 
With Text2
            .Text = ""
            .Visible = False
  End With
' Usuwamy tekst z Text2 i chowamy go

End If
End Sub

Powodzenia i przyjemnego korzystania z Forum


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

08-06-2004 20:15
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
Ania




Typ: neutral
Postów: 8
Zarejestrowany: Jun 2004

Dzieki bardzo! Za przywitanie i za porade. Co do cyferek to już doszłam jak. Tylko dalej utknęłam.
Co do zasad na forum, to czy mogę moje problemy roztrząsać dalej w tym wątku (bo podejrzewam, że jeszcze ich kilka będzie)?? I czy mogę liczyć na dalszą pomoc?
I jeszcze jedno
Chciałam jeszcze żeby kursor przeskakiwał do tego drugiego pola tekstowego automatycznie po czterech znakach w pierwszym. Jest to wykonalne??

[Post edytowany dnia 08-06-2004 20:28 przez Ania]

08-06-2004 20:24
Pokaż profil Ania  Wyślij email do Ania   
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

To dobrze ze sama doszlas do tego jak to wykonac
Coz jak juz tyle napisalismy w tym watku to bedziemy tu kontynuowac ale mam do ciebie kilka prosb

- skoro kontynuujemy ten watek to prosze cie o zmiane tematu Widzisz wyszukiwanie odpowiednich rzeczy odbywa sie min. przez szukanie po tematach wiec zmien temat z "Szukam tu pomocy" na bardziej adekwatny do tresci postu Ulatwi to wszystkim korzystanie z forum
- oczywiście postaram ci sie pomoc jezeli bede umial Oto nasz przykaldzik lekko przerobiony na twoje potrzeby

Private Sub Text1_Change()
If Len(Text1.Text) = 4 Then
  If IsNumeric(Text1.Text) Then
      Text2.SetFocus
  End If
Else
  Exit Sub
End If
End Sub

Private Sub Text2_Change()
If Len(Text2.Text) = 0 Then
    Text1.SetFocus
    Text1.Text = Mid(Text1.Text, 1, 3)
End If
End Sub

- druga prośba to jest przeglądanie działu Workshop i Tips przed zadaiem pytania na forum. Oto gotowy przykald odpowiadajacy chyba twoim potrzebom z dzialu Workshop (bardziej rozbudowany niz nasz prosty sampel) http://www.coderscity.pl/no-vb4all/workshop/przenoszenie%20kursora.zip

Pozdrawiam
Andrzej

[Post edytowany dnia 09-06-2004 00:24 przez andrey]


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

08-06-2004 23:54
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
Ania




Typ: neutral
Postów: 8
Zarejestrowany: Jun 2004

Wielkie dzięki! O to mi właśnie chodziło.
Moze być taki temat? bo brak mi inwencji. Jutro będę dalej walczyć z moim programikiem. Pewnie jeszcze ze 150 tys problemów będę miała, ale najpierw poszukam, a później spytam

09-06-2004 00:13
Pokaż profil Ania  Wyślij email do Ania   
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Cieszę się że mamy kolejnego zadowolonego użytkownika  Inwencje masz wystarczajaca Jak juz nie bedzie ci szlo szukanie to pytaj
AA bo bym zapomnial jezeli twoj programik wniesie jakies ciekawe funkcje ma nietypowe rozwiazania itp. wyslij go do dzialu workshop dzieki temu wszyscy sie czegos nauczymy Sprawdz oczywiscie czy juz takiego ne ma
Pozdrowienia
Andrzej

[Post edytowany dnia 09-06-2004 00:24 przez andrey]


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

09-06-2004 00:23
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
Ania




Typ: neutral
Postów: 8
Zarejestrowany: Jun 2004

No i wykrakałeś Właśnie się zacięło: Procedure declaration does not match description event of procedure having the same name?????? Nie wiem co ztym zrobic. Na moje oko to wszystko jest w porządku. Tak się namotało jak chciałam dodać kod do przeskakiwania kursora Zaznacza się cała linijka: Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

[Post edytowany dnia 09-06-2004 23:43 przez Ania]

09-06-2004 23:26
Pokaż profil Ania  Wyślij email do Ania   
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Aniu postaram ci sie pomoc ale musisz mi powiedziec:
- Czy blad ci wyskakuje po uruchomieiu sampla do ktorego link ci podalem?
- Jezeli uzylas tylko kawalka kodu z sampla w swoim programie to nie bede ci w stanie pomoc jezeli nie zobacze twojego kodu musisz czesc z bledem zamiescic tutaj i dokladnie opisac co sie dzieje
Pozdrawiam
Andrzej


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

10-06-2004 00:14
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
Ania




Typ: neutral
Postów: 8
Zarejestrowany: Jun 2004

Przykład działa dobrze. Przekopiowałam praktycznie całośc kodu(bez label)zmianiłam wartości dobierając je do swojej formatki. Błąd ten wyskakuje zaraz po uruchomieniu i zaznacza się w/w linia.

Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
  On Error GoTo blad:
    pozycja = Text2(Index).SelStart
    If KeyCode = Prawo Then
    If pozycja = Len(Text2(Index).Text) Then Text2(Index + 1).SetFocus
ElseIf KeyCode = Lewo Then
  If pozycja = 0 Then Text2(Index).SetFocus
End If
blad:
  If Err.Number = 350 Then Resume Next
  End If
End Sub

Jak wyłączę tą część kody to się uruchamia, ale wtedy znowu wuskakuje błąd z UBound

Nie wiem co tam jest nie tak. Mam nadzieję, że coś poradzisz

10-06-2004 00:29
Pokaż profil Ania  Wyślij email do Ania   
Ania




Typ: neutral
Postów: 8
Zarejestrowany: Jun 2004

Dopiero teraz pomyślałam, żeby sprawdzić jeszcze ten kod od Ciebie. I DZIAŁA. Przepraszam
że zawracam głowe.Ale to forum  (i Ty w tym momencie)jest moim kołem ratunkowym

10-06-2004 00:41
Pokaż profil Ania  Wyślij email do Ania   
Ania




Typ: neutral
Postów: 8
Zarejestrowany: Jun 2004

I znów proszę o pomoc. Tym razem troszkę dłużej zajęło mi dotarcie do muru dla mnie nie do przebicia. Piszę program A'la formularz zamówień. Na pierwszej formatce się logujesz(albo ja dodaję nowego użytkownika). Na drugiej formatce jest juz formularz. Do pierwszego textbox wpisujesz nr produktu (czterocyfrowy). Kursor ładnie przeskakuje do drugiego textbox gdzie wpisujesz ilość itd pięć pozycji. Po kliknięciu opis w labelach z boku otrzymujesz opis wpisanych produktów, cenę za jeden i sumaryczną. Następnie zapisujesz Swoje zamówienie w pliku txt. I dalej się zaczyna PROBLEM: Po kliknięciu "zobacz", na liście powinny się wypisać zamawiane produkty, a wypisuje się tylko ten pierwszy. Jak zrobić, żeby jedno pod drugim wyświetlało się kilka pozycji??
Wpisałam tylko jedną, bo jak coś więcej próbuję to błedy są
Kopiuję część kodu :

Private Sub Command2_Click()
Open Form5.Text1 For Append As #3
Write #3, Label5.Caption, Text2.Text, Text3.Text
Close #3
Command3.Visible = True
End Sub

Private Sub Command3_Click()
List1.Visible = True
List1.Clear
Open Form5.Text1.Text For Input As #4
Do
Input #4, a$, b$, c$
xx = a$ + "      " + b$ + "      " + c$
List1.AddItem xx
Loop Until EOF(4)
Close #4
End Sub

Proszę o pomoc bardzo
Ps szukałam i szukałam i nic nie zrozumiałam. Mi trzeba tak bardziej łopatologicznie

[Post edytowany dnia 11-06-2004 21:53 przez Ania]

11-06-2004 21:35
Pokaż profil Ania  Wyślij email do Ania   
Ania




Typ: neutral
Postów: 8
Zarejestrowany: Jun 2004

No trudno, odpowiedzi się nie doczekałam, ale mój kobiecy upór każe radzic sobie samej. Wiec sobie poradziłam. Trochę prymitywnie ale zawsze. Dzieki za pomoc. Bez Ciebie Andrzej nie dałbym sobie rady. Do następnego projektu

13-06-2004 14:03
Pokaż profil Ania  Wyślij email do Ania   
Wszystkich odpowiedzi: 11 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1