Du bist nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Visual-Basic-Forum VB-Paradise.de. Falls dies dein erster Besuch auf dieser Seite ist, lies bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich hier anmelden.
Mittwoch, 11. April 2012, 19:04
|
Visual Basic Quellcode |
1 2 3 4 |
Imports System.IOPublic Class Formi Dim Dim1 As String = TextBox1.Text Dim Dim2 As String = FolderBrowserDialog1.SelectedPath Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click FolderBrowserDialog1.ShowDialog() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Dim1.Contains("" & " ") Then TextBox1.BackColor = Color.Crimson MsgBox("Name darf nicht leer sein!!!", MsgBoxStyle.Exclamation) TextBox1.Text = " " Else If ComboBox1.Text = ".txt" Then RichTextBox1.SaveFile(Dim2 & "\" & Dim1 & ".rtf", RichTextBoxStreamType.RichText) Else RichTextBox1.SaveFile(Dim2 & Dim1 & ".txt", RichTextBoxStreamType.PlainText) End If End If If Dim1.Contains("\") Then TextBox1.BackColor = Color.Crimson MsgBox("Name darf kein '\' enthalten!!!", MsgBoxStyle.Exclamation) TextBox1.Clear() Else If ComboBox1.Text = ".txt" Then RichTextBox1.SaveFile(Dim2 & Dim1 & ".rtf", RichTextBoxStreamType.RichText) Else RichTextBox1.SaveFile(Dim2 & Dim1 & ".txt", RichTextBoxStreamType.PlainText) End If End If End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If Dim1.Contains("\" Or " ") Then TextBox1.BackColor = Color.Crimson Else TextBox1.BackColor = Color.White End If End SubEnd Class |
|
|
Visual Basic Quellcode |
1 |
Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click Frm1 = RichTextBox1.Text Form2.Show() Form2.RichTextBox1.Text = Frm1 End Sub |
Hier klicken für weitere Informationen
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »einnamehalt« (12. April 2012, 12:42)
Mittwoch, 11. April 2012, 19:28
Donnerstag, 12. April 2012, 07:42
|
|
Visual Basic Quellcode |
1 2 |
Dim Dim1 As String = TextBox1.Text Dim Dim2 As String = FolderBrowserDialog1.SelectedPath |
|
|
Visual Basic Quellcode |
1 2 3 4 5 6 |
Private Dim1 As String Private Dim2 As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim1 = TextBox1.Text Dim2 = FolderBrowserDialog1.SelectedPath End Sub |
Donnerstag, 12. April 2012, 09:21
Donnerstag, 12. April 2012, 12:39
ich brauchs nich
Zitat
Und wieso brauchst du zum Abspeichern ein Extra-Form?
ich wills einfach Sry des geht nich: Gleicher fehler wie obeen :/Das ist der Fehler:
Visual Basic Quellcode
Mach es so:
Visual Basic Quellcode
Sry Blick ich nichund ich sag noch, warum:
Weil als KlassenVariabel wird Dim1 bereits initialisiert, bevor die Textbox initialisiert ist, und zu diesem verfrühten Zeitpunkt ist deren Text natürlich "".
Daher ins Form_Load, weil das wird nach Initialisierung aller Controls gefeuert.
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von »einnamehalt« (12. April 2012, 12:53)
Donnerstag, 12. April 2012, 13:00
Sry Blick ich nich
Donnerstag, 12. April 2012, 13:35
was habe ich unverständlich ausgedrückt? Was ist daran unverständlich (oder hast dus inzwischen verstanden)?Sry Sry habs nur nich ganz verstanden du hast des so unverstädlich ausgedrückt
Wie gesagt: Rods Vorschlag scheint mir unbedingt zielführend, den sollteste einbauen, und dann den Code posten - vlt. hasten ja falsch eingebaut.
der code is der gleiche weil des was die anderen vorgeschlagen haben leider nichts gebracht hat
Donnerstag, 12. April 2012, 13:38
Unterstrichen : was meinst du damit?und ich sag noch, warum:
Weil als KlassenVariabel wird Dim1 bereits initialisiert, bevor die Textbox initialisiert ist, und zu diesem verfrühten Zeitpunkt ist deren Text natürlich "".
Daher ins Form_Load, weil das wird nach Initialisierung aller Controls gefeuert.
Donnerstag, 12. April 2012, 14:06
damit beziehe ich mich auf Rods richtigen Vorschlag, und füge diesem Vorschlag eine Erklärung hinzuund ich sag noch, warum:
hier sind 2 Begriffe enthalten: klassenvariable und initialisieren: welchen verstehst du nicht?
Weil als KlassenVariabel wird Dim1 bereits initialisiert
... ah - initialisieren
bevor die Textbox initialisiert
man muß eine Variable zunächst deklarieren, zB.Damit kann man aber noch nix tun, weil ist ja noch nur eine leere Stelle (Nothing). Erst durch Zuweisung eines Wertes kann man mit der Variablen was anfangen - das meint initialisieren.
Visual Basic Quellcode
dim Dim1
Dein Fehler besteht darin, dass du Textbox1.Text bereits abrufst, bevor an die Textbox1-Variable (es ist ja eine Variable) etwas zugewiesen ist. Daher auch die InnerException, die sagt: "Objekt wird verwendet, bevor etwas zugewiesen ist"
Das war Fehler von mir. Zu dem Zeitpunkt, wo du auf Textbox1.Text zugreifst, existiert Textbox1 garnet, und daher ist ihre .Text-Property nichtmal "", sondern du kriegst gleich die Fehlermeldung
ist, und zu diesem verfrühten Zeitpunkt ist deren Text natürlich "".
Das Form_Load ist ein Ereignis, in dem du Code plazieren kannst (wie Rod zeigt). Die Ereignismethode wird dir generiert, wenn du im Form-Designer einen Doppelklick auf die TitelLeiste deines Forms klickst. Diese Ereignis-Methode wird aufgerufen, nachdem die Controls des Forms initialisiert sind.
Daher ins Form_Load, weil das wird nach Initialisierung aller Controls gefeuert.
Wofür entschuldigst du dich ? Hast du was angestellt? Erscheint dir mein Ton pampig? Das bedeutet nichts - meine schlechten Umgangsformen sind genetisch bedingt
Sorry
Donnerstag, 12. April 2012, 14:41
Sry des geht nich: Gleicher fehler wie obeen
Donnerstag, 12. April 2012, 19:38
ja dein Ton erschien pampigWofür entschuldigst du dich ? Hast du was angestellt? Erscheint dir mein Ton pampig? Das bedeutet nichts - meine schlechten Umgangsformen sind genetisch bedingt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »hal2000« (15. April 2012, 12:41)
Donnerstag, 12. April 2012, 20:04
SSL aktivieren
Stil ändern
Mittwoch, 19. Juni 2013, 15:41
Zum SeitenanfangForensoftware: Burning Board®, entwickelt von WoltLab® GmbH
