?? function.bas
字號:
Function ReturnFileName (F As String) As String
Dim Temp As String
Dim StartPos As Long
StartPos = InStr(F, "\")
If StartPos = 0 Then
ReturnFileName = F
Exit Function
End If
F = Right$(F, Len(F) - StartPos)
Temp = ReturnFileName(F)
ReturnFileName = Temp
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -