vb如何命令单击commandbutton时出现一个提示框显示取的label文字里的值,是command..取左边第三个值
1个回答
展开全部
Private Sub Command1_Click()
Dim num As Integer
num = InputBox("输入你要获取的字符串编号:")
If Len(Label1.Caption) < num Then
MsgBox "字符串长度太长!"
Else
If num < 1 Then
MsgBox "字符串长度必须大于1"
Else
MsgBox Mid(Label1.Caption, num, 1)
End If
End If
End Sub
Dim num As Integer
num = InputBox("输入你要获取的字符串编号:")
If Len(Label1.Caption) < num Then
MsgBox "字符串长度太长!"
Else
If num < 1 Then
MsgBox "字符串长度必须大于1"
Else
MsgBox Mid(Label1.Caption, num, 1)
End If
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询