Visual Basic

Public Class MyFileName
   Public FileName As String
   Public Overrides Function ToString() As String
      Return System.IO.Path.GetFileName(FileName)
   End Function
End Class

Public Class MyFileNameClass
   Public FileName As String
   Public Overrides Function ToString() As String
      Return System.IO.Path.GetFileName(FileName)
   End Function
End Class

Private Sub AddItemsToListBox(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
   Me.ListBox1.Items.Clear()
   For Each FileNameStr As String In IO.Directory.GetFiles("c:\")
      Dim o As New MyFileNameClass
      o.FileName = FileNameStr
      Me.ListBox1.Items.Add(o)
   Next
End Sub

Public Sub DisplayInfo(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.Click
   If ListBox1.SelectedIndices.Count > 0 Then
      For Each i As Integer In ListBox1.SelectedIndices
         Dim o As Object = ListBox1.Items(i)
         If TypeOf o Is MyFileNameClass Then
            MessageBox.Show(DirectCast(o, MyFileNameClass).FileName)
         End If
      Next
   End If
End Sub

Dim dir As String = ComboBox1.Text
       Dim files As String
       Dim search As DirectoryInfo = New DirectoryInfo("m:\") '(dir & ":\")


       For Each file As FileInfo In search.GetFiles("*.doc", SearchOption.AllDirectories)
           Dim cls As New MyFileNameClass
           cls.FileName = (file.ToString)
           ListBox1.Items.Add(cls)
       Next

Dim dir As String = "C:\"
Dim search As DirectoryInfo = New DirectoryInfo("c:\Windows\") '(dir & ":\")
For Each file As FileInfo In search.GetFiles("*.*", SearchOption.AllDirectories)
   ListBox1.Items.Add(file)
Next

Public Sub DisplayInfo(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.Click
   If ListBox1.SelectedIndices.Count > 0 Then
      For Each i As Integer In ListBox1.SelectedIndices
         Dim o As Object = ListBox1.Items(i)
         If TypeOf o Is FileInfo Then
            MessageBox.Show(DirectCast(o, FileInfo).FullName)
         End If
      Next
   End If
End Sub

Dim xmlnsManager As New XmlNamespaceManager(XDoc.NameTable)

xmlnsManager.AddNamespace("alias", "http://www.w3.org/2001/XMLSchema")

xmlNI = xmlNav.Select("/alias:SOP_FILE/QuestionList/Question", xmlnsManager )

---

I'm largely language agnostic

---

After a while they all bug me

---

Dim XDoc As XPathDocument
        Dim xmlNav As XPathNavigator
        Dim xmlNI As XPathNodeIterator

        XDoc = New XPathDocument("C:\file.xml")
        xmlNav = XDoc.CreateNavigator

        Dim xmlnsManager As New XmlNamespaceManager(xmlNav.NameTable)
        xmlnsManager.AddNamespace("alias", "http://www.w3.org/2001/XMLSchema")
        xmlNI = xmlNav.Select("/alias:SOP_FILE/QuestionList/Question", xmlnsManager)

        While xmlNI.MoveNext
            MsgBox(xmlNI.Current.Name & " - " & xmlNI.Current.Value)
        End While

Dim XDoc As XPathDocument
Dim xmlNav As XPathNavigator
Dim xmlNI As XPathNodeIterator
Dim str As New StringReader(*snipped xml*)
XDoc = New XPathDocument(str)

xmlNav = XDoc.CreateNavigator

Dim xmlnsManager As New XmlNamespaceManager(xmlNav.NameTable)
xmlnsManager.AddNamespace("sop", "http://schemas.mycompany.com/SOP")
xmlnsManager.AddNamespace("xs", "http://www.w3.org/2001/XMLSchema")
xmlNI = xmlNav.Select("/sop:SOP_FILE/sop:QuestionList/sop:Question", xmlnsManager)

While xmlNI.MoveNext
    MsgBox(xmlNI.Current.Name & " - " & xmlNI.Current.Value)
End While

---

I'm largely language agnostic

---

After a while they all bug me

---

Private Sub DataReceived( _
                     ByVal sender As Object, _
                     ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
                     Handles serialPort.DataReceived

       Dim stringCom As String = serialPort.ReadTo("G")
       serialPort.ReadExisting()



       BackgroundWorker.RunWorkerAsync(stringCom)


   End Sub

   Private Sub backgroundworker_Dowork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker.DoWork
       Dim argument As Object = e.Argument


       For Value As Integer = 0 To 1
           If BackgroundWorker.CancellationPending Then

               Exit For

           End If

           BackgroundWorker.ReportProgress(Value, argument)
           BackgroundWorker.CancelAsync()
       Next

       ' Threading.Thread.Sleep(100)

   End Sub
   Private Sub backgroundworker_Progresschanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles BackgroundWorker.ProgressChanged
       Me.txtbxWeight.Text = e.UserState   This is where it says "Cross-thread operation not valid: Control 'txtbxWeight' accessed from a thread other than the thread it was created on."


   End Sub

Private Sub DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles serialPort.DataReceived
   Dim stringCom As String = serialPort.ReadExisting.ToString()
   TextChange(StringCom)
End Sub

Delegate Sub TextChangeDelegate(ByVal Str As String)

Sub TextChange(ByVal Str As String)
   If Me.txtbxWeight.InvokeRequired Then
      Dim d As New TextChangeDelegate(AddressOf TextChange)
      Me.Invoke(d, Str)
   Else
      Me.txtbxWeight.Text = Str
   End If
End Sub