Dim MyGraphics As Graphics = Me.CreateGraphics
我們提供的服務(wù)有:成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、岐山ssl等。為1000多家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的岐山網(wǎng)站制作公司
'定義使用的字體
Dim Myfont As New Font("宋體", 9)
'獲取文本的大小。
Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)
'顯示寬和高
MsgBox(Mystring_Size1.Width ":" Mystring_Size1.Height)
上面思路是正確的, 用ascw 函數(shù)也可以
private function LenC( ps as string ) as Integer
Dim n As Integer
Dim StrLen As Integer
For n = 1 To Len(Text1.Text)
If Ascw(Mid(Text1.Text, n, 1)) 256 Then
StrLen = StrLen + 2
Else
StrLen = StrLen + 1
Next n
return strLen
end function
看樣要重新定義個Font對象,在構(gòu)造函數(shù)中定義它的大小,
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '參數(shù)都用原來字體參數(shù),只有大小改成你需要的。
End With
如果你是指字符型的變量,那么理論上是2G,實(shí)際上受最大可用物理內(nèi)存的限制;
如果是指text控件,那么它的大小限制是64KB
分享名稱:vb.net字符尺寸 vb字體大小的代碼
URL網(wǎng)址:http://aaarwkj.com/article24/doodsce.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制網(wǎng)站、網(wǎng)站制作、營銷型網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、企業(yè)建站、網(wǎng)站營銷
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)