Hallo,
wie man in meiner Sig sehen kann,
bin ich grade einen Editor, speziell für Web-Auftritte am programmieren.
Im Momment sitze ich an den Tabs, was sich nicht so ganz einfach gestaltet.
Problem:
Ich möchte, nachdem ich durch das öffnen einer Datei bzw. einer neuen Datei auf die letzte TabPage (also auf das erstellte Element) zugreifen.
Dazu habe ich mir folgendes überlegt:
definition von AddOpenTab
Problem: Es wird zwar eine die datei geöffnet, aber die tabpage wird nicht angezeigt(also sie wird schon hinzugefügt) und der editor bekommt seine sprache net.
Leider auch ohne Fehler, was mir hätte weiterhelfen können.
Hattet ihr das problem vllt schonmal?
lg.
wie man in meiner Sig sehen kann,
bin ich grade einen Editor, speziell für Web-Auftritte am programmieren.
Im Momment sitze ich an den Tabs, was sich nicht so ganz einfach gestaltet.
Problem:
Ich möchte, nachdem ich durch das öffnen einer Datei bzw. einer neuen Datei auf die letzte TabPage (also auf das erstellte Element) zugreifen.
Dazu habe ich mir folgendes überlegt:
VB.NET-Quellcode
- Dim ofd As New OpenFileDialog
- ofd.Filter = "HTML-Dateien|*.html|HTM-Dateien|*.htm|PHP-Dateien|*.php|CSS-Dateien|*.css|JavaScript-Dateien|*.js|VBScript-Dateien|*.vbs"
- ofd.Title = "Datei auswählen..."
- ofd.FilterIndex = 3
- ofd.FileName = ""
- ofd.ShowDialog()
- Dim code As String = 0 ' was in den editor eingefügt werden soll, wird unten eingefügt.
- Try
- code = My.Computer.FileSystem.ReadAllText(ofd.FileName) '..sollte abbrechen gedrückt werden, wird keine neue datei erstellt, sonst neuer tab + inhalt
- Catch ex As Exception
- Exit Sub
- End Try
- Dim tcn As String = ofd.SafeFileName ' = der eigentliche Dateiname, der als name auf der TabPage erscheinen soll
- AddOpenTab(TabControl1, code, tcn) ' siehe definition
- Dim el As Integer = TabControl1.SelectedIndex = TabControl1.TabPages.Count ' = letzte tabpage
- Dim editor As CodeEditorControl = TabControl1.TabPages.Item(el).Controls.Item(0) ' um dem Editor seine Sprache zuzuweisen
- CodeEditorSyntaxLoader.SetSyntax(editor, SyntaxLanguage.HTML) ' genau so, soll nur dynamischer sein, werde noch ne erkennung d. sprache einbauen
- TabControl1.SelectTab(el) ' auf letzten tab wechseln
definition von AddOpenTab
VB.NET-Quellcode
- Dim editor As New CodeEditorControl
- Dim Tab As New TabPage
- editor.Tag = TabControl
- TabControl.Tag = editor
- TabControl.Controls.Add(Tab)
- Tab.Controls.Add(editor)
- Tab.Text = name
- editor.Anchor = AnchorStyles.Right ' ja, hätte man zusammenfassen können, fällt mir grad auf ^^
- editor.Anchor += AnchorStyles.Left
- editor.Anchor += AnchorStyles.Top
- editor.Anchor += AnchorStyles.Bottom
- editor.Height = TabControl.Height - 26
- editor.Width = TabControl.Width - 8
- editor.Document.Text = text
Problem: Es wird zwar eine die datei geöffnet, aber die tabpage wird nicht angezeigt(also sie wird schon hinzugefügt) und der editor bekommt seine sprache net.
Leider auch ohne Fehler, was mir hätte weiterhelfen können.
Hattet ihr das problem vllt schonmal?
lg.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „martinustreveri“ ()