Hallo
Ich brauche mal hilfe zu diesen Fragen:
- Wie kann ich den Arbeitsplatz, Systemsteuerung, Netzwerk und andere Orte in einem Webbrowser aufrufen
- Wie schaff ich das das in der Textbox und im Statusbereich das file:// weg bekomme
- Wie schaff ich das das ich Bei XP die eigenen Dateien und bei Vista mit nur einem Eintrag
Hier ist ersmal der Source Code von meinem Explorer:
Hoffe auf Hilfe und noch Tips zum einfügen...
Gruß
Ich brauche mal hilfe zu diesen Fragen:
- Wie kann ich den Arbeitsplatz, Systemsteuerung, Netzwerk und andere Orte in einem Webbrowser aufrufen
- Wie schaff ich das das in der Textbox und im Statusbereich das file:// weg bekomme
- Wie schaff ich das das ich Bei XP die eigenen Dateien und bei Vista mit nur einem Eintrag
Hier ist ersmal der Source Code von meinem Explorer:
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- WebBrowser1.Navigate("File://" + TextBox1.Text)
- End Sub
- Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- Me.Text = WebBrowser1.DocumentTitle + " - MayExplorer"
- TextBox1.Text = WebBrowser1.Url.ToString
- PATHNAME.Text = WebBrowser1.Url.ToString
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.Text = WebBrowser1.DocumentTitle + " - MayExplorer"
- Timer1.Enabled = True
- PATHNAME.Text = WebBrowser1.Url.ToString
- End Sub
- Private Sub ArbeitsplatzToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArbeitsplatzToolStripMenuItem.Click
- WebBrowser1.Navigate("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
- 'Funktioniert nicht
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- CLOCK.Text = TimeOfDay
- End Sub
- Private Sub NetzwerkToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NetzwerkToolStripMenuItem.Click
- WebBrowser1.Navigate("::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}")
- 'Funktioniert nicht
- End Sub
- Private Sub EigeneDateienToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EigeneDateienToolStripMenuItem.Click
- End Sub
- Private Sub SystemsteuerungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SystemsteuerungToolStripMenuItem.Click
- WebBrowser1.Navigate("::{5399E694-6CE5-4D6C-8FCE-1D8870FDCBA0}")
- 'Funktioniert nicht
- End Sub
- End Class
Hoffe auf Hilfe und noch Tips zum einfügen...
Gruß