Private Sub ####_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles ####.Paint
e.Graphics.Restore(GraphicsState)
Dim g As Graphics = Me.CreateGraphics
Dim State As System.Drawing.Drawing2D.GraphicsState = g.Save
g.Restore(State)
Если ты вдумаешься в эту фразу, то вопросы отпадут.Чтобы не осталось ничего? .Clear(Color.Transparent)
MIT писал(а):Ничего он и не чистит, а тупо закрашивает... (или я чего то не понимаю)[/size]?
MIT писал(а):Как выкинуть закрашенный объект graphics'а и подсунутьму новый и ЧИСТЫЙ?
g = graphics.fromimage(b)
MIT писал(а):graphics'а контрола
Color.FromArgb(0,AnyColor) ?так как очистить image у graphics'а контрола?
Public Class Form1
Dim B As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundImage = Image.FromFile("AnyImageFile.png")
Panel1.BackColor = Color.Transparent
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
B = Not B
Panel1.Invalidate()
End Sub
Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
Dim SBr As SolidBrush
If B Then
SBr = New SolidBrush(Color.FromArgb(120, Color.Blue))
Else
SBr = New SolidBrush(Color.FromArgb(120, Color.Red))
End If
e.Graphics.FillRectangle(SBr, New Rectangle(20, 20, 50, 50))
End Sub
End Class
Nord777 писал(а):MIT мне до сих пор не понятны твои намерения
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5