Keskustelu: Ohjelmointikysymykset: VB6: Fill -efekti(?)

Puhveli [06.04.2004 16:39:29]

Tuli koodatessa kiinnostava pulma eteen: Miten voi täyttää jonkun kuvion (monikulmion, ei vain suorakaiteita) silleen että subille antaa vaan alotuskoordinaatit ja se tekee työn nopeasti? Jos jollakulla sattuis olemaan kokemusta tästä...

setä [06.04.2004 16:58:31]

Tästä varmaan on apua:
https://www.ohjelmointiputka.net/keskustelu/4445-textbox-ja-diagrammi

petrinm [06.04.2004 17:08:35]

Eli noin saa tehtyä Paint komennon

Private Declare Function ExtFloodFill Lib "Gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long

Function Paint(x As Integer, y As Integer, Color As Long)
    ExtFloodFill Picture1.hdc, x, y, color, 1
End Function

Meitzi [09.04.2004 18:59:25]

Tosin eihän fillaus vaikeea olisi tehdä itsekkään

Sub Tayta(ByVal Mika As Object, ByVal X As Integer, ByVal Y As Integer, ByVal Vari As ColorConstants)
    Dim NykyinenVari As ColorConstants
    NykyinenVari = Mika.Point(X, Y)

    Mika.PSet (X, Y), Vari

    If Mika.Point(X, Y - 1) = NykyinenVari Then Tayta Mika, X, Y - 1, Vari
    If Mika.Point(X, Y + 1) = NykyinenVari Then Tayta Mika, X, Y + 1, Vari
    If Mika.Point(X - 1, Y) = NykyinenVari Then Tayta Mika, X - 1, Y, Vari
    If Mika.Point(X + 1, Y) = NykyinenVari Then Tayta Mika, X + 1, Y, Vari
End Sub

(grr. tästä kohti jäi kirjaimia pois vaikka oli enteri)VB6:n vain kaatuu alta aikayksikön out of stackiin.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen