'Beispiel: VB .Net - Newsticker auf Basis einer .xml Datei. ' Option Explicit On Option Strict On Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.Xml Imports System.Text Imports System.IO 'Aufbau der benötigten .xml Datei. '.................................... '<?xml version="1.0" encoding="ISO-8859-1"?> '<Test> ' <Text1>Dieser NewsTicker</Text1> ' <Text2>erwarte als Datenquelle eine XML Datei.</Text2> ' <Text3>Beispiel wurde heruntergeladen von:</Text3> ' <Text4>http://www.vbarchiv.net - Ihr deutsches Visual Basic Quelltext Archiv</Text4> '</Test> Public Class Form1 'Benötigtes Grafik Objekt. Private hGraphics As Graphics = Me.CreateGraphics() 'Weite der auszugebenden Zeichenkette. Private [x] As Single = Me.Width 'y-Position der auszugebenden Zeichenkette. Private [y] As Single = 30.0F 'Auszugebende Zeichenkette Private msg As String 'Länge Zeichenkette Private Length As Single 'Grafik Objekt Private fnt As Font ''' <summary> ''' Initialisierung des News - Tickers... ''' </summary> ''' <param name="Filename"></param> ''' <remarks></remarks> Private Sub InitAndLoadNews(ByVal Filename As String) Try 'Caption des Formulars setzten. Me.Text = "XML - News - Ticker..." 'XmlTextReader initialisieren. Dim xtr As New XmlTextReader(Filename) 'Daten aus .xml Datei in die Variable msg lesen. While xtr.Read() If xtr.NodeType = XmlNodeType.Text Then msg += " " & xtr.Value.ToString() End If End While 'Timer initialisieren und starten. With Me.Timer1 'Geschwindigkeit des Zeitgebers. .Interval = 100 'Zeitgeber starten. .Start() End With 'Deklarierten Font Objekt initialisieren. fnt = New Font("Times New Roman", 22, FontStyle.Bold Or FontStyle.Italic, _ GraphicsUnit.Pixel) 'Benötigte Ausgabeweite ermitteln. Dim sf As SizeF = hGraphics.MeasureString(msg, fnt) 'Ausgabeweite an die Variable "Length" übergeben. Length = sf.Width 'Sollte hier ein Fehler auftreten wird dieser abgefangen und die Anwendung beendet. Catch ex As Exception 'Fehler anzeigen. MessageBox.Show(ex.Message.ToString(), "Info") 'Anwendung beenden. Me.Close() End Try End Sub ''' <summary> ''' Verwendete Resourcen freigeben. ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> ''' <remarks></remarks> Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing 'Wurde das Grafik Objekt initialisiert wird es jetzt freigegeben. If Not hGraphics Is Nothing Then hGraphics.Dispose() End If End Sub ''' <summary> ''' Pfad zur benötigten .xml Datei initialisieren und die Initialisierung des News - Tickers aufrufen. ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> ''' <remarks></remarks> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load 'Anwendung zentrieren. With Me : .CenterToScreen() : End With 'Pfad zur .xml Datei initialisieren. Dim xmlPath As String = Path.Combine(Helpers.AppPath, "test.xml") 'Aufruf der Prozedur zur Initialisierung des News - Tickers. Call InitAndLoadNews(xmlPath) End Sub ''' <summary> ''' Grafikobjekt initialisieren und auf dem Ausgabeobjekt ausgeben. ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> ''' <remarks></remarks> Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Timer1.Tick Try 'Hintergrund des Grafikobjektes an den Formhintergrund anpassen. hGraphics.Clear(Me.BackColor) 'Ausgabe des in der .xml Datei hinterlegten Strings. hGraphics.DrawString(msg, fnt, Brushes.Navy, [x], [y]) If [x] <= (0 - Length) Then [x] = Me.Width Else [x] -= 5 End If Catch End Try End Sub ''' <summary> ''' Beim MouseHover Ereignis wird der Lauftext angehalten. ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> ''' <remarks></remarks> Private Sub Form1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.MouseHover 'Der Timer wird angehalten sobald die Maus in den Formbereich eintritt. Timer1.Stop() End Sub ''' <summary> ''' Verläßt die Maus die Form wird der angehaltene Lauftext wieder gestartet. ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> ''' <remarks></remarks> Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.MouseLeave 'Verläßt die Maus den Formbereich wird der Timer gestartet. Timer1.Start() End Sub End Class ''' <summary> ''' Hilfsklasse zur Ermittlung des Anwendungspfades. ''' </summary> ''' <remarks></remarks> Public Class Helpers Public Shared Function AppPath() As String Return My.Application.Info.DirectoryPath End Function End Class