Question

如何提取标签里面的字符串?

一个标签里面的文本是多行格式,如果我要提取标签内第二行从第5个字符开始长度为2的字符串,要用到哪一个字符串函数?具体怎么用?谢谢!

Answer 1

建一个Label1。放在**********之内的内容便是提取过程。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
'***********
Dim s As String
s = Label1.Caption
s = Mid(s, InStr(1, s, vbCrLf) + 2)
s = Mid(s, 5, 2)
'***********
MsgBox s
End Sub

Private Sub Form_Load()
Label1.Caption = "abcdefg" & vbCrLf & "hijklmnopq" & vbCrLf & "rstuvwxyz"
End Sub