- Katılım
- 3 Şubat 2014
- Mesajlar
- 1,744
- Tepkime puanı
- 0
- Puanları
- 0
Bu derste VB.net ile formunuzu Windows'un başlangıcında çalıştırılmasını sağlamak üzere bir çalışma yapacağız.
[video=youtube;JVr3sp1h1lA]http://www.youtube.com/watch?v=JVr3sp1h1lA[/MEDIA]
1 Checkbox
Kod:
Imports Microsoft.Win32
Public Class Form1
Private Sub addcurrentkey(ByVal name As String, ByVal path As String)
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
key.SetValue(name, path)
End Sub
Private Sub removecurrentkey(ByVal name As String)
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
key.DeleteValue(name, False)
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
addcurrentkey("programadi", System.Reflection.Assembly.GetEntryAssembly.Locati on)
Else
removecurrentkey("programadi")
End If
End Sub
End Class
[video=youtube;JVr3sp1h1lA]http://www.youtube.com/watch?v=JVr3sp1h1lA[/MEDIA]
1 Checkbox
Kod:
Imports Microsoft.Win32
Public Class Form1
Private Sub addcurrentkey(ByVal name As String, ByVal path As String)
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
key.SetValue(name, path)
End Sub
Private Sub removecurrentkey(ByVal name As String)
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
key.DeleteValue(name, False)
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
addcurrentkey("programadi", System.Reflection.Assembly.GetEntryAssembly.Locati on)
Else
removecurrentkey("programadi")
End If
End Sub
End Class