Hallo,
ich würde gerne einen Code Ausführen. So, ich bin ja nicht dumm, weiß wie das geht. Allerdings hängt das Programm sich auf so lange der Code ausgeführt wird.
Wie kann ich es machen das sich das Programm nicht aufhängt?
ich würde gerne einen Code Ausführen. So, ich bin ja nicht dumm, weiß wie das geht. Allerdings hängt das Programm sich auf so lange der Code ausgeführt wird.
Wie kann ich es machen das sich das Programm nicht aufhängt?
VB.NET-Quellcode
- Imports System.Runtime.InteropServices
- Imports Microsoft.Win32
- Public Class Form1
- Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
- Application.Exit()
- End Sub
- Private Sub EinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinstellungenToolStripMenuItem.Click
- frmSettings.ShowDialog()
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo(My.Settings.language)
- Me.Controls.Clear()
- InitializeComponent()
- End Sub
- Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
- Threading.Thread.Sleep(100)
- bgWorker.RunWorkerAsync()
- End Sub
- Private Sub bgWorker_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bgWorker.DoWork
- BeginInvoke(Sub()
- Dim rootnode As TreeNode
- rootnode = getnodes(My.Computer.Registry.ClassesRoot)
- tvNodes.Nodes.Add(rootnode)
- rootnode = getnodes(My.Computer.Registry.CurrentUser)
- tvNodes.Nodes.Add(rootnode)
- rootnode = getnodes(My.Computer.Registry.LocalMachine)
- tvNodes.Nodes.Add(rootnode)
- rootnode = getnodes(My.Computer.Registry.Users)
- tvNodes.Nodes.Add(rootnode)
- rootnode = getnodes(My.Computer.Registry.CurrentConfig)
- tvNodes.Nodes.Add(rootnode)
- End Sub)
- End Sub
- Private Function getnodes(ByVal regkey As RegistryKey) As TreeNode
- Dim parts() As String = regkey.Name.Split("\")
- Dim temp As New TreeNode(parts.Last)
- Dim subkey As RegistryKey
- If regkey.SubKeyCount > 0 Then
- For Each keyName As String In regkey.GetSubKeyNames
- Try
- subkey = regkey.OpenSubKey(keyName)
- temp.Nodes.Add(getnodes(subkey))
- Catch ex As Exception
- End Try
- Next
- End If
- Return temp
- End Function
- Private Sub AktualisierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktualisierenToolStripMenuItem.Click
- bgWorker.RunWorkerAsync()
- End Sub
- End Class