webForumDet fria alternativet

Uppdatera textfält

5 svar · 237 visningar · startad av Rödalacket

RödalacketMedlem sedan feb. 20002 612 inlägg
#1

Om jag har ett textfält, txtTot, som skall uppdateras när ett annat textfält ändras, hur löser jag det?

ViktorMedlem sedan aug. 20021 752 inlägg
#2

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

RödalacketMedlem sedan feb. 20002 612 inlägg
#3

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.

ViktorMedlem sedan aug. 20021 752 inlägg
#4

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

RödalacketMedlem sedan feb. 20002 612 inlägg
#5

Tack, skall kolla på det senare, nu är det pizza som hägrar :)

ViktorMedlem sedan aug. 20021 752 inlägg
#6

och vad får jag? Inget som vanligt :l
Hoppas det smakar :birp

/Viktor

131 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)