vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
C# zu VB. NET 
Autor: crivi
Datum: 15.03.05 16:49

Hallo zusammen

Ich bin gerade ein kleinen Code von C# zu .Net zu übersetzen.

Hier der Code:

using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
 
namespace Form1 {
	/// Summary description for Form1.
	public class frmMain : System.Windows.Forms.Form {
		private System.Windows.Forms.Button btnStart;
		/// <summary>Required designer variable.</summary>
		private System.ComponentModel.Container components = null;
		private System.Windows.Forms.Button btnStop;
		private System.Windows.Forms.Label lblConnections;
		private System.Windows.Forms.TextBox txtConnections;
		private System.Windows.Forms.TextBox txtStatus;
		private tcp_server.tcp_server x = new tcp_server.tcp_server(100);
 
		public frmMain() {
			// Required for Windows Form Designer support
			InitializeComponent();
 
			// Setup Event for tcp_server
			x.BeginRead += new tcp_server.tcp_server.ReadEventHandler(Read);
			x.BeginConnect += new tcp_server.tcp_server.ConnectEventHandler(Connect);
			x.BeginDisconnect += new tcp_server.tcp_server.DisconnectEventHandler( _
  Disconnect);
		}
 
		/// <summary>
		/// Clean up any resources being used.
		/// </summary>
		protected override void Dispose( bool disposing ) {
			if( disposing ) {
				if (components != null) {
					components.Dispose();
				}
			}
			base.Dispose( disposing );
		}
 
 
		/// <summary>
		/// The main entry point for the application.
		/// </summary>
		[STAThread]
		static void Main() {
			Application.Run(new frmMain());
		}
 
		private void btnStart_Click(object sender, System.EventArgs e) {
			//x.ip_address = System.Net.IPAddress.Parse("123.123.123.123");
			try {
				x.start();
				this.btnStart.Enabled = false;
				this.btnStop.Enabled = true;
				txtStatus.AppendText("TCP Server Started.\r\n");
			} catch (Exception ex) {
				txtStatus.AppendText("Could not start TCP Server\r\n" + ex.Message + _
  "\r\n");
			}
		}
 
 
		private void btnStop_Click(object sender, System.EventArgs e) {
			try {
				x.stop();
				this.btnStart.Enabled = true;
				this.btnStop.Enabled = false;
				txtStatus.AppendText("TCP Server Stoped.\r\n");
			} catch (Exception ex) {
				txtStatus.AppendText("Could not stop TCP Server\r\n" + ex.Message + "\r\n");
			}
		}
 
		private void Connect(object sender, tcp_server.TCPEventArgs e) {
			txtStatus.AppendText("Client " + e.endpoint.ToString() + " in slot " + _
  e.socket_id + " connected.\r\n");
			txtConnections.Text = x.currect_connections.ToString();
		}
 
		private void Disconnect(object sender, tcp_server.TCPEventArgs e) {
			txtStatus.AppendText("Client " + e.endpoint.ToString() + " in slot " + _
  e.socket_id + " disconnected.\r\n");
			txtConnections.Text = x.currect_connections.ToString();
		}
 
		private void Read(object sender, tcp_server.TCPEventArgs e) {
			try {
				int sarray = Split(e.message.Trim().ToUpper()," ");
				txtStatus.AppendText("Socket(" + e.socket_id + "): " + clean_string( _
  e.message.Trim()) + "\r\n");
				switch (clean_string(sarray(0))) {
					case "": break;
					case "HELO":	txtStatus.AppendText("Server -> Socket(HELO " + _
  e.message.Trim() + "\r\n");
						x.WriteLine(e.socket_id, "HELO " + e.message.Trim()); break;
					case "HELP":	txtStatus.AppendText("Server -> Socket(" + e.socket_id + _
  "): 214 WHO - Identifies your socket ID.\r\n214 HELP - This menu (" & _
  "duh!).\r\n214 QUIT - Guess?\r\n");
						x.WriteLine(e.socket_id, "214 WHO - Identifies your socket ID.\r\n214" & _
"HELP - This menu (duh!).\r\n214 QUIT - Guess?\r\n"); break;
					case "QUIT":	txtStatus.AppendText("Server -> Socket(" + e.socket_id + _
"): 221 Server Closing Connection\r\n");
						x.WriteLine(e.socket_id, "221 Server Closing Connection"); x.Disconnect( _
e.socket_id); break;
					default:		txtStatus.AppendText("Server -> Socket(" + e.socket_id + "):" & _
"500 Command Unrecognized\r\n");
						x.WriteLine(e.socket_id, "500 Command Unrecognized"); break;
				}
			} catch (Exception ex) {
				txtStatus.AppendText("Unknown Error:" + ex.Message + "\r\n");
			}
		}
 
		private string clean_string(string message) {
			while (message.IndexOf((char) 8) >= 0) {
				int index = message.IndexOf((char) 8);
				if (index == 0) message = message.Substring(1, message.Length - 1);
				else if (index > 0) message = message.Substring(0, index - 1) + _
  message.Substring(index + 1);
			}
 
			return message;
		}
	}
}
Kann mir jemand sagen, wie ich das in .Net schreiben soll:

x.BeginRead += new tcp_server.tcp_server.ReadEventHandler(Read);
			x.BeginConnect += new tcp_server.tcp_server.ConnectEventHandler(Connect);
			x.BeginDisconnect += new tcp_server.tcp_server.DisconnectEventHandler( _
  Disconnect);
Vielen Dank

gruss Raffi
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
C# zu VB. NET672crivi15.03.05 16:49
Re: C# zu VB. NET467Moderatorralf_oop15.03.05 19:11

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel