vb.net控件重绘 winform控件重绘

vb.net重绘窗体???

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

创新互联是一家专业提供天津企业网站建设,专注与成都网站设计、成都网站建设、HTML5、小程序制作等业务。10年已为天津众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。

孕酮是卵巢分泌的具有生物活性的主要孕激素，在排卵前孕酮的产生每天为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超测到胎心也最好做清宫手术，表明胎儿其实已经脑死亡。

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

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

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

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

可“怀疑”为宫外孕。

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

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

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

当然也有可能是双胞胎。

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

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

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

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

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

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

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

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

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

求助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

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

效果如图：

请问vb中的 PaintPicture在vb.net中代码是什么。最好有实例

获取控件的Graphic对象，绘图方法都集中在了该对像中了。

1. 通过控件GreateGrapic方法获得

2. Paint 事件参数e中也有此对象

相应的图形方法是DrawImage，vb.net中没有自动重绘功能，图形不是持久的，所以应当在Paint事件中绘图。

Private Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint

e.Graphics.SetClip(e.ClipRectangle)

e.Graphics.DrawImage(PictureBox1.Image, New Rectangle(0, 0, PictureBox1.ClientSize.Width, PictureBox1.ClientSize.Height), New Rectangle(5, 5, 100, 100), GraphicsUnit.Pixel)

End Sub

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还需要其他技术以及美工。

vb.net 绘图，重绘知识

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

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

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

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

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

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

求问高手，vb6 如何重绘某控件?

我是直接对ADOC操作的，因此它不会受rows 的visible属性影响

因一般来说，每个DataGrid会对应一个ADODC，或RecordSet对象作为数据源。

直接对它们操作就行了。这样有个好处就是可以根据字段的属性格式化相应的列，如将调整日期或日期的显示格式。

'输出表头

For i = 0 To Me.Adodc1.Recordset.Fields.Count - 1

'设置列名

strColName1 = Chr(65 + i) "1"

oSheet.Range(strColName1).Value = Me.DataGrid1.Columns(i).Caption

'据DataGrid中的宽度设置EXCEL列宽

StrColName = Chr(65 + i) ":" Chr(65 + i)

oSheet.Columns(StrColName).ColumnWidth = Int(Me.DataGrid1.Columns(i).Width / 90)

Next i

'输出内容

Do Until Me.Adodc1.Recordset.EOF

j = j + 1

For i = 0 To Me.Adodc1.Recordset.Fields.Count - 1

StrColName = Chr(65 + i) CStr(j + 1)

If Not IsNull(Me.DataGrid1.Columns(i)) And Me.DataGrid1.Columns(i) "" Then

'根据列的属性对表格数据作相应格式化处理

Select Case Me.Adodc1.Recordset.Fields(i).Type

Case adCurrency

oSheet.Range(StrColName).Value = CCur(Me.DataGrid1.Columns(i))

Case adNumeric

oSheet.Range(StrColName).Value = CLng(Me.DataGrid1.Columns(i))

Case adInteger

oSheet.Range(StrColName).Value = CInt(Me.DataGrid1.Columns(i))

Case adDate

oSheet.Range(StrColName).Value = CDate(Me.DataGrid1.Columns(i))

oSheet.Range(StrColName).NumberFormatLocal = "yyyy-mm-dd hh:mm"

Case Else

oSheet.Range(StrColName).Value = Me.DataGrid1.Columns(i)

End Select

Else

oSheet.Range(StrColName).Value = Me.DataGrid1.Columns(i)

End If

Next i

Me.Adodc1.Recordset.MoveNext

Loop