vb text里内容的上一行下一行
答案:1 悬赏:0 手机版
解决时间 2021-03-22 09:15
- 提问者网友：送舟行
- 2021-03-21 14:29
vb text里内容的上一行下一行
最佳答案
- 五星知识达人网友：想偏头吻你
- 2021-03-21 15:27
VB读取text第N行：
Dim T() As String, N
N = 1
T() = Split(Text1.Text, vbCrLf)
MsgBox "第" & N & "行的内容为: " + T(N - 1)追问高手这个你测试过了吗...追答Private Sub Command1_Click() '上一行
Dim T() As String, N
T() = Split(Text1.Text, vbCrLf)
For N = 1 To UBound(T) + 1
If T(N - 1) = Text2.Text Then
If Val(N) - 2 >= 0 Then
Text2.Text = T(N - 2)
Else
MsgBox Text2.Text & "为第一行"
End If
End If
Next
End Sub
Dim T() As String, N
N = 1
T() = Split(Text1.Text, vbCrLf)
MsgBox "第" & N & "行的内容为: " + T(N - 1)追问高手这个你测试过了吗...追答Private Sub Command1_Click() '上一行
Dim T() As String, N
T() = Split(Text1.Text, vbCrLf)
For N = 1 To UBound(T) + 1
If T(N - 1) = Text2.Text Then
If Val(N) - 2 >= 0 Then
Text2.Text = T(N - 2)
Else
MsgBox Text2.Text & "为第一行"
End If
End If
Next
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯