Keskustelu: Ohjelmointikysymykset: VB6: luodinreikiä formille VB6

elikkä miten saisin mustan pisteen formille siihen paikkaan mihin klikkaa.

Piirrät mouseDown tapahtumassa. Koordinaatit tulevat parametrinä

niin eli..

if button = 1 then ' jos  painettiin hiiren vasenta nappia
   form1.pset X,Y , RGB(0,0,0) ' Piirretään formille musta piste
End if

ei toimi noin se toimii näin

Private Sub Form_Load()
    Me.DrawWidth = 8 'viivan paksuus 4
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift    Integer, X As Single, Y As Single)
if button = 1 then
PSet (X, Y)
end if
End Sub

No eipä noissa toteutuksissa ole juuri eroa. :) Kummatkin toimivat ihan hyvin. Tosin jos väriä ei ilmoita, se ei ole välttämättä musta, vaan sama kuin formin ForeColor.

Tosin se valittaa (luulisin) tossa tuomaksen koodissa ku ei ole sulkuja x:n ja y:n ympärillä, mutta eipä siinä mitään :)

Mainittakoon vielä, et kun värit ei ole mitään erikoisia muuttujatyyppejä niin ainaki ite käytän RGB(0, 0, 0) sijasta 0:aa. Sama asia.
Muille "perusväreille" on kivoja konstantteja tyyliin vbRed, vbGreen, vbBlue, vbMagenta ym. eli niitä ei tartte muistaa ulkoa ja kirjoittaa lyhyemmin noin. Selkeämpääki.