Om jag har ett textfält, txtTot, som skall uppdateras när ett annat textfält ändras, hur löser jag det?
Uppdatera textfält
5 svar · 237 visningar · startad av Rödalacket
Såhär
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
Text2 innehåller samma sak som Text1 och ändras när du skriver något i Text1.
/Viktor
Mmm, det är nog inte riktigt så jag hade tänkt mig...tror jag... :)
Det blir nog tvärt om som jag vill ha det.
Har 6 st textfält som skall summeras i totText.
Jag vill att totText skall kolla dessa textfält och om det blir någon förändring där så skall det ske en ny uträkning.
Här är koden för en lösning som du vill ha det
Private Sub txtTal_Change(Index As Integer)
Dim i As Integer
Dim tot As Integer
For i = 0 To 5
If IsNumeric(txtTal(i).Text) = True Then
tot = tot + txtTal(i).Text
End If
Next i
txtTot.Text = tot
End Sub
Jag har 6 st text boxar med samma namn, de blir altså en array, med index från 0 till 5. Jag har även en textbox som heter txtTot där total summan sparas.
/Viktor
Tack, skall kolla på det senare, nu är det pizza som hägrar :)