Dim MyGraphics As Graphics = Me.CreateGraphics
我們提供的服務有:成都網站建設、成都網站設計、微信公眾號開發、網站優化、網站認證、岐山ssl等。為1000多家企事業單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務,是有科學管理、有技術的岐山網站制作公司
'定義使用的字體
Dim Myfont As New Font("宋體", 9)
'獲取文本的大小。
Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)
'顯示寬和高
MsgBox(Mystring_Size1.Width ":" Mystring_Size1.Height)
上面思路是正確的, 用ascw 函數也可以
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對象,在構造函數中定義它的大小,
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '參數都用原來字體參數,只有大小改成你需要的。
End With
如果你是指字符型的變量,那么理論上是2G,實際上受最大可用物理內存的限制;
如果是指text控件,那么它的大小限制是64KB
分享名稱:vb.net字符尺寸 vb字體大小的代碼
URL網址:http://vcdvsql.cn/article24/doodsce.html
成都網站建設公司_創新互聯,為您提供定制網站、網站制作、營銷型網站建設、標簽優化、企業建站、網站營銷
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯