E-Mail sender Favoritenleiste und noch was...

  • VB.NET

    E-Mail sender Favoritenleiste und noch was...

    Hi,

    ich versuche in VB zurzei meinen Mailer zu perfektionieren. Da ist mir die idee mit einer Art Favoritenleiste in den sinn gekommen. Da mir so was schon mal in meinem Browser gelungen ist, habe ich gedacht, warum ich des nicht gleich auch im Mailer einbaue.

    Leider geht dies plötzlich nicht ;( und brauche da ein paar tipps. Hier mal den code, den mir beim Browser gelungen ist, und den ich im Mailer einbauen wollte.

    VB.NET-Quellcode

    1. Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
    2. My.Settings.Bookmarks.Add(TextBox4.Text)
    3. Favs.DropDownItems.Add(TextBox4.Text)
    4. My.Settings.Save()
    5. End Sub
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. For Each Items As String In My.Settings.Bookmarks
    8. Favs.DropDownItems.Add(Items)
    9. Next
    10. End Sub
    11. End Class


    Es heisst, dass dieses My.Settings.Bookmarks kein member von meinem mailer ist.

    Kann mir da einer weiterhelfen?

    Und dann noch ein Problem. Ich habe mir das SemperVideo Chat angeguckt. Und alles so wie dort programmiert. aber irgenwie reagiert es nicht, es macht nix.
    Hier der Code:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Threading
    3. Imports System.IO
    4. Public Class Form1
    5. Dim listener As New TcpListener(55555)
    6. Dim client As TcpClient
    7. Dim message As String = ""
    9. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    10. listener.Stop()
    11. End Sub
    13. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    14. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    15. listthread.Start()
    16. End Sub
    18. Private Sub listening()
    19. listener.Start()
    20. End Sub
    22. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    23. client = New TcpClient(TextBox1.Text, 55555)
    24. Dim writer As New StreamWriter(client.GetStream())
    26. writer.Write(TextBox2.Text)
    27. writer.Flush()
    28. End Sub
    30. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    31. If listener.Pending = True Then
    32. message = ""
    33. client = listener.AcceptTcpClient()
    35. Dim reader As New StreamReader(client.GetStream)
    36. While reader.Peek > -1
    37. message = message + Convert.ToChar(reader.Read()).ToString
    38. End While
    40. TextBox3.Text = TextBox3.Text & message & vbCrLf
    42. Else : End If
    43. End Sub
    44. End Class




    thx im vorraus

    gfcwfzkm

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „gfcwfzkm“ ()

Facebook
Telefonspende