Me.Invalidate bei Usercontrol macht Probleme

Slayers · 24. September 2011, 18:28

Hallo Liebe Community, mal wieder stehe ich vor einem Rätsel.

Das Rätsel hat einen für mich nicht definierbaren Ursprung.

Folgendes Problem :

Ich habe ein Usercontrol erstellt, welches ich komplett mit GDI zeichnen lasse. Das mache ich mit der "Control_Paint" methode. Das Zeichnen veranlasse ich durch "Control.Invalidate" welches alle 25ms in einem Thread ausgeführt wird.

Wenn ich das Usercontrol jetzt auf meiner Form platziere, und der Thread startet, dann sind alle Pictureboxen die sich auf der Form befinden welches das Control enthält schwarz. und es tut sich nichts mehr. Nur das Control arbeitet ordnungsgemäß.

Ich verstehe das nicht. Was kann ich machen das ich trotzdem die Bilder der Picturebox weiterhin sehe ?

Grüße
Slayers

RodFromGermany · 24. September 2011, 18:39

Slayers schrieb:

welches alle 25ms in einem Thread ausgeführt wird.

Wozu soll das gut sein.
Invalidisiere Dein Control genau dann, wenn sich der Inhalt ändert.

Slayers · 24. September 2011, 18:42

Das tut es ja. Ich möchte gerne einen Text á la Ticker anzeigen lassen. Du weißt ja in diesem Falle worum es geht.

Vielleicht gibt es auch eine andere Möglichkeit einen Newsticker darzustellen. Vielleicht könne mir da jemand mal zur Seite stehen. Ich bin echt am verzweifeln. und die Deadline ist der 4.10

RodFromGermany · 24. September 2011, 18:45

Slayers schrieb:

Vielleicht gibt es auch eine andere Möglichkeit einen Newsticker darzustellen.

Was verstehst Du darunter?
Soss es im Takt flackern?
Dann nimm lieber den Timer und schalte das Control

VB.NET-Quellcode

Visible = False
Sleep(nn)
Visible = True

Slayers · 24. September 2011, 18:48

Nein das mit dem Flackern möchte ich nicht. Ich möchte einfach einen Text Flüssig von rechts nach Links faden lassen.
Ohne ruckler und ohne Flimmern/Flackern

RodFromGermany · 24. September 2011, 18:56

Der Timertakt ist also der Text-Fließ-Takt?
Rufst Du das Invalidate von außen auf?
Übergib lieber den Text und lass das Control den Rest allein machen.

Slayers · 24. September 2011, 19:09

Zur zeit mache ich es so :

Quellcode

VB.NET-Quellcode

Option Explicit On
'Option Strict On
Namespace NewsTickerS
Public Class NewsTicker
Inherits System.Windows.Forms.UserControl
#Region " Vom Windows Form Designer generierter Code "
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.SuspendLayout()
'
'NewsTicker
'
Me.BackColor = System.Drawing.SystemColors.Control
Me.DoubleBuffered = True
Me.Name = "NewsTicker"
Me.Size = New System.Drawing.Size(301, 23)
Me.ResumeLayout(False)
End Sub
#End Region
#Region " --------------->> Enumerationen der Klasse "
'{Enumerationen}
#End Region '{Enumerationen der Klasse}
#Region " --------------->> Eigenschaften der Klasse "
'{Eigenschaften}
Private Painter As Graphics = Graphics.FromHwnd(Me.Handle)
Private BMP As Bitmap
Private CurrentX As System.Single = Me.Height
Private WaitIntervall As Integer = 25
Private FadeIntervall As Integer = 75
Private Fade As Boolean = False
Private Delegate Sub DInvalidate()
Private MausLocation As Single
Private _NewsCustom As New System.Collections.Generic.List(Of NewsTickerS.NewsString)
#End Region '{Eigenschaften der Klasse}
#Region " --------------->> Konstruktor und Destruktor der Klasse "
'{Konstruktor/ Destruktor}
Public Sub New()
'{Konstruktor}
MyBase.New()
InitializeComponent()
'BMP = New Bitmap(Me.Width, Me.Height)
'Painter = Graphics.FromHdc(Me.Handle) ' System.Drawing.Graphics.FromImage(BMP)
'Me.SetStyle(ControlStyles.DoubleBuffer, True)
'Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
'Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
Protected Overrides Sub Finalize()
'{Destruktor}
MyBase.Finalize()
End Sub
#End Region '{Konstruktor und Destruktor der Klasse}
Public ReadOnly Property CurrentIntervall As Integer
Get
Return FadeIntervall
End Get
End Property
Public ReadOnly Property CurrentWaitIntervall As Integer
Get
Return WaitIntervall
End Get
End Property
''' <summary>
''' Fügt der Liste neue News hinzu
''' </summary>
''' <param name="News">Die News die hinzugefügt werden sollen</param>
''' <param name="LinkToNews">Der Link zu den News</param>
''' <remarks></remarks>
Public Sub AddNews(ByVal News As String, ByVal LinkToNews As String)
Dim NeueNews As New NewsTickerS.NewsString(News, LinkToNews)
_NewsCustom.Add(NeueNews)
End Sub
Public Sub SetIntervall(ByVal NewIntervall As Integer)
FadeIntervall = NewIntervall
End Sub
Public Sub SetWaitIntervall(ByVal NewIntervall As Integer)
WaitIntervall = NewIntervall
End Sub
''' <summary>
''' Fängt an mit dem Faden. Trackname _MUSS_ angegeben werde.
''' </summary>
''' <remarks>Das ist Remarks</remarks>
Public Sub StartFade()
Fade = True
Dim T As New Threading.Thread(AddressOf Leftfade)
T.Start()
End Sub
Public Sub StopFade()
Fade = False
End Sub
''' <summary>
''' Verschiebt die Schrift nach Links
''' </summary>
''' <param name="pos">Die Position an der sich die Schrift aktuell befindet</param>
''' <remarks>Verschiebt die Schrift nach Links. Ist die Schrift links angekommen wird eine Funktion augerufen die die Schrift wieder nach Rechts schiebt</remarks>
Private Sub Leftfade(Optional ByVal pos As Single = 0)
Do
Do While Fade = True
'Me.Invoke(New DInvalidate(AddressOf InVal))
'Me.Invalidate(New Region(New Rectangle(0, 0, Me.Width, Me.Height)))
Me.Invalidate()
'Me.Update()
Threading.Thread.Sleep(FadeIntervall)
Loop
Threading.Thread.Sleep(150)
Loop
End Sub
Private Sub InVal()
Me.Invalidate(New Region(New Rectangle(0, 0, Me.Width, Me.Height)))
Me.Update()
End Sub
Private Sub NewsTicker_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
Fade = False
End Sub
Private Sub NewsTicker_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
Fade = True
NSInteger = Nothing
End Sub
Dim NSInteger As Integer
Private Sub NewsTicker_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
MausLocation = e.Location.X
For Each news As NewsTickerS.NewsString In _NewsCustom
For I As Integer = CInt(news.StartPos) To CInt(news.EndPos)
If I = MausLocation Then
Me.Cursor = Cursors.Hand
'NSInteger = _NewsCustom.IndexOf(news)
'Me.Invalidate(New Rectangle(news.StartPos, (Me.Height / 2) - (Me.FontHeight / 2), news.StartPos - news.EndPos, Me.FontHeight))
'Painter.DrawString(news.Text, New Font("Microsoft Sans Serif", 8.25, FontStyle.Underline), Brushes.Green, news.StartPos, news.EndPos)
Exit Sub
Else
'Fade = True
End If
Next
Next news
End Sub
Public Sub GetPosition()
For Each news As NewsTickerS.NewsString In _NewsCustom
MsgBox("Newsstring = " & news.Text & vbNewLine & _
"Startposition = " & news.StartPos & vbNewLine & _
"Endposition = " & news.EndPos)
Next
End Sub
Private Sub NewsTicker_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
'If Fade = True Then
Try
'Me.DoubleBuffered = True
Dim diffWith As System.Single = 0
'CurrentX = CInt(CurrentX)
For Each news As NewsTickerS.NewsString In _NewsCustom
e.Graphics.DrawString(news.Text & " +++", news.Font, Brushes.Black, New PointF(CurrentX + diffWith, (Me.Height / 2) - (Me.FontHeight / 2)))
If _NewsCustom.IndexOf(news) = 0 Then
news.StartPos = CurrentX '+ diffWith
Else
news.StartPos = CurrentX + diffWith
End If
news.EndPos = news.StartPos + e.Graphics.MeasureString(news.Text, news.Font).Width()
diffWith += e.Graphics.MeasureString(news.Text & " +++", news.Font).Width()
Next news
CurrentX -= 1
Threading.Thread.Sleep(FadeIntervall)
If CurrentX <= (diffWith * -1) Then CurrentX = Me.Width
Catch ex As Exception
MsgBox(ex.Message)
End Try
'Else
' Try
' 'Me.DoubleBuffered = True
' Dim diffWith As System.Single = 0
' 'CurrentX = CInt(CurrentX)
' For Each news As NewsTickerS.NewsString In _NewsCustom
' If _NewsCustom.IndexOf(news) = NSInteger Then
' e.Graphics.DrawString(news.Text, New Font("Microsoft Sans Serif", 8.25, FontStyle.Underline), Brushes.Black, New PointF(CurrentX + diffWith, (Me.Height / 2) - (Me.FontHeight / 2)))
' diffWith += e.Graphics.MeasureString(news.Text, New Font("Microsoft Sans Serif", 8.25, FontStyle.Underline)).Width() - 4
' e.Graphics.DrawString("+++", news.Font, Brushes.Black, New PointF(CurrentX + diffWith, (Me.Height / 2) - (Me.FontHeight / 2)))
' diffWith += e.Graphics.MeasureString("+++", news.Font).Width()
' Else
' e.Graphics.DrawString(news.Text & " +++", news.Font, Brushes.Black, New PointF(CurrentX + diffWith, (Me.Height / 2) - (Me.FontHeight / 2)))
' diffWith += e.Graphics.MeasureString(news.Text & " +++", news.Font).Width()
' End If
' 'If _NewsCustom.IndexOf(news) = 0 Then
' 'news.StartPos = CurrentX '+ diffWith
' 'Else
' 'news.StartPos = CurrentX + diffWith
' 'End If
' 'news.EndPos = news.StartPos + e.Graphics.MeasureString(news.Text, news.Font).Width()
' Next news
' 'CurrentX -= 1
' 'Threading.Thread.Sleep(FadeIntervall)
' If CurrentX <= (diffWith * -1) Then CurrentX = Me.Width
' Catch ex As Exception
' MsgBox(ex.Message)
' End Try
'End If
End Sub
Private Sub NewsTicker_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
If e.Button = Windows.Forms.MouseButtons.Left Then
For Each news As NewsTickerS.NewsString In _NewsCustom
For I As Integer = CInt(news.StartPos) To CInt(news.EndPos)
If I = MausLocation Then
System.Diagnostics.Process.Start(news.Link)
Exit Sub
Else
'Fade = True
End If
Next
Next news
End If
End Sub
End Class
Public Class NewsString
Private _Font As System.Drawing.Font = New System.Drawing.Font("Microsoft Sans Serif", 8, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Private _ForeColor As System.Drawing.Color = Color.Black
Private _NText As System.String
Private _NLink As System.String
Private _NPosEnd As System.Single = 0
Private _NPosStart As System.Single = 0
Public Property Text() As System.String
Get
Return _NText
End Get
Set(ByVal value As System.String)
_NText = value
End Set
End Property
Public Property Link() As System.String
Get
Return _NLink
End Get
Set(ByVal value As System.String)
_NLink = value
End Set
End Property
Public Property EndPos() As System.String
Get
Return _NPosEnd
End Get
Set(ByVal value As System.String)
_NPosEnd = value
End Set
End Property
Public Property StartPos() As System.String
Get
Return _NPosStart
End Get
Set(ByVal value As System.String)
_NPosStart = value
End Set
End Property
Public Property Font() As System.Drawing.Font
Get
Return _Font
End Get
Set(ByVal value As System.Drawing.Font)
_Font = value
End Set
End Property
Public Property ForeColor() As System.Drawing.Color
Get
Return _ForeColor
End Get
Set(ByVal value As System.Drawing.Color)
_ForeColor = value
End Set
End Property
Public Sub New()
End Sub
Public Sub New(ByVal NewsText As System.String, ByVal NewsLink As String)
Me.ForeColor = Me.ForeColor
Me.Font = Me.Font
Me._NText = NewsText
Me._NLink = NewsLink
End Sub
'Public ReadOnly Property Width() As System.Single
' Get
' Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromHwnd(NewsTickerS.NewsTicker.Handle)
' Return CInt(g.MeasureString(Me._NText & " +++ ", Me.Font, 0).Width)
' End Get
'End Property
End Class
End Namespace

Ich rufe dann einfach in einem Button Clickevent "NewsTicker1.StartFade" auf. Und dann gehts los.
Gibts denn noch ne andere Methode, wie ich so einen Newsticker machen kann ?

ErfinderDesRades · 24. September 2011, 22:48

so viel Code ist sicher nicht nötig.
Das mit dem Threading muß raus, controls könnens net leiden, wenn aus einem Nebenthread reigegrabscht wird. Nimm einen Timer, wenn du regelmäßig die Anzeige verändern willst.
Und kein eigenes Graphics-Objekt, sondern im Paint-Event bekommst du e.Graphics gestellt - das benutzen.
Und Usercontrol als Basisklasse ist OverSized, du kannst einfach von Control erben.

Slayers · 25. September 2011, 01:11

ErfinderDesRades schrieb:

...
Und kein eigenes Graphics-Objekt, sondern im Paint-Event bekommst du e.Graphics gestellt - das benutzen.
...

Hast du dir meinen Code mal angesehen ? Ich arbeite mit dem Paint Event.

Edit : Dann kann ich den Background aber auch nicht mehr Transparent machen -.-'

ErfinderDesRades · 25. September 2011, 09:59

habich angesehen, aber so viel Code kannich ohne zu testen, nicht in seiner Funktion durchblicken. Ich fund nur folgende Zeile:

VB.NET-Quellcode

Private Painter As Graphics = Graphics.FromHwnd(Me.Handle)

und auch weitere Verwendungen des Objekts.
Übrigens zum ausmessen von Strings kanns durchaus sinnvoll sein, ausnahmsweise ein selbst erzeugtes Graphics zu nehmen, aber beim Verständnis-Fragment deinse Codes orientiere ich mich auch am Namen - und Painten sollteman wie gesagt nich mit sonem Ding - aber es heißt in deinem Falle Painter.

Wennichda falsch lag, zeigt das wenigstens, wie wichtig sinnvolle Benamung ist.

Kann natürlich auch sein, Painter ist ein inzwischen obsoletes Überbleibsel - das würde dann zeigen, wie wichtig es ist, seinen Code aufgeräumt, und mengenmäßig knapp zu halten.

Slayers · 25. September 2011, 14:37

ErfinderDesRades schrieb:

...
das würde dann zeigen, wie wichtig es ist, seinen Code aufgeräumt, und mengenmäßig knapp zu halten.
...

Ich bin das Control doch erstmal am "Debuggen" wenn es hinterher dazu kommt das ich es aktiv verwende dann säubere ich den Code natürlich auch.

Gibt es denn da noch ne andere Möglichkeit ? Weil das mit dem Timer funktioniert zwar, aber dann hakt das zwischendurch.

ErfinderDesRades · 25. September 2011, 21:58

mehr als die 3 allgemeinen Hinweise aus post#8 kannichnich geben - wie gesagt: dein Code ist zu komplex, als dassichda vom angugge in Browser viel von verstehen kann.

Slayers · 26. September 2011, 21:14

Also so wirklich weitergeholfen, ist mir damit irgendwie nicht.

Me.Invalidate bei Usercontrol macht Probleme

Me.Invalidate bei Usercontrol macht Probleme

Slayers schrieb:

Slayers schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

ErfinderDesRades schrieb:

Ähnliche Themen

3 Benutzer haben hier geschrieben