根據(jù)您的描述，從上述檢查結(jié)果看存在激素水平不足，向您這種情況，需要遵醫(yī)囑采取激素藥物持續(xù)保胎治療
創(chuàng)新互聯(lián)是一家專業(yè)提供天津企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、HTML5、小程序制作等業(yè)務(wù)。10年已為天津眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)的建站公司優(yōu)惠進(jìn)行中。
孕酮是卵巢分泌的具有生物活性的主要孕激素，在排卵前孕酮的產(chǎn)生每天為2～3mg，主要來自腎上腺。排卵后，上升為每天20～30mg，絕大部分由卵巢內(nèi)黃體分泌。3*20=60所以正常!
一般正常人β-HCG放免測定值小于3.1，
如果超過5就可以考慮受孕可能，如果超過10基本可以確定懷孕。
孕后35-50天HCG可升至大于2500IU/L。
多胎妊娠者的尿-HCG常多于一胎妊娠者。
產(chǎn)后9天或人工流產(chǎn)術(shù)后25天，血清HCG應(yīng)恢復(fù)正常。
如不符合這一情況，則應(yīng)考慮有異?？赡?。
宮外孕的早期診斷主要是檢測血HCG(絨毛膜促性腺激素)。
因HCG是妊娠時(shí)所分泌的特異性激素，所以β－HCG可用于協(xié)助宮外孕早期未破裂的診斷。
正常發(fā)育的絨毛所分泌的HCG量很大，每天的滴度不斷的快速上升，每48小上升66%以上。
既如果β－HCG每兩天增加的量大于66％，可以診斷為宮內(nèi)妊娠；
而如果增加的量小于66％，則宮外孕或?qū)m內(nèi)孕發(fā)育不良的可能性很大。
對于宮外孕，由于輸卵管肌層菲薄，血供不良，HCG分泌量很低。每天升值較少。
48小時(shí)上升不到50%。(但有一部分人最初的HCG上升正常)
如果用HCG難以確認(rèn)，還可用血孕酮來做輔助性診斷。
宮外孕患者的血孕酮水平低，這是公認(rèn)的。故可作為早期診斷方法之一。
臨界值為63nmol/L.
進(jìn)一步還可以進(jìn)行B超檢查，尤其是“陰超”檢查對診斷宮外孕很有幫助。
婦女受孕后，從第9－11天起即可測出血中β－HCG升高，
以后每兩天β－HCG的量可升高2倍（就算有先兆流產(chǎn)，HCG的增加比率不會(huì)變）。
比如今天是234，如果后天測出來是450左右就就可認(rèn)為是正常宮內(nèi)早孕。
如果連續(xù)兩次增加速度緩慢，表明宮外孕或者胚胎不正常發(fā)育遲緩。
比如今天是10，后天是15，再2天才17，這樣的HCG值肯定不正常，保胎的成功率極低。
如果HCG值持續(xù)而明顯的下降，就算B超測到胎心也最好做清宮手術(shù)，表明胎兒其實(shí)已經(jīng)腦死亡。
很多人為了確定是否懷孕而去做B超，其實(shí)做B超一般需要血HCG達(dá)到6000以上或正常宮內(nèi)孕6周左右，“陰超”才可顯示宮內(nèi)妊娠囊的“雙環(huán)征”圖象，而早期看不到孕囊就以為是宮外孕是錯(cuò)誤的。
因有的是時(shí)間太短或胚胎流失，也可能發(fā)育遲緩。
既使看到也要必須注意真孕囊與假孕囊的區(qū)別。
超聲檢查如果發(fā)現(xiàn)子宮增大、宮腔內(nèi)未見妊娠囊、子宮外附件區(qū)見囊性腫塊且邊界不清，
可“懷疑”為宮外孕。
還可以進(jìn)行診斷性刮宮，見絨毛則能證實(shí)是宮內(nèi)妊娠，
如果未見絨毛或病理報(bào)告內(nèi)膜呈A-S反應(yīng)，應(yīng)懷疑為宮外孕。
如果HCG增加速度非常快，表明有葡萄胎的可能，必須緊密監(jiān)測。
當(dāng)然也有可能是雙胞胎。
而在更年期、排卵期及雙側(cè)卵巢切除術(shù)均可致黃體生成素(LH)升高，
因LH與HCG的α-肽鏈組成相同,而α亞單位又為“垂體前葉激素”所共有。
所以當(dāng)采用抗-HCG抗體做妊娠試驗(yàn)時(shí)，就會(huì)因陽性而造成“假孕”現(xiàn)象。
此時(shí)可用β-HCG的單克隆-酶免疫測定來做鑒別。
另外：β-HCG升高還有下列幾種可能：正常懷孕、雙胞胎，葡萄胎、或某些疾病或腫瘤。
如在內(nèi)分泌疾病中，如腦垂體疾病、甲狀腺功能亢進(jìn)、婦科疾病如卵巢囊腫、子宮癌等HCG也可增高。
近年來發(fā)現(xiàn)惡性腫瘤如默契胎瘤、胰腺癌、胃癌、肝癌、乳腺癌、肺癌等血中HCG也可升高
因此在腫瘤科，將HCG看作是癌標(biāo)志物之一。
但必需結(jié)合臨床情況及其它檢查結(jié)果,通過綜合分析才能正確判斷
就是重繪printPreviewDialog1控件?？丶萜髦?，包含ToolStrip控件。
目的：在ToolStrip控件集合中添加一個(gè)ToolStripButton控件按鈕。
代碼如下：
====================================================
Public Class Form1
'定義相關(guān)變量
Private ppdlog1 As New?printPreviewDialog ?'預(yù)覽控件
Private mytoolstrip1 As New ToolStrip
Private WithEvents myButton1 As New ToolStripButton '新按鈕
'------------------創(chuàng)建新按鈕的過程
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()中調(diào)用如下：
'--------------------------------------------
Public Sub New()
' 此調(diào)用是設(shè)計(jì)器所必需的。
' 在 InitializeComponent() 調(diào)用之后添加任何初始化。
CreatemyButton() ?'創(chuàng)建“新按鈕”的過程
End Sub
'----------------------------------------------------
'myButton1的Click過程
'===================
Private Sub myButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("新按鈕創(chuàng)建成功！")
'//執(zhí)行代碼.......
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
==================================================
效果如圖：
獲取控件的Graphic對象，繪圖方法都集中在了該對像中了。
1. 通過控件GreateGrapic方法獲得
2. Paint 事件參數(shù)e中也有此對象
相應(yīng)的圖形方法是DrawImage，vb.net中沒有自動(dòng)重繪功能，圖形不是持久的，所以應(yīng)當(dāng)在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
新建一個(gè)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
運(yùn)行，停掉，在工具箱找到MyLabel，拖動(dòng)就可以看到效果。這只是最基本的重寫，要模仿QQ還需要其他技術(shù)以及美工。
繼承（Inherits）控件就可以重寫它的屬性和方法，圖標(biāo)可以在paint中重繪，用gdi，工具主要在drawing和drawing2d中。
combobox彈出的框增加圖標(biāo)嗎？個(gè)人看法可能需要得到那個(gè)句柄，才可以重繪，但那個(gè)好像是一體的，不知道能不能弄到句柄。
textbox可以自定義高度。只是以行高度為單位，改變字體大小即可，沒必要重寫吧。
我也自學(xué)，感覺基礎(chǔ)容易學(xué)，進(jìn)階資料少。循序漸進(jìn)也沒序可循，基本是在摸索。
都是想到什么問題，就立下一個(gè)目標(biāo)，然后攻破他，結(jié)果可能是嘗試幾天后，發(fā)現(xiàn)目標(biāo)超出能力范圍。
晦澀是相對的，實(shí)踐出真知，多動(dòng)手，基礎(chǔ)就好了。
我是直接對ADOC操作的，因此它不會(huì)受rows 的visible屬性影響
因一般來說，每個(gè)DataGrid會(huì)對應(yīng)一個(gè)ADODC，或RecordSet對象作為數(shù)據(jù)源。
直接對它們操作就行了。這樣有個(gè)好處就是可以根據(jù)字段的屬性格式化相應(yīng)的列，如將調(diào)整日期或日期的顯示格式。
'輸出表頭
For i = 0 To Me.Adodc1.Recordset.Fields.Count - 1
'設(shè)置列名
strColName1 = Chr(65 + i) "1"
oSheet.Range(strColName1).Value = Me.DataGrid1.Columns(i).Caption
'據(jù)DataGrid中的寬度設(shè)置EXCEL列寬
StrColName = Chr(65 + i) ":" Chr(65 + i)
oSheet.Columns(StrColName).ColumnWidth = Int(Me.DataGrid1.Columns(i).Width / 90)
Next i
'輸出內(nè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
'根據(jù)列的屬性對表格數(shù)據(jù)作相應(yīng)格式化處理
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
重慶分公司
重慶分公司
