Keskustelu: Ohjelmointikysymykset: VB6: VB, liikuttaminen loopista

Miten saa vaikkapa subin, piirra, loopista seurattua, onko näppäintä painettu?

Eli:

Sub piirra()
Dim x As Integer
Do
x = x + 1
If   nappainPainettu?   then

      ...

End If

...

Loop Until x = 10
End Sub

Seuraa näppäimistöä tavalliseen tapaan KeyDown- ja KeyUp-aliohjelmissa, ja tallenna painetut näppäimet globaaliin taulukkoon. Tästä taulukosta voi mikä tahansa ohjelman osa selvittää jokaisen näppäimen tilan. Lähetin tästä aiheesta joskus kauan sitten koodivinkin: https://www.ohjelmointiputka.net/koodivinkit/23436-vb6-näppäimistökäsittelijä

Taitaapi olla liian hidas. Onko olemassa jotain nopeampaa?

Äläs poeka puhu paskkoo, ei ole hidas.

No ei ole hidas ei. Varmaan nopein tapa.

Nyt sain toimimaan "hieman" nopeammin. =)

No näytäppäs muillekkin ratkaisusi.

Piirtokäskyt jokaisen if-lauseen jälkeen, eikä köntässä.