vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 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 - Ein- und Umsteiger
Re: Konstruktor fuer Form 
Autor: Stefan1510
Datum: 16.07.07 14:29

Na dann habe ich es ja gut erklärt. :-][
Da sind noch paar Sachen dabei, die ich in den Konstruktor schreiben will.Zum Beispiel das allokieren des Arrays und noch andere Sachen...

code]

Private Sub bt_connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_connect.Click

Try


'Client_Simotion.Client.SocketType
Client_Simotion.Connect("169.254.11.22", 13000)

'get a stream for reading and writting
stream = Client_Simotion.GetStream()

my_writer = New BinaryWriter(stream)



send.steuerbyte = 16

'write in the stream
my_writer.Write(send.message)
my_writer.Write(send.steuerbyte)



'Start my Thread, that the value can be monitored by the VB application
ReceiveThread.Start()

ReDim send.HoleAX(11)
ReDim send.HoleBX(11)
ReDim send.HoleAY(11)
ReDim send.HoleBY(11)


Catch ex As Exception
' catch for faultiy
MsgBox(ex.Message, MsgBoxStyle.OkOnly)

End Try
End SubAber eine Sache gefällt mir noch nicht ganz, ich habe 48 Textboxen, wo was eingegeben werden kann.Ich habe alle mit txtbox1......n bezeichnet, was aber das Problem is, beim schreiben in den BineryWriter muss ich alles aufliesten,keine Schleife kann ich nutzen, oder weist du wie ich einen VARIABLENNAME mit einem Index versehenOder gibt es da nicht ein Array oder so....

Stefan

 
Try
If txt_ah1x.Modified Then
send.HoleAX(0) = Convert.ToInt16(txt_ah1x.Text)
send.n_aholes = send.n_aholes + 1

Else
send.HoleAX(0) = 0
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information)

End Try
Try
If txt_ah2x.Modified Then
send.HoleAX(1) = Convert.ToInt16(txt_ah2x.Text)
send.n_aholes = send.n_aholes + 1
Else
send.HoleAX(1) = 0
End If

Catch ex As Exception

End Try
Try
If txt_ah3x.Modified Then
send.HoleAX(2) = Convert.ToInt16(txt_ah3x.Text)
send.n_aholes = send.n_aholes + 1
Else
send.HoleAX(2) = 0
End If

Catch ex As Exception

End Try

......bis zum 48mal
/code]
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Konstruktor fuer Form1.125Stefan151016.07.07 07:20
Re: Konstruktor fuer Form688spike2416.07.07 07:51
Re: Konstruktor fuer Form618Stefan151016.07.07 09:15
Re: Konstruktor fuer Form655spike2416.07.07 11:17
Re: Konstruktor fuer Form774Stefan151016.07.07 14:15
Re: Konstruktor fuer Form620spike2416.07.07 14:17
Re: Konstruktor fuer Form729Stefan151016.07.07 14:29
Re: Konstruktor fuer Form635spike2416.07.07 16:03

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