VB关于字符截取的问题

来源：百度知道 编辑：UC知道 时间：2024/05/11 03:54:31
比如,在text1.text的内容是mzjlgjf,现在我在窗体内放7个label,我想让label1.caption=m,label2.caption=z,label3.caption=j,label4.caption=l,label5.caption=g,label6.caption=j,label7.caption=f;要怎么弄,请大家帮帮忙,急用,谢谢
大虾，这个行是行，但如果不是英文字符而是数字的话好像要是0的话就没用的喔

Private Sub Command1_Click()
用label控件数组,完成：
窗体内放置一个label控件,设置index为零.
For i = 1 To Len(Text1.Text)
If i >= 2 Then
Load Label1(i - 1) \'动态增加所需要的label
Label1(i - 1).Visible = True
\'Label1(i - 1).Top = Label1(i - 2).Top + 200
\'新生成的label控件位置自己来搞定.
End If
Label1(i - 1).Caption = Mid(Text1.Text, i, 1)
Next i