Dim g As Graphics = CreateGraphics() Dim flpWidht As Integer = g.MeasureString(str, New Font("微软雅黑", 10)).Width 能够获取，但是不是很准确。
创新互联主营临江网站建设的网络公司,主营网站建设方案,重庆APP开发公司,临江h5小程序定制开发搭建,临江网站营销推广欢迎临江等地区企业咨询
参考一下Visual Basic与AutoCAD二次开发》这本书，网上有电子版。
屏幕的长宽就是屏幕的分辨率，用下面的代码实现，每句后面已添加注释
Dim
x
As
Integer,
y
As
Integer
'定义2个整数型变量
x
=
Screen.Width
/
Screen.TwipsPerPixelX
'获取屏幕宽度
y
=
Screen.Height
/
Screen.TwipsPerPixelY
'获取屏幕高度
上面是vb的语法
下面是Vb.Net的语法：
Dim
x,
y
As
Long
'定义2个整数型变量
x
=
Screen.PrimaryScreen.Bounds.Width.ToString
'获取屏幕宽度
y
=
Screen.PrimaryScreen.Bounds.Height.ToString
'获取屏幕高度
上面思路是正确的， 用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
substring 就是对一个指定的字符窜进行字符窜截取的方法。
运用的形式差不多如下：
截取后的字符窜 = 指定字符窜.substring（开始截取位置[第一位从0开始],截取长度）
Dim str As String = "dsk_cy"
Dim resultStr As String = str.substring(0,2)'截取最左边的两个字符 即 resultStr = “ds”
Dim reulst As String = str.substring(1,2) '截取从最左边数第二位开始的两个字符 即 result = “sk”