Keskustelu: Ohjelmointikysymykset: [VB6] Kun näppäin on painettu?

Eli jos a näppäin on painettu sen pitäisi tehdä jonkun asian.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyA Then
        MsgBox "Painoit A nappulaa!";
    End If
End Sub

Lisää näppäinkoodeja täällä.

Ei toimi :(

Kokeile laittaa vielä formin KeyPreview-ominaisuuden arvoksi True.

Joo nyt toimii. Toinen ongelma on miten saan kuvasta läpinäkyvän?

En tiedä VB:stä enempää kuin Kiinastakaan, mutta käytin hakua, sovelsin ja postasin.

Nytkin voi käyttää hakua: https://www.ohjelmointiputka.net/keskustelu/haku.php?sana=l%E4pin%E4kyv%E4&jasen=&suunta=2&paiva=1&kuukausi=1&vuosi=2002&a5=on

alker kirjoitti:

Toinen ongelma on miten saan kuvasta läpinäkyvän?

Kerro vähän tarkemmin, mitä haluat tehdä.

Kokeilin seuraavaa MIB:n koodia, toimii mutta mikä on tuo puolipiste, ota se pois!

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyA Then
        MsgBox "Painoit A nappulaa!";
    End If
End Sub

Toimii hyvinkin kiitos Antti Laaksosen. Osasin ottaa puolipisteen itsekkin pois.
Mut ny on toinen ongelma. Miten saisin tietää monta riviä jossain tiedostossa on.
Että voin lukea ne läpi
Ja toinen on mikä ominaisuus on se mikä on listboksissa oleva teksti.

alker kirjoitti:

Miten saisin tietää monta riviä jossain tiedostossa on.

Seuraava koodi näyttää jokaisen tiedoston rivin ja lopuksi rivien määrän:

Dim rivi As String
Dim maara As Integer
Open "c:\omat\tiedosto.txt" For Input As #1
Do Until EOF(1)
    Line Input #1, rivi
    MsgBox rivi
    maara = maara + 1
Loop
Close #1
MsgBox "Yhteensä " & maara & " riviä"

Tässä funkio EOF ("end of file") kertoo, onko tiedosto luettu kokonaan. Ainoa tapa selvittää tiedoston rivien määrä on lukea kaikki sen rivit, koska tiedostosta ei näe päältä päin, kuinka monta riviä siinä on.

alker kirjoitti:

Ja toinen on mikä ominaisuus on se mikä on listboksissa oleva teksti.

Olisiko ominaisuus Text oikea?

MsgBox "Valittu rivi: " & List1.Text

Nyt olisi ongelma sellainen että miten voisi lukea jotain tiedostoa joka olisi netissä? ONGELMA RATKAISTU!

EI TOIMINUTKAAN! Eli tarvisin sellaista koodia millä voisi katsoa netissä olevia filuja. Tiedoston haku netistä Winsockilla (Visual Basic) ei toiminut. Alkoi vain lagittamaan. Eli kertokaa miten onnistuisi!

Oletko kokeillut tätä koodivinkkiä?

https://www.ohjelmointiputka.net/koodivinkit/23779-vb6-tiedoston-lataaminen-netistä

Antti Laaksonen kirjoitti:

Oletko kokeillut tätä koodivinkkiä?

https://www.ohjelmointiputka.net/koodivinkit/23779-vb6-tiedoston-lataaminen-netistä

En ole mutta pienellä lisäyksellä tuosta saisi todella hyvän

Edit:OHO! KÄYTÄNNÖSSÄ TUO EI OLLUTKAAN HYVÄ RATKAISU

Sama ongelma vieläkin!