XOR. Неужели нет решения для такой банальной задачи!!!

[val]

Да... Пришлось порыться...
VB.NET не поддерживает XOR pen так как это было в VB6.

Можешь использовать
ControlPaint.DrawReversibleFrame или ControlPaint.DrawReversibleLine

пример дал Nick Bober в теме чем заменили XOR Pen?

а вот пример от Microsoft:
[url]
http://msdn.microsoft.com/library/defau ... eTopic.asp[/url][/quote]

[Sebas]

Теоретически, можно унаследоваться от Pen или Brush...

[NicSoft]

В MSDN свойству DrawMode из VB6 ставится в эквивалент Pen.Color Property из .Net
Интересно, как именно его следует использовать?

[NicSoft]

В своей программе я решил эту проблему так:
Создаю 2 Bitmap-а, на одном рисую основную графику, на втором то что двигается (у него прозрачный фон). В событии Paint вывожу их по очереди. При движении мыши второй Bitmap перерисовывается, и вызывается Paint.
В моем случае это работает не медленнее XorPen в VB6. И код проще.

[Viper]

А можно на примерчик взглянуть?

Присоединяюсь!!! Очень хота взглянуть!

[NicSoft]

Постараюсь вырезать из программы нужные места.

Создаем bitmap-ы, и на их основе создаем Graphics-ы:

Код: Выделить всё

bm = New Bitmap(PictureBox1.ClientRectangle.Size.Width, PictureBox1.ClientRectangle.Size.Height)   
G = Graphics.FromImage(bm)
bm2 = New Bitmap(PictureBox1.ClientRectangle.Size.Width, PictureBox1.ClientRectangle.Size.Height)
bm2.MakeTransparent(Color.White)
G2 = Graphics.FromImage(bm)

.... Рисуем в G

Рисуем в G2:

Код: Выделить всё

G2.Clear(Color.Transparent)
.....
PictureBox1.Refresh()

Вывод графики на экран:

Код: Выделить всё

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawImage(bm, 0, 0)
e.Graphics.DrawImage(bm2, 0, 0)
End Sub