Disegnare un punto con Paint

[Top Fuel]

Ho notato che nella classe Paint non c'è nessun metobo per poter disegnare un singolo punto. C'è la maniera di farlo senza invocare Draw.Point?

[vuott]

Sono riuscito a fare così:   

Codice: gambas [Seleziona]

Public Sub Form_Open()

   DrawingArea1.Background = Color.White

End


Public Sub DrawingArea1_Draw()

  With Paint
    .FillRect(100, 100, 1, 1, Color.Black)
    .End
  End With

End

[Top Fuel]

Anche io avevo provato una cosa similare, facendo:

Paint. Rectangle(100, 100, 1, 1)

Ma non disegnava nulla. Usando una dimensione 2x2 disegnava, ma era troppo grosso.

[vuott]

Ma non disegnava nulla.

Usando quell'altro Metodo, devi semplicemente aggiungere il Metodo "Paint.Fill( )":

Codice: [Seleziona]

Public Sub DrawingArea1_Draw()

  With Paint
    .Rectangle(100, 100, 1, 1)
    .Fill()
    .End
  End With

End

e se vuoi un punto colorato, devi far precedere il tutto dalla Proprietà statica "Paint.Brush":

Codice: [Seleziona]

Public Sub DrawingArea1_Draw()

  With Paint
    .Brush = .Color(Color.Red)
    .Rectangle(100, 100, 1, 1)
    .Fill()
    .End
  End With

End