Hallo!
ich bin gerade dabei einen clone der Windows Ausfüren Funktion zu basteln.
jetzt muss ich nur noch die combobox mit den Einträgen aus der registry füllen.
HOWTO?
Der Reg-Key lautet:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU
und die einzelenen Werte a bis z
Mfg
Awolsing
ich bin gerade dabei einen clone der Windows Ausfüren Funktion zu basteln.
jetzt muss ich nur noch die combobox mit den Einträgen aus der registry füllen.
HOWTO?
Der Reg-Key lautet:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU
und die einzelenen Werte a bis z
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ok_enabler.Start()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
- Me.Close()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click
- Dim file As String
- file = ComboBox1.Text
- If okandclose.Checked = True Then
- Process.Start(file)
- Me.Close()
- Else
- Process.Start(file)
- End If
- End Sub
- Private Sub ok_enabler_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok_enabler.Tick
- If ComboBox1.Text = Nothing Then
- cmdOk.Enabled = False
- Else
- cmdOk.Enabled = True
- End If
- End Sub
- Private Sub cmdLookfor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLookfor.Click
- Lookfor.ShowDialog()
- End Sub
- Private Sub Lookfor_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Lookfor.FileOk
- ComboBox1.Text = Lookfor.FileName.ToString()
- End Sub
- End Class
Mfg
Awolsing
