vb.net绘图异或笔 vb编写画图程序 _窗体

VB 各个窗口属性对应的中文术语这是我出现 VB 时的资料，供参考：
==================form的属性=================
▲ActiveControl活动控件（只读）无论窗体是否是活动的
？如果在窗体上的所有控件都是不可见的或不可使用的，那么将产生一个运行时错误。
▲Appearance绘图风格（只读）0平面， 1（缺省值）3D
▲AutoRedraw自动重绘tf
-------------------------------------------------
▲BackColor背景颜色当BackStyle 属性的设置值为 0（透明）时有效
▲ForeColor前景颜色
▲BorderStyle边框样式，对 Form 对象和 Textbox 控件在运行时是只读的。
0vbBSNone无（没有边框或与边框相关的元素）。
1vbFixedSingle固定单边框。可以包含控制菜单框，标题栏， "最大化"按钮，和"最小化"按钮。
？只有使用最大化和最小化按钮才能改变大小。
2vbSizable可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。（缺?。?
3vbFixedDouble固定。可以包含控制菜单框和标题栏，不能包含最大化和最小化按钮，不能改变尺寸
4vbFixedToolWindow固定。显示关闭按钮并用缩小的字体显示标题栏。任务条中不显示。
5vbSizableToolWindow 可变大小。显示关闭按钮并用缩小的字体显示标题栏。任务条中不显示。
？将 BorderStyle 设置为0就会删除边框。如果希望窗体有边框而没有标题栏、控制菜单框、最大
化按钮和最小化按钮，则应从窗体 Caption 属性中删除任何文本，同时将窗体的 ControlBox、
MaxButton 和 MinButton 属性设置为 False 。
▲MaxButton 是否有"最大化"按钮（BorderStyle 属性非0值有效）
▲MinButton是否有"最小化"按钮。（BorderStyle 属性非0值有效）
▲ControlBox控制菜单框是（T缺省值）否在窗体中显示。在运行时为只读。
▲ShowInTaskbar 决定一个 Form 对象是否出现在 Windows 95 任务栏中。运行时为只读状态。
▲WindowState运行时窗体窗口的可视状态0（缺省值）正常。1最小化。2最大化
-------------------------------------------------
▲FillColor填充颜色当 FillStyle 设置为 1（透明）时有效，但是 Form 对象除外。
▲FillStyle填充模式
0实线。1（缺省值）透明。2水平直线。3垂直直线。4上斜对角线。
5下斜对角线。6十字线。7交叉对角线
▲DrawWidth 画线宽度从 1 到 32,767 。该值以像素为单位
▲DrawStyle 画线样式
0（缺?。┦迪? ，1虚线， 2点线，3点划线，4双点划线，5无线，6内收实线
▲DrawMode绘图方式
1黑色。2非或笔（与15相反）。3与非笔。4非复制笔（与13相反）。5与笔非。6反转
7异或笔。8非与笔（与9相反）。9与笔。10非异或笔（与7相反）。11无操作(关闭画图)
12或非笔。13复制笔（缺省值 , 由 ForeColor 属性指定的颜色）。
14或笔非。15或笔。16白色。
-------------------------------------------------
▲Caption
▲ClipControls 是重绘整个对象T（缺省值），还是只绘刚刚露出的区域F 。
-------------------------------------------------
▲Count返回集合中对象的数目。
▲Control对象所有内部控件的类名
Dim C as Control
Set C = Command1
▲Controls(index)集合窗体上的每一个控件的集合，其中包括控件数组中的元素
？具有两种表示法：MyForm.Controls(6).Top 与MyForm(6).Top相同
▲Item(index)方法位置或键返回集合中的一个成员
-------------------------------------------------
▲CurrentX [= x ]
▲CurrentY [= y ]
▲Enabled是否能够对用户产生的事件作出反应。
▲FontTransparent[= boolean] 背景文本和图形是否显示在字符周围的空区。
-------------------------------------------------
▲Font返回一个 Font 对象。
？Font对象除具有以下6个类似属性外，还具有Weight属性
Weight属性字符的权重，正常和斜体设置值的Weight 值是 400（缺省值），
粗体和斜粗体设置值的 Weight 值是 700
Dim X As New StdFont
X.Bold = True
X.Name = "Arial"
Set Text1.Font = X
▲FontName字体名
▲FontSize字体大小 1-2048
▲FontBold粗体否
▲FontItalic斜体否
▲FontStrikethru 删除线否
▲FontUnderline下划线否
？在设置大小和样式属性前，要先改变 FontName 属性。在设置的 TrueType 字体小于 8 磅时，
要用 FontSize 属性设置字体大小，再设置 FontName 属性，
然后用 FontSize 属性再一次设置字体大小。
-------------------------------------------------
▲Icon窗体处于最小化时显示的图标。
▲hWnd返回窗体或控件的句柄。
▲hDC返回一个句柄，该句柄是由 Windows 运行环境提供给一个对象的设备描述体。
？AutoRedraw 属性能引起 hDC 属性改变。如果窗体或窗体 PictureBox 容器的 AutoRedraw
属性设置为 True，hDC 将作为持久图形的设备关联句柄（等价于 Image 属性）。当
AutoRedraw 属性为 False 时，hDC 属性是窗体窗口或 PictureBox 容器的真正的 hDC 值。
程序运行中，不论 AutoRedraw 设置为何值，hDC 属性都可以改变。
▲Image返回持久图形的句柄，该句柄由 Windows 运行环境提供。不受 AutoRedraw 属性设置值的影响
Picture2.Picture = Picture1.Image'拷贝显示在Picture2中的所有图像到 Picture2
Picture2.Picture = Picture1.Picture'拷贝Picture2的Picture 属性到 Picture2
-------------------------------------------------
▲Height、Width外部高度和宽度，包括边框和标题栏。
▲Left、Top左上角坐标
▲HelpContextID返回或设置一个相关联上下文的编号
▲KeyPreview是否在控件的键盘事件之前激活窗体的键盘事件KeyDown、KeyUp 和 KeyPress
▲MDIChild是否是 MDI 子窗体（可在另一个 MDI 窗体内部显示）
？所有 MDI 子窗体都有可调整大小的边框，控制菜单框，以及最小化和最大化按钮，而不管
BorderStyle、ControlBox、MinButton 和 MaxButton 属性的设置值如何。
-------------------------------------------------
▲MouseIcon自定义的鼠标图标。（MousePointer 属性设为 99 时使用）
▲MousePointer鼠标指针
▲Moveable是否可移动。
▲NegotiateMenus窗体是否把其上对象的菜单合并到窗体菜单栏上。运行时无效。
-------------------------------------------------
▲Palette = path返回或设置一幅图象，该图象包含了用于控件的调色板。
▲PaletteMode回或设置一个值，该值决定了哪个调色板将用于对象上的控件。
0（缺省的）使用 Halftone 调色板。
1使用来自于含有调色板的最高层控件的调色板。
2使用 Palette 属性中指定的调色板。
3对于支持环境 Palette 属性的容器使用容器调色板。只适用于 UserControls 。
4不使用任何调色板。只适用于 UserControls 。
5使用 ActiveX 设计器的调色板。（只适用于包含调色板的 ActiveX 设计器。）
▲ScaleMode坐标的度量单位类型
vbUser0指出 ScaleHeight、ScaleWidth、ScaleLeft 和 ScaleTop 属性中的
一个或多个被设置为自定义的值。
VbTwips1缇（1英寸= 1440 缇；1厘米= 567 缇）（缺省值）
VbPoints2磅（1英寸= 72 磅）。
VbPixels3像素（监视器或打印机分辨率的最小单位）。
vbCharacters4字符（水平每个单位=120 缇；垂直每个单位=240 缇）
VbInches5英寸。
VbMillimeters6毫米。
VbCentimeters7厘米。
▲ScaleWidth、ScaleHeight水平或垂直度量单位（将对象平分为n个自定义单位）
▲ScaleLeft 、ScaleTop水平或垂直坐标
-------------------------------------------------
▲StartUpObject返回或设置工程的启动部件。0 启动对象是 Sub Main 。1没有启动对象。
▲StartUpPosition对象首次出现时的位置
0没有指定初始设置值。1 Form中央。2 屏幕中央。3 屏幕的左上角。
▲Tag
▲WhatsThisButton是否出现"这是什么"按钮
▲WhatsThisHelp是否使用由 Windows 95 Help 提供的"这是什么"弹出式窗口或主 Help 窗口
▲Visible返回或设置一指示对象为可见或隐藏的值
==================form的方法=================
▲Circle[Step] (x, y),radius,[color, start, end, aspect ]
圆心坐标,半径,轮廓颜色,起点, 终点,纵横比
？此方法在对象上(逆时针方向)画圆、椭圆或弧
color 省略则使用 ForeColor 属性值
start 为负，画一半径到 start，并将角度处理为正的；
end为负，画一半径到 end ，并将角度处理为正的。
aspect缺省值为 1.0，它在如何屏幕上都产生一个标准圆
？线段的粗细取决于 DrawWidth 属性值
可以省略某个参数，但不能省略分隔参数的逗号
Circle 执行时，CurrentX 和 CurrentY 属性被参数设置为中心点。
这个方法不能用在 With 语句块中。
-------------------------------------------------
▲Cls清除运行时 Form 或 PictureBox 所生成的图形和文本
调用 Cls 之后，object 的 CurrentX 和 CurrentY 属性复位为 0 。
-------------------------------------------------
▲Hide用以隐藏 MDIForm 或 Form 对象，但不能使其卸载。
▲Show [style][,ownerform]用以显示 MDIForm 或 Form 对象，不支持命名参数。
style的设置：
0无模式窗体随后遇到的代码则要执行
1模式窗体其后的代码直到该窗体被隐藏或卸载时才能执行(暂停其他窗体的代码)
？调用Hide和Show方法时如果指定的窗体没有装载，将自动装载该窗体。
▲Load object把窗体或控件加载到内存中
▲Unload object从内存中卸载窗体或控件
？只有在运行时添加到窗体上的控件数组元素才能用 Unload 语句卸载
在卸载窗体前，会发生 Query_Unload 事件过程，然后是 Form_Unload 事件过程。
在其中任一过程中设置 cancel 参数为 True 可防止窗体被卸载。
-------------------------------------------------
▲Line [Step] (x1, y1) [Step] (x2, y2), [color], [B][F]在对象上画直线和矩形
起点坐标终点坐标颜色矩形实心
？F省略时，则矩形用当前的 FillColor 和 FillStyle 填充
线的宽度取决于 DrawWidth 属性值。执行 Line 方法时， CurrentX 和 CurrentY
属性被参数设置为终点。这个方法不能用于With 语句块。
-------------------------------------------------
▲Move left[,top,width,height]
▲OLEDrag 引起部件初始化 OLE 拖放操作
？当调用 OLEDrag 方法时，部件的 OLEStartDrag 事件发生，允许向目标部件提供数据。
-------------------------------------------------
▲PaintPicture picture, x1, y1, width1, height1,x2, y2, width2, height2, opcode
图形源, 放置坐标,放置大小,裁剪坐标,裁剪大小,位操作
？此方法绘制图形文件的部分内容，图形文件指.bmp, .wmf, .emf, .ico或 .dib，
通过使用负的目标 height1 或width1 ，可以水平或垂直翻转位图。
位操作符常数的完整列表，请参阅 VB Help 文件中的 RasterOp Constants 主题。
-------------------------------------------------
▲Point(x, y)返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色
-------------------------------------------------
▲PopupMenu menuname, flags,x, y,boldcommand显示弹出式菜单
菜单名, 位置和行为,坐标,黑体菜单项
x,y 如果该参数省略，则使用鼠标的坐标。
调用 PopupMenu 方法后面的代码直到用户取消该菜单，或者从菜单中选择了命令
（这时，该命令的 Click 事件的代码比 PopupMenu 语句后面的代码先执行）后才执行
flag 的位置设置|flag 的行为设置
0（缺省值）弹出式菜单的左边定位于 x|0（缺省值）仅响应鼠标左击
4弹出式菜单的于 x 居中位|2左击、右击均响应
8弹出式菜单的右边定位于 x|
-------------------------------------------------
▲PrintForm将 Form 对象的图象逐位发送给打印机。
？如果 AutoRedraw 属性为 True，则在运行时PrintForm 将打印 Form
对象或 PictureBox 控件上的图形。
▲PSet [Step] (x, y), [color] 将对象上的点设置为指定颜色。
所画点的尺寸取决于 DrawWidth 属性值,不能用在 With 语句块中
-------------------------------------------------
▲Refresh强制全部重绘一个窗体或控件
？在下列情况下使用 Refresh 方法：
1在另一个窗体被加载时显示一个窗体的全部。
2更新诸如 FileListBox 控件之类的文件系统列表框的内容。
3更新 Data 控件的数据结构。
？不能用于 MDI 窗体，但能用于 MDI 子窗体。不能在 Menu 或 Timer 控件上使用 Refresh 方法。
-------------------------------------------------
▲Scale(x1, y1) - (x2, y2)用以定义 Form，PictureBox 或 Printer 的坐标系统。
左上角坐标 -右下角坐标
？如果使用不带参数的 Scale（两组坐标都省略），坐标系统将重置为缇。
▲ScaleX (width, fromscale, toscale)
ScaleY (height,fromscale, toscale)
从系统到系统
？将宽度或高度值从一种 ScaleMode 属性的度量单位转换到另一种。
用于 fromscale 和 toscale 设置有：
vbUser0用户定义
vbTwips1缇（每逻辑英寸 1440 缇；每逻辑厘米 567 缇）。
vbPoints2磅（每逻辑英寸 72 点）。
vbPixels3像素（显示器或打印机分辨率的最小单位）。
vbCharacters4字符（水平 = 每单位 120 缇，垂直 = 每单位 240 缇）
vbInches5英寸
vbMillimeters6毫米
vbCentimeters7厘米
vbHimetric8HiMetric 。如果省略 fromscale，则 HiMetric 为缺省值
vbContainerPosition9决定控件位置。
vbContainerSize10决定控件大小。
-------------------------------------------------
▲SetFocus将焦点移至指定的控件或窗体。
？所以如果不是在 Load 事件过程完成之前首先使用 Show 方法显示窗体的话，是不能使用
SetFocus方法将焦点移至正在自己的 Load 事件中加载的窗体的。也不能把焦点移到
Enabled 属性被设置为 False 的窗体或控件。
-------------------------------------------------
▲TextHeight(string) 返回 Form，PictureBox 或 Printer 的当前字体的文本字符串的高度。
？返回值包括文本上下的正常前导空间,如果 string 含有
嵌入的回车返回符，将返回各行的累加高度
▲TextWidth(string)文本字符串的宽度
如果 string 含有嵌入的回车返回符，将返回最长行的宽度。
-------------------------------------------------
▲WhatsThisMode使鼠标指针改变为"这是什么"指针
？把应用程序放置在如同在标题栏中单击"这是什么"按钮时所得的相同状态。
鼠标指针要改变为"这是什么"指针。当用户单击一个对象时，被击中的对象的
WhatsThisHelpID 属性用以调用上下文敏感的 Help 。
-------------------------------------------------
▲ZOrder position将指定的 MDIForm，Form 或控件放置在其图层的z-顺序的前端或后端
如果 position 为 0 或被省略，则 object 定位在Z-顺序前面。
如果 position 为 1 ，则 object 定位在Z-顺序后面。
==================form的事件=================
▲Activate( )事件活动窗口
▲Deactivate( )事件不再是活动窗口时
？仅当焦点在一个应用程序内移动时才发生。一个对象可以通过诸如单击它，或使用代码中的
Show 或 SetFocus，或将窗体的 Visible 属性设置为 True方法之类的用户操作而变成活动的。
Activate 事件在 GotFocus 事件之前发生，LostFocus 事件在 Deactivate 事件之前发生。
-------------------------------------------------
▲Click( )单击事件
▲DblClick ( ) 双击事件
▲MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
▲MouseUp(button As Integer, shift As Integer, x As Single, y As Single)
▲MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
button 值：左按钮(1 vbLeftButton)，右按钮(2 vbRightButton)，中间(4 vbMiddleButton)
shift值：SHIFT (1 vbShiftMask )，CTRL键(2 vbCtrlMask)，ALT (4 vbCtrlMask)
？位屏蔽的用法：
a = (Button And vbLeftButton)0
b = (Shift And vbCtrlMask)0
If a And b Then
？接收 Mouse 事件的对象，事件按这样的次序发生MouseDown, MouseUp, Click, DblClick
和 MouseUp 。如果在 Click 事件中有代码，则 DlbClick 事件将永远不会被触发
△Click事件发生在：
1用鼠标的左键或右键单击一个控件。对 CheckBox, CommandButton, Listbox 或 OptionButton
控件来说，Click 事件仅当单击鼠标左键时发生。
2通过按下箭头键或者单击鼠标按钮，对 ComboBox 或 ListBox 控件中的项目进行选择。
3当 CommandButton,OptionButton 或 CheckBox 控件具有焦点时，按下 SPACEBAR 键。
4当窗体带有其 Default 属性设置为 True 的 CommandButton 控件时，按下 ENTER 键。
5当窗体带有一个 Cancel 按钮 - 其 Cancel 属性设置为 True 的 CommandButton 控件时，
按下 ESC 键。
6对控件按下一个访问键。例如，如果一个 CommandButton 控件的标题是 "Go"，则按下
ALT G 键可触发该事件。
△DblClick 事件在以下情形下发生：
1用鼠标左键双击控件。
2双击 Style 属性设置为 1(Simple) 的 ComboBox 控件中的项目，或者在 FileListBox ,
ListBox , DBCombo 或 DBList 控件中的项目。
-------------------------------------------------
▲DragDrop(source As Control, x As Single, y As Single)拖放事件
▲DragOver(source As Control, x As Single, y As Single, state As Integer)拖移事件
-------------------------------------------------
▲GotFocus获得焦点事件
触发条件：1 TAB 切换,2 单击对象,3 代码中用 SetFocus 方法
▲LostFocus 失去焦点事件
▲Initialize创建类事件
【vb.net绘图异或笔 vb编写画图程序】在 Load 事件之前发生。
触发条件：1 用 CreateObject 函数创建类的一个实例，如：
Set X = CreateObject("Project1.MyClass")
2 引用窗体或类实例的属性或事件，该属性或事件由用户代码自动创建。如：
MyForm.Caption = "Example"
-------------------------------------------------
▲KeyDown (keycodeAs Integer, shift As Integer)按键事件
▲KeyUp(keycodeAs Integer, shift As Integer)放键事件
▲KeyPress (keyascii As Integer)击ANSI键事件
触发条件：当一个对象具有焦点时按下或松开一个键时发生
如果 KeyPreview 属性被设置为 True，则一个窗体先于该窗体上的控件接收到此事件。
可用 KeyPreview 属性来创建全局键盘处理例程。
keycode键代码，包含键盘上除以下三种情况外的所有键
1 Tab键。
2 当CommandButton 控件的 Default 属性设置为 True 时的 ENTER。
3 当CommandButton 控件的 Cancel属性设置为 True 时的 ESC。
keyascii标准数字 ANSI 键代码。将 keyascii 改变为 0 时可取消击键，对象便接收不到字符。
-------------------------------------------------
▲Unload object（语句）卸载 Form 对象或控件数组元素
如果object为窗体，会发生 QueryUnload 事件，然后是 Unload 事件
▲QueryUnload(cancel As Integer, unloadmode As Integer)（事件）卸载
？该事件发生在Unload之前
cancel设置0：窗体和应用程序关闭。其他：不关闭。
unloadmode返回触发 QueryUnload 事件的原因。见下：
0vbFormControlMenu用户从窗体上的"控件"菜单中选择"关闭"指令。
1vbFormCodeUnload 语句被代码调用。
2vbAppWindows当前 Microsoft Windows 操作环境会话结束。
3vbAppTaskManagerMicrosoft Windows 任务管理器正在关闭应用程序。
4vbFormMDIFormMDI 子窗体正在关闭，因为 MDI 窗体正在关闭。
▲Load（事件）装载窗体
▲Unload(cancel As Integer)（事件）卸载窗体
cancel设置0：窗体被删除。其他：不被删除。
▲Terminate（事件）所有引用都被从内存删除
？除类之外所有的对象，在 Unload 事件之后发生。
调用 End 语句， Terminate 事件不会触发。
-------------------------------------------------
▲Paint 重绘对象时
触发条件：1对象大小、颜色改变，2覆盖该对象的窗体被移开之后， 3使用 Refresh 方法时
如果 AutoRedraw 属性被设置为 True ，重新绘图会自动进行，于是就不需要 Paint 事件。
▲Form_Resize 调整大小事件
▲object_Resize(height As Single, width As Single)
Resize的触发条件：当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生
？AutoRedraw 属性被设置为 False 而且窗体被调整大小，
会按 Resize 和 Paint 的顺序调用相关的事件
如何使用vb.net调用cad进行绘图你去查查书吧，书上挺详细的，在这说不好说，你先在项目里引用。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可视
vb.net 绘图，重绘知识继承（Inherits）控件就可以重写它的属性和方法vb.net绘图异或笔，图标可以在paint中重绘vb.net绘图异或笔，用gdi，工具主要在drawing和drawing2d中。
combobox弹出的框增加图标吗？个人看法可能需要得到那个句柄，才可以重绘，但那个好像是一体的，不知道能不能弄到句柄。
textbox可以自定义高度。只是以行高度为单位，改变字体大小即可，没必要重写吧。
我也自学，感觉基础容易学，进阶资料少。循序渐进也没序可循，基本是在摸索。
都是想到什么问题，就立下一个目标，然后攻破vb.net绘图异或笔他，结果可能是尝试几天后，发现目标超出能力范围。
晦涩是相对的，实践出真知，多动手，基础就好vb.net绘图异或笔了。
VB.net中如何画图？VB.net与VB不同。
VB.net已经有专门绘图vb.net绘图异或笔的类。
可以定义笔刷然后用Drawing类中vb.net绘图异或笔的方法绘制。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
VB中 drawmode=7 异或笔的概念...求高手赐教DrawMode 属性：返回或设置一个值，以决定图形方法的输出外观或者 Shape 及 Line 控件的外观。
语法：object.DrawMode [= number]
DrawMode 属性语法包含下面部分：
部分描述：object 对象表达式，其值是“应用于”列表中的一个对象。
Number 整型值，指定外观， “设置值”中有详细描述。
Private Sub Form_Load
DrawWidth = 10 ' 设置 DrawWidth.
End Sub
Private Sub Form_Click ()
Static M As Integer ' 当前 DrawMode 的设置值.
ForeColor = QBColor(Int(Rnd * 15)) ' 选择一种颜色.
M = ((M1) Mod 16)1 ' 使 DrawMode 小于或等于 16.
DrawMode = M ' 设置 DrawMode.
扩展资料：
有些属性可以在设计时通过属性窗口来设置，不用编写任何代码；而有些属性则必须通过编写代码，在运行程序的同时进行设置。可以在运行时读取和设置取值的属性成为读写属性，只能读取的属性成为只读属性。
在 Visual Basic.NET程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象。在 Visual Basic.NET程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象。
参考资料来源：百度百科-Visual Basic
vb6的窗体属性窗口中的DrawMode属性的16个值怎么翻译？谢谢。DrawMode属性
返回或设置一个值，以决定图形方法vb.net绘图异或笔的输出外观或者Shape及Line控件vb.net绘图异或笔的外观。
语法
object.DrawMode[=number]
DrawMode属性语法包含下面部分vb.net绘图异或笔：
部分描述
object对象表达式，其值是“应用于”列表中的一个对象。
Number整型值，指定外观，“设置值”中有详细描述。
设置值
number的设置值为vb.net绘图异或笔：
常数设置值描述
VbBlackness1黑色。
VbNotMergePen2非或笔－与设置值15相反(MergePen) 。
VbMaskNotPen3与非笔－背景色以及画笔反相二者共有颜色的组合。
VbNotCopyPen4非复制笔－设置值13(CopyPen)的反相
VbMaskPenNot5与笔非－画笔以及显示反相二者共有颜色的组合。
VbInvert6反转－显示颜色的反相
VbXorPen7异或笔－画笔的颜色以及显示颜色的组合，只取其一。
VbNotMaskPen8非与笔－设置值9(MaskPen)的反相。
VbMaskPen9与笔－画笔和显示二者共有颜色的组合。
VbNotXorPen10非异或笔－方式7的反相(XorPen) 。
VbNop11无操作－输出保持不变。该设置实际上关闭画图。
VbMergeNotPen12或非笔－显示颜色与画笔颜色反相的组合。
VbCopyPen13复制笔（缺省值）－由ForeColor属性指定的颜色。
VbMergePenNot14或笔非－画笔颜色与显示颜色的反相的组合。
VbMergePen15或笔－画笔颜色与显示颜色的组合。
VbWhiteness16白色。
说明
当用Shape或Line控件，或者用图形方法画图时，使用这个属性产生可视效果。VisualBasic将绘图模式的每一个像素与现存背景色中相应的像素做比较，然后进行逐位比较操作。例如，设置值7（异或笔）用Xor操作符将绘图模式像素和背景像素组合起来。
DrawMode设置值的真正效果，取决于运行时所画线的颜色与屏幕已存在颜色的合成。对于设置值1，6，7，11，13和16可以最可靠地预知该属性的输出结果。
DrawMode属性示例
这个例子允许通过拖动鼠标在窗体上画图。每单击一次鼠标为DrawMode属性设置一个不同的值。要试用此例，先把代码粘贴到窗体的声明部分，然后按F5键，并单击窗体。
PrivateSubForm_Load
DrawWidth=10'设置DrawWidth.
EndSub
PrivateSubForm_Click()
StaticMAsInteger'当前DrawMode的设置值.
ForeColor=QBColor(Int(Rnd*15))'选择一种颜色.
M=((M1)Mod16)1'使DrawMode小于或等于16.
DrawMode=M'设置DrawMode.
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButtonThen'当按钮被按下时，
PSet(X,Y)'画一个大点.
EndIf
EndSub
关于vb.net绘图异或笔和vb编写画图程序的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

vb.net绘图异或笔 vb编写画图程序

推荐阅读

金吉雅以前参加过什么节目金吉雅以前参加过什么节目

胃炎|胃炎到胃癌，仅只需4步？提醒：做好4件事，及时踩下刹车！

三国志幻想大陆爆裂冲击怎么样三国志幻想大陆爆裂冲击战魂介绍

暴力取证罪的刑事量刑档次是什么样的

乳房松弛下垂怎么办？大胸下垂怎么办

婴幼儿肠炎症状有哪些

红米6|红米6000mAh新机已在试产，120W+骁龙898，卢伟冰放大招

怎么洗散粉刷

林内燃气热水器温度显示器一直亮林内燃气热水器温度显示器

票证号码是哪个发票票号是哪个位置

地狱拉面为什么火地狱拉面怎么做

夏天|OPPO Enco Air即将开售：没有一副好看的耳机，夏天怎么出门浪？

王者荣耀黄金上铂金要赢几把黄金上铂金要赢多少局

支配光环一键召唤技巧 dnf召唤师加点95版本

玩什么手机游戏可以赚钱盘点最近比较热门的搬砖手游

怀旧服飞行射击游戏视频，怀旧服飞行器

2022-2023年成都社保缴费基数是多少？成都社保2023年缴费标准基数及比例

Tumblr发布成人内容禁令,平台用户的大多数对此怎么看？

叶黄素有什么功效和作用叶黄素的功效与作用禁忌

柠檬怎么喝才能美白