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.
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:
thx im vorraus
gfcwfzkm
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
- Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
- My.Settings.Bookmarks.Add(TextBox4.Text)
- Favs.DropDownItems.Add(TextBox4.Text)
- My.Settings.Save()
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- For Each Items As String In My.Settings.Bookmarks
- Favs.DropDownItems.Add(Items)
- Next
- End Sub
- 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
- Imports System.Net.Sockets
- Imports System.Threading
- Imports System.IO
- Public Class Form1
- Dim listener As New TcpListener(55555)
- Dim client As TcpClient
- Dim message As String = ""
- Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- listener.Stop()
- End Sub
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- Dim listthread As New Thread(New ThreadStart(AddressOf listening))
- listthread.Start()
- End Sub
- Private Sub listening()
- listener.Start()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- client = New TcpClient(TextBox1.Text, 55555)
- Dim writer As New StreamWriter(client.GetStream())
- writer.Write(TextBox2.Text)
- writer.Flush()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- If listener.Pending = True Then
- message = ""
- client = listener.AcceptTcpClient()
- Dim reader As New StreamReader(client.GetStream)
- While reader.Peek > -1
- message = message + Convert.ToChar(reader.Read()).ToString
- End While
- TextBox3.Text = TextBox3.Text & message & vbCrLf
- Else : End If
- End Sub
- End Class
thx im vorraus
gfcwfzkm
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „gfcwfzkm“ ()