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):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 (Velicina datoteke:12.80 KB)
|
zxz |
31.03.2013 15:11 |
Predmet:Re: Screen.ActiveControl.Name problem
PreuzmiIzvorni kôd (Visual Basic):Private Sub Command6_Click()
Dim ImePolja As String
Dim Vrijednost
Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
ImePolja = Screen.PreviousControl.Name
Me(ImePolja) = Vrijednost
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):Private Sub Command6_Click()
Dim ImePolja As String
Dim Vrijednost
Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
ImePolja = Screen.PreviousControl.Name
Me(ImePolja) = Me(ImePolja) & Vrijednost
End Sub
Private Sub Command5_Click()
Dim ImePolja As String
Dim Vrijednost
Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
ImePolja = Screen.PreviousControl.Name
Me(ImePolja) = Me(ImePolja) & Vrijednost
End Sub
...
|
zxz |
31.03.2013 19:47 |
Predmet:Re: Screen.ActiveControl.Name problem
PreuzmiIzvorni kôd (Visual Basic):Private Sub Command6_Click()
Dim ImePolja As String
Dim Vrijednost
Vrijednost = Mid(Screen.ActiveControl.Caption, 2)
ImePolja = Screen.PreviousControl.Name
Me(ImePolja) = Me(ImePolja) & Vrijednost
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. |