Keskustelu: Koodit: VB6: Piirto-ohjelman alku

Yksinkertainen esimerkki piirto-ohjelman pohjaksi. Piirtotarkkuus on tosin Paintin tasoa.

Private Sub Form_Load()
    DrawWidth = 2
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static vx As Integer, vy As Integer
    If Button = 1 Then
        If vx = 0 Then vx = X
        If vy = 0 Then vx = Y
        Line (X, Y)-(vx, vy)
    End If
    vx = X
    vy = Y
End Sub

Aika vaikeesti oot ton kyllä koodannu. Ton sais helpomminkin aikaseksi, mutta en viitti tähän sitä kirjottaa. Ehkäpä mä kirjotan siitä tekstin ite.

Paintissa on tarkkuus paremipi... katos zoomi....

Miten tässä koodissa vois muokata ominaisuutta DrawWidth???

Kerro vielä, miten väriä saa vaihdettua.

Tietäisi vain, minne koodin laittaa, niin saattaisi toimia. Edit code osassa koko homma ei toimi

Kysyisin vielä, että toimiiko tämä koodi Visual Basic 3 ohjelmalla.

"Paintissa on tarkkuus paremipi... katos zoomi...."
- Pälli.

Värin saa vaihdettua kas näin:
Line (X, Y)-(vx, vy), vbRed
värejä ovat esim.
vbBlack, vbRed, vbGreen
Voit käyttää myös tälläistä tapaa:
Line (X, Y)-(vx, vy), qbColor(4)
värit ovat samat kuin QB:ssä
0 = musta , 4 = punainen, 5 = vihreä

ite ohjelmoin QB:llä ja toi koodi on QB:hen verrattuna aika lyhyt jos toi toisiaan on piirto-ohjelman alku.

Mulla ainakin väittää tuota "Button" sanaa virheelliseksi.

Tohon AutoRedraw = True niin ei lähe pois kuva jos tulee joku ikkuna päälle

Jees, tästä sai vähän lisäoppia kun aloitin juuri muutama päivä sitten VB:n harjoittelun. Harjoituksena lisäsin siihen systeemin millä saa viivan paksuutta muutettua kun ohjelma on päällä:

Dim Viiva As Integer

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Viiva = Text1
    DrawWidth = Viiva
    Static vx As Integer, vy As Integer
    If Button = 1 Then
        If vx = 0 Then vx = X
        If vy = 0 Then vx = Y
        Line (X, Y)-(vx, vy)
    End If
    vx = X
    vy = Y
End Sub