[2005] Delegates?

[OMITT3D]

Imports System.Xml
 
''' <summary>
''' Digg Notify
''' This program sends a quick pop up when someone has dugg one of your stories.  When it hits FP it will stop monitoring.
''' </summary>
''' 
 
Public Class frmMain
    Private rand As New Random
    Public objXMLDoc As New XmlDocument
    Dim objNode As System.Xml.XmlNode
    Dim strPath = Application.StartupPath & "\Config.ini"
    Dim arrDiggCount(100) As String
    Dim strSliceMsg As String = ""
    Dim i As Integer = 0
    Dim j As Integer = 0
    Dim strCheckHmpg(100) As String
    Dim bolCheck As Boolean = False
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtUser.Text = INIRead(strPath, "Config", "User", "Username")
        numStories.Text = INIRead(strPath, "Config", "NumStories", "15")
        numMinDiggs.Text = INIRead(strPath, "Config", "MinDiggs", "0")
    End Sub
 
    Private Sub tmrUpdate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrUpdate.Tick
        'Dim Thread As New System.Threading.Thread(AddressOf DiggUpdate)
        'Thread.IsBackground = True
        'Thread.Priority = Threading.ThreadPriority.Normal
        'Thread.Start()
        DiggUpdate()
    End Sub
 
    Private Delegate Sub DiggUpdateDelegate()
    Public Sub DiggUpdate()
        Try
            i = 0
            objXMLDoc.Load("http://digg.com/rss/" & txtUser.Text & "/index1.xml")
            For Each elemOut As Xml.XmlElement In objXMLDoc.GetElementsByTagName("item")
                For Each elemIn As Xml.XmlElement In elemOut.GetElementsByTagName("digg:diggCount")
                    arrDiggCount(i) = elemIn.ChildNodes(0).InnerText
                    i = i + 1
                Next elemIn
            Next elemOut
 
            i = 0
            lstStories.Items.Clear()
 
            For Each objNode In objXMLDoc.SelectNodes("rss/channel/item")
                If i < numStories.Text Then
                    If INIRead(strPath, txtUser.Text, objNode.SelectSingleNode("title").InnerText, "") = "" Then
                        INIWrite(strPath, txtUser.Text, objNode.SelectSingleNode("title").InnerText, arrDiggCount(i))
                    End If
 
                    If arrDiggCount(i) > 30 And INIRead(strPath, "Ignored", objNode.SelectSingleNode("title").InnerText, "0") <> 1 Then
                        strCheckHmpg(i) = objNode.SelectSingleNode("title").InnerText
                        bolCheck = True
                    End If
 
                    If INIRead(strPath, txtUser.Text, objNode.SelectSingleNode("title").InnerText, "") <> arrDiggCount(i) And INIRead(strPath, "Ignored", objNode.SelectSingleNode("title").InnerText, "0") <> 1 And INIRead(strPath, "Config", "MinDiggs", "0") <= arrDiggCount(i) Then
 
                        Dim strTitle As String = objNode.SelectSingleNode("title").InnerText
                        If strTitle.Length > 40 Then
                            strTitle = strTitle.Substring(0, 40) & "..."
                        End If
 
                        INIWrite(strPath, txtUser.Text, objNode.SelectSingleNode("title").InnerText, arrDiggCount(i))
                        strSliceMsg = strSliceMsg & strTitle & "(" & arrDiggCount(i) & ")" & vbCrLf
                    End If
 
                    If INIRead(strPath, "Ignored", objNode.SelectSingleNode("title").InnerText, "0") = 1 Then
                        lstStories.Items.Add("(" & arrDiggCount(i) & ") " & objNode.SelectSingleNode("title").InnerText & " [Ignored]")
                    Else
                        lstStories.Items.Add("(" & arrDiggCount(i) & ") " & objNode.SelectSingleNode("title").InnerText)
                    End If
                Else
                    Exit For
                End If
 
                i = i + 1
            Next
            If strSliceMsg <> "" Then
                Dim slice As New frmToast(Me.rand.Next(5000, 10000), strSliceMsg)
                slice.Height = Me.rand.Next(150, 150)
                slice.Show()
                strSliceMsg = ""
            End If
            i = 0
            If bolCheck = True Then
                objXMLDoc.Load("http://digg.com/rss/containertechnology.xml")
                For Each objNode In objXMLDoc.SelectNodes("rss/channel/item")
                    Do Until i > numStories.Text
                        If objNode.SelectSingleNode("title").InnerText = strCheckHmpg(i) Then
                            INIWrite(strPath, "Ignored", strCheckHmpg(i), "1")
                            Dim slice As New frmToast(Me.rand.Next(5000, 10000), objNode.SelectSingleNode("title").InnerText & " Hit FP!")
                            slice.Height = Me.rand.Next(150, 150)
                            slice.Show()
                            strCheckHmpg(i) = ""
                        End If
                        i = i + 1
                    Loop
                    i = 0
                Next
                bolCheck = False
            End If
            i = 0
        Catch ex As Exception
        End Try
 
 
    End Sub
 
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        If tmrUpdate.Enabled = True Then
            tmrUpdate.Enabled = False
            btnStart.Text = "Start"
        Else
            tmrUpdate.Enabled = True
            btnStart.Text = "Pause"
        End If
        If INIRead(strPath, "Config", "User", "") <> txtUser.Text Then
            INIWrite(strPath, "Config", "User", txtUser.Text)
        End If
    End Sub
 
    Private Sub btnIgnore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIgnore.Click
        INIWrite(strPath, "Ignored", lstStories.SelectedItem, "1")
    End Sub
 
    Private Sub btnUnignore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnignore.Click
        INIWrite(strPath, "Ignored", lstStories.SelectedItem, "0")
    End Sub
 
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        INIRead(strPath, "Config", "NumStories", numStories.Text)
        INIWrite(strPath, "Config", "MinDiggs", numMinDiggs.Text)
    End Sub
End Class

Can someone help me with the cross thread errors when I uncomment threading? Thanks.

[jmcilhinney]

There are numerous examples of accessing control members via delegation already posted on the forum. Search for "invokerequired" with my user name and you'll find several, plus I'm sure others have posted too.