vb.net控件重绘 vb能自动重绘图形

vb.net 如何重绘Label控件？

新建一个Winform，在和Form1平行的位置粘贴如下代码

Public Class MyLabel Inherits Label Protected Overrides Sub OnPaint(e As PaintEventArgs) e.Graphics.DrawEllipse(New Pen(Color.Red), New Rectangle(2, 2, 10, 10)) MyBase.OnPaint(e) End Sub End Class

运行，停掉，在工具箱找到MyLabel，拖动就可以看到效果。这只是最基本的重写，要模仿QQ还需要其他技术以及美工。

相关问答

Q1: 求助vb.net 2008 中 printPreviewDialog1预览窗口中如何添加按钮？

就是重绘printPreviewDialog1控件。控件容器中，包含ToolStrip控件。

目的：在ToolStrip控件集合中添加一个ToolStripButton控件按钮。

代码如下：

====================================================

Public Class Form1

'定义相关变量

Private ppdlog1 As New printPreviewDialog  '预览控件

Private mytoolstrip1 As New ToolStrip

Private WithEvents myButton1 As New ToolStripButton '新按钮

'------------------创建新按钮的过程

Private Sub CreatemyButton()

Dim c1 As Control

For Each c1 In ppdlog1.Controls

If TypeName(c1) = "ToolStrip" Then

mytoolstrip1 = c1

End If

Next

myButton1.Text = "新按钮"

mytoolstrip1.Items.Add(myButton1)

End Sub

'-----------------------

'在Sub New()中调用如下：

'--------------------------------------------

Public Sub New()

' 此调用是设计器所必需的。

' 在 InitializeComponent() 调用之后添加任何初始化。

CreatemyButton()  '创建“新按钮”的过程

End Sub

'----------------------------------------------------

'myButton1的Click过程

'===================

Private Sub myButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox("新按钮创建成功！")

'//执行代码.......

End Sub

'===================

'测试一下：

'----------------

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ppdlog1.Document = PrintDocument1

ppdlog1.ShowDialog()

End Sub

'----------------

End Class

==================================================

效果如图：

Q2: vb.net 绘图，重绘知识

继承（Inherits）控件就可以重写它的属性和方法，图标可以在paint中重绘，用gdi，工具主要在drawing和drawing2d中。

combobox弹出的框增加图标吗？个人看法可能需要得到那个句柄，才可以重绘，但那个好像是一体的，不知道能不能弄到句柄。

textbox可以自定义高度。只是以行高度为单位，改变字体大小即可，没必要重写吧。

我也自学，感觉基础容易学，进阶资料少。循序渐进也没序可循，基本是在摸索。

都是想到什么问题，就立下一个目标，然后攻破他，结果可能是尝试几天后，发现目标超出能力范围。

晦涩是相对的，实践出真知，多动手，基础就好了。

Q3: vb.net重绘窗体???

根据您vb.net控件重绘的描述vb.net控件重绘，从上述检查结果看存在激素水平不足，向您这种情况，需要遵医嘱采取激素药物持续保胎治疗

孕酮是卵巢分泌的具有生物活性的主要孕激素，在排卵前孕酮的产生每天为2～3mg，主要来自肾上腺。排卵后，上升为每天20～30mg，绝大部分由卵巢内黄体分泌。3*20=60所以正常!

一般正常人β-HCG放免测定值小于3.1，

如果超过5就可以考虑受孕可能，如果超过10基本可以确定怀孕。

孕后35-50天HCG可升至大于2500IU/L。

多胎妊娠者的尿-HCG常多于一胎妊娠者。

产后9天或人工流产术后25天，血清HCG应恢复正常。

如不符合这一情况，则应考虑有异常可能。

宫外孕的早期诊断主要是检测血HCG(绒毛膜促性腺激素)。

因HCG是妊娠时所分泌的特异性激素，所以β－HCG可用于协助宫外孕早期未破裂的诊断。

正常发育的绒毛所分泌的HCG量很大，每天的滴度不断的快速上升，每48小上升66%以上。

既如果β－HCG每两天增加的量大于66％，可以诊断为宫内妊娠；

而如果增加的量小于66％，则宫外孕或宫内孕发育不良的可能性很大。

对于宫外孕，由于输卵管肌层菲薄，血供不良，HCG分泌量很低。每天升值较少。

48小时上升不到50%。(但有一部分人最初的HCG上升正常)

如果用HCG难以确认，还可用血孕酮来做辅助性诊断。

宫外孕患者的血孕酮水平低，这是公认的。故可作为早期诊断方法之一。

临界值为63nmol/L.

进一步还可以进行B超检查，尤其是“阴超”检查对诊断宫外孕很有帮助。

妇女受孕后，从第9－11天起即可测出血中β－HCG升高，

以后每两天β－HCG的量可升高2倍（就算有先兆流产，HCG的增加比率不会变）。

比如今天是234，如果后天测出来是450左右就就可认为是正常宫内早孕。

如果连续两次增加速度缓慢，表明宫外孕或者胚胎不正常发育迟缓。

比如今天是10，后天是15，再2天才17，这样的HCG值肯定不正常，保胎的成功率极低。

如果HCG值持续而明显的下降，就算B超测到胎心也最好做清宫手术，表明胎儿其实已经脑死亡。

很多人为vb.net控件重绘了确定是否怀孕而去做B超，其实做B超一般需要血HCG达到6000以上或正常宫内孕6周左右，“阴超”才可显示宫内妊娠囊的“双环征”图象，而早期看不到孕囊就以为是宫外孕是错误的。

因有的是时间太短或胚胎流失，也可能发育迟缓。

既使看到也要必须注意真孕囊与假孕囊的区别。

超声检查如果发现子宫增大、宫腔内未见妊娠囊、子宫外附件区见囊性肿块且边界不清，

可“怀疑”为宫外孕。

还可以进行诊断性刮宫，见绒毛则能证实是宫内妊娠，

如果未见绒毛或病理报告内膜呈A-S反应，应怀疑为宫外孕。

如果HCG增加速度非常快，表明有葡萄胎的可能，必须紧密监测。

当然也有可能是双胞胎。

而在更年期、排卵期及双侧卵巢切除术均可致黄体生成素(LH)升高，

因LH与HCG的α-肽链组成相同,而α亚单位又为“垂体前叶激素”所共有。

所以当采用抗-HCG抗体做妊娠试验时，就会因阳性而造成“假孕”现象。

此时可用β-HCG的单克隆-酶免疫测定来做鉴别。

另外：β-HCG升高还有下列几种可能：正常怀孕、双胞胎，葡萄胎、或某些疾病或肿瘤。

如在内分泌疾病中，如脑垂体疾病、甲状腺功能亢进、妇科疾病如卵巢囊肿、子宫癌等HCG也可增高。

近年来发现恶性肿瘤如默契胎瘤、胰腺癌、胃癌、肝癌、乳腺癌、肺癌等血中HCG也可升高

因此在肿瘤科，将HCG看作是癌标志物之一。

但必需结合临床情况及其它检查结果,通过综合分析才能正确判断

Q4: VB.NET中的TextBox控件详解

TextBox组件（文本框组件）是一种常用的 也是比较容易掌握的组件 应用程序主要使用它来接收使用者于输入文字信息 在前面内容中已经或多或少的接触到TextBox组件 本节就来详细探讨一下Visual 中TextBox组件的使用方法 一 TextBox组件 TextBox类 当我们使用Visual Basic Net集成开发环境开发应用程序时 在从【工具箱】的【Windows窗体】选项卡中向Form 的设计窗体拖入一个TextBox组件的后 我们可能并没有感觉到即使时这样一个简单的操作 Visual Basic Net都做了很多幕后工作 主要工作和步骤如下 首先实例化System Windows Forms TextBox类 并根据拖动到窗体的位置和形状分别设定TextBox实例的各个属性 我们看到的设计窗体 其实是Form 类的一个实例 而Form 类首先是从System Windows Forms Form类继承而来 Form 类中的成员根据使用者往窗体中拖入的组件不同而不同 各个成员通过Add或AddRange方法加入到Form 中 这样拖入的组件才能够显示在设计窗体上 以上这些都完全不同于以前Visual Basic 通过上述步骤 我们不难得到TextBox组件和TextBox类之间的关系 TextBox组件是命名空间System Windows Forms中的TextBox类的实例 在从【工具箱】的【Windows窗体】选项卡中拖入窗体的任一组件 都是 Net框架类库—— Net Framework SDK中封装的某一个类的实例 通过上述步骤也不难看出 Visual Basic Net的确才是真正的面向对象（OOP）的开发语言 二 TextBox类的成员 TextBox组件使用虽然比较简单 但TextBox类的构成成员却是非常的丰富 在一般性的编程中 主要涉及到三类 属性 方法和事件 表 表 和表 分别是TextBox类的常用属性 方法和事件及其简单说明 属性 说明 AcceptsReturn 指示在多行TextBox组件中按ENTER键时 是在组件中创建一行新文本还是激活窗体的默认按钮 AcceptsTab 该值指示在多行文本框组件中按TAB键时 是否在组件中键入一个TAB字符 而不是按选项卡的顺序将焦点移动到下一个组件 AllowDrop 获取或设置一个值 该值指示组件是否可以接受用户拖放到它上面的数据 Anchor 获取或设置组件的哪些边缘锚定到其容器边缘 BackColor 获取或设置组件的背景色 BackgroundImage 获取或设置在组件中显示的背景图像 BorderStyle 获取或设置文本框组件的边框类型 Bottom 获取组件的下边缘与其容器的工作区的上边缘之间的距离 CanFocus 获取一个值 该值指示组件是否可以接收焦点 CanSelect 获取一个值 该值指示是否可以选中组件 CanUndo 获取一个值 该值指示用户在文本框组件中能否撤消前一操作 CharacterCasing 获取或设置TextBox组件是否在字符键入时修改其大小写格式 ContextMenu 获取或设置与组件关联的快捷菜单 Reated 获取一个值 该值指示组件是否已经创建 Cursor 获取或设置当鼠标指针位于组件上时显示的光标 DataBindings 为该组件获取数据绑定 Dock 获取或设置组件停靠到父容器的哪一个边缘 Enabled 获取或设置一个值 该值指示组件是否可以对用户交互作出响应 Focused 获取一个值 该值指示组件是否有输入焦点 Font 获取或设置组件显示的文字的字体 ForeColor 获取或设置组件的前景色 MaxLength 获取或设置用户可以在文本框组件中最多键入的字符数 Multiline TRUE/FALSE 该值指示它是否为多行文本框组件 PasswordChar 获取或设置字符 该字符用于屏蔽单行 ScrollBars 获取或设置哪些滚动条应出现在多行TextBox 组件中 Text 获取或设置文本框中的当前文本 TextAlign 设置文本框内文本得对齐方式 TextLength 获取组件中文本的长度 　表 TextBox类的常用属性及其说明 方法 说明 AppendText 向文本框的当前文本追加文本 Clear 从文本框控件中清除所有文本 ClearUndo 从该文本框的撤消缓冲区中清除关于最近操作的信息 Copy 将文本框中的当前选定内容复制到剪贴板 Cut 将文本框中的当前选定内容移动到剪贴板中 DoDragDrop 开始拖放操作 Focus 为控件设置输入焦点 GetChildAtPoint 检索位于指定坐标处的子控件 GetNextControl 按照子控件的Tab键顺序向前或向后检索下一个控件 Hide 对用户隐藏控件 Paste 用剪贴板的内容替换文本框中的当前选定内容 PointToClient 将指定屏幕点的位置计算成工作区坐标 PointToScreen 将指定工作区点的位置计算成屏幕坐标 ResetBindings 将DataBindings属性重置为其默认值 Select 选择控件中的文本 SelectAll 选定文本框中的所有文本 SelectNextControl 激活下一个控件 Show 向用户显示控件 SuspendLayout 临时挂起控件的布局逻辑 Undo 撤消文本框中的上一个编辑操作

表 TextBox类的常用方法及其说明

事件 说明 Click 在单击文本框时发生 CursorChanged 当 Cursor 属性的值更改时发生 DoubleClick 在双击控件时发生 DragDrop 在完成拖放操作时发生 DragEnter 在将对象拖入控件的边界时发生 DragLeave 在将对象拖出控件的边界时发生 DragOver 在将对象拖到控件的边界上发生 EnabledChanged Enabled 属性值更改后发生 Enter 进入控件时发生 GiveFeedback 在执行拖动操作期间发生 GotFocus 在控件接收焦点时发生 KeyDown 在控件有焦点的情况下按下键时发生 KeyPress 在控件有焦点的情况下按下键时发生 KeyUp 在控件有焦点的情况下释放键时发生 Leave 在输入焦点离开控件时发生 LostFocus 当控件失去焦点时发生 MouseDown 当鼠标指针位于控件上并按下鼠标键时发生 MouseEnter 在鼠标指针进入控件时发生 MouseHover 在鼠标指针悬停在控件上时发生 MouseLeave 在鼠标指针离开控件时发生 MouseMove 在鼠标指针移到控件上时发生 MouseUp 在鼠标指针在控件上并释放鼠标键时发生 MouseWheel 在移动鼠标轮并且控件有焦点时发生 Move 在移动控件时发生 Paint 在重绘控件时发生 Resize 在调整控件大小时发生

TextBox类的常用事件及其说明当然TextBox类除了上述的属性 方法和事件 还有很多属性 方法和事件 和很多受保护的方法和受保护的属性 由于它们使用的几率较少和篇幅所限 就不能一一介绍了 感兴趣的朋友可以参阅相关资料

三．掌握TextBox组件的基本用法 由于TextBox类的成员实在太丰富 一个示例要想介绍上述所有的方法 属性和事件是不可能 在下面介绍的示例中 将突出介绍在Visual 集成开发环境下通过对设定不同的属性值实现三种常见的TextBox组件式样 以及TextBox组件的方法的调用方法和在Visual Basic Net集成开发环境中如何加入TextBox组件不同事件对应的处理代码 让各位更加熟悉TextBox类和Visual Basic Net开发环境 下面是TextBox示例的具体实现步骤 启动Visual Studio Net 选择菜单【文件】|【新建】|【项目】后 弹出【新建项目】对话框 将【项目类型】设置为【Visual Basic项目】 将【模板】设置为【Windows应用程序】 在【名称】文本框中输入【TextBox组件】 在【位置】的文本框中输入【E:\项目】 然后单击【确定】按钮 这样在 E:\VS NET项目 目录中就产生了名称为 TextBox组件 的文件夹 并在里面创建了名称为 TextBox组件 的项目文件 把Visual Studio Net的当前窗口切换到【Form VB（设计）】窗口 并从【工具箱】中的【Windows窗体组件】选项卡中往Form 窗体中拖入下列组件 并执行相应操作 三个Label组件 三个TextBox组件 分别为TextBox TextBox 和TextBox 按照表 中数值来设定设定组件的主要属性 请注意TextBox组件中的属性设定值

表 【TextBox组件】项目窗体中各组件的主要属性设定数值表

按照表 各值设定后的TextBox组件三种常用的式样也就产生了 具体如图 所示

图 程序设计时TextBox组件三种常见使用方法

这三种式样就是单行的TextBox组件 多行的TextBox组件和用以输入类似密码数据的TextBox组件 为TextBox 组件添加事件和事件的处理代码 此次添加的事件的名称是Leave 当TextBox 组件失去焦点时触发此事件 添加TextBox 组件的其他事件也可仿照下面的处理方法 下面是利用Visual Basic Net在【TextBox组件】项目中添加TextBox 组件的Leave事件和添加Leave事件的处理代码的具体步骤 首先把Visual Basic Net的当前窗口切换到Form vb的代码编辑界面 然后在如图 所示的选择框中选择TextBox

图 选择TextBox组件

之后 在图 所示的选择框中选择 Leave

图 选取Leave事件

在选择 Leave 之后 Visual Basic Net会自动在Form vb中产生TextBox 的Leave事件 在Leave事件的事件处理代码区添加下列代码 下面代码调用了TextBox 组件的 Clear 方法并且显示一个TextBox 组件失去焦点的提示框

TextBox Clear ( ) 清除TextBox 组件的显示内容MsgBox ( 失去焦点！ ) 弹出提示框

至此【TextBox组件】项目的全部工作就完成了 图 是程序编译后运行界面

图 【TextBox项目】的运行界面

lishixinzhi/Article/program/net/201311/12721

关于vb.net控件重绘和vb能自动重绘图形的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。