C# KOD ÖRNEKLERİ: Mayıs 2013

17 Mayıs 2013 Cuma

İNTERNET BAĞLI MI, BAĞLANTIYI KES VEYA BAĞLAN KODU

Public Class Form1
    'Kablolu Enable (0)
    'Kablosuz Enable (1)
    ' kaynak http://social.msdn.microsoft.com/Forums/tr-TR/vbnettr/thread/a2723001-1d61-4e73-bda0-9f1f2f72327a

Private Sub nEnable()

Dim objWMIService = GetObject("winmgmts:\\.\root\cimv2")
        Dim colAdapters = objWMIService.Execquery("Select * from Win32_NetworkAdapter Where NetEnabled=false")
        colAdapters.ItemIndex(1).Enable()
        Label1.Text = "internete Bağlandı"

End Sub

Private Sub nDisable()

Dim objWMIService = GetObject("winmgmts:\\.\root\cimv2")
        Dim colAdapters = objWMIService.Execquery("Select * from Win32_NetworkAdapter Where NetEnabled=true")
        colAdapters.ItemIndex(0).Disable() 'kablosuz
        Label1.Text = "internet Bağlantısı kesildi"
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Button1.Enabled = True
        Button2.Enabled = False

Call nDisable()
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button2.Enabled = True

Call nEnable()
    End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            'Google IP numaralarına ping at
            'Dim internet = My.Computer.Network.Ping("208.67.222.222")

'If internet = True Then
            If My.Computer.Network.IsAvailable = True Then
                Label1.Text = "internet var"
                Button1.Enabled = False
                Button2.Enabled = True
            Else
                Label1.Text = "internet yok"
                Button2.Enabled = False
                Button1.Enabled = True

End If
        Catch ex As Exception
            'Button1.Enabled = True
            'Label1.Text = "internet yok" & Chr(13) & "..."

End Try
    End Sub
End Class

6 Mayıs 2013 Pazartesi

ListBox Verilerini Text Dosyasına Yazdırma ve Okutma örneği

Public Class Form1
    Dim DsyYolu As String = Application.StartupPath
    Dim DsyAdi As String = "\Listem.txt"

Private Sub SaklaBtn_Click(sender As System.Object, e As System.EventArgs) Handles SaklaBtn.Click
        Dim liste As New List(Of String)
       
        For Each i In ListBox1.Items
            liste.Add(i)
        Next
        System.IO.File.WriteAllLines(DsyYolu & DsyAdi, liste.ToArray)
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

Dim dosya As New System.IO.StreamReader(DsyYolu & DsyAdi)
        Dim str As String = dosya.ReadToEnd()
        TextBox1.Text = str
        dosya.Close()
    End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Try
            Dim openDLG As New OpenFileDialog
            openDLG.Filter = "Text Dosyaları (*.txt)|*.txt|Tüm Dosyalar (*.*)|*.*"
            openDLG.InitialDirectory = DsyYolu
            If openDLG.ShowDialog = DialogResult.OK Then

Dim dosya As New System.IO.StreamReader(openDLG.FileName)

Dim str As String = dosya.ReadToEnd()
                TextBox1.Text = str
                dosya.Close()
            End If
        Catch exc As Exception
            MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Private Sub ListeyeEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles ListeyeEkleBtn.Click
        If LstEkleTxt.Text = "" Then Beep() : LstEkleTxt.Focus() : Exit Sub
        ListBox1.Items.Add(LstEkleTxt.Text)
        LstEkleTxt.Text = ""
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Nothing
    End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

LstEkleTxt.Focus()

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

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

Private Sub ListBox1_MouseHover(sender As System.Object, e As System.EventArgs) Handles ListBox1.MouseHover
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(ListBox1, "ListBoxtan satır Silmek için DELETE tuşunu kullanın")
    End Sub
End Class

5 Mayıs 2013 Pazar

EXE programın Ikonunu almak

Imports vb = Microsoft.VisualBasic
Imports System.IO
Public Class Form1
    Dim programAdi As String

Private Sub DsyAçBtn_Click(sender As System.Object, e As System.EventArgs) Handles DsyAçBtn.Click
        Dim openDLG As New OpenFileDialog
        openDLG.InitialDirectory = GetSetting(Application.ProductName, "Ayarlar", "Uygulama Yolu", "C:\Program Files")

openDLG.Multiselect = False
        openDLG.DefaultExt = "exe"
        openDLG.Filter = "Programlar (*.exe)|*.exe"

If openDLG.ShowDialog = DialogResult.OK Then
            If vb.Right((openDLG.FileName), 4) = ".exe" Then
                UyYoluTxt.Text = openDLG.FileName

Else
                Exit Sub
            End If

UygulamaAdıTxt.Text = System.IO.Path.GetFileName(openDLG.FileName)
            programAdi = Mid(UygulamaAdıTxt.Text, 1, Len(UygulamaAdıTxt.Text) - 4) '".exe" kısmını çıkarıyoruz
            UygulamaAdıTxt.Text = UygulamaAdıTxt.Text 'programAdi
            UyVarsayılanAdıTxt.Text = programAdi

Dim sonuc As Icon = Nothing
            sonuc= Icon.ExtractAssociatedIcon(openDLG.FileName)
            Me.Icon = sonuc
            Me.ikonPic.Image = Me.Icon.ToBitmap

If Clipboard.ContainsImage() Then 'picturebox 'u  panoya aktar
                ikonPic.Image = Clipboard.GetImage()
            End If
         
            SaveSetting(Application.ProductName, "Ayarlar", "Uygulama Yolu", openDLG.InitialDirectory)
        End If
    End Sub
End Class

PROGRAM İÇİNDEN KENDİ İKONUNU DESKTOP POPUP MENÜYE EKLEME ÖRNEĞİ

#Region "  MASAÜSTÜ POPUP MENÜSÜNE KISAYOL EKLEME-SİLME İŞLEMLERİ "

Private Sub MasaUstuMn_Click(sender As System.Object, e As System.EventArgs) Handles MasaUstuMn.Click

If MasaUstuMn.Checked = True Then
            On Error Resume Next
            MasaUstuMn.Checked = False
            MasaUstuMn.Image = IconLst.Images("Bağlam_Menu_R.ico")

Dim kayit As RegistryKey
            Dim anahtar As String = "DesktopBackground\Shell"  'Masaüstüne boş alana tıklayınca gelmesini istiyorsan regedit te kullanman gereken alan 
            kayit = Registry.ClassesRoot.OpenSubKey(anahtar, True).CreateSubKey(Application.ProductName) 'Sağ Click menüme programAdinı Oluşturdum.

Dim icoYol As String = (Application.StartupPath & "\" & Application.ProductName & ".exe") '        'MessageBox.Show(icoYol)

kayit.SetValue("Icon", icoYol)

kayit.SetValue("Position", "Top") 'Programın menüdeki pozisyonunu belirledim. Top,center,bottom
            kayit.CreateSubKey("command").SetValue("", Application.StartupPath & "\" & Application.ProductName & ".exe")

Else
            MasaUstuMn.Checked = True
            Call BaglamMenuSil()
            MasaUstuMn.Image = IconLst.Images("Bağlam_Menu_G.ico")
        End If
    End Sub
    Private Sub BaglamMenuSil()

Try
            Dim kayit As RegistryKey
            Dim anahtar As String = "DesktopBackground\Shell"
            kayit = Registry.ClassesRoot.OpenSubKey(anahtar, True).CreateSubKey(Application.ProductName)
            kayit.DeleteSubKey("command") 'Önce alt menüyü siliiyor 
            'sonra
            '
            kayit = Registry.ClassesRoot.OpenSubKey(anahtar, True)
            kayit.DeleteSubKey(Application.ProductName) 'Sonra bunu siliyor diğeri zaten önce silinmiş

'MessageBox.Show("Masaüstü PopUp Menüsü Silindi")

Catch ex As Exception
            Debug.WriteLine(ex.Message)
            MessageBox.Show(ex.Message)
            Debug.WriteLine(ex.StackTrace)
        End Try

End Sub

#End Region

4 Mayıs 2013 Cumartesi

Dosya Adı,Yolu Alt dizinleriyle Listeleme

Imports System.IO

Public Class Form1
    Dim a As New ArrayList
    Dim yol As New DirectoryInfo("C:\WINDOWS")

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

''Dosya yolu ve adı
        On Error Resume Next
        For Each liste In yol.GetFiles("*.exe")
            Me.ListBox1.Items.Add(liste.FullName)
        Next
    End Sub
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        'sadece Dosya adı listelenir
        ListBox1.DataSource = yol.GetFiles("*.exe") '("*.*")
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

' '' ListBox1.DataSource = yol.GetFiles("*.exe")  Bunu silmiyor hata veriyor 
        ' (ListBox1.DataSource = Nothing) şeklinde olmalı 
        On Error GoTo alt
        Me.ListBox1.Items.Clear()
        Exit Sub
alt:
        ListBox1.DataSource = Nothing
    End Sub

Public Sub adddirectory(ByVal subdir1 As String, ByVal subdir2 As String)
        Dim file() As String = System.IO.Directory.GetFiles(subdir1, subdir2)

For Each files As String In file
            a.Add(files)
        Next
        For Each subdir As String In System.IO.Directory.GetDirectories(subdir1)
            If System.IO.Directory.GetFiles(subdir).Length <> 0 Then
                adddirectory(subdir, subdir2)
            End If
        Next
    End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        adddirectory("D:\MP3\MP3", "*.MP3")
        'a.Clear()
        For i = 0 To a.Count - 1
            ListBox1.Items.Add(a(i))
        Next
    End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Dim KlasorGosterFBD As New FolderBrowserDialog
        LblBaslamaDizini.Text = GetSetting(Application.ProductName, Application.ProductName, "Alt Klasör başlama yolu", "")

KlasorGosterFBD.SelectedPath = LblBaslamaDizini.Text

If (KlasorGosterFBD.ShowDialog() = DialogResult.OK) Then
            a.Clear()
            Windows.Forms.Cursor.Current = Cursors.AppStarting
            LblBaslamaDizini.Text = KlasorGosterFBD.SelectedPath

Dim dsyAdi As String
            Dim uzanti As String = "*.mp3"
            a.Clear()
            adddirectory(LblBaslamaDizini.Text, uzanti)

For z As Integer = 0 To a.Count - 1

dsyAdi = System.IO.Path.GetFileName(a(z))
                ListBox1.Items.Add(Mid(dsyAdi, 1, Len(dsyAdi) - 4))
               
            Next
        End If
        SaveSetting(Application.ProductName, Application.ProductName, "Alt Klasör başlama yolu", KlasorGosterFBD.SelectedPath)
    End Sub

End Class