Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB9.0
Hi all, am having a problem with a news ticker xml reader, when the windows form read the english xml and view it in label all ok, but when reading the arabic xml and view it in windows form label the CPU goes to %50, is this a unicode problem or what.
 
here is the code
Imports System.Xml
Imports System.Threading
Imports System.Text.UTF8Encoding
Friend Class arabic
    Inherits System.Windows.Forms.Form
    Private warningopacity As Boolean
    Private surfaceround As Boolean
    Dim str As String
    'Dim widthX As Single
    'Dim heightY As Single = 0
    'Dim g As Graphics
    'Dim xmlst As String      'string from the xml file
    'Dim fo As Font
    'Dim strwidth As SizeF    'gets the xml string's width and height 
    'Dim douX As Double       'stores the xmlstring's width     
    Private Declare Function ReleaseCapture Lib "user32" () As Integer
    Private Const HTCAPTION As Integer = 2
    Private Const WM_NCLBUTTONDOWN As Integer = &HA1S
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Width = Int((Screen.PrimaryScreen.WorkingArea.Width) * (1%))
        Me.SetDesktopLocation(1, 680)
        warningopacity = True
        surfaceround = False
        HScrollBar1.Visible = False
    End Sub
    Private Sub NewsTicker_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.loadthenews()
        Label1.Text = str
        Me.SetStyle(ControlStyles.UserPaint, True)
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        SetStyle(ControlStyles.DoubleBuffer, True)
        SetStyle(ControlStyles.UserPaint, True)
        Me.UpdateStyles()
        Label1.BackColor = Me.BackColor
        Panel1.BackColor = Me.BackColor
        Label1.AutoSize = True
        Label1.Left = Panel1.Width
        Timer1.Interval = 10
        Timer1.Start()
    End Sub
    Private Sub loadthenews()
        Try
            str = vbNullString
            Dim readXML As New XmlTextReader("http://arabic.pnn.ps/templates/aticker-jo/fticker.xml")
            While readXML.Read()
                If readXML.NodeType = XmlNodeType.Text Then
                    str += " " & readXML.Value & " "
                End If
            End While
        Catch exW As System.Net.WebException
            MessageBox.Show("Feed is Temporarly Unavailable")
        End Try
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Left += 1
        If Label1.Left > Panel1.Width Then
            Label1.Left = -Label1.Width
            Label1.Text = str
            Me.Timer1.Stop()
            Dim t As New Thread(AddressOf loadthenews)
            t.Start()
            Me.Timer1.Start()
        End If
    End Sub
    Private Sub Mouseon(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseHover
        Me.Timer1.Stop()
        ToolTip1.Show("Right Click For Options", Label1, 5000)
    End Sub
    Private Sub Mouse_Exit(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave
        ToolTip1.Hide(Label1)
        Me.Timer1.Start()
    End Sub
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub
    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        AboutBox1.Show()
    End Sub
    Private Sub MinimizeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimizeToolStripMenuItem.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub
    Private Sub ColorsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorsToolStripMenuItem.Click
        Style.Show()
    End Sub
    Private Sub YesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesToolStripMenuItem.Click
        Me.TopMost = True
    End Sub
    Private Sub NoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoToolStripMenuItem.Click
        Me.TopMost = False
    End Sub
    Private Sub LanguageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LanguagesToolStripMenuItem.Click
        urlanguage.Show()
        Me.Close()
    End Sub
    Private Sub panel1_MousedoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDoubleClick
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
    End Sub
    Private Sub panel1_mouseclick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseClick
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    End Sub
    Private Sub panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
        End If
    End Sub
    Private Sub label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
        End If
    End Sub
    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        Me.Opacity = HScrollBar1.Value / 100
        If HScrollBar1.Value <= 30 And warningopacity = True Then
            MessageBox.Show("WARNING: The form will not be visible if the opacity is set to minimum.  The scrollbar will not be visible.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            warningopacity = False
        ElseIf HScrollBar1.Value > 30 Then
            warningopacity = True
        End If
    End Sub
    Private Sub VisibleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowBarToolStripMenuItem.Click
        HScrollBar1.Visible = True
    End Sub
    Private Sub HideBarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HideBarToolStripMenuItem.Click
        HScrollBar1.Visible = False
    End Sub
End Class
Posted 16-Sep-10 1:15am
Edited 27-Sep-10 1:35am
(no name)328.8K
v4
Comments
Simon_Whale at 16-Sep-10 10:01am
   
would be good to see a sample of code so we could give you a firm answer

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 OriginalGriff 240
1 Kamal Rocks 184
2 PIEBALDconsult 150
3 BillWoodruff 148
4 Jochen Arndt 135
0 OriginalGriff 5,695
1 DamithSL 4,506
2 Maciej Los 4,007
3 Kornfeld Eliyahu Peter 3,480
4 Sergey Alexandrovich Kryukov 3,190


Advertise | Privacy | Mobile
Web01 | 2.8.141216.1 | Last Updated 27 Sep 2010
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100