回 帖 发 新 帖 刷新版面

主题:Text1.Text中的前三行

怎样读取Text1.Text中的前三行,代码该怎么写?

Private Sub Form_Load()
Text1.multiline=True
Text1.Text = "123" & vbCrLf & "456" & vbCrLf & "789" & vbCrLf & "012"
End Sub

Private Sub Command1_Click()
label1.caption=Text1.Text中的前三行      '代码该怎么写?
End Sub

回复列表 (共2个回复)

沙发

Private Sub Command1_Click()
dim arr
arr = split(Text1.Text,vbCrLf)
label1.caption= arr(0) & arr(1) & arr(2)      '代码该怎么写?
End Sub

试试看这样行不行哦!

板凳

谢谢!

我来回复

您尚未登录,请登录后再回复。点此登录或注册