UC知道VB如何删除最后一行最后一个字符
来源：百度知道 编辑：UC知道 时间：2024/06/30 13:40:50
例如：我想把最后一行的最后一个字符去掉
VB6DEBUG.DLL/b+
VB6EXT.OLB/b+
VB6IDE.DLL/b+
结果
VB6DEBUG.DLL/b+
VB6EXT.OLB/b+
VB6IDE.DLL/b
如何写代码？？？
VB6DEBUG.DLL/b+
VB6EXT.OLB/b+
VB6IDE.DLL/b+
结果
VB6DEBUG.DLL/b+
VB6EXT.OLB/b+
VB6IDE.DLL/b
如何写代码？？？
添加Text1、Command1控件，添加代码：
Private Sub Form_Load()
Text1.MultiLine=True
End Sub
Private Sub Command1_Click()
Text1.Text=Left(Text1.Text,Len(Text1.Text)-1)
End Sub
用left函数
dim s
s = Left(Text1.Text, Len(Text1.Text) - 1)
form1.print s (接受Print事件的有form和picture控件)
用mid函数
Dim s
s = Mid(Text1.Text, Len(Text1.Text), 1)
MsgBox s
ringt函数也可以
Dim a As String
a = Left(Text1.Text, Len(Text1.Text) - 1)
MsgBox a