Mikähän mahtaa olla vikana kun tuolla alla olevalla koodilla ei text1.text muutu x:n mukana?
Kun silmukasta poistutaan niin text1.text:n arvoksi tulee: Siirretään siirrettavatlkm. Missä mättää????
For x = 1 To siirrettavatlkm
Text1.Text = "Siirretään " & x
' siirto olion luonti
Set HttpReq = New WinHttpRequest
vastaus = ""
' yhteyden avaus
HttpReq.Open "POST", siirettävät asiat
' HTTP pyyntö
HttpReq.Send
' HTTP vastaus
vastaus = HttpReq.ResponseText
HttpReq.Open "POST", siirrettävät asiat
HttpReq.Send
vastaus = HttpReq.ResponseText
Next xSiis jos tuolla siirrettavatlkm:llä tarkoitat numeerista vakiota niin tuohan toimii aivan oikein?
No kun ei toimi. Mun mielestä sen pitäisi kirjoittaa boxiin aina siirrettävän numero. Nyt se muuttaa boxin arvon vasta viimeisellä kerralla eli jos siirrettavatlkm = 7 niin text1.text = "Siirretään 7". Jostain syystä arvo ei vaihdu silmukan suorituksen aikana.
Pistä
DoEvents
tuon
Text1.Text = "Siirretään " & x
rivin jälkeen. Tällöin se viestittää windowsille, että on olemassa muutakin tekemistä kuin vain tuon loopin vääntäminen. Toisin sanoen päivittää muunmuassa formin objectit jne.
Kiitos! Pienestäpä oli kiinni..
Aihe on jo aika vanha, joten et voi enää vastata siihen.