Mitä täytyy lisätä, että täyttäis ton ympyrän sisuksen värillä?
Picture1.FillColor = RGB(255, 0, 0)
Picture1.Circle(100,100), 100, RGB(255, 0, 0)
En ole käyttänyt VB:tä, enkä sen grafiikkatoimintojakaan oikeastaan yhtään, mutta kokeilehan esim.
Picture1.Circle(100,100), 100, RGB(255, 0, 0), BF (muistaakseni tuo BF täytää kuvion värillä ainakin QB:ssä, joten se saattaa toimia VB:ssäkin)
Noinhan se pitäisi mennä. Uskoisin :).
Testaus VB:llä ei ainakaan BF toiminut QB:llä toimi kyllä.
Picture1.FillStyle = 0
Eikös BF tule sanoista Box Fill? Ja se toimii minun mielestäni ainoastaan Line-käskyssä, kun viivasta voi tehdä laatikon käyttämällä viivaa laatikon halkaisijana. Sen saa jos pistää B, ja jos sen haluaa täyttää, pistää BF. Eli se ei kaiken logiikan mukaan toimi Circle:ssä. Käytä Paint-käskyä, jos se toimii VB:ssä.
VB:ssä ei ole jostain syystä Paint-komentoa, mutta Blazen neuvo on oikea. Värin voi sitten määrittää FillColor-ominaisuudella. Ja jos alueen täyttö täytyy tehdä jälkeenpäin, niin WinApi-funktiolla ExtFloodFill se onnistuu.
Kumma tosiaan, että on kaikki Linet, Psetit ja Circlet ja Coloritkin, mutta ei Paintia. No, noinhan se kuitenkin toimii.
Microsoftin huonoa huumoria :D. Yrittänyt tehdä VB:stä hieman erilaisen kuin Qbasicista :).
Aihe on jo aika vanha, joten et voi enää vastata siihen.