C# KOD ÖRNEKLERİ: 2013

8 Aralık 2013 Pazar

VB.NET ile ses kayıt kodları

SES KAYIT PROJE KADLARI İNDİR

Imports System.Runtime.InteropServices
Imports System.Text
'NOT: Kayıt aygıtlarından ses kartından veya hoparlör ayarlarını yapınız
'ses kaydını bilgisayarda çalan bir mp3 çalardan kaydetmesini istiyorsanız:Kayıt\SesKarışımı(Ses kartı) seçili olmalı
'konuşştuğunuzu kaydetmek için :Kayıt\microfon  seçili omalıdır
Public Class Form1
    Public KullAdi As String = SystemInformation.UserName

<DllImport("winmm.dll")> _
    Private Shared Function mciSendString(ByVal command As String, ByVal buffer As StringBuilder, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim i As Integer
            i = mciSendString("open new type waveaudio alias capture", Nothing, 0, 0)
            i = mciSendString("record capture", Nothing, 0, 0)
            Label1.Text = "Kayıt Başladı"
            Label1.BackColor = Color.Green
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim i As Integer
            i = mciSendString("save capture " & "C:\Users\" & KullAdi & "\Desktop\Kaydedilen.Wav", Nothing, 0, 0)
            i = mciSendString("close capture", Nothing, 0, 0)
            Label1.Text = "Kaydedildi"
            Label1.BackColor = Color.Yellow
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        ' Çalıştır

My.Computer.Audio.Play("C:\Users\" & KullAdi & "\Desktop\Kaydedilen.Wav", AudioPlayMode.Background)
    End Sub
End Class

25 Kasım 2013 Pazartesi

Program Şifremizi Kodlayarak saklamak

Giriş Formu:

Imports Microsoft.Win32 'register için
Public Class GirisFrm
    Dim zx As String

Private Sub GirisFrm_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        End
    End Sub

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

Try
            Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", False)
            Dim subregkey As RegistryKey = regkey.OpenSubKey("unknown", False)
            sifre = subregkey.GetValue("watchword", Environment.UserDomainName.ToString)
            If sifre = Environment.UserDomainName.ToString Then Call YeniRegisterKayitAc()
            subregkey.Close()
            regkey.Close()
            UyariLbl.Text = ""
            ParolaFrm.SifreliKoduCoz()

Catch ex As Exception
           
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try
    End Sub
    Public Sub YeniRegisterKayitAc()
        For Each t In Environment.UserDomainName.ToString
            say += 1
            If say = 1 Then

secenek &= Convert.ToInt32(t) & ":abcçdefgğhıijklmnoöpqrsştuüvwxyz"
            ElseIf say = 2 Then
                secenek &= Convert.ToInt32(t) & ":zyxwvüutşsrqpöonmlkjiıhğgfedçcba"
            ElseIf say = 3 Then
                secenek &= Convert.ToInt32(t) & ":öonmlkjiıhğgfedçcbazyxwvüutşsrqp"
                say = 0
            End If
        Next
        ParolaFrm.YeniSifreTxt1.Text = secenek
        ParolaFrm.YeniSifreyKaydet()
    End Sub

Private Sub GirisBtn_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles GirisBtn.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Middle Then
            SifreTxt.Text = Sifre
        End If
    End Sub

Private Sub GirisBtn_Click(sender As System.Object, e As System.EventArgs) Handles GirisBtn.Click
        Timer1.Stop()
        Select Case SifreTxt.Text
            Case Is = ""
                Timer1.Interval = 2000
                Timer1.Start()
                Beep()
                UyariLbl.Text = "Şifreyi Giriniz"
                SifreTxt.Focus()
            Case Is = sifre
                GirisBtn.Enabled = True
                MainFrm.Show()
                Me.Hide()

Case Else
                Timer1.Start()
                sayac += 1
                Timer1.Interval = 2000
                Timer1.Start()
                If sayac = 3 Then UyariLbl.Text = "Yetkili değilsiniz." : GirisBtn.Enabled = False

If sayac < 3 Then UyariLbl.Text = "Şifreyi Yanlış Girdiniz"
                SifreTxt.Text = ""
                SifreTxt.Focus()

End Select
    End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        UyariLbl.Text = Nothing
        Timer1.Stop()
    End Sub

Private Sub SifreTxt_MouseLeave(sender As System.Object, e As System.EventArgs) Handles SifreTxt.MouseLeave
        If Environment.UserDomainName.ToString = sifre Then
            Dim tooltip As New ToolTip()
            tooltip.SetToolTip(SifreTxt, "Programın ilk kurulumdaki şifresi" _
                               & vbCrLf & "(" & Environment.UserDomainName.ToString & ")" _
                               & vbCrLf & " Bilgisayarınızın Adıdır" _
                               & vbCrLf & "Harfler Büyükse Aynen girin" _
                               & vbCrLf & "Sonra Şifrenizi değiştirin")
        End If
    End Sub
End Class

MainForm :

Şifre Değiştirme ve kodlama Formu :

Imports Microsoft.Win32 'register için
Public Class ParolaFrm
    Dim zx As String
    Private Sub Form2_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        GirisFrm.SifreTxt.Text = Nothing
        GirisFrm.Show()
        Me.Hide()

End Sub

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Call SifreliKoduCoz()
        GirisFrm.SifreTxt.PasswordChar = Nothing
        GirisFrm.SifreTxt.PasswordChar = "*"

Label4.Text = ""
        EskiSifreTxt.Text = Nothing
        Me.EskiSifreTxt.Focus()
    End Sub

Public Sub SifreliKoduCoz()
        Try
            Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", False)
            Dim subregkey As RegistryKey = regkey.OpenSubKey("unknown", False)
            sifre = subregkey.GetValue("watchword", Environment.UserDomainName.ToString)
            subregkey.Close()
            regkey.Close()

ButunTxt &= sifre
            Dim s As String = "abcçdefgğhıijklmnoöpqrsştuüvwxyz"
            For Each st In s
                ButunTxt = ButunTxt.Replace(st, "")
            Next

ButunTxt = ButunTxt.Replace(":", vbNewLine)

IO.File.WriteAllText("tx.txt", ButunTxt)
            For Each Me.zx In IO.File.ReadAllLines("tx.txt")
                y = Convert.ToInt32(zx)
                u &= Convert.ToChar(y)
            Next

sifre = u
            ButunTxt = String.Empty
            u = String.Empty
            IO.File.Delete("tx.txt")

Catch ex As Exception
            Return
            'MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
        End Try

End Sub

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked = True Then

EskiSifreTxt.UseSystemPasswordChar = False
            EskiSifreTxt.PasswordChar = ""

YeniSifreTxt1.UseSystemPasswordChar = False
            YeniSifreTxt1.PasswordChar = ""

YeniSifreTxt2.UseSystemPasswordChar = False
            YeniSifreTxt2.PasswordChar = ""

If EskiSifreTxt.Text = sifre Then
                ParolaKaydetBtn.Enabled = True
            Else
                ParolaKaydetBtn.Enabled = False
            End If

Else
            EskiSifreTxt.UseSystemPasswordChar = True
            EskiSifreTxt.PasswordChar = "*"

YeniSifreTxt1.UseSystemPasswordChar = True
            YeniSifreTxt1.PasswordChar = "*"

YeniSifreTxt2.UseSystemPasswordChar = True
            YeniSifreTxt2.PasswordChar = "*"

YeniSifreTxt1.Text = Nothing
            YeniSifreTxt2.Text = Nothing

ParolaKaydetBtn.Enabled = False
        End If

End Sub

Private Sub ParolaKaydetBtn_Click(sender As System.Object, e As System.EventArgs) Handles ParolaKaydetBtn.Click

If Not YeniSifreTxt1.Text = YeniSifreTxt2.Text Then
            MessageBox.Show("Şifre  ve Tekrarı uyuşmadı")
            Label2.Visible = False
            YeniSifreTxt1.Text = Nothing
            YeniSifreTxt2.Text = Nothing
            ParolaKaydetBtn.Enabled = False
        Else
            Label2.Visible = True
            YeniSifreTxt1.Visible = True
            YeniSifreTxt2.Visible = True
            ParolaKaydetBtn.Enabled = True

TextSonu.Text = YeniSifreTxt1.Text

Application.DoEvents()
            For Each t In TextSonu.Text
                say += 1
                If say = 1 Then

secenek &= Convert.ToInt32(t) & ":abcçdefgğhıijklmnoöpqrsştuüvwxyz"
                ElseIf say = 2 Then
                    secenek &= Convert.ToInt32(t) & ":zyxwvüutşsrqpöonmlkjiıhğgfedçcba"
                ElseIf say = 3 Then
                    secenek &= Convert.ToInt32(t) & ":öonmlkjiıhğgfedçcbazyxwvüutşsrqp"
                    say = 0
                End If
            Next
            YeniSifreTxt1.Text = secenek
            Timer1.Interval = 2000
            Timer1.Start()
            Label4.Text = "Kodlandı"
            YeniSifreyKaydet()
        End If
    End Sub

Public Sub YeniSifreyKaydet()
        Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", True)
        regkey.CreateSubKey("unknown")
        Dim subregkey As RegistryKey = regkey.OpenSubKey("unknown", True)
        subregkey.SetValue("watchword", YeniSifreTxt1.Text)
        subregkey.Close()
        regkey.Close()
    End Sub

Public Sub DomainKodla()
        Application.DoEvents()
        For Each t In TextSonu.Text
            say += 1
            If say = 1 Then

End Sub
    Private Sub EskiSifreTxt_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles EskiSifreTxt.KeyDown
        'Kısa yoldab ve gizlice eski parolayı hatırlatma (watchword=parola)-(unknown=bilinmeyen)
        If (e.Alt AndAlso e.KeyCode = Keys.S) Then
            Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE", False)
            Dim subregkey As RegistryKey = regkey.OpenSubKey("unknown", False)
            sifre = subregkey.GetValue("watchword", Environment.UserDomainName.ToString)

Call SifreliKoduCoz()
            Me.Text = sifre
            Timer1.Interval = 2000
            Timer1.Start()
            subregkey.Close()
            regkey.Close()
        End If
    End Sub

Private Sub EskiSifreTxt_TextChanged(sender As System.Object, e As System.EventArgs) Handles EskiSifreTxt.TextChanged

If Me.EskiSifreTxt.Text = sifre Then
            ParolaKaydetBtn.Enabled = True
        End If
    End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Me.Text = "Şifre Değiştir"
        Label4.Text = ""
        Timer1.Stop()
    End Sub
End Class

Modul :

3 Kasım 2013 Pazar

Form Köşelerini Oval Yapma Kodları

Oto Ekspertiz Cihazları hakkında bilgi almak isterseniz burayı tıklayın

Imports System.Drawing.Color
Public Class Form1
#Region " windows mesajı"
    Const TEST_ET As Integer = &H84
    Const YAKALA As Integer = &H1
    Const BASLIK As Integer = &H2
#End Region

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case TEST_ET
                MyBase.WndProc(m)
                If m.Result = YAKALA Then m.Result = BASLIK
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub

'FORMU YUVARLAK YAPMAK
    'Private Sub Mesaj_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    '    Dim Tempshape As New System.Drawing.Drawing2D.GraphicsPath()
    '    Tempshape.AddEllipse(0, 0, Me.Width, Me.Height)
    '    Me.Region = New System.Drawing.Region(Tempshape)

'End Sub

'KÖŞELERİNİ OVAL YAPMAK
    Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Integer, ByVal hRgn As Integer, ByVal bRedraw As Integer) As Integer
    Private Declare Function CreateRoundRectRgn Lib "gdi32" Alias "CreateRoundRectRgn" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer) As Integer

Private Sub Mesaj_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetWindowRgn(Me.Handle, CreateRoundRectRgn(0, 0, Me.Width, Me.Height, 32, 32), True)
    End Sub

Private Function Control() As Color
        Throw New NotImplementedException
    End Function

Private Sub Button1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Me.Close()
        Else
            If Me.BackColor = Color.Red Then
                Me.BackColor = Color.RoyalBlue
            Else

Me.BackColor = Red
            End If

End If
    End Sub

Private Sub Button1_MouseLeave(sender As System.Object, e As System.EventArgs) Handles Button1.MouseLeave
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(Button1, "Kapatmak için sağfare tuşunu kullan")
    End Sub

Private Sub Form1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles MyBase.DoubleClick
        Me.Close()
    End Sub
End Class

Yoldan Fonksiyonla Dosya Adı Bulmak

KOD İNDİR

Imports vb = Microsoft.VisualBasic

Public Class Form1
    'Public uri As New Uri(TextBox3.text)
    Private siteadi As String
    Public Function DosyaAdıBul(ByVal DosyaYolu As String) As String
        On Error Resume Next
        Dim SonPozisyon, Yenipozisyon As Integer, Filtre As String
        SonPozisyon = InStr(DosyaYolu, "\")
        Yenipozisyon = SonPozisyon

Do While SonPozisyon > 0
            Yenipozisyon = SonPozisyon
            SonPozisyon = InStr(Yenipozisyon + 1, DosyaYolu, "\")
        Loop
        Filtre = Mid(DosyaYolu, Yenipozisyon + 1)

SonPozisyon = InStr(Filtre, ".")
        Yenipozisyon = SonPozisyon
        Do While SonPozisyon > 0
            Yenipozisyon = SonPozisyon
            SonPozisyon = InStr(Yenipozisyon + 1, Filtre, ".")
        Loop

Filtre = Mid(Filtre, 1, Yenipozisyon - 1)
        Return Filtre
    End Function

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

OpenFileDialog1.ShowDialog()
        DosyaAdıBul(OpenFileDialog1.FileName)
        Label1.Text = "DOSYA YOLU : " & OpenFileDialog1.FileName
        TextBox1.Text = DosyaAdıBul(DosyaAdıBul(OpenFileDialog1.FileName))
        'uzantıyı bulan kod
        Label3.Text = vb.Right(Label1.Text, 3)
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim uri As New Uri(TextBox3.Text)

TextBox2.Text = uri.Host

'Dim uri As New Uri(LinkLabel1.Text)
        '    MessageBox.Show(Uri.Host) 'Linkin içinden alınan Site Adı
        '    MessageBox.Show(Uri.AbsoluteUri) 'Kopyalanan linkin tamamı
        '    MessageBox.Show(Uri.AbsolutePath)  'Site adından link sonuna kadar olan kısım
        '    MessageBox.Show(Uri.OriginalString.Replace(Uri.AbsolutePath, "")) 'Linkin Tamamı
    End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'LinkLabel1.Text = "http://eraslancemil.googlepages.com/harita"
    End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim uri As New Uri(TextBox3.Text)
        TextBox2.Text = ""
        TextBox2.Text = uri.AbsoluteUri
    End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim uri As New Uri(TextBox3.Text)
        TextBox2.Text = ""
        TextBox2.Text = uri.AbsolutePath
    End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Dim uri As New Uri(TextBox3.Text)
        TextBox2.Text = Mid(uri.AbsoluteUri, 1, 8)
    End Sub
End Class

UYGULAMALARIN VERSİONUNU BULMA KODU

29 Ekim 2013 Salı

RAKAMLARI YAZIYA DÖNÜŞTÜRME ÖRNEĞİ

Public Class Form1
    ' 1-9 ve 10 - 90 arasi 10'un katlari
    Private Function EnumPara(sayi As Integer) As String
        Dim a100 As String() = "sıfır,bir,iki,üç,dört,beş,altı,yedi,sekiz,dokuz".Split(","c)
        Dim a101 As String() = "on,yirmi,otuz,kırk,elli,altmış,yetmiş,seksen,doksan".Split(","c)
        Return If(sayi < 10, a100(sayi), a101(sayi \ 10 - 1))
    End Function

Private Function ParaToString(miktar As Double) As String
        If miktar = 0 Then
            Return "sıfır"
        ElseIf miktar Mod Math.Pow(10, 2) = 0 AndAlso miktar < 1000 Then
            Return (If(miktar / Math.Pow(10, 2) = 1, "", EnumPara(CInt(Math.Truncate(miktar / Math.Pow(10, 2)))))) & "yüz"
        ElseIf miktar Mod Math.Pow(10, 3) = 0 AndAlso miktar < Math.Pow(10, 6) Then
            Return If((miktar / Math.Pow(10, 3) = 1), "", ParaToString(miktar / Math.Pow(10, 3)) & "bin ")
        ElseIf miktar Mod Math.Pow(10, 6) = 0 AndAlso miktar < Math.Pow(10, 9) Then
            Return ParaToString(miktar / Math.Pow(10, 6)) & "milyon "
        ElseIf miktar Mod Math.Pow(10, 9) = 0 AndAlso miktar < Math.Pow(10, 12) Then
            Return ParaToString(miktar / Math.Pow(10, 9)) & "milyar "
        ElseIf miktar Mod Math.Pow(10, 12) = 0 AndAlso miktar < Math.Pow(10, 15) Then
            Return ParaToString(miktar / Math.Pow(10, 12)) & "trilyon "
        ElseIf miktar Mod Math.Pow(10, 15) = 0 AndAlso miktar < Math.Pow(10, 18) Then
            Return ParaToString(miktar / Math.Pow(10, 15)) & "katrilyon "
        ElseIf miktar Mod Math.Pow(10, 18) = 0 AndAlso miktar < Math.Pow(10, 21) Then
            Return ParaToString(miktar / Math.Pow(10, 18)) & "kentilyon "
        ElseIf miktar Mod Math.Pow(10, 21) = 0 AndAlso miktar < Math.Pow(10, 24) Then
            Return ParaToString(miktar / Math.Pow(10, 21)) & "sekstilyon "
        ElseIf miktar Mod Math.Pow(10, 24) = 0 AndAlso miktar < Math.Pow(10, 27) Then
            Return ParaToString(miktar / Math.Pow(10, 21)) & "septilyon "
        ElseIf miktar Mod Math.Pow(10, 27) = 0 AndAlso miktar < Math.Pow(10, 30) Then
            Return ParaToString(miktar / Math.Pow(10, 21)) & "oktilyon "
        ElseIf miktar Mod Math.Pow(10, 30) = 0 AndAlso miktar < Math.Pow(10, 33) Then
            Return ParaToString(miktar / Math.Pow(10, 21)) & "nonilyon "
        ElseIf miktar Mod Math.Pow(10, 33) = 0 AndAlso miktar < Math.Pow(10, 36) Then
            Return ParaToString(miktar / Math.Pow(10, 21)) & "desilyon "
        ElseIf miktar < 10 Then
            Return EnumPara(CInt(Math.Truncate(miktar)))
        ElseIf miktar < 100 Then
            Return EnumPara(CInt(Math.Floor(miktar / 10) * 10)) & (If(miktar Mod 10 = 0, "", EnumPara(CInt(Math.Truncate(miktar)) Mod 10)))
        ElseIf miktar < Math.Pow(10, 3) Then
            Return (If(ParaToString(Math.Floor(miktar / 100)) = "bir", "", ParaToString(Math.Floor(miktar / 100)))) & "yüz" & ParaToString(miktar Mod 100)
        ElseIf miktar < Math.Pow(10, 6) Then
            Return (If(ParaToString(Math.Floor(miktar / Math.Pow(10, 3))) = "bir", "", ParaToString(Math.Floor(miktar / Math.Pow(10, 3))))) & "bin " & ParaToString(miktar Mod Math.Pow(10, 3))
        ElseIf miktar < Math.Pow(10, 9) Then
            Return ParaToString(Math.Floor(miktar / Math.Pow(10, 6))) & "milyon " & ParaToString(miktar Mod Math.Pow(10, 6))
        ElseIf miktar < Math.Pow(10, 12) Then
            Return ParaToString(Math.Floor(miktar / Math.Pow(10, 9))) & "milyar " & ParaToString(miktar Mod Math.Pow(10, 9))
        ElseIf miktar < Math.Pow(10, 15) Then
            Return ParaToString(Math.Floor(miktar / Math.Pow(10, 12))) & "trilyon " & ParaToString(miktar Mod Math.Pow(10, 12))
        ElseIf miktar < Math.Pow(10, 18) Then
            Return ParaToString(Math.Floor(miktar / Math.Pow(10, 15))) & "katrilyon " & ParaToString(miktar Mod Math.Pow(10, 15))
        ElseIf miktar < Math.Pow(10, 21) Then
            Return ParaToString(Math.Floor(miktar / Math.Pow(10, 18))) & "kentilyon " & ParaToString(miktar Mod Math.Pow(10, 18))
        ElseIf miktar < Math.Pow(10, 24) Then
            Return ParaToString(Math.Floor(miktar / Math.Pow(10, 21))) & "sekstilyon " & ParaToString(miktar Mod Math.Pow(10, 21))
        ElseIf miktar < Math.Pow(10, 27) Then
            Return ParaToString(Math.Floor(miktar / Math.Pow(10, 24))) & "septilyon " & ParaToString(miktar Mod Math.Pow(10, 21))
        ElseIf miktar < Math.Pow(10, 30) Then
            Return ParaToString(Math.Floor(miktar / Math.Pow(10, 27))) & "oktilyon " & ParaToString(miktar Mod Math.Pow(10, 21))
        ElseIf miktar < Math.Pow(10, 33) Then
            Return ParaToString(Math.Floor(miktar / Math.Pow(10, 30))) & "nonilyon " & ParaToString(miktar Mod Math.Pow(10, 21))
        ElseIf miktar < Math.Pow(10, 36) Then
            Return ParaToString(Math.Floor(miktar / Math.Pow(10, 33))) & "desilyon " & ParaToString(miktar Mod Math.Pow(10, 21))
        Else
            Return "Ooooppss."
        End If
    End Function

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

Private Sub TextBox2_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox2.LostFocus
        Dim d As Double = CULng(TextBox2.Text.ToString) '1234567890
        TextBox2.Text = d.ToString("N0") '1.234.567.890
    End Sub
 
    'Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '4 basamaklı sayılar için uygundur
    '    'Me.Text = YaziIle(9845)
    '    TextBox1.Text = YaziIle(TextBox2.Text)
    'End Sub

'Public Shared Function YaziIle(ByVal Sayi As Integer) As String
    '    Dim kelimeler(,) As String = {{"", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz"}, _
    '                                  {"", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan"}, _
    '                                  {"", "yüz", "ikiyüz", "üçyüz", "dörtyüz", "beşyüz", "altıyüz", "yediyüz", "sekizyüz", "dokuzyüz"}, _
    '                                  {"", "bin", "ikibin", "üçbin", "dörtbin", "beşbin", "altıbin", "yedibin", "sekizbin", "dokuzbin"}}

'    Return String.Join(" ", Sayi.ToString().Reverse().Select(Function(f As Char, c As Integer) kelimeler(c, Integer.Parse(f)).ToString).Reverse.ToArray)
    'End Function

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

12 Eylül 2013 Perşembe

Text Güncelleme Kodları

ÖRNEK KODLARI İNDİR

Form Kodları :

Modül kodları

Imports System.Runtime.InteropServices
Module GuncellenenText
    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Private Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, <MarshalAs(UnmanagedType.LPWStr)> ByVal lParam As String) As Int32
    End Function
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr

Private Const EM_SETCUEBANNER As Integer = &H1501

Public Sub YaziAyarla(ByVal control As Control, ByVal text As String)
        If TypeOf control Is ComboBox Then
            Dim Edit_hWnd As IntPtr = FindWindowEx(control.Handle, IntPtr.Zero, "Giriş yapınız", Nothing)
            If Not Edit_hWnd = IntPtr.Zero Then
                SendMessage(Edit_hWnd, EM_SETCUEBANNER, 0, text)
            End If
        ElseIf TypeOf control Is TextBox Then
            SendMessage(control.Handle, EM_SETCUEBANNER, 0, text)
        End If
    End Sub

End Module

Programın 2. Kez Açılmasını Engelleme Kodu

ÖRNEK DOSYA İNDİR

Public Class Form1
    Private CalisanVarMi As System.Threading.Mutex

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

Me.CheckBox1.Checked = GetSetting(Application.StartupPath, Application.ProductName, "BirKezCalistir", False)
        If CheckBox1.Checked = False Then
            'Iki kez çalıştırmayı önlemek için kontrol kodları...
            CalisanVarMi = New System.Threading.Mutex(False, "MyApplicationName")
            If CalisanVarMi.WaitOne(0, False) = False Then
                CalisanVarMi.Close()
                CalisanVarMi = Nothing
                MessageBox.Show(" Başka bir örneği zaten çalışıyor!")
                End
            End If
        End If

End Sub

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = False Then
            CheckBox1.Text = "Program Tekrar çalıştırılmasın"
        Else
            CheckBox1.Text = "Program Birden fazla çalıştırılsın"
            Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        End If

SaveSetting(Application.StartupPath, Application.ProductName, "BirKezCalistir", Me.CheckBox1.Checked)
    End Sub

End Class

2 Eylül 2013 Pazartesi

Telefon Rehberi Proje Örneği

Oto Ekspertiz Cihazları hakkında bilgi almak isterseniz burayı tıklayın

Telefon Rehberi _ KOD İNDİR
16.11.2018

17 Ağustos 2013 Cumartesi

GRAFİK ÇİZDİRME KODLARI

Grafik çizdirme kodları İNDİR

Imports System.Math
Imports System.Threading

Public Class Form1
    Private G_Ciz As Integer
    Private Rnd_D As Integer
    Private Const GRID_STEP As Integer = 40

Private Gr_Cizgisi As Thread

' Hazır 
    Private Sub Form1_Load() Handles MyBase.Load
        G_Ciz = GrafikPic.ClientSize.Height \ 2
        Rnd_D = G_Ciz

'Bitmap ve Grafik nesneleri
        Dim En As Integer = GrafikPic.ClientSize.Width
        Dim Boy As Integer = GrafikPic.ClientSize.Height
        Dim En_Boy As New Bitmap(En, Boy)
        Using Grafik As Graphics = Graphics.FromImage(En_Boy)

' Kılavuz çizgiler çiz
            Grafik.Clear(Color.Blue)
            For i As Integer = G_Ciz To GrafikPic.ClientSize.Height Step GRID_STEP
                Grafik.DrawLine(Pens.LightBlue, 0, i, En - 1, i)
            Next i
            For i As Integer = G_Ciz To 0 Step -GRID_STEP
                Grafik.DrawLine(Pens.LightBlue, 0, i, En - 1, i)
            Next i
        End Using ' Grafik

GrafikPic.Image = En_Boy
    End Sub

' Grafik çizimini başlat
    Private Sub GrafikBtn_Click(sender As System.Object, e As System.EventArgs) Handles GrafikBtn.Click
        If Gr_Cizgisi Is Nothing Then
            '  Başlatın.
            DurumGoster("Grafik çizimini Başlattınız")

Gr_Cizgisi = New Thread(AddressOf GrafikOlustur)
            Gr_Cizgisi.Priority = ThreadPriority.BelowNormal
            Gr_Cizgisi.IsBackground = True
            Gr_Cizgisi.Start()

GrafikBtn.Text = "Dur"
        Else
            ' çalışıyor. Durdur.
            DurumGoster("Çizimi Durdur")

Gr_Cizgisi.Abort()

Gr_Cizgisi = Nothing

GrafikBtn.Text = "Başla"
        End If
    End Sub

' Durana kadar grafik çiz
    Private Sub GrafikOlustur()
        Try
            'Rasgele değerler üret
            Dim y As Integer = Rnd_D
            Do
                'Sonraki değeri oluştur
                YeniDeger()

' Yeni değeri çiz
                DegerBelirle(y, Rnd_D)
                y = Rnd_D
            Loop
        Catch ex As Exception
            DurumGoster(" Çizim Durduruldu.. ")  '& ex.Message)
        End Try
    End Sub

' Sonraki değeri oluştur
    Private Sub YeniDeger()
        ' Değer hesaplamadan önce biraz geciktir
        Dim stop_time As Date = Now.AddMilliseconds(20)
        Do While Now < stop_time
        Loop

' Bir sonraki değerini hesapla
        Static rnd As New Random
        Rnd_D += rnd.Next(-4, 5)
        If Rnd_D < 0 Then Rnd_D = 0
        If Rnd_D >= GrafikPic.ClientSize.Height - 1 Then Rnd_D = GrafikPic.ClientSize.Height - 1
    End Sub

' Yeni bir değer çiz
    Private Delegate Sub PlotValueDelegate(ByVal eski_y As Integer, ByVal Yeni_y As Integer)

Private Sub DegerBelirle(ByVal eski_y As Integer, ByVal Yeni_y As Integer)
        If Me.InvokeRequired Then
            ' Temsilci için argümanlar 
            Dim Tnsn As Object() = {eski_y, Yeni_y}

'Temsilci
            Dim Yeni_Deger_Bul As PlotValueDelegate
            Yeni_Deger_Bul = AddressOf DegerBelirle

' iş parçacığı üzerinde temsilci çağır
            Me.Invoke(Yeni_Deger_Bul, Tnsn)

' Bitti
            Exit Sub
        End If

' Bitmap ve Grafik nesneleri
        Dim En As Integer = GrafikPic.ClientSize.Width
        Dim Boy As Integer = GrafikPic.ClientSize.Height
        Dim En_Boy As New Bitmap(En, Boy)
        Using Grafik As Graphics = Graphics.FromImage(En_Boy)

'Eski veriyi bir piksel sola taşı
            Grafik.DrawImage(GrafikPic.Image, -1, 0)

' Sağ kenarı sil  ve kılavuz çizgiler çiz 
            Grafik.DrawLine(Pens.Blue, En - 1, 0, En - 1, Boy - 1)
            For i As Integer = G_Ciz To GrafikPic.ClientSize.Height Step GRID_STEP
                Grafik.DrawLine(Pens.LightBlue, En - 2, i, En - 1, i)
            Next i
            For i As Integer = G_Ciz To 0 Step -GRID_STEP
                Grafik.DrawLine(Pens.LightBlue, En - 2, i, En - 1, i)
            Next i

' Yeni bir piksel çiz
            Grafik.DrawLine(Pens.White, En - 2, eski_y, En - 1, Yeni_y)

' Sonucu görüntüle
            GrafikPic.Image = En_Boy
            GrafikPic.Refresh()
        End Using
    End Sub

' DurumTxt 'e bir dize ekle
    Private Delegate Sub AddStatusDelegate(ByVal txt As String)

Private Sub DurumGoster(ByVal txt As String)

If Me.InvokeRequired Then
            ' Temsilci argümanlar
            Dim Tnsn As Object() = {txt}

' Temsilci
            Dim DurumuGoster As AddStatusDelegate
            DurumuGoster = AddressOf DurumGoster

'  iş parçacığı üzerinde temsilci çağır
            Me.Invoke(DurumuGoster, Tnsn)

'Bitti
            Exit Sub
        End If

DurumTxt.Text &= vbCrLf & txt
        DurumTxt.Select(DurumTxt.Text.Length, 0)
        DurumTxt.ScrollToCaret()
    End Sub

' Güncel saati görüntüle
    Private Sub SureGuncelleTmr_Tick() Handles SureGuncelleTmr.Tick
        SureLbl.Text = Now.ToString("T")
    End Sub

End Class

Windows Ortam Bilgileri Projesi

WINDOWS ORTAM BİLGİLERİ PROJE KODLARI İNDİR
02.09.2013

Imports System.IO
Imports System.Environment

Public Class AnaFrm

#Region " FORM OLAYLARI.."

Private Sub AnaFrm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListeYukle(OzelKlasörListesi, GetType(Environment.SpecialFolder))
        ListeYukle(OrtamDegiskenListesi, GetEnvironmentVariables.Keys)
        OzellikleriOku()
        MetotUygula()
        SistemBilgileriniYukle()
    End Sub

#End Region

#Region " Enum (Sıralama) İşleme..."

Private Sub ListeYukle(ByVal lst As ListBox, ByVal typ As Type)
        lst.DataSource = System.Enum.GetNames(typ)
    End Sub

Private Function GetSpecialFolderFromList() As Environment.SpecialFolder
        Return CType(System.Enum.Parse(GetType(Environment.SpecialFolder), _
        OzelKlasörListesi.SelectedItem.ToString), Environment.SpecialFolder)
    End Function

Private Sub ListeYukle(ByVal lst As ListBox, ByVal ic As ICollection)
        Dim astrItems(ic.Count - 1) As String
        ic.CopyTo(astrItems, 0)
        lst.DataSource = astrItems
    End Sub
#End Region

Private Sub TempDegAlBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TempDegAlBtn.Click
        lblTEMP.Text = Environment.GetEnvironmentVariable("TEMP")
        System.Diagnostics.Process.Start("explorer.exe", lblTEMP.Text)
    End Sub

Private Sub BtnYenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnYenile.Click
        LblSure.Text = Environment.TickCount.ToString
    End Sub

Private Sub GuncelIzlemeBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuncelIzlemeBtn.Click
        Try
            MsgBox(Environment.StackTrace, MsgBoxStyle.OkOnly, Me.Text)
        Catch exp As System.Security.SecurityException
            MsgBox("Bir güvenlik özel durumu oluştu." & vbCrLf & exp.Message, MsgBoxStyle.Critical, exp.Source)
        Catch exp As System.Exception
            MsgBox("Beklenmeyen bir erişim hatası (StackTrace) oluştu." & vbCrLf & exp.Message, MsgBoxStyle.Critical, exp.Source)
        End Try
    End Sub

Private Sub OrtamDegiskenListesi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrtamDegiskenListesi.SelectedIndexChanged
        Dim str As String = GetEnvironmentVariable(OrtamDegiskenListesi.SelectedItem.ToString)
        '"C:\Program Files\Common Files\Microsoft Shared\Windows Live;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program Files\ATI Technologies\ATI.ACE\Core-Static;C:\Program Files\Broadcom\Broadcom 802.11\Driver;C:\Program Files\Windows Live\Shared;C:\Program Files\Microsoft SQL Server\100\Tools\Binn\;C:\Program Files\Microsoft SQL Server\100\DTS\Binn\;C:\Program Files\Common Files\Acronis\SnapAPI\;C:\Program Files\Acronis\BackupAndRecovery\"
        'ListBox1.Items.AddRange(str.Split(";")) 'veya
        'ListBox1.DataSource = str.Split(";")
        CevreDegiskenTxt.Lines = str.Split(CChar(";"))
    End Sub

Private Sub KlasörListesi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OzelKlasörListesi.SelectedIndexChanged
        Dim sf As Environment.SpecialFolder

sf = GetSpecialFolderFromList()
        If OzelKlasörListesi.Text = "MyComputer" Then
            OzelKlasorLbl.Text = "explorer.exe" & "," & "/e" & ",/select,c:"
            Exit Sub
        End If
        OzelKlasorLbl.Text = GetFolderPath(sf)
    End Sub

Private Sub lvwSystemInformation_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SysBilgisiLW.Resize
        SysBilgisiLW.Columns(1).Width = _
        SysBilgisiLW.ClientRectangle.Width - SysBilgisiLW.Columns(0).Width
    End Sub

Private Sub OzellikleriOku()
        LblCalismaAYari.Text = Environment.WorkingSet.ToString
        lblVersiyon.Text = Environment.Version.ToString
        LblKullAdi.Text = Environment.UserName
        LblKullAlanAdi.Text = Environment.UserDomainName
        LblSure.Text = Environment.TickCount.ToString
        LblSysDizini.Text = Environment.SystemDirectory
        LblOSVersiyon.Text = Environment.OSVersion.ToString
        LblMakinaAdi.Text = Environment.MachineName
        LblSimdikiDizin.Text = Environment.CurrentDirectory
        LblKmtSatiri.Text = Mid(Environment.CommandLine, 2, Len(Environment.CommandLine))
    End Sub

Private Sub SistemBilgileriniYukle()

With SysBilgisiLW.Items.Add("ArrangeDirection" & "- (Yön)")
            .SubItems.Add(SystemInformation.ArrangeDirection.ToString())
        End With
        With SysBilgisiLW.Items.Add("ArrangeStartingPosition" & "- (Başlangıç Yeri)")
            .SubItems.Add(SystemInformation.ArrangeStartingPosition.ToString())
        End With
        With SysBilgisiLW.Items.Add("BootMode" & "- (Boot Modu)")
            .SubItems.Add(SystemInformation.BootMode.ToString())
        End With
        With SysBilgisiLW.Items.Add("Border3DSize" & "- (Kenar Boyutu)")
            .SubItems.Add(SystemInformation.Border3DSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("BorderSize")
            .SubItems.Add(SystemInformation.BorderSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("CaptionButtonSize" & "- (Başlık buton boyu)")
            .SubItems.Add(SystemInformation.CaptionButtonSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("CaptionHeight" & "- (Başlık Boyu)")
            .SubItems.Add(SystemInformation.CaptionHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("ComputerName" & "- (Bilgisayar Adı)")
            .SubItems.Add(SystemInformation.ComputerName.ToString())
        End With
        With SysBilgisiLW.Items.Add("CursorSize" & "- (İmleç Boyu)")
            .SubItems.Add(SystemInformation.CursorSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("DbcsEnabled" & "- (dbcs Etkin)")
            .SubItems.Add(SystemInformation.DbcsEnabled.ToString())
        End With
        With SysBilgisiLW.Items.Add("DebugOS" & "- (OS Hata Ayıklama)")
            .SubItems.Add(SystemInformation.DebugOS.ToString())
        End With
        With SysBilgisiLW.Items.Add("DoubleClickSize" & "- (ÇitTıklama Boyutu)")
            .SubItems.Add(SystemInformation.DoubleClickSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("DoubleClickTime" & "- (ÇitTıklama Süresi)")
            .SubItems.Add(SystemInformation.DoubleClickTime.ToString())
        End With
        With SysBilgisiLW.Items.Add("DragFullWindows" & "- (Tam Penc.Sürükle)")
            .SubItems.Add(SystemInformation.DragFullWindows.ToString())
        End With
        With SysBilgisiLW.Items.Add("DragSize" & "- (Sürükleme boyutu)")
            .SubItems.Add(SystemInformation.DragSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("FixedFrameBorderSize" & "- (Sabit Çrç.Boyutu)")
            .SubItems.Add(SystemInformation.FixedFrameBorderSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("FrameBorderSize" & "- (Çerçeve Sınır Boyutu)")
            .SubItems.Add(SystemInformation.FrameBorderSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("HighContrast" & "- (Yüksek Kontrast)")
            .SubItems.Add(SystemInformation.HighContrast.ToString())
        End With
        With SysBilgisiLW.Items.Add("HorizontalScrollBarArrowWidth" & "- (Yatay Kayd.Ok Çbk.Genişliği)")
            .SubItems.Add(SystemInformation.HorizontalScrollBarArrowWidth.ToString())
        End With
        With SysBilgisiLW.Items.Add("HorizontalScrollBarHeight" & "- (Yatay kayd.çbk Yüks.)")
            .SubItems.Add(SystemInformation.HorizontalScrollBarHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("HorizontalScrollBarThumbWidth" & "- (Yatay Kayd.Çbk Düğme Eni)")
            .SubItems.Add(SystemInformation.HorizontalScrollBarThumbWidth.ToString())
        End With
        With SysBilgisiLW.Items.Add("IconSize" & "- (İkon Boyu)")
            .SubItems.Add(SystemInformation.IconSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("IconSpacingSize" & "- (İkon Boyutu)")
            .SubItems.Add(SystemInformation.IconSpacingSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("KanjiWindowHeight" & "- (Pencere Yüksekliği)")
            .SubItems.Add(SystemInformation.KanjiWindowHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("MaxWindowTrackSize" & "- (Max Pencere Boyutu)")
            .SubItems.Add(SystemInformation.MaxWindowTrackSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MenuButtonSize" & "- (Menu Btn Boyutu)")
            .SubItems.Add(SystemInformation.MenuButtonSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MenuCheckSize" & "- (Menu Ctl Boyu)")
            .SubItems.Add(SystemInformation.MenuCheckSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MenuFont" & "- (Menu Font)")
            .SubItems.Add(SystemInformation.MenuFont.ToString())
        End With
        With SysBilgisiLW.Items.Add("MenuHeight" & "- (Menu Boyu)")
            .SubItems.Add(SystemInformation.MenuHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("MidEastEnabled" & "- (OD.Etkin)")
            .SubItems.Add(SystemInformation.MidEastEnabled.ToString())
        End With
        With SysBilgisiLW.Items.Add("MinimizedWindowSize" & "- (Minimize Boyutu)")
            .SubItems.Add(SystemInformation.MinimizedWindowSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MinimizedWindowSpacingSize" & "- (Minimize pnc. Aralık Boyutu)")
            .SubItems.Add(SystemInformation.MinimizedWindowSpacingSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MinimumWindowSize" & "- (Minimum Pnc.Boyutu)")
            .SubItems.Add(SystemInformation.MinimumWindowSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MinWindowTrackSize" & "- (Min.Pnc.Parça Boyutu)")
            .SubItems.Add(SystemInformation.MinWindowTrackSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("MonitorCount" & "- (Monitör sayısı)")
            .SubItems.Add(SystemInformation.MonitorCount.ToString())
        End With
        With SysBilgisiLW.Items.Add("MonitorsSameDisplayFormat" & "- (Ekran Formatı)")
            .SubItems.Add(SystemInformation.MonitorsSameDisplayFormat.ToString())
        End With
        With SysBilgisiLW.Items.Add("MouseButtons" & "- (Fare Butonları)")
            .SubItems.Add(SystemInformation.MouseButtons.ToString())
        End With
        With SysBilgisiLW.Items.Add("MouseButtonsSwapped" & "- (Fare Düğmeleri Takası)")
            .SubItems.Add(SystemInformation.MouseButtonsSwapped.ToString())
        End With
        With SysBilgisiLW.Items.Add("MousePresent" & "- (Fare Mevcut )")
            .SubItems.Add(SystemInformation.MousePresent.ToString())
        End With
        With SysBilgisiLW.Items.Add("MouseWheelPresent" & "- (Fare Tekerleği Mevcut)")
            .SubItems.Add(SystemInformation.MouseWheelPresent.ToString())
        End With
        With SysBilgisiLW.Items.Add("MouseWheelScrollLines" & "- (Fare Tekeri Kaydırma Hatları)")
            .SubItems.Add(SystemInformation.MouseWheelScrollLines.ToString())
        End With
        With SysBilgisiLW.Items.Add("NativeMouseWheelSupport" & "- (Fare Tekerlek Desteği)")
            .SubItems.Add(SystemInformation.NativeMouseWheelSupport.ToString())
        End With
        With SysBilgisiLW.Items.Add("Network" & "- (Ağ)")
            .SubItems.Add(SystemInformation.Network.ToString())
        End With
        With SysBilgisiLW.Items.Add("PenWindows" & "- (Win. Kalemi)")
            .SubItems.Add(SystemInformation.PenWindows.ToString())
        End With
        With SysBilgisiLW.Items.Add("PrimaryMonitorMaximizedWindowSize" & "- (Monitor Max.Pencere Boyutu)")
            .SubItems.Add(SystemInformation.PrimaryMonitorMaximizedWindowSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("PrimaryMonitorSize" & "- (Monitör Birincil Boyutu)")
            .SubItems.Add(SystemInformation.PrimaryMonitorSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("RightAlignedMenus" & "- (Menüler sağa bağlantısız)")
            .SubItems.Add(SystemInformation.RightAlignedMenus.ToString())
        End With
        With SysBilgisiLW.Items.Add("Secure" & "- (Güvenli)")
            .SubItems.Add(SystemInformation.Secure.ToString())
        End With
        With SysBilgisiLW.Items.Add("ShowSounds" & "- (Ses göster)")
            .SubItems.Add(SystemInformation.ShowSounds.ToString())
        End With
        With SysBilgisiLW.Items.Add("SmallIconSize" & "- (Küçük ikon Boyutu)")
            .SubItems.Add(SystemInformation.SmallIconSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("ToolWindowCaptionButtonSize" & "- (Pnc.Başlık Düğme Eni)")
            .SubItems.Add(SystemInformation.ToolWindowCaptionButtonSize.ToString())
        End With
        With SysBilgisiLW.Items.Add("ToolWindowCaptionHeight" & "- (Pnc.Başlık Düğme Boyu)")
            .SubItems.Add(SystemInformation.ToolWindowCaptionHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("UserDomainName" & "- (Kullanıcı Alan Adı)")
            .SubItems.Add(SystemInformation.UserDomainName.ToString())
        End With
        With SysBilgisiLW.Items.Add("UserInteractive" & "- (Kullanıcı Etkileşimli)")
            .SubItems.Add(SystemInformation.UserInteractive.ToString())
        End With
        With SysBilgisiLW.Items.Add("UserName" & "- (Kullanıcı Adı)")
            .SubItems.Add(SystemInformation.UserName.ToString())
        End With
        With SysBilgisiLW.Items.Add("VerticalScrollBarArrowHeight" & "- (Dikey kayd.Çbk.Boyu)")
            .SubItems.Add(SystemInformation.VerticalScrollBarArrowHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("VerticalScrollBarThumbHeight" & "- (Dikey kayd.Çbk.Düğme Boyu)")
            .SubItems.Add(SystemInformation.VerticalScrollBarThumbHeight.ToString())
        End With
        With SysBilgisiLW.Items.Add("VerticalScrollBarWidth" & "- (Dikey kayd. Çbk Eni)")
            .SubItems.Add(SystemInformation.VerticalScrollBarWidth.ToString())
        End With
        With SysBilgisiLW.Items.Add("VirtualScreen" & "- (Sanal Ekran)")
            .SubItems.Add(SystemInformation.VirtualScreen.ToString())
        End With
        With SysBilgisiLW.Items.Add("WorkingArea" & "- (Çalışma Alanı)")
            .SubItems.Add(SystemInformation.WorkingArea.ToString())
        End With
    End Sub

Private Sub MetotUygula()
        MantiksalSrcListesi.DataSource = Environment.GetLogicalDrives()
        KomutSatirListesi.DataSource = Environment.GetCommandLineArgs()
    End Sub

Private Sub exitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

Private Sub OzelKlasörListesi_DoubleClick(sender As System.Object, e As System.EventArgs) Handles OzelKlasörListesi.DoubleClick
        On Error Resume Next
        If OzelKlasörListesi.Text = "MyComputer" Then
            System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
            Exit Sub
        End If

Process.Start(OzelKlasorLbl.Text)
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        OzelKlasorLbl.Text = "explorer.exe" & "," & "/e" & ",/select,c:"
        System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        System.Diagnostics.Process.Start("control.exe")
    End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))
    End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Process.Start("control", "printers")
    End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Process.Start("WinHlp32.exe")
    End Sub

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        System.Diagnostics.Process.Start("C:\Windows\System32\regedt32.exe")
    End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        'Dim info As New ProcessStartInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "/system32/control.exe", "userpasswords")
        'Process.Start(info)
        'veya
        Process.Start("control", "userpasswords")
    End Sub

Private Sub KomutSatirListesi_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles KomutSatirListesi.SelectedIndexChanged
        Dim src As String
        Dim Secim As Integer

src = Mid(KomutSatirListesi.Text, 1, 3)
        If src = "C:\" Then Secim = 0
        If src = "D:\" Then Secim = 1
        MantiksalSrcListesi.SelectedIndex = Secim
    End Sub

Private Sub GezginTab_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles GezginTab.SelectedIndexChanged
        If GezginTab.SelectedIndex = 5 Then
            SurucuListesi.Items.Clear()
            For Each Src_Bilgisi As DriveInfo In DriveInfo.GetDrives()
                SurucuListesi.Items.Add(Src_Bilgisi.Name)
            Next Src_Bilgisi
            SurucuListesi.SelectedIndex = 0
        End If
        If GezginTab.SelectedIndex = 2 Then
            LblSonucGenislet.Text = Environment.ExpandEnvironmentVariables(txtGenislet.Text)
        End If

End Sub
    Private Sub SurucuListesi_SelectedIndexChanged() Handles SurucuListesi.SelectedIndexChanged

For Each ctl As Control In Me.Controls
            If (ctl.Name.StartsWith("lbl")) AndAlso (TypeOf ctl Is Label) Then
                Dim lbl As Label = DirectCast(ctl, Label)
                lbl.Text = ""
            End If
        Next ctl

Dim Src_Bilgisi As New DriveInfo(SurucuListesi.Text)
        LblAdi.Text = Src_Bilgisi.Name()
        LblHazir.Text = Src_Bilgisi.IsReady().ToString

Dim a As String = Src_Bilgisi.DriveType().ToString

If Not a = "Fixed" Then
            LblSrcTipi.Text = Src_Bilgisi.DriveType().ToString
        Else
            LblSrcTipi.Text = Src_Bilgisi.DriveType().ToString & "(" & " sabit" & ")"
        End If

LblKokDzn.Text = Src_Bilgisi.RootDirectory.ToString
        If Src_Bilgisi.IsReady() Then
            LblSrcFormati.Text = Src_Bilgisi.DriveFormat()
            TopAlanLbl.Text = ""
            BosAlanLbl.Text = ""
            If SurucuListesi.SelectedIndex = 0 Then

BosAlanLbl.Text = FormatBayt(Src_Bilgisi.TotalFreeSpace, "0.00")
                TopAlanLbl.Text = FormatBayt(Src_Bilgisi.TotalSize, "0.00")
            Else
                TopAlanLbl.Text = FormatBayt(Src_Bilgisi.TotalSize, "0.00")
                BosAlanLbl.Text = FormatBayt(Src_Bilgisi.AvailableFreeSpace, "0.00")
            End If
            LblBirimEtiketi.Text = Src_Bilgisi.VolumeLabel()
        End If
    End Sub
    Private Function FormatBayt(ByVal BaytDrm As Double, ByVal StrFormat As String) As String
        Dim Cevir() As String = {"Bayt", "KB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB"}
        For i As Integer = Cevir.Length - 1 To 0 Step -1
            If BaytDrm > 1024 ^ i Then
                BaytDrm /= 1024 ^ i
                Return BaytDrm.ToString(StrFormat) & " " & Cevir(i)
            End If
        Next i

Return BaytDrm.ToString(StrFormat) & " Bayt"
    End Function

Private Sub OrtamDegiskenListesi_DoubleClick(sender As System.Object, e As System.EventArgs)
        System.Diagnostics.Process.Start("explorer.exe", CevreDegiskenTxt.Text)
    End Sub
End Class

16 Ağustos 2013 Cuma

Bir BROWSER örneği

ErAsBrowser (16.08.2013) KOD İNDİR

12 Ağustos 2013 Pazartesi

Text içinde Ara bul Ve Renkli Göster

ARA BUL VURGULA

Text içinde benzer sözcüklerin Tümünü bulup renkli gösterme ile ilgili bir proje

KOD İNDİR

FORM1

Imports System.io

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim TxtOku As StreamReader

#Region "Form Designer kodu oluşturulan alan "

Public Sub New()
        MyBase.New()
        InitializeComponent()
    End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

Private components As System.ComponentModel.IContainer

Friend WithEvents BulCombo As System.Windows.Forms.ComboBox
    Friend WithEvents SEsSozlerChk As System.Windows.Forms.CheckBox
    Friend WithEvents BuyKucEslestirChk As System.Windows.Forms.CheckBox
    Friend WithEvents LblAranan As System.Windows.Forms.Label
    Friend WithEvents DsyYukleOFD As System.Windows.Forms.OpenFileDialog
    Friend WithEvents RenkPaneli As System.Windows.Forms.Panel
    Friend WithEvents RenkDlg As System.Windows.Forms.ColorDialog
    Friend WithEvents YukleBtn As System.Windows.Forms.Button
    Friend WithEvents btnRenkVurgula As System.Windows.Forms.Button
    Friend WithEvents btnSil As System.Windows.Forms.Button
    Friend WithEvents ScrollAltta As System.Windows.Forms.Button
    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
    Friend WithEvents RTBox As ABV.Windows.Forms.RichTextBox

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.BulCombo = New System.Windows.Forms.ComboBox()
        Me.SEsSozlerChk = New System.Windows.Forms.CheckBox()
        Me.BuyKucEslestirChk = New System.Windows.Forms.CheckBox()
        Me.LblAranan = New System.Windows.Forms.Label()
        Me.DsyYukleOFD = New System.Windows.Forms.OpenFileDialog()
        Me.RenkPaneli = New System.Windows.Forms.Panel()
        Me.RenkDlg = New System.Windows.Forms.ColorDialog()
        Me.YukleBtn = New System.Windows.Forms.Button()
        Me.btnRenkVurgula = New System.Windows.Forms.Button()
        Me.btnSil = New System.Windows.Forms.Button()
        Me.ScrollAltta = New System.Windows.Forms.Button()
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.RTBox = New ABV.Windows.Forms.RichTextBox()
        Me.SuspendLayout()
        '
        'BulCombo
        '
        Me.BulCombo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BulCombo.Location = New System.Drawing.Point(186, 25)
        Me.BulCombo.Name = "BulCombo"
        Me.BulCombo.Size = New System.Drawing.Size(135, 21)
        Me.BulCombo.TabIndex = 19
        '
        'SEsSozlerChk
        '
        Me.SEsSozlerChk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.SEsSozlerChk.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.SEsSozlerChk.Location = New System.Drawing.Point(391, 7)
        Me.SEsSozlerChk.Name = "SEsSozlerChk"
        Me.SEsSozlerChk.Size = New System.Drawing.Size(166, 18)
        Me.SEsSozlerChk.TabIndex = 17
        Me.SEsSozlerChk.Text = "Büyük küçük harf eşleştir"
        Me.SEsSozlerChk.TextAlign = System.Drawing.ContentAlignment.TopLeft
        '
        'BuyKucEslestirChk
        '
        Me.BuyKucEslestirChk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BuyKucEslestirChk.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BuyKucEslestirChk.Location = New System.Drawing.Point(391, 29)
        Me.BuyKucEslestirChk.Name = "BuyKucEslestirChk"
        Me.BuyKucEslestirChk.Size = New System.Drawing.Size(143, 18)
        Me.BuyKucEslestirChk.TabIndex = 16
        Me.BuyKucEslestirChk.Text = "Sadece eş Sözcükler"
        Me.BuyKucEslestirChk.TextAlign = System.Drawing.ContentAlignment.TopLeft
        '
        'LblAranan
        '
        Me.LblAranan.AutoSize = True
        Me.LblAranan.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.LblAranan.Location = New System.Drawing.Point(190, 6)
        Me.LblAranan.Name = "LblAranan"
        Me.LblAranan.Size = New System.Drawing.Size(119, 13)
        Me.LblAranan.TabIndex = 18
        Me.LblAranan.Text = "Aranan Sözcüğü Girin  :"
        '
        'DsyYukleOFD
        '
        Me.DsyYukleOFD.Filter = "Text Dosyası (*.txt)|*.txt;*.text|Rich Text Dosyası |*.rtf|Tüm Dosyalar (*.*)|*.*" & _
    ""
        Me.DsyYukleOFD.Title = "Text Dosyası Seç..."
        '
        'RenkPaneli
        '
        Me.RenkPaneli.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.RenkPaneli.BackColor = System.Drawing.Color.LightGreen
        Me.RenkPaneli.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.RenkPaneli.Cursor = System.Windows.Forms.Cursors.Hand
        Me.RenkPaneli.Location = New System.Drawing.Point(343, 6)
        Me.RenkPaneli.Name = "RenkPaneli"
        Me.RenkPaneli.Size = New System.Drawing.Size(35, 40)
        Me.RenkPaneli.TabIndex = 23
        '
        'RenkDlg
        '
        Me.RenkDlg.Color = System.Drawing.Color.LightGreen
        '
        'YukleBtn
        '
        Me.YukleBtn.BackColor = System.Drawing.Color.Transparent
        Me.YukleBtn.BackgroundImage = CType(resources.GetObject("YukleBtn.BackgroundImage"), System.Drawing.Image)
        Me.YukleBtn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.YukleBtn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.YukleBtn.Location = New System.Drawing.Point(12, 6)
        Me.YukleBtn.Name = "YukleBtn"
        Me.YukleBtn.Size = New System.Drawing.Size(40, 40)
        Me.YukleBtn.TabIndex = 76
        Me.YukleBtn.UseVisualStyleBackColor = False
        '
        'btnRenkVurgula
        '
        Me.btnRenkVurgula.BackColor = System.Drawing.Color.Transparent
        Me.btnRenkVurgula.BackgroundImage = CType(resources.GetObject("btnRenkVurgula.BackgroundImage"), System.Drawing.Image)
        Me.btnRenkVurgula.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.btnRenkVurgula.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnRenkVurgula.Location = New System.Drawing.Point(137, 6)
        Me.btnRenkVurgula.Name = "btnRenkVurgula"
        Me.btnRenkVurgula.Size = New System.Drawing.Size(40, 40)
        Me.btnRenkVurgula.TabIndex = 77
        Me.btnRenkVurgula.UseVisualStyleBackColor = False
        '
        'btnSil
        '
        Me.btnSil.BackColor = System.Drawing.Color.Transparent
        Me.btnSil.BackgroundImage = CType(resources.GetObject("btnSil.BackgroundImage"), System.Drawing.Image)
        Me.btnSil.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.btnSil.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSil.Location = New System.Drawing.Point(58, 6)
        Me.btnSil.Name = "btnSil"
        Me.btnSil.Size = New System.Drawing.Size(40, 40)
        Me.btnSil.TabIndex = 79
        Me.btnSil.UseVisualStyleBackColor = False
        '
        'ScrollAltta
        '
        Me.ScrollAltta.AutoSize = True
        Me.ScrollAltta.BackColor = System.Drawing.Color.Transparent
        Me.ScrollAltta.BackgroundImage = CType(resources.GetObject("ScrollAltta.BackgroundImage"), System.Drawing.Image)
        Me.ScrollAltta.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.ScrollAltta.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.ScrollAltta.Location = New System.Drawing.Point(103, 6)
        Me.ScrollAltta.Name = "ScrollAltta"
        Me.ScrollAltta.Size = New System.Drawing.Size(28, 40)
        Me.ScrollAltta.TabIndex = 80
        Me.ScrollAltta.UseVisualStyleBackColor = False
        '
        'RTBox
        '
        Me.RTBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.RTBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
        Me.RTBox.HideSelection = False
        Me.RTBox.Location = New System.Drawing.Point(7, 53)
        Me.RTBox.Name = "RTBox"
        Me.RTBox.owerloads = System.Drawing.Color.Black
        Me.RTBox.Size = New System.Drawing.Size(587, 389)
        Me.RTBox.TabIndex = 25
        Me.RTBox.Text = resources.GetString("RTBox.Text")
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
        Me.ClientSize = New System.Drawing.Size(601, 449)
        Me.Controls.Add(Me.BuyKucEslestirChk)
        Me.Controls.Add(Me.RenkPaneli)
        Me.Controls.Add(Me.SEsSozlerChk)
        Me.Controls.Add(Me.LblAranan)
        Me.Controls.Add(Me.ScrollAltta)
        Me.Controls.Add(Me.BulCombo)
        Me.Controls.Add(Me.btnSil)
        Me.Controls.Add(Me.btnRenkVurgula)
        Me.Controls.Add(Me.YukleBtn)
        Me.Controls.Add(Me.RTBox)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MinimumSize = New System.Drawing.Size(548, 487)
        Me.Name = "Form1"
        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Show
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Ara Bul  Vurgula"
        Me.ResumeLayout(False)
        Me.PerformLayout()

End Sub

#End Region

Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        ToolTip1.SetToolTip(YukleBtn, " Dosya Yükleme")
        ToolTip1.SetToolTip(btnSil, " Secili kısımları sil (Sağ fare tuşuna tıkla)")
        ToolTip1.SetToolTip(btnRenkVurgula, " Metne Girilen Sözcükleri Bul ve Renkli Göster ")
        ToolTip1.SetToolTip(BulCombo, " Aranacak sözcük girilir veya" & vbCrLf & "metinden seçildiği an buaraya eklenir")
        ToolTip1.SetToolTip(RenkPaneli, " Bulunan sözcükler buradan ayarlanan renkle gösterilir ")
        ToolTip1.SetToolTip(ScrollAltta, " Scroll çubuğunu aşağıya kaydır ")

End Sub

Private Sub YukleBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YukleBtn.Click
        Try
            If Me.DsyYukleOFD.ShowDialog(Me) = DialogResult.OK Then
                'Me.RTBox.LoadFile(Me.DsyYukleOFD.FileName, RichTextBoxStreamType.PlainText)
                Dim uzanti As String
                uzanti = System.IO.Path.GetExtension(DsyYukleOFD.FileName)
                uzanti = uzanti.ToUpper()

Select Case uzanti
                    Case ".RTF"
                        RTBox.LoadFile(DsyYukleOFD.FileName, RichTextBoxStreamType.RichText) 'UnicodePlainText

Case ".TXT", ".HTM"
                        RTBox.Clear()
                        TxtOku = New IO.StreamReader(DsyYukleOFD.FileName, System.Text.Encoding.Default)
                        RTBox.Text = TxtOku.ReadToEnd
                        TxtOku.Close()
                        TxtOku = Nothing
                        RTBox.Focus()
                        RTBox.SelectionStart = 0
                        RTBox.SelectionLength = 0

Case Else
                        Try
                            System.Diagnostics.Process.Start(DsyYukleOFD.FileName)
                        Catch ex As Exception
                            MessageBox.Show(uzanti & " 'Uzantılı uygulama Bulunamadı.", "RTB - Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End Try
                        Exit Sub
                End Select
            End If
        Catch ex As Exception
        End Try
    End Sub

Private Sub btnRenkVurgula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRenkVurgula.Click
        Me.RTBox.VurguRengi(Me.BulCombo.Text, Me.RenkPaneli.BackColor, Me.SEsSozlerChk.Checked, Me.BuyKucEslestirChk.Checked)
        RTBox.Focus()
    End Sub

Private Sub BulCombo_LostFocus(sender As Object, e As System.EventArgs) Handles BulCombo.LostFocus
        If Me.BulCombo.Text = Nothing Then Exit Sub
        Me.BulCombo.Items.Add(Me.BulCombo.Text)
    End Sub

Private Sub RenkPaneli_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RenkPaneli.Click
        Me.RenkDlg.Color = Me.RenkPaneli.BackColor
        If Me.RenkDlg.ShowDialog(Me) = DialogResult.OK Then
            Me.RenkPaneli.BackColor = Me.RenkDlg.Color
        End If
    End Sub

Private Sub btnSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSil.Click
        Me.RTBox.ClearBackColor(True)
    End Sub

Private Sub ScrollAltta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScrollAltta.Click
        Me.RTBox.ScrollToBottom()

End Sub

Private Sub RTBox_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles RTBox.SelectionChanged
        Me.BulCombo.Text = Me.RTBox.SelectedText
    End Sub

Private Sub BulCombo_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles BulCombo.KeyDown
        If e.KeyCode = Keys.Enter Then
            btnRenkVurgula.PerformClick()
        End If
    End Sub

Private Sub RTBox_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles RTBox.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Me.RTBox.ClearBackColor(True)
        End If
    End Sub

End Class

CLASS LİBRARY

Imports System.Runtime.InteropServices

Namespace Windows.Forms
    <System.ComponentModel.DesignerCategoryAttribute("UserControl")> _
    Public Class RichTextBox
        Inherits System.Windows.Forms.RichTextBox

#Region " ÖZELLİKLER :FON RENGİ.."
        <StructLayout(LayoutKind.Sequential)> Private Structure CharFormat2
            Public BoyutCb As Int32
            Public dwMaskesi As Int32
            Public dwEfekti As Int32
            Public BoyY As Int32
            Public DengeY As Int32
            Public TxtRengi As Int32
            Public KarakterRengi As Byte
            Public AlanB As Byte
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> Public szFaceName As String
            Public DegerB As Int16
            Public AralikB As Int16
            Public ArkaFonRnk As Int32
            Public IDsc As Int32
            Public dwRezerv As Int32
            Public Stil As Int16
            Public CekirdekW As Int16
            Public AltSatirTipi As Byte
            Public Animasyon As Byte
            Public RevizeEden As Byte
            Public YedekRz As Byte
        End Structure

Public Const LF_FACESIZE = 32
        Public Const CFM_BACKCOLOR = &H4000000
        Public Const CFE_AUTOBACKCOLOR = CFM_BACKCOLOR
        Public Const WM_USER = &H400
        Public Const EM_SETCHARFORMAT = (WM_USER + 68)
        Public Const EM_SETBKGNDCOLOR = (WM_USER + 67)
        Public Const EM_GETCHARFORMAT = (WM_USER + 58)
        Public Const WM_SETTEXT = &HC
        Public Const SCF_SELECTION = &H1&

Private Overloads Declare Auto Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByRef lParam As CharFormat2) As Boolean

Public Property owerloads() As Color
            Get

Dim HWND As IntPtr = Me.Handle
                Dim Format As New CharFormat2
                Format.dwMaskesi = CFM_BACKCOLOR
                Format.BoyutCb = Marshal.SizeOf(Format)
                SendMessage(Me.Handle, EM_GETCHARFORMAT, SCF_SELECTION, Format)
                Return ColorTranslator.FromOle(Format.ArkaFonRnk)
            End Get

Set(ByVal Value As Color)

Dim HWND As IntPtr = Me.Handle
                Dim Format As New CharFormat2
                Format.ArkaFonRnk = ColorTranslator.ToOle(Value)
                Format.dwMaskesi = CFM_BACKCOLOR
                Format.BoyutCb = Marshal.SizeOf(Format)
                SendMessage(Me.Handle, EM_SETCHARFORMAT, SCF_SELECTION, Format)
            End Set
        End Property
#End Region

#Region " YORDAM: ARKAFON SİL.."

#Region " SCROLL BAR TİPİ.."

Private Enum ScrollBarTypes
            SB_HORZ = 0
            SB_VERT = 1
            SB_CTL = 2
            SB_BOTH = 3
        End Enum
#End Region

#Region " SCROLBAR TİP BİLGİSİ.."

Private Enum ScrollBarInfoFlags
            SIF_RANGE = &H1
            SIF_PAGE = &H2
            SIF_POS = &H4
            SIF_DISABLENOSCROLL = &H8
            SIF_TRACKPOS = &H10
            SIF_ALL = (SIF_RANGE Or SIF_PAGE Or SIF_POS Or SIF_TRACKPOS)
        End Enum
#End Region

Public Sub ClearBackColor(Optional ByVal TumunuSil As Boolean = True)
            Dim HWND As IntPtr = Me.Handle

LockWindowUpdate(Me.Handle)
            Me.SuspendLayout()
            Dim DikeyKaydirma As Integer = Me.GetScrollBarPos(Me.Handle, ScrollBarTypes.SB_VERT)
            Dim YatayKaydirma As Integer = Me.GetScrollBarPos(Me.Handle, ScrollBarTypes.SB_HORZ)
            Dim SecimBaslangici As Integer = Me.SelectionStart
            Dim SecimUzunlugu As Integer = Me.SelectionLength

If TumunuSil Then Me.SelectAll()
            Dim Format As New CharFormat2
            Format.ArkaFonRnk = -1
            Format.dwMaskesi = CFM_BACKCOLOR
            Format.dwEfekti = CFE_AUTOBACKCOLOR
            Format.BoyutCb = Marshal.SizeOf(Format)
            SendMessage(Me.Handle, EM_SETCHARFORMAT, SCF_SELECTION, Format)

Me.SelectionStart = SecimBaslangici
            Me.SelectionLength = SecimUzunlugu
            SendMessage(Me.Handle, EMFlags.EM_SETSCROLLPOS, 0, New RichTextBox.POINT(YatayKaydirma, DikeyKaydirma))
            Me.ResumeLayout()
            LockWindowUpdate(IntPtr.Zero)
        End Sub

<StructLayout(LayoutKind.Sequential)> Private Structure SCROLLINFO
            Public BoyutCb As Integer
            Public fMask As ScrollBarInfoFlags
            Public nEnAz As Integer
            Public nEnCok As Integer
            Public nSayfa As Integer
            Public nPozisyon As Integer
            Public nIzPozisyonu As Integer
        End Structure

Private Declare Function GetScrollInfo Lib "User32" _
            (ByVal hWnd As IntPtr, ByVal fnBar As ScrollBarTypes, ByRef lpsi As SCROLLINFO) As Boolean

Private Function GetScrollBarPos(ByVal hWnd As IntPtr, ByVal BarType As ScrollBarTypes) As Integer
            Dim INFO As SCROLLINFO
            INFO.fMask = ScrollBarInfoFlags.SIF_POS
            INFO.BoyutCb = Marshal.SizeOf(INFO)
            GetScrollInfo(hWnd, BarType, INFO)
            Return INFO.nPozisyon
        End Function
#End Region

#Region " YORDAM : PARLAKLIK.."

Private Declare Function LockWindowUpdate Lib "user32.dll" (ByVal hWndLock As IntPtr) As Boolean

Public Sub VurguRengi(ByVal ArananSoz As String, ByVal VurguRengi As Color, ByVal EsSozcuk As Boolean, ByVal BkHSozcuk As Boolean)
            LockWindowUpdate(Me.Handle)
            Me.SuspendLayout()
            Dim DikeyKaydirma As Integer = Me.GetScrollBarPos(Me.Handle, ScrollBarTypes.SB_VERT)
            Dim YatayKaydirma As Integer = Me.GetScrollBarPos(Me.Handle, ScrollBarTypes.SB_HORZ)
            Dim SecimBaslangici As Integer = Me.SelectionStart
            Dim SecimUzunlugu As Integer = Me.SelectionLength

Dim Baslangictan As Integer = 0
            Dim Uzunluk As Integer = ArananSoz.Length
            Dim Bulunanlar As RichTextBoxFinds
            'eş ve benzer sözcükler (büyük Küçük harf seçmez kelimenin eşit olmasına bakar)
            If EsSozcuk Then Bulunanlar = Bulunanlar Or RichTextBoxFinds.MatchCase
            'Arananın Büyük ve Küçük harfleri benzerse Bulur
            If BkHSozcuk Then Bulunanlar = Bulunanlar Or RichTextBoxFinds.WholeWord

While Me.Find(ArananSoz, Baslangictan, Bulunanlar) > -1
                Me.SelectionBackColor = VurguRengi
                Baslangictan = Me.SelectionStart + Me.SelectionLength
            End While

#End Region

#Region " YORDAM: SCROLLBAR ALTTA.."

#Region " SCROLL FLAG.."
        Private Enum EMFlags
            EM_SETSCROLLPOS = &H400 + 222
        End Enum
#End Region

#Region "  SCROLLBARFLAG..."

Private Enum ScrollBarFlags
            SBS_HORZ = &H0
            SBS_VERT = &H1
            SBS_TOPALIGN = &H2
            SBS_LEFTALIGN = &H2
            SBS_BOTTOMALIGN = &H4
            SBS_RIGHTALIGN = &H4
            SBS_SIZEBOXTOPLEFTALIGN = &H2
            SBS_SIZEBOXBOTTOMRIGHTALIGN = &H4
            SBS_SIZEBOX = &H8
            SBS_SIZEGRIP = &H10
        End Enum
#End Region

#Region " PLANLAMA : NOKTA..."

<StructLayout(LayoutKind.Sequential)> Private Class POINT
            Public x As Integer
            Public y As Integer

Public Sub New()
            End Sub

Public Sub New(ByVal x As Integer, ByVal y As Integer)
                Me.x = x
                Me.y = y
            End Sub
        End Class
#End Region

Private Declare Function GetScrollRange Lib "User32" (ByVal hWnd As IntPtr, ByVal nBar As Integer, _
                                                              ByRef lpMinPos As Integer, ByRef lpMaxPos As Integer) As Boolean

Private Overloads Declare Auto Function SendMessage Lib "user32" Alias "SendMessageA" _
            (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As RichTextBox.POINT) As IntPtr

Public Sub ScrollToBottom()
            Dim Min, Max As Integer
            GetScrollRange(Me.Handle, ScrollBarFlags.SBS_VERT, Min, Max)
            SendMessage(Me.Handle, EMFlags.EM_SETSCROLLPOS, 0, New RichTextBox.POINT(0, Max - Me.Height))
        End Sub

#End Region

End Class
End Namespace

8 Ağustos 2013 Perşembe

SON ÇALIŞILAN DOSYALARI GÖSTEREN PROJE

Proje Kodlarını İNDİR

Imports System.IO, System.Diagnostics, System.ComponentModel

Public Class Form1

Dim SonCalDsyKlasoru As String = Environment.GetFolderPath(Environment.SpecialFolder.Recent)

Private Property eleman As ListViewItem

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

Private Sub SCDsyGosterBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SCDsyGosterBtn.Click
        ListView1.Items.Clear()

Dim lstitem As New ListViewItem()
        imageList1.Images.Clear()
        For Each SonCalDsy In Directory.GetFiles(SonCalDsyKlasoru)
            Dim yol As String
            yol = Path.GetFileNameWithoutExtension(SonCalDsy)

imageList1.Images.Add(SonCalDsy, Icon.ExtractAssociatedIcon(SonCalDsy)) 'Dosya adı ve ikonu
            lstitem = ListView1.Items.Add(Path.GetFileNameWithoutExtension(SonCalDsy), SonCalDsy)
            lstitem.SubItems.Add(New FileInfo(SonCalDsy).CreationTime.ToLongDateString()) 'Tarih ToLongDateString
            lstitem.SubItems.Add(SonCalDsy) 'yol ekle
        Next
    End Sub

Private Sub ListView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
        Try
            Process.Start(TextBox1.Text)

Catch m As Win32Exception
        End Try
    End Sub

Private Sub openToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcTSm.Click, DosyaAçTSmn.Click
        ListView1_DoubleClick(sender, e)
    End Sub

Private Sub openLocationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DsyKlsAcTsm.Click, DsyKlsAçTsmn.Click
        Process.Start(SonCalDsyKlasoru)
    End Sub

Private Sub TumSilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TumSilTsm.Click
        For Each TumCalDsy In Directory.GetFiles(SonCalDsyKlasoru)

File.Delete(TumCalDsy)
        Next

ListView1.Items.Clear()
    End Sub

Dim DosyaSil As String

Private Sub SecilSilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SecilSilTsm.Click
        For Each selected In ListView1.SelectedItems
            DosyaSil = selected.ToString.Remove(0, selected.ToString.IndexOf("{") + 1).Replace("}", "")
            File.Delete(DosyaSil)
            ListView1.Items.RemoveByKey(DosyaSil)
        Next
    End Sub

Private Sub SilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SilTsm.Click
        File.Delete(ListView1.SelectedItems(0).Text)
        ListView1.Items.RemoveByKey(ListView1.SelectedItems(0).Text)
    End Sub

Private Sub ListView1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If (ListView1.SelectedItems.Count > 0) Then
                'contextMenuStrip3.Show(ListView1, 0, -50)
                contextMenuStrip1.Show(ListView1, ListView1.SelectedItems(0).Position.X + 20, ListView1.SelectedItems(0).Position.Y + 20)
            End If
        End If
    End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Dim sayi As Integer = ListView1.Items.Count
        Dim eleman As ListViewItem
        For i As Integer = 0 To sayi - 1
            eleman = ListView1.Items(i)
            If eleman.Selected Then
                Label1.Text = ListView1.Items(i).SubItems(0).Text
                TextBox1.Text = ListView1.Items(i).SubItems(2).Text

End If
        Next
    End Sub

#Region " ESC İLE KAPATMA, DELETE İLE SATIR SİLME...."

Private Sub ListView1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyDown
        If e.KeyCode = Keys.Delete Then
            Call ListedenSatırSil()
        End If
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub

Public Sub ListedenSatırSil()
        On Error Resume Next
        Dim indeksler As ListView.SelectedIndexCollection = ListView1.SelectedIndices
        Dim index As Integer

TextBox1.Text = Nothing

For Each index In indeksler
            ListView1.Items.RemoveAt(index)
        Next

If index = 0 Then index = 0

index = index - 1

If index = -1 Then index = 0

eleman = ListView1.Items(index)
        eleman.Selected = True
        ListView1.Focus()

End Sub
#End Region

End Class