Hallo zusammen,
ich steh mal wieder von einem Problem... und komm trotz stundenlanger recherche zu nichts.
Ich hab in meiner Form eine Richtextbox in der Kommentare zu einem Projekt aus einer .txt geladen werden.
Jeder kommentar beginnt mit einem Datum (soll Fett markiert werden) und kann in den folgenden Zeilen auch gerne links enthalten.
Deshalb habe ich mich für eine Richtextbox entschieden.
Bei dem Click-Event lese ich nun aus, ob ich auf ein Datum klicke, denn dann soll im Webbrowser der Explorer dazu geöffnet werden.
Klick ich auf eine web-Adresse, soll der Standardbrowser geöffnet werden und falls ein Pfad ausgewählt wird, dann soll dieser auch im Webbrowser angezeigt werden.
Mein Problem ist nun das öffnen des Standardbrowsers. Sobwald ich auf einen link (z.B. google.de) klicke, behält meine Richttextbox diese Position. (--> Zeile 60)
Öffne ich den Link in meinem Webbrowser auf der Form funktioniert alles bestens. (--> Zeile 59)
Ich hoff ich konnte es einigermaßen rüberbringen.
Im Anhang hab ein Screenshot der Oberfläche, vielleicht macht die es etwas verständlicher
Hier ein Ausschnitt des Problemcodes: (Bin übrigen absoluter Anfänger und über Tips sehr dankbar, falls etwas ganz schrecklich ist )
Liebe Grüße
Sarah
ich steh mal wieder von einem Problem... und komm trotz stundenlanger recherche zu nichts.
Ich hab in meiner Form eine Richtextbox in der Kommentare zu einem Projekt aus einer .txt geladen werden.
Jeder kommentar beginnt mit einem Datum (soll Fett markiert werden) und kann in den folgenden Zeilen auch gerne links enthalten.
Deshalb habe ich mich für eine Richtextbox entschieden.
Bei dem Click-Event lese ich nun aus, ob ich auf ein Datum klicke, denn dann soll im Webbrowser der Explorer dazu geöffnet werden.
Klick ich auf eine web-Adresse, soll der Standardbrowser geöffnet werden und falls ein Pfad ausgewählt wird, dann soll dieser auch im Webbrowser angezeigt werden.
Mein Problem ist nun das öffnen des Standardbrowsers. Sobwald ich auf einen link (z.B. google.de) klicke, behält meine Richttextbox diese Position. (--> Zeile 60)
Öffne ich den Link in meinem Webbrowser auf der Form funktioniert alles bestens. (--> Zeile 59)
Ich hoff ich konnte es einigermaßen rüberbringen.
Im Anhang hab ein Screenshot der Oberfläche, vielleicht macht die es etwas verständlicher
Hier ein Ausschnitt des Problemcodes: (Bin übrigen absoluter Anfänger und über Tips sehr dankbar, falls etwas ganz schrecklich ist )
VB.NET-Quellcode
- Private Sub RichTextBox1_Click(sender As Object, e As EventArgs) Handles RichTextBox1.Click
- 'Felder leeren
- Form3.Komm_ID.Text = ""
- Form3.Komm_Zeile1.Text = ""
- Form3.Komm_Zeile2.Text = ""
- Form3.Komm_Zeile3.Text = ""
- Form3.Komm_Zeile4.Text = ""
- Form3.Komm_Zeile5.Text = ""
- 'Ausgewähle Zeile auslesen
- Dim Ausw_ZeileIndex As Integer = RichTextBox1.GetLineFromCharIndex(RichTextBox1.SelectionStart)
- Dim Ausw_Zeile As String = RichTextBox1.Lines(Ausw_ZeileIndex)
- 'Aktuelle Position der Richtextbox - zur Info
- Dim pos As Integer = RichTextBox1.SelectionStart
- MsgBox(pos)
- If RichTextBox1.GetLineFromCharIndex(RichTextBox1.SelectionStart) <> 0 Then
- If Ausw_Zeile.Length = 10 Then
- 'DATUM AUSGEWÄHLT
- If Ausw_Zeile.Substring(2, 1) = "." And Ausw_Zeile.Substring(5, 1) = "." Then
- 'Markierten Text in DB suchen
- Dim index = 0
- For Each DB_Zeile As String In TextBox14.Lines
- index += 1 ' Zeilennummern von 1 ... n
- If DB_Zeile.Contains(Ausw_Zeile) Then
- 'Kommentar aus Datenbank in Textfelder übernehmen
- Form3.Komm_ID.Text = DB_Zeile
- Form3.Komm_Zeile1.Text = TextBox14.Lines(index)
- Form3.Komm_Zeile2.Text = TextBox14.Lines(index + 1)
- Form3.Komm_Zeile3.Text = TextBox14.Lines(index + 2)
- Form3.Komm_Zeile4.Text = TextBox14.Lines(index + 3)
- Form3.Komm_Zeile5.Text = TextBox14.Lines(index + 4)
- Label12.Text = Form3.Komm_ID.Text
- 'PFAD AUSLESEN
- Dim dd As String = Form3.Komm_ID.Text.Substring(0, 2)
- Dim mm As String = Form3.Komm_ID.Text.Substring(3, 2)
- Dim yyyy As String = Form3.Komm_ID.Text.Substring(6, 4)
- Dim Browser As String = ProjektePfad & Abteilung & "_" & Bereich & "\" & TextBox4.Text & "\" & yyyy & "_" & mm & "_" & dd
- 'MsgBox(Browser)
- If IO.Directory.Exists(Browser) Then
- WebBrowser1.Navigate(Browser)
- 'TabControl4.TabPages(4).BackColor
- Else
- IO.Directory.CreateDirectory(Browser)
- WebBrowser1.Navigate(Browser)
- End If
- End If
- Next
- End If
- 'LINK AUSGEWÄHLT
- ElseIf Ausw_Zeile.Contains("www.") Or Ausw_Zeile.Contains("http") Then
- Label12.Text = Ausw_Zeile
- WebBrowser1.Navigate(Ausw_Zeile) 'Funktioniert tadellos
- 'Process.Start(Ausw_Zeile) 'Einmal geklickt, bleibt die Position immer
- 'PFAD AUSGEWÄHLT
- ElseIf Ausw_Zeile.Contains(":\") Or Ausw_Zeile.Contains("\\") Then
- If Not Ausw_Zeile.Contains("www.") Or Ausw_Zeile.Contains("http") Then
- Label12.Text = Ausw_Zeile
- WebBrowser1.Navigate(Ausw_Zeile)
- RichTextBox1.Select(240, 0)
- End If
- 'LEERE ZEILE AUSGEWÄHLT
- Else
- Label12.Text = ""
- WebBrowser1.Navigate("about:blank")
- End If
- End If
- End Sub 'KOMMENTAR LADEN
Liebe Grüße
Sarah