VB Programmieren Allgemein

[chenjung]

Bin mir nicht sicher, ob es so einen gibt, die SuFu hat mir keine Ergebnisse geliefert, falls schon vorhanden, den hier einfach Löschen ^^

Wer arbeitet denn alles mit VB? Wenn es jemand tut, dann nur her damit ^^

Mein Projekt ist ein Browser (BETA schon online http://www.chenjung.crymaps.eu) An dem arbeite ich zur Zeit ^^



Ich erläutere hier nochmal mein Problem. Ich habe mir einen kleinen Webbrowser erstellt, hänge aber nun am Favos speichern, wie im anderen Topic, speicher er meine Favos nicht (da ich wohl dem Button noch keinen Befehl zugeordnet habe) und dazu stehe ich jetzt noch voll auf dem Schlauch ^^

Habe wie mir gesagt wurde, den Code nun angepasst:

Favo hinzufügen Form

Public Class Form6

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim inhalt As String
        If My.Computer.FileSystem.FileExists("C:/favo/Favorites.dat") = True Then
            inhalt = My.Computer.FileSystem.ReadAllText("C:/favo/Favorites.dat")
            inhalt = inhalt & vbNewLine & TextBox1.Text & "<>" & TextBox2.Text
        Else
            inhalt = TextBox1.Text & "<>" & TextBox2.Text
        End If
        My.Computer.FileSystem.WriteAllText("C:/favo/Favorites.dat", inhalt, False)
        ' Ggf neu einlesen, damit neuer Favorit direkt sichtbar

    End Sub

Button:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

Da fehlt dann sowas wie sumit oder so ^^ Leider totaler Anfägner in VB ^^

Die Favo hat er erstellt, aber meine Einträge übernimmt er nicht :\

PS: So gehts auch nich wirklich, er übernimmt nicht meinen eintrag

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim inhalt As String
        If My.Computer.FileSystem.FileExists("C:/favo/Favorites.txt") = True Then
            inhalt = My.Computer.FileSystem.ReadAllText("C:/favo/Favorites.txt")
            inhalt = inhalt & vbNewLine & TextBox1.Text & "http://www." & TextBox2.Text
        Else
            inhalt = TextBox1.Text & "http://www." & TextBox2.Text
        End If
        My.Computer.FileSystem.WriteAllText("C:/favo/Favorites.txt", inhalt, False)
        ' Ggf neu einlesen, damit neuer Favorit direkt sichtbar