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 x
Siis 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.