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):Private Sub Command6_Click()
Select Case Screen.ActiveControl.Name
Case "myTextBox"
If IsNull(Me.myTextBox.Value) Then
Me.myTextBox.Value = 5
Else
txtVal = Me.myTextBox.Value
newTxtVal = txtVal & 5
Me.myTextBox.Value = newTxtVal
End If
Case "Text0"
If IsNull(Me.Text0.Value) Then
Me.Text0.Value = 5
Else
txtVal = Me.Text0.Value
newTxtVal = txtVal & 5
Me.Text0.Value = newTxtVal
End If
Case Else
MsgBox "Ovde nema funkcija"
End Select
End Sub
Ako neko moze pomoci.
Zakacila sam primjer.
Prilozi:
primjer.rar
Preuzimanja:352
Velicina datoteke:12.80 KB
Pozdrav, Amela