設置窗體名稱等於拖放文件標題vb

-5

我想在VB中創建文本編輯器。我的文本編輯器已經可以讀取和寫入文本文件，但我想要比這更好的東西。當我拖放.txt文件到我的.exe程序時，我的程序將讀取.txt文件的上下文。但問題是，我想[Form1.Text]是我已經丟棄的文件的路徑。例如，當您打開與寫字板文件，你可以看到該文件的名稱在上面：TextFile.txt的 - 寫字板設置窗體名稱等於拖放文件標題vb

這就是代碼：

Private Sub ReadingText(sender As Object, e As EventArgs) Handles Me.Load 
    Dim arguments As String = Command() 
    If arguments = String.Empty Then 
     RichTextBox1.Text += vbCrLf & vbCrLf & vbCrLf 
    Else 
     Dim tempstr As String = arguments.Replace("""", "") 
     Dim SR As New System.IO.StreamReader(tempstr) 
     RichTextBox1.Text = vbCrLf & SR.ReadToEnd 
     Try 
      SR.Close() 
     Catch ex As Exception 
      RichTextBox1.Text += ex.ToString 
     End Try 
    End If 
End Sub

你能幫忙嗎？？

來源

2015-08-09 Technologuy

編輯您的標題以適應曲目在投票之前選擇它 – LordTitiKaka

說你想要「更好」的東西非常廣泛。具體一點，你現在很難在這個問題的立場上找到任何幫助 – iamkrillin

你已經拿到了文件名中的tempstr變量，只是用它：

Dim tempstr As String = arguments.Replace("""", "") 
    Me.Text = tempstr & " - YourTextEditorNameHere"  
    Dim SR As New System.IO.StreamReader(tempstr)

如果你不想的完整路徑，用Path.GetFileName()：

Dim tempstr As String = arguments.Replace("""", "") 
    Me.Text = System.IO.Path.GetFileName(tempstr) & " - YourTextEditorNameHere"  
    Dim SR As New System.IO.StreamReader(tempstr)

如果你不想擴展名，請使用Path.GetFileNameWithoutExtension()：

Dim tempstr As String = arguments.Replace("""", "") 
    Me.Text = System.IO.Path.GetFileNameWithoutExtension(tempstr) & " - YourTextEditorNameHere"  
    Dim SR As New System.IO.StreamReader(tempstr)

來源

2015-08-09 15:44:59

非常感謝！這正是我想要的.. :)我保證我會在未來更具體。 – Technologuy

設置窗體名稱等於拖放文件標題vb

回答

相關問題