Public Randomize_thread As New Randomize_thread_class
...
Randomize_thread.StartBackgroundTask()
...

 
Imports PlayLists.Form1
 
...
 
    Public WithEvents Randomize_thread As New BackgroundWorker
 
    Public Sub InvokeControl(Of T As Control)(ByVal Control As T, ByVal Action As Action(Of T))
        If Control.InvokeRequired Then
            Control.Invoke(New Action(Of T, Action(Of T))(AddressOf InvokeControl), New Object() {Control, Action})
        Else
            Action(Control)
        End If
    End Sub
 
...
 
    Public Sub Randomize_thread_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles Randomize_thread.DoWork
        Dim lines = File.ReadAllLines(PlayLists.Form1.Temp_file)
        Dim nLines = lines.Count
        Dim randomNumbers = RandomList(nLines)
        Dim tmpFile = Path.GetTempFileName()
 
        InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Visible = True)
        InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Maximum += nLines)
        Using sw = New StreamWriter(tmpFile, False, Encoding.UTF8)
            For i = 0 To nLines - 1
                sw.WriteLine(lines(randomNumbers(i)))
                InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Value = i)
                InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "Randomizing " + i.ToString() + " of " + (nLines - 1).ToString() + " files.")
                ' InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Refresh())
                ' InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Refresh())
            Next
        End Using
        InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "All files launched")
    End Sub

...
AppendText(results_box, Color.White, ControlChars.Quote & "file://" & File.FullName.ToString() & ControlChars.Quote & vbNewLine)
...

My.Computer.FileSystem.RenameFile("C:\tEsT.txt", "test.txt")
My.Computer.FileSystem.RenameDirectory("C:\OldDirectory", "OldDIRECTORY")

• ÍNDICE DE SNIPPETS

Imports System.Xml
Imports System.Xml.Serialization
Imports System.IO
 
 
 
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim rawXML As String = _
      "<Company>" & _
      "  <Employee>" & _
      "    <name>John</name>" & _
      "    <Id>1</Id>" & _
      "    <email>John@xxxxxx.com</email>" & _
      "  </employee>" & _
      "  <employee>" & _
      "    <name>Sue</name>" & _
      "    <Id>2</Id>" & _
      "    <email>Sue@xxxxxx.com</email>" & _
      "  </employee>" & _
      "</Company>"
 
        Dim xmlDoc As New XmlDocument
        Dim employeeNodes As XmlNodeList
        Dim employeeNode As XmlNode
        Dim baseDataNodes As XmlNodeList
        Dim bFirstInRow As Boolean
 
        MsgBox("A")
        xmlDoc.LoadXml(rawXML)
        ' Este msgbox no se llega a ver
        MsgBox("B")
        employeeNodes = xmlDoc.GetElementsByTagName("name")
 
        For Each employeeNode In employeeNodes
            baseDataNodes = employeeNode.ChildNodes
            bFirstInRow = True
 
            For Each baseDataNode As XmlNode In baseDataNodes
                If (bFirstInRow) Then
                    bFirstInRow = False
                Else
                    MsgBox(", ")
                End If
                MsgBox(baseDataNode.Name & ": " & baseDataNode.InnerText)
            Next
        Next
    End Sub
End Class

Module InvokeRequiredHandler
    <System.Runtime.CompilerServices.Extension()> _
    Public Sub HandleInvokeRequired(Of T As ISynchronizeInvoke)(ByVal controlToInvoke As T, ByVal actionToPerform As Action(Of T))
        'Check to see if the control's InvokeRequired property is true
        If controlToInvoke.InvokeRequired Then
            'Use Invoke() to invoke your action
            controlToInvoke.Invoke(actionToPerform, New Object() {controlToInvoke})
        Else
            'Perform the action
            actionToPerform(controlToInvoke)
        End If
    End Sub
End Module

HandleInvokeRequired(Textbox1, ¿?)

          <ID>aaaaaaaaa</ID>
          <ToolTip>sfsdf</ToolTip>
          <Default></Default>
          <Function>sdfsdf</Function>

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <SnippetTypes>
        <SnippetType>Expansion</SnippetType>
      </SnippetTypes>
      <Title>
         Determinar si un TextFile es Unicode
      </Title>
      <Author>Elektro H@cker</Author>
      <Description>
         Función que manda un valor boolean TRUE o FALSE
      </Description>
      <HelpUrl>
      </HelpUrl>
      <Shortcut>
      </Shortcut>
    </Header>
    <Snippet>
      <Declarations>
        <Literal Editable="true">
          <ID>aaaaaaaaa</ID>
          <ToolTip>sfsdf</ToolTip>
          <Default>
          </Default>
          <Function>sdfsdf</Function>
        </Literal>
      </Declarations>
      <Code Language="vb"><![CDATA[
 
    ' Dim file_codification As String = is_unicode("C:\File.txt")
 
    Private Function is_unicode(ByVal path As String) As Boolean
        Dim enc As System.Text.Encoding = Nothing
        Dim file As System.IO.FileStream = New System.IO.FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read)
        If file.CanSeek Then
            Dim bom As Byte() = New Byte(3) {}
            file.Read(bom, 0, 4)
            If (bom(0) = &HEF AndAlso bom(1) = &HBB AndAlso bom(2) = &HBF) OrElse (bom(0) = &HFF AndAlso bom(1) = &HFE) OrElse (bom(0) = &HFE AndAlso bom(1) = &HFF) OrElse (bom(0) = 0 AndAlso bom(1) = 0 AndAlso bom(2) = &HFE AndAlso bom(3) = &HFF) Then ' ucs-4
                Return True
            Else
                Return False
            End If
            file.Seek(0, System.IO.SeekOrigin.Begin)
        Else
            Return False
        End If
    End Function
 
]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>