Prikazi cijelu temu 31.03.2013 02:02
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


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
Preuzimanja:352
Velicina datoteke:12.80 KB

Pozdrav, Amela