Otomatik ve Manuel olarak Listeden Duvar Kağıdı Eklemek

Otomatik ve Manuel olarak Listeden Duvar Kağıdı Ekleme KODU İNDİR

Listeden Duvar Kağıdı Ekleme EXE_v2.0.09.2015 İNDİR

Anaform :

#Region "  IMPORT..    "  Imports System.Media Imports Microsoft.Win32 Imports System.IO  #End Region  Public Class Anafrm  #Region " DEĞİŞKENLER.."      Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer     Private Const SETDESKWALLPAPER As Integer = &H14     Private Const UPDATEINIFILE = &H1      Private SabitDeskPaper As String     Private S_OtoSure As String     Private dakika As Integer      Private Yaz As IO.StreamWriter     Private Oku As IO.StreamReader  #End Region  #Region " FORM OLAYLARI.."      Public Sub AyarSakla()         SaveSetting(Application.ProductName, ProductName, "SabitDeskPaper", SabitDeskPaper)         If ListBox1.SelectedIndex = -1 Or SecilenSatirTS.Text = -1 Then ListBox1.SelectedIndex = -1         SaveSetting(Application.ProductName, ProductName, "Seçilen Satır", ListBox1.SelectedIndex)         SaveSetting(Application.ProductName, ProductName, "Seçilen Oto Süre", S_OtoSure)      End Sub      Private Sub Anafrm_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed         End     End Sub      Private Sub Anafrm_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown         'formun Load bölümünde veya özelliklerinde (Keypreview = TRUE) yapılmalıdır         'ESC ile kapat          If e.KeyCode = Keys.Escape Then             Call AyarSakla()             NotifyIcon1.Dispose()             Application.Exit()         End If      End Sub      Private Sub DuvarKagidiFrm_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing          TrayaEkleBtnTs.PerformClick()         e.Cancel = True      End Sub      Private Sub AnaFrm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load         Try             Timer2.Start()             TraydaGosterTSmn.Enabled = True             FormuGosterTSmn.Enabled = False             PnlOtoAyar.Visible = GetSetting(Application.ProductName, ProductName, "OtoAyar Paneli Göster", True)             SureBelirleCmb.Text = GetSetting(Application.ProductName, ProductName, "Otomatik Süre Belirle", 5)              S_OtoSure = GetSetting(Application.ProductName, ProductName, "Seçilen Oto Süre", "Dakika")             ilkSesYok = True 'Başlarken option seçiminde ses vermesin              Select Case S_OtoSure                 Case "Dakika"                     DakikaOpBtn.Checked = True                 Case "Saatlik"                     SaatOpBtn.Checked = True             End Select              Me.ShowInTaskbar = False              If My.Computer.Network.IsAvailable = False Then                 WebdeAraTS.Enabled = False             Else                 WebdeAraTS.Enabled = True             End If             '              SabitDeskPaper = GetSetting(Application.ProductName, ProductName, "SabitDeskPaper", "Genişlet")             If SabitDeskPaper = "Genişlet" Then                 GenisletOpBtn.Checked = True             ElseIf SabitDeskPaper = "Ortala" Then                 OrtalaOpBtn.Checked = True             ElseIf SabitDeskPaper = "Döşe" Then                 DoseOpBtn.Checked = True             End If              Dim dosya As String = Application.StartupPath & "\" & "DuvarKagidiListesi.txt"               If dosya <> Nothing Then                 ListBox1.Items.Clear()                  Call ListeYukle()                 ListeyiSaklaTS.Enabled = True                 ListedenYukleTS.Enabled = True                 ListeyiSilTS.Enabled = True                  ListBox1.SelectedIndex = GetSetting(Application.ProductName, ProductName, "Seçilen Satır", 0)                 If ListBox1.SelectedIndex = -1 Then ListBox1.SelectedIndex = 0                 PictureBox1.ImageLocation = (Me.ListBox1.SelectedItem)              End If             ilkSesYok = False  'ses vermeye ayarla          Catch ex As Exception             'MessageBox.Show("Liste Boş." & vbCrLf & "(Örnek Duvar Kağıdı) dizininden Seçiniz")    '(ex.Message)             ResimYukleTS.PerformClick()             ListBox1.SelectedIndex = 0 'Me.ListBox1.Items.Count - 1         End Try      End Sub  #End Region  #Region " LİSTE OLAYLARI.."      Public Sub ListeYukle()         Try              Dim yol = Application.StartupPath & "\DuvarKagidiListesi.txt"             Oku = New IO.StreamReader(yol, System.Text.Encoding.Default)              While (Oku.Peek() > -1)                 RTrim(ListBox1.Items.Add(Oku.ReadLine))             End While             Oku.Close()             ListBox1.SelectedItem = +1          Catch ex As Exception             'MessageBox.Show(ex.Message)             MessageBox.Show("(DuvarKagidiListesi.txt) Dosyası Bulunamadı" & vbCrLf & "(Örnek Duvar Kağıdı) dizininden" & vbCrLf & "Resim yükleyip Listeyi  saklayın")         End Try      End Sub      Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged          PictureBox1.ImageLocation = (Me.ListBox1.SelectedItem)          SecilenLBL.Text = PictureBox1.ImageLocation         SecilenSatirTS.Text = Me.ListBox1.SelectedIndex         No = Me.ListBox1.SelectedIndex         'Me.Text = No     End Sub      Private Sub ResimYukleTS_Click(sender As System.Object, e As System.EventArgs) Handles ResimYukleTS.Click         'Dim dosya As String         'Dim count As Integer         'Dim yol As String = Application.StartupPath & "\Örnek Duvar Kağıdı\"         'Dim uz As String = "*.jpg"          'dosya = Dir(yol, FileAttribute.Hidden)         'If dosya <> "" Then         '    count = count + 1         'End If          'While dosya <> ""         '    dosya = Dir()         '    count = count + 1         '    ListBox1.Items.Add(yol)         'End While         'ListBox1.Items.AddRange(Directory.GetFiles(yol, uz, SearchOption.TopDirectoryOnly))          OpenFileDialog1.InitialDirectory = Application.StartupPath         OpenFileDialog1.Filter = "Ressim Dosyaları|*.jpg;*.jpg|Tüm Dosyalar|*.*"         If OpenFileDialog1.ShowDialog() = DialogResult.OK Then             PictureBox1.Load(OpenFileDialog1.FileName)         End If          Dim file As String          For Each file In OpenFileDialog1.FileNames             ListBox1.Items.Add(file)         Next          'Listeyi kendi klasöründe OTOMATİK sakla          Dim DsyAdi As String = Application.StartupPath & "\DuvarKagidiListesi.txt"          Yaz = New StreamWriter(DsyAdi, False, System.Text.Encoding.Default)         Dim i As Integer          For i = 0 To Me.ListBox1.Items.Count - 1             Yaz.WriteLine(Me.ListBox1.Items.Item(i))         Next         Yaz.Close()      End Sub      Private Sub ListedenYukleTS_Click(sender As System.Object, e As System.EventArgs) Handles ListedenYukleTS.Click         OpenFileDialog1.Filter = "Text Dosyaları|*.txt;*.txt|Tüm Dosyalar|*.*"         OpenFileDialog1.InitialDirectory = Application.StartupPath         OpenFileDialog1.FileName = Application.ExecutablePath & OpenFileDialog1.FileName         OpenFileDialog1.FileName = "DuvarKagidiListesi.txt"         If OpenFileDialog1.ShowDialog() = DialogResult.OK Then              Oku = New IO.StreamReader(OpenFileDialog1.FileName)             While (Oku.Peek() > -1)                 ListBox1.Items.Add(Oku.ReadLine)             End While             Oku.Close()          End If     End Sub      Private Sub ListeyiSaklaTS_Click(sender As System.Object, e As System.EventArgs) Handles ListeyiSaklaTS.Click          SaveFileDialog1.Filter = "Dosya Biçimi|*.txt;*.txt"         SaveFileDialog1.InitialDirectory = Application.StartupPath         SaveFileDialog1.FileName = "DuvarKagidiListesi.txt"          If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then              Dim Yol = SaveFileDialog1.FileName & "\DuvarKagidiListesi.txt"             Yaz = New IO.StreamWriter(SaveFileDialog1.FileName, False, System.Text.Encoding.Default)              Dim i As Integer             For i = 0 To ListBox1.Items.Count - 1                 Yaz.WriteLine(RTrim(ListBox1.Items.Item(i)))             Next             Yaz.Close()          End If      End Sub  #End Region  #Region " KOMUT BUTONLARINI TIKLAMA."      Private Sub OtomatikDegissinTS_Click(sender As System.Object, e As System.EventArgs) Handles OtomatikDegissinTS.Click, OtomatikDegissinTSM.Click          If PnlOtoAyar.Visible = False Then             PnlOtoAyar.Visible = True             PnlOtoAyar.BringToFront()             ListBox1.BringToFront()         Else             PnlOtoAyar.Visible = False         End If         SaveSetting(Application.ProductName, ProductName, "OtoAyar Paneli Göster", PnlOtoAyar.Visible)      End Sub       Private Sub WebdeAraTS_Click(sender As System.Object, e As System.EventArgs) Handles WebdeAraTS.Click          Dim url As String = "https://www.google.com/search?q=Wallpapers"         Process.Start(url)      End Sub  #End Region  #Region " SATIR SİLMEK. (Buton ve DEL tuşu ile)"      Private Sub ListeyiSilTS_Click(sender As System.Object, e As System.EventArgs) Handles ListeyiSilTS.Click, ListeyiSilTSM.Click         ListBox1.Items.Clear()         SecilenSatirTS.Text = -1     End Sub       Private Sub ListBox1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown         'Seçili satır üstünde Farenin sağ tuşuna tıklanırsa seçili itemi duvar kağıdı yap         If e.Button = Windows.Forms.MouseButtons.Right Then             ListBox1_DoubleClick(sender, e)         End If     End Sub      Private Sub ListBox1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown         On Error Resume Next         If e.KeyCode = Keys.Delete Then             Call SatirSil()         End If          'Sol ok tuşu ile EKLE yukarı-aşağı tuşu ile seç         If e.KeyCode = Keys.Left Then             ListBox1_DoubleClick(sender, e)         End If     End Sub      Private Sub SatirSil()         Dim secilecek, silinecek As Integer          If ListBox1.SelectedIndex <= ListBox1.Items.Count - 1 Then             silinecek = ListBox1.SelectedIndex             secilecek = silinecek - 1             Me.ListBox1.Items.RemoveAt(silinecek)             Me.ListBox1.SelectedIndex = secilecek          End If          If ListBox1.SelectedIndex = -1 And ListBox1.Items.Count - 1 >= 0 Then             If silinecek = 0 Then                 Me.ListBox1.SetSelected(secilecek + 1, True)                 Exit Sub             End If         End If     End Sub  #End Region  #Region " Ok tuşu ile (boyutunu), Enter tuşu ve DoubleClick ile DUVAR KAĞIDINI  SABİTLEMEK .."      Private Sub ListBox1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles ListBox1.DoubleClick          GenisletOpBtn.Checked = True          If SabitDeskPaper = "Genişlet" Then             GenisletOpBtn.Checked = True         ElseIf SabitDeskPaper = "Ortala" Then             OrtalaOpBtn.Checked = True         ElseIf SabitDeskPaper = "Döşe" Then             DoseOpBtn.Checked = True         End If          Call BtnOKOnayla()      End Sub      Public Sub BtnOKOnayla()          Dim listdata As String         listdata = Me.PictureBox1.ImageLocation          Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)          If Me.GenisletOpBtn.Checked = CheckState.Unchecked And             Me.OrtalaOpBtn.Checked = CheckState.Unchecked And             Me.DoseOpBtn.Checked = CheckState.Unchecked Then             MsgBox("Bir boyut seçiniz....")             Exit Sub          ElseIf Me.GenisletOpBtn.Checked = True Then              key.SetValue("WallpaperStyle", "2")             key.SetValue("TileWallpaper", "0")             Call Me.SesVer()             SystemParametersInfo(SETDESKWALLPAPER, 0, listdata, UPDATEINIFILE)         ElseIf Me.OrtalaOpBtn.Checked = True Then             key.SetValue("WallpaperStyle", "0")             key.SetValue("TileWallpaper", "0")             Call Me.SesVer()             SystemParametersInfo(SETDESKWALLPAPER, 0, listdata, UPDATEINIFILE)         ElseIf Me.DoseOpBtn.Checked = True Then             key.SetValue("WallpaperStyle", "0")             key.SetValue("TileWallpaper", "1")             Call Me.SesVer()             SystemParametersInfo(SETDESKWALLPAPER, 0, listdata, UPDATEINIFILE)         End If     End Sub      Private Sub GenisletOpBtn_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles GenisletOpBtn.CheckedChanged, OrtalaOpBtn.CheckedChanged, DoseOpBtn.CheckedChanged          If GenisletOpBtn.Checked = True Then             SabitDeskPaper = "Genişlet"         ElseIf OrtalaOpBtn.Checked = True Then             SabitDeskPaper = "Ortala"         ElseIf DoseOpBtn.Checked = True Then             SabitDeskPaper = "Döşe"         End If         Call BtnOKOnayla()         SaveSetting(Application.ProductName, ProductName, "SabitDeskPaper", SabitDeskPaper)     End Sub  #End Region  #Region " OTOMATİK DUVAR KAĞIDI SÜRESİNİ OPTIONLARINDAN SEÇMEK VE BAŞLATMAK.."      Private Sub S_BaslatBtn_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles S_BaslatBtn.MouseDown         If e.Button = Windows.Forms.MouseButtons.Right Then             Call ilerle()         End If     End Sub      Private Sub DakikaOpBtn_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles DakikaOpBtn.CheckedChanged, SaatOpBtn.CheckedChanged         If DakikaOpBtn.Checked = False And             SaatOpBtn.Checked = False Then             MsgBox("Hiçbir Değiştirme oranı seçilmedi.")             Exit Sub          ElseIf DakikaOpBtn.Checked = True Then             S_OtoSure = "Dakika"         ElseIf SaatOpBtn.Checked = True Then             S_OtoSure = "Saatlik"         End If      End Sub      Private Sub SureBelirleCmb_TextChanged(sender As System.Object, e As System.EventArgs) Handles SureBelirleCmb.TextChanged         Timer1.Interval = SureBelirleCmb.Text.ToString         LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"          Select Case SureBelirleCmb.Text              Case 1                 Timer1.Interval = 1000                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"              Case 2                 Timer1.Interval = 1000                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval" & SureBelirleCmb.Text & " Dakika"             Case 3                 Timer1.Interval = 3000                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"              Case 4                 Timer1.Interval = 4000                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"              Case 5                 Timer1.Interval = 5000                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"              Case 10                 Timer1.Interval = 10000                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"              Case 15                 Timer1.Interval = 15000                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"              Case 20                 Timer1.Interval = 20000                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"              Case 25                 Timer1.Interval = 25000                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"              Case 30                 Timer1.Interval = 300000                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"             Case Else                 Timer1.Interval = SureBelirleCmb.Text.ToString                 LblInterval.Text = (SureBelirleCmb.Text * 1000) & " Interval"          End Select         DakikaOpBtn.Checked = True         SaveSetting(Application.ProductName, ProductName, "Otomatik Süre Belirle", SureBelirleCmb.Text)       End Sub   #End Region  #Region " TIMER  OLAYLARI..."      Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick         Try              No = Me.ListBox1.SelectedIndex              If No = Me.ListBox1.Items.Count - 1 Then                 Me.ListBox1.SelectedIndex = 0                 No = Me.ListBox1.SelectedIndex             Else                 Call ilerle()             End If          Catch ex As Exception             MessageBox.Show(ex.Message)         End Try      End Sub      Public Sub ilerle()         On Error Resume Next         If Me.ListBox1.Items.Count - 1 = -1 Then Exit Sub          If Me.ListBox1.SelectedIndex < Me.ListBox1.Items.Count - 1 Then             Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1             Me.SecilenSatirTS.Text = Me.ListBox1.SelectedIndex              If Me.ListBox1.SelectedIndex > Me.ListBox1.Items.Count - 1 Then                 Me.ListBox1.SelectedIndex = Me.ListBox1.Items.Count - 1             End If          Else             Me.ListBox1.SelectedIndex = 0         End If          No = Me.ListBox1.SelectedIndex         No = CStr(Me.ListBox1.Items.Item(No))         Call DuvarKagidiniUygula()         S_SıfırlaBtn.PerformClick()     End Sub      Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick         LblSaat.Text = CStr(TimeOfDay)     End Sub #End Region  #Region " NOTIFYICON İÇİN ContextMenu OLAYLARI..."  #Region " NOTIFYICON İÇİN CLİCK OLAYI.."      Private Sub TrayaEkleBtnTs_Click(sender As System.Object, e As System.EventArgs) Handles TrayaEkleBtnTs.Click         TraydaGosterTSmn.Enabled = False         FormuGosterTSmn.Enabled = True         NotifyIcon1.Text = Me.Text         NotifyIcon1.Visible = True          Me.Visible = False         Me.ShowInTaskbar = False         Me.Hide()          SureTSmn.Text = "Dakika : " & LbDakika.Text & " Saniye : " & LblSaniye.Text         SaveSetting(Application.ProductName, ProductName, "NotifyIcon Trayda", NotifyIcon1.Visible)     End Sub #End Region        Private Sub TraydaGosterTSmn_Click(sender As System.Object, e As System.EventArgs) Handles TraydaGosterTSmn.Click          TraydaGosterTSmn.Enabled = False         FormuGosterTSmn.Enabled = True         NotifyIcon1.Text = Me.Text         NotifyIcon1.Visible = True          Me.ShowInTaskbar = False         Me.Visible = False         Me.Hide()          SureTSmn.Text = "Dakika : " & LbDakika.Text & " Saniye : " & LblSaniye.Text         SaveSetting(Application.ProductName, ProductName, "NotifyIcon Trayda", NotifyIcon1.Visible)     End Sub      Private Sub FormuGosterTSmn_Click(sender As System.Object, e As System.EventArgs) Handles FormuGosterTSmn.Click          TraydaGosterTSmn.Enabled = True         FormuGosterTSmn.Enabled = False         Me.Show()         Me.WindowState = FormWindowState.Normal      End Sub      Private Sub UygulamadanCikTSmn_Click(sender As System.Object, e As System.EventArgs) Handles UygulamadanCikTSmn.Click         Call AyarSakla()         NotifyIcon1.Dispose()         End     End Sub  #End Region  #Region "BAŞLAT- UYGULA"      Public Sub DuvarKagidiniUygula()          Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)          If SabitDeskPaper = "Genişlet" Then             key.SetValue("WallpaperStyle", "2")             key.SetValue("TileWallpaper", "0")             Call SesVer()             SystemParametersInfo(SETDESKWALLPAPER, 0, No, UPDATEINIFILE)         ElseIf SabitDeskPaper = "Ortala" Then             key.SetValue("WallpaperStyle", "0")             key.SetValue("TileWallpaper", "0")             Call SesVer()             SystemParametersInfo(SETDESKWALLPAPER, 0, No, UPDATEINIFILE)         ElseIf SabitDeskPaper = "Döşe" Then             key.SetValue("WallpaperStyle", "0")             key.SetValue("TileWallpaper", "1")             Call SesVer()             SystemParametersInfo(SETDESKWALLPAPER, 0, No, UPDATEINIFILE)         End If      End Sub  #End Region  #Region " SES  OLAYLARI..."      Public Sub SesVer()         On Error Resume Next         If ilkSesYok = True Then Exit Sub         Dim splayer As New SoundPlayer(My.Resources.notify)         splayer.Play()     End Sub  #End Region  #Region " SAYAÇ İŞLEMLERİ.."      Private Sub Timer3_Tick(sender As System.Object, e As System.EventArgs) Handles Timer3.Tick          LblSaniye.Text = LblSaniye.Text + 1         If LblSaniye.Text = "60" Then             LbDakika.Text = LbDakika.Text + 1             LblSaniye.Text = "00"              If LbDakika.Text = SureBelirleCmb.Text Then 'And LblSaniye.Text = "00" Then                  LbDakika.Text = "00"                 LblSaniye.Text = "00"                 SureTSmn.Text = "Dakika : 00   Saniye : 00"                 Call ilerle()              End If         End If         SureTSmn.Text = "Dakika : " & LbDakika.Text & " Saniye : " & LblSaniye.Text      End Sub      Private Sub S_BaslatBtn_Click(sender As System.Object, e As System.EventArgs) Handles S_BaslatBtn.Click         Timer3.Start()         Timer3.Enabled = True         SureTSmn.Text = "Dakika : " & LbDakika.Text & " Saniye : " & LblSaniye.Text      End Sub      Private Sub S_DurdurBtn_Click(sender As System.Object, e As System.EventArgs) Handles S_DurdurBtn.Click         Timer3.Stop()         Timer3.Enabled = False     End Sub      Private Sub S_SıfırlaBtn_Click(sender As System.Object, e As System.EventArgs) Handles S_SıfırlaBtn.Click         LbDakika.Text = "00"         LblSaniye.Text = "00"         SureTSmn.Text = "Dakika : 00   Saniye : 00"      End Sub      Private Sub S_BaslatBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles S_BaslatBtn.MouseHover         Dim tooltip As New ToolTip()         tooltip.SetToolTip(S_BaslatBtn, " Sağ Fare Tuşu ile Listede satır seç" & vbCrLf & "Süreyi başlat (Dakika)")     End Sub      Private Sub S_DurdurBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles S_DurdurBtn.MouseHover         Dim tooltip As New ToolTip()         tooltip.SetToolTip(S_DurdurBtn, "Süreyi Durdur (Dakika)")     End Sub      Private Sub S_SıfırlaBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles S_SıfırlaBtn.MouseHover         Dim tooltip As New ToolTip()         tooltip.SetToolTip(S_SıfırlaBtn, "Süreyi Sıfıla (00)")     End Sub  #End Region  #Region "  SAAT SEKMESİNDEİ İKONA TIKLAMA  OLAYI..."      Private Sub NotifyIcon1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDown          If e.Button = Windows.Forms.MouseButtons.Left Then              If Me.Visible = False Then                 TraydaGosterTSmn.Enabled = True                 FormuGosterTSmn.Enabled = False                 Me.Show()                 Me.Focus()             Else                  TraydaGosterTSmn.Enabled = False                 FormuGosterTSmn.Enabled = True                 Me.Hide()             End If         End If      End Sub  #End Region  End Class

Modul :

bu Ağustos 16, 2015 Komentar

Otomatik ve Manuel olarak Listeden Duvar Kağıdı Eklemek

4/ 5

Oleh bu

vb.net

reklam

16 Ağustos 2015 Pazar