Amelasar 31.03.2013 02:02
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:
primjer.rar (Velicina datoteke:12.80 KB)

zxz 31.03.2013 15:11
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

Amelasar 31.03.2013 17:34
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. ...

zxz 31.03.2013 19:47
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

Amelasar 01.04.2013 11:01
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.

zxz 01.04.2013 12:03
Predmet:Re: Screen.ActiveControl.Name problem

evo primjer
Prilozi:
BrojeviUpis.zip (Velicina datoteke:13.86 KB)

Amelasar 02.04.2013 19:06
Predmet:Re: Screen.ActiveControl.Name problem

To je to. Hvala puno zxz.