VB6的一个小问题~~~
来源:百度知道 编辑:UC知道 时间:2024/08/22 11:22:16
Private Sub Cmd_add_Click()
CommonDialog1.CancelError = True
On Error GoTo errtrap
CommonDialog1.ShowOpen
Text1.SelText = "#"
Text1.SelText = vbCrLf
Text1.SelText = CommonDialog1.FileName & vbCrLf
errtrap:
End Sub
以上的代码我想把Text1.SelText = CommonDialog1.FileName & vbCrLf 代码中显示在TEXT1的盘符去掉(例如:C:\cmd.txt变为\cmd.txt)~怎么改?
CommonDialog1.CancelError = True
On Error GoTo errtrap
CommonDialog1.ShowOpen
Text1.SelText = "#"
Text1.SelText = vbCrLf
Text1.SelText = CommonDialog1.FileName & vbCrLf
errtrap:
End Sub
以上的代码我想把Text1.SelText = CommonDialog1.FileName & vbCrLf 代码中显示在TEXT1的盘符去掉(例如:C:\cmd.txt变为\cmd.txt)~怎么改?
Text1.SelText = Mid$(Text1.SelText,2)
基本思想就是, 用Mid字符串截取函数进行截取,
那么应该从哪开始截呢,
那就是从
此字符串的第2位开始截取,
一直截到哪为止呢,
截到尾部为止.