□投稿者/ ぴーよ (3回)-(2024/04/07(Sun) 12:17:58)
|
ありがとうございます。
こういうことでしょうか？
Dim hDC As IntPtr = g.GetHdc()
'Dim Pen As IntPtr = CreatePen(CType(ds, PenStyle), pWidth, ReversibleColor)
Dim oldROP As Integer = SetROP2(hDC, BinaryRasterOperations.R2_NOT)
' Dim oldROP As Integer = SetROP2(hDC, BinaryRasterOperations.R2_XORPEN)
' Dim oldROP As Integer = SetROP2(hDC, BinaryRasterOperations.R2_NOTXORPEN)
Dim oldPen As IntPtr = SelectObject(hDC, GetStockObject(StockObjects.BLACK_PEN))
Dim oldBrush As IntPtr = SelectObject(hDC, GetStockObject(StockObjects.BLACK_BRUSH))
SetBkColor(hDC, ReversibleBackColor)
MoveToEx(hDC, x1, y1, IntPtr.Zero)
LineTo(hDC, x2, y2)
SelectObject(hDC, oldPen)
SelectObject(hDC, oldBrush)
SetROP2(hDC, oldROP)
'DeleteObject(Pen)
g.ReleaseHdc(hDC)
Dim oldROP As Integer = SetROP2(hDC, BinaryRasterOperations.R2_NOT)
だとグレーのラインが描画されるのですが反転はされません。
また、ラインの太さが1ptになってしまいます。
Dim oldROP As Integer = SetROP2(hDC, BinaryRasterOperations.R2_XORPEN)
だと何もラインが描画されません。
Format32bppRgb
Format24bppRgb
Format32bppArgb
Format32bppPArgb
と試してみましたが、いずれも結果は変わりませんでした。
どのようにしたら良いでしょうか？
|
|
反転カラーの使い方
/ ぴーよ (24/04/06(Sat) 13:07) #103043 
上記ツリーを一括表示 / 上記ツリーをトピック表示
