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.
90: 0%
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
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „awolsing“ ()