Private
Sub
Test_Load(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
Dim
str
As
String
=
_
"
中abc中國
"
'
123456stringcountofvb6
'
012345stringcountof.net
Label1.Text
=
""
'
left
Dim
leftStrVB
As
String
=
Microsoft.VisualBasic.Left(
str
,
5
)
Dim
leftStr
As
String
=
str
.Substring(
0
,
5
)
Label1.Text
&=
"
leftStrVBis
"
&
leftStrVB
&
vbCrLf
'
leftStrVBis中abc中
Label1.Text
&=
"
leftStris
"
&
leftStr
&
vbCrLf
'
leftStris中abc中
'
center
Dim
centerStrVB
As
String
=
Microsoft.VisualBasic.Mid(
str
,
2
,
4
)
Dim
centerStr
As
String
=
str
.Substring(
1
,
4
)
Label1.Text
&=
"
centerStrVBis
"
&
centerStrVB
&
vbCrLf
'
centerStrVBisabc中
Label1.Text
&=
"
centerStris
"
&
centerStr
&
vbCrLf
'
centerStrisabc中
'
right
Dim
rightStrVB
As
String
=
Microsoft.VisualBasic.Right(
str
,
5
)
Dim
rightStr
As
String
=
str
.Substring(
1
)
Label1.Text
&=
"
rightStrVBis
"
&
rightStrVB
&
vbCrLf
'
rightStrVBisabc中國
Label1.Text
&=
"
rightStris
"
&
rightStr
&
vbCrLf
'
rightStrisabc中國
EndSub
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
