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

[Pat21]

@ chenjung
Mit VB arbeite ich zwar schon lange nicht mehr, aber ich kann dir, denke ich, trotzdem helfen.

• Du willst also, dass beim Klick auf den Button deine Favoriten abgespeichert werden ? Warum hast du dann bei dem "Form_Load" ein "My.Computer.FileSystem.WriteAllText("C:/favo/Favorites.dat", inhalt, False)" eingefügt ? Somit werden die ja wieder beim Laden gespeichert.
• Deine Favoriten werden, so wie ich das sehe, nur in einer Textbox aufgelistet, oder ?
• Wie sieht denn der Inhalt der Favoriten.dat aus ? Also, wie ist diese gegliedert ?

[chenjung]

@ chenjung
Mit VB arbeite ich zwar schon lange nicht mehr, aber ich kann dir, denke ich, trotzdem helfen.

• Du willst also, dass beim Klick auf den Button deine Favoriten abgespeichert werden ? Warum hast du dann bei dem "Form_Load" ein "My.Computer.FileSystem.WriteAllText("C:/favo/Favorites.dat", inhalt, False)" eingefügt ? Somit werden die ja wieder beim Laden gespeichert.
• Deine Favoriten werden, so wie ich das sehe, nur in einer Textbox aufgelistet, oder ?
• Wie sieht denn der Inhalt der Favoriten.dat aus ? Also, wie ist diese gegliedert ?

Hi und erstmal danke

Genau, beim drücken im Menü auf Favos hinzufügen, soll die Akteulle Seite gespeichert werden

Zur Zeit sieht es so aus:
<>
http://www.

http://www. habe ich in der Form6 angelegt, aber bringt nichts, denn er macht zwar was, in der Favo.dat, aber dann nur <> (als ich das http noch weggelassen hatte). Aber nicht in die Seite, die abspeichern will ^^

Der aktuelle Code:

 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

[Pat21]

@ chenjung

1. Also, jeder Favorit wird mit <> von einem anderen Favoriten abgegrenzt ?
2. Was du mal machen könntest, wäre eine MessageBox in der if-Abfrage einzubauen, um dir zur Laufzeit anzeigen zu lassen, ob ersten die Datei existiert oder nicht und zweitens, was zur Laufzeit in der Variable "inhalt" steht.
3. Den Code, den du jetzt in der "Form_Load-Function" hast, kannst du eigentlich einfach für die "Button-Fuction" kopieren.
4. So würde ich das machen:
   
   • Die Favoriten würde ich in einer ListBox anzeigen lassen. So kann man diese ganz einfach hinzufügen und auch wieder auslesen.
   • Abspeichern würde ich die Favoriten in einer .xml Datei. So kann man auch relativ einfach für jeden Link ein Word einfügen, was dann anstatt dem ganzen Link angezeigt wird. Z.B. Google anstatt http://www.google.de

Wenn es dir recht ist, dann kannst du mit mal dein VB-Projekt schicken. So könnte ich mir das genauer anschauen.

[chenjung]

@ chenjung

1. Also, jeder Favorit wird mit <> von einem anderen Favoriten abgegrenzt ?
2. Was du mal machen könntest, wäre eine MessageBox in der if-Abfrage einzubauen, um dir zur Laufzeit anzeigen zu lassen, ob ersten die Datei existiert oder nicht und zweitens, was zur Laufzeit in der Variable "inhalt" steht.
3. Den Code, den du jetzt in der "Form_Load-Function" hast, kannst du eigentlich einfach für die "Button-Fuction" kopieren.
4. So würde ich das machen:
   • Die Favoriten würde ich in einer ListBox anzeigen lassen. So kann man diese ganz einfach hinzufügen und auch wieder auslesen.
   • Abspeichern würde ich die Favoriten in einer .xml Datei. So kann man auch relativ einfach für jeden Link ein Word einfügen, was dann anstatt dem ganzen Link angezeigt wird. Z.B. Google anstatt http://www.google.de

Wenn es dir recht ist, dann kannst du mit mal dein VB-Projekt schicken. So könnte ich mir das genauer anschauen.

Klar kein Thema.

Ich habe schon massenhaft Google, Foren durchsucht, aber irgendwie versteh ich das alles nicht ^^ Oder ich bin noch zu Grün

Ich sende dir ne PN mit dem DL Link

Danke

PS: Durchs kopieren, scheint es nun zu gehen Ich kann einen Titel eingeben und die URL allerdings, macht er jetzt keinen umbruch, ist das so normal?
Denn dann muss ich sie noch sichtbar machen, sprich, das man die Favos auch wieder laden kann ^^

[Aerox]

hört sich spannend an, was ihr so programmiert. Könnte ich fragen, wo man VB programmieren lernt?

P.S. Kennt sich einer von euch gut mit PHP, HTML, CSS, Java aus?