VB.net 如何画窗体？？

绘制和数据分离，就是说，Paint 事件永远是用来绘制的，具体绘制什么东西（也就是绘制的数据，如半径为4的圆），有数据决定，MouseClick 可以更改一些参数，然后由Paint 绘制：

创新互联拥有一支富有激情的企业网站制作团队，在互联网网站建设行业深耕10年，专业且经验丰富。10年网站优化营销经验，我们已为数千家中小企业提供了成都做网站、网站设计解决方案，按需开发网站，设计满意，售后服务无忧。所有客户皆提供一年免费网站维护!

MouseClick 事件里，重绘窗体，即：

int r = 0, x = 0, y = 0;

private void Form1_MouseClick(object sender, MouseEventArgs e)

{

r = 10;

x = e.X;

y = e.Y;

this.Invalidate();

}

private void Form1_Paint(object sender, PaintEventArgs e)

{

// 绘制一个r半径圆

e.Graphics.DrawEllipse(new Pen(Color.Red), x, y, r, r);

}

补充：

在 MouseClick 事件中去调用Form 的 Paint 事件，那么参数要如何传递？

参数是个全局变量，类似上面的r、x、y等，不是由e传过去的，

上述代码是c＃的，vb.net和c＃一样，都是用的fcl类库，你改一下就可以了，

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超测到胎心也最好做清宫手术，表明胎儿其实已经脑死亡。

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

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

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

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

可“怀疑”为宫外孕。

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

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

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

当然也有可能是双胞胎。

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

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

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

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

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

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

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

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

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

VB.NET怎么重绘？

新建一个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 datagridview 二维表头重绘后托动滚动条重绘的列标头不稳定

执行存储过程调用的是ADO.net

返回的结果集是一个DataSet对象。 如果不是，请检查下你的数据连接库，改下代码。

如果存储过程返回的是两个结果集，那么返回的DataSet就有两个DataTable对象。

调用的时候 只需要

DataSet ds=dbHelper.RunProcedure("Web_pGetDataPager");//假设的返回dataset对象的执行存储过程的方法。

ds.Tables[0] 就是第一个结果集

ds.Tables[1] 就是第二个结果集

//弱绑定第二个结果集 就是下面这样

Datagridview.DataSource=ds.Table[1];

Datagridview.DataBind();

vb.net 画线再画保留以前画得

可以把所有画的线都保存在一个列表中，画的时候全部画出即可。如下：

Public Class Form1

Class Line      '直线类

  Public Point1, Point2 As Point     '成员，直线的两个端点

  Sub New(p1 As Point, p2 As Point)   '构造方法

      Point1 = p1

      Point2 = p2

  End Sub

  Public Sub Draw(g As Graphics)      '绘制方法

      g.DrawLine(Pens.Black, Point1, Point2)

  End Sub

End Class

Private Lines As New List(Of Line)      '列表用于保存所有画下的直线

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  BackColor = Color.White

  DoubleBuffered = True       '开启双缓冲可有效避免闪烁

End Sub

Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown

  Lines.Add(New Line(e.Location, e.Location))     '在直线列表中添加直线

End Sub

Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove

  If e.Button  Windows.Forms.MouseButtons.Left Then Return '左键未按下

  '鼠标拖动时改变列表最后一条直线（也即当前直线的第二个端点）

  Lines(Lines.Count - 1).Point2 = e.Location

  Refresh()       '刷新窗体

End Sub

'在Form的Paint事件中绘制所有直线，每次Form1重绘时都会触发Paint事件

'PS: 也可以通过重写OnPaint方法来达到类似的效果

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint

  e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias    '开启抗锯齿

  For Each l In Lines     '遍历所有直线

      l.Draw(e.Graphics)  '调用绘制方法，传入的参数可以理解为画布

  Next

End Sub

End Class

运行效果：

vb.net 绘图，重绘知识

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

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

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

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

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

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

分享名称：vb.net重绘数据,vbnet datagridview 重绘
网页链接：http://pwwzsj.com/article/hcgogc.html