Centar za edukaciju-BiH



#1 31.03.2013 01:02
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Screen.ActiveControl.Name problem
Pokusavam napraviti numericku tastaturu na touch. To mi nije problem kada se radi samo o jednom texboxu na formi. Znaci kliknem na dugme 1 i upise se broj u textbox1, ali kako kada kliknem na isto dugme da se broj upise u textbox2 (koje dobije fokus poslije recimo entera ili sl)?

Na dva tri nacina sam pokusavala i ovaj primjer od Gjoreskog:
PreuzmiIzvorni kôd (Text):
  1. Private Sub Command6_Click()
  2. Select Case Screen.ActiveControl.Name
  3.  
  4.                  Case "myTextBox"
  5.                  
  6. If IsNull(Me.myTextBox.Value) Then
  7. Me.myTextBox.Value = 5
  8. Else
  9. txtVal = Me.myTextBox.Value
  10. newTxtVal = txtVal & 5
  11. Me.myTextBox.Value = newTxtVal
  12. End If
  13.                      
  14.                  Case "Text0"
  15.  
  16. If IsNull(Me.Text0.Value) Then
  17. Me.Text0.Value = 5
  18. Else
  19. txtVal = Me.Text0.Value
  20. newTxtVal = txtVal & 5
  21. Me.Text0.Value = newTxtVal
  22. End If
  23.                  Case Else
  24.                        MsgBox "Ovde nema funkcija"
  25.            End Select
  26. End Sub

Ako neko moze pomoci.
Zakacila sam primjer.

Prilozi:
Informacije o tipu datoteke za:rar  primjer.rar
Preuzimanja:352
Velicina datoteke:12.80 KB


Pozdrav, Amela
↑  ↓

#2 31.03.2013 14:11
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Re: Screen.ActiveControl.Name problem
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command6_Click()
  2. Dim ImePolja As String
  3. Dim Vrijednost
  4.  
  5. Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
  6. ImePolja = Screen.PreviousControl.Name
  7. Me(ImePolja) = Vrijednost
  8. End Sub

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 31.03.2013 16:34
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Screen.ActiveControl.Name problem
Ovo je odlicno kada je u pitanju samo jedan broj ali kad dodam jos brojeva javlja mi gresku.

PreuzmiIzvorni kôd (Text):
  1. Private Sub Command6_Click()
  2. Dim ImePolja As String
  3. Dim Vrijednost
  4.  
  5. Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
  6. ImePolja = Screen.PreviousControl.Name
  7. Me(ImePolja) = Me(ImePolja) & Vrijednost
  8. End Sub
  9.  
  10. Private Sub Command5_Click()
  11. Dim ImePolja As String
  12. Dim Vrijednost
  13.  
  14. Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
  15. ImePolja = Screen.PreviousControl.Name
  16. Me(ImePolja) = Me(ImePolja) & Vrijednost
  17. End Sub
  18.  
  19. ...

Pozdrav, Amela
↑  ↓

#4 31.03.2013 18:47
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Re: Screen.ActiveControl.Name problem
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command6_Click()
  2. Dim ImePolja As String
  3. Dim Vrijednost
  4.  
  5. Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
  6. ImePolja = Screen.PreviousControl.Name
  7. Me(ImePolja) = Me(ImePolja) & Vrijednost
  8. End Sub

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 01.04.2013 10:01
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Screen.ActiveControl.Name problem
Zxz, nisi me razumio sta sam htjela reci. Ovaj kod je potpuno isti kao i moj iz prethodnog posta.
Znaci trebam imati tastaturu sa brojevima od 1 do 9, enter i dva text boxa. Nekoliko brojeva trebam upisati u prvi text box pa enterom preci u drugi i tamo upisati isto nekoliko brojeva.

Hvala na pomoci.
Pozdrav, Amela
↑  ↓

#6 01.04.2013 11:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Re: Screen.ActiveControl.Name problem
evo primjer

Prilozi:
Informacije o tipu datoteke za:zip  BrojeviUpis.zip
Preuzimanja:351
Velicina datoteke:13.86 KB


Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 02.04.2013 18:06
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Screen.ActiveControl.Name problem
To je to. Hvala puno zxz.
Pozdrav, Amela
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 6: 56 am.