so funktioniert es halb wegs
Ich habe jetzt natürlich nicht die Zeit mich durch die ganze Applikations logk zu arbeiten. Möchte ja auch in meiner Software weiter kommen.Code:Private Sub RnWizard_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd If MyAppName = "Radar" Then Dim TempBitmap As Bitmap If Equals(Me.PictureBox2.Image, Nothing) Then Me.PictureBox2.Image = New Bitmap(PictureBox2.Width, PictureBox2.Height) Else Me.PictureBox2.Image.Dispose() Me.PictureBox2.Image = New Bitmap(PictureBox2.Width, PictureBox2.Height) End If Dim LokalDC As Graphics LokalDC = Graphics.FromImage(Me.PictureBox2.Image) Dim CircleLocalHighSero2 As Integer For i As Integer = 1 To PictureBox2.Height Step 40 CircleLocalHighSero2 = ((PictureBox2.Height / 2) - (i / 2)) 'Den Zeichen-Nullpunkt zuweisen LokalDC.DrawEllipse(New Drawing.Pen(ColorCircle), CircleLocalHighSero2, CircleLocalHighSero2, i, i) Next LokalDC.Dispose() End If End Sub
Hast du zwei Com's (RS232) an deinem PC oder zwei PC's zum Testen ?
Wegen der AVRSim. Währe es dir möglich was ein zubauen das beim Demo der simulor für die AVR Telegramme mal gestartet wird mal nicht ?
Zu den Try Blöcken: es gabe bei meinen ersten Versuch zb Execption bei den zuweißen des Graphics wei eben noch kein Bitmap in der Picturebox war. Nur ohne Try block sieht man die nur im Debugger. in Dot net schein alles über exceptions zu laufen.
Gruß







Zitieren

Lesezeichen