Ping Programi

PİNG GÖNDERİCİ

IP yerine istediğiniz web site ve ya ıp yi yazın.

Ms(MiliSaniye) yerine 10000 yazabilirsiniz.

Başlata tıklayın program ping göndermeye başlasın.

GEREKENLER

2 TEXT BOX
2 LABEL
2 BUTTON

Public Class Form1

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

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

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Shell("Ping (TextBox1.Text")
        MsgBox("Gönderiliyor")
    End Sub
End Class

Devamını Oku

Butona tıklayınca ProgressBar Dolsun

GEREKENLER

2 TANE BUTTON

TİMER

PROGRESS BAR

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(2)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
        End If
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Process.Start("chrome.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("iexplore.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("browser.exe", "http://www.visualbasicdersleri.com/")
    End Sub
End Class

Devamını Oku

Örnek Uygulama Kodları

Örnek uygulama kodları

Public Class Form1
    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        mciExecute("Set CDAudio door Open")
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        mciExecute("Set CDAudio door closed")
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Beep()
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Call Shell("notepad.exe", 1)
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Call Shell("calc.exe", 1)
    End Sub
End Class

Devamını Oku

Programınızı Demo Yapın

Programınızı Demo Yapın

Aşagıdaki kodda 3 kullanım hakkı verilmiştir.

kullanıcı 3 defa açtıktan sonra program kullanım hakkın bitti diye uyarı verip kapanacaktır.

"Microsoft.Win32.Registry.CurrentUser" de kendi isminde yer acmaktadır.

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim kalan As Integer
        kalan = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Visual Basic").GetValue("Dersleri", 3)
        Label1.Text = kalan & " Kullanım Hakkın Kaldı"
    kalan -= 1
    If kalan < 0 Then
            MsgBox("Kullanım Hakkın Sona Erdi")
            Application.Exit()
    Else
            Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Visual Basic").SetValue("Dersleri", kalan)
    End If
    End Sub
End Class

Devamını Oku

Bul Ve Renklendir

Bul Ve Renklendir

Programdaki amaç Ara,Bul,Vurgula arayacağınız kelimeyi yazıyorsunuz.

program kelimeyi buluyor ve hangi renk seçerseniz vurguluyor.

Bul Ve Renklendir

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS : www.visualbasicdersleri.com

Devamını Oku

E-Mail Doğrula ve Gönder

E-Mail Doğrula ve Gönder VB.NET

Erdoğan Aslan'ın yaptığı bir çok güzel bir uygulamadan bahsedeceğim.

Uygulamanın amacı başlıktan da belli olduğu üzere Emailinizi Doğrulama yapar

Göndermek istediğiniz mail varsa ek ekleyebilerekte gönderebilirsiniz.

Programın bir güzel yani ise tek gmail sağlayıcısı yok.

gmail dahil 5 E-Posta sağlayıcısı ile e-mail gönderebiliyorsunuz.

Programın kullanımından bahsedecek olursak,

İlk E-posta sağlayıcısı seçilir gönderenin sağlayıcı adresi ve şifresi yazılır

Mail Doğrulama butonuna basılır.

E-mail gönderecek ise bilgileri doldurur gönderim yapar.

E-Mail Doğrula ve Gönder VB.NET

PROJEYİ(KODLARI) İNDİRMEK İÇİN TIKLA

RAR PASS : visualbasicdersleri.com

Devamını Oku

Google Haritalar

Google Haritasi VB.NET

 (Paylaşımlara yorum gelirse paylaşımlar devam eder)

Merhaba Arkadaşlar,Bu yayında Google Haritasının uygulamaya dökülmüş halini paylaşmak istedim.

Programda 1 tane webbrowser kullanmıştır.

Resources'e ise GoogleHarita.html si eklenmiştir.

Programa giren kişi ister uydu ister harita olarak görüntü alabilmektedir.

Form1 e direk Resources.GoogleHarita ile bağlanmıştır.

Form Açıldığı gibi kullanıcının karşısına harita çıkar.

İyi kullanımlar.

Google Haritasi VB.NET

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS: www.visualbasicdersleri.com

Devamını Oku

Deneme Sürümü Oluşturmak

Deneme Sürümü Oluşturma VB.NET

Projenizi oluşturdunuz başkasına atmak istiyorsunuz ama tamını atmak istemiyorsanız

deneme sürümü oluşturup istediğiniz kadar kullanım hakkı verebilirsiniz.

kullanım hakkı dolduğunda program bir daha o bilgisayarda açılmayacaktır.

Deneme sürümünde

Microsoft.Win32.Registry.CurrentUser.CreateSubKey den kendine yer oluşturmaktadır.

Yer oluşturduğunda kendine kullanım hakkı belirler.

program her açıldıkça kullanım hakkından düşer.

kullanım hakkı bitince ise program bir daha açılmaz(sadece o bilgisayarda)

Deneme Sürümü Oluşturma VB.NET

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kalan As Integer
        kalan = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("wwww.visualbasicdersleri.com").GetValue("vbnet", 5) 'www.visualbasicdersleri.com
        Label1.Text = kalan & " Kullanım Hakkınız Kaldı"
        kalan -= 1
        If kalan < 0 Then
            MsgBox("Kullanım Hakkınız Sona Erdi")
            Application.Exit()
        Else
            Microsoft.Win32.Registry.CurrentUser.CreateSubKey("wwww.visualbasicdersleri.com").SetValue("vbnet", kalan)
        End If
    End Sub
End Class

Devamını Oku

System bilgilerini bulma

Sistem Bilgilerini bulma VB.NET

Başlığın isminden de anlaşılacağı gibi bu programda

bilgisayarınızın özelliklerini göstermektedir.

İşe yarayacak bir programdır.

kendinizi kodlamalara bakarak geliştirebilecek bir proje.

Sistem Bilgilerini bulma VB.NET

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS :www.visualbasicdersleri.com

Devamını Oku

Programınız Başlangıçta Çalıştırmak

Programınız Başlangıçta Çalıştırmak VB.NET

Başlıktan da anlaşılacağı gibi bilgisayar açıldığı zaman

sizin de yaptığınız program açılsın isterseniz kodları programınıza

eklemeniz yeterlidir.

Public Class Form1
    Public Shared Sub AddStartup(ByVal Name As String, ByVal Path As String)
        Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
        Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        AddStartup(Me.Text, Application.ExecutablePath)
    End Sub
End Class

Devamını Oku

Görev yöneticisini Timer ile Kapatma

Görev yöneticisini Timer ile Kapatma  VB.NET

Kodu direk Code bölümüne yapıştırın.

Public Class Form1
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Int32

    Declare Function sendMessage Lib "USER32" Alias "SendMessageA" ( _
        ByVal hWnd As Int32, ByVal Msg As Int32, _
        ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim hwnd As Int32
        hwnd = FindWindow("#32770", vbNullString)
        SendMessage(hwnd, &H10, 0, 0)
    End Sub
End Class

Devamını Oku

Duvar Kağıdı Ekle

Duvar Kağıdı Ekle Programı VB.NET 

Programın adından da anlaşılacağı üzerine duvar kağıdı ekleme

programıdır.kendinizi geliştirebilecek bir proje.

Duvar Kağıdı Ekle Programı VB.NET 

PROJEYİ İNDİRMEK İÇİN TIKLA

 RAR PASS :www.visualbasicdersleri.com

KAYNAK: http://eraslancemil.blogspot.com.tr/

Devamını Oku

Büyüteç Programı

Büyüteç Programı VB.NET

Bu yayında Büyüteç Programına yer verdik.

Kullanıcı Programı açıyor daha sonra mouse nin üzerine geldiği her şey

büyütülür kullanıcınında istemine kalmış bir şey ister uzaklaştırır

ister ise büyütür.

Programın kodları uzun olduğu için PROJE olarak veriyorum.

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS: visualbasicdersleri.com

Büyüteç Programı vb.net

KAYNAK:http://eraslancemil.blogspot.com.tr/

Devamını Oku

Alarm Programı

Alarm Programı Yapımı

 Programın amacı isminden de belli olduğu üzere bir Alarm programıdır.

Bu Alarm programında Analog saat kullanılmıştır.

İsterseniz belirlediğiniz saatte dosya da çalıştırabilir.

Alarmın çalacağı sesi de seçebilmektesiniz.

Alarm çalıştığı zaman size uyarı mesajı vermesini ister iseniz 

Uyarı mesajlarını yaz kısmından düzenleyebilirsiniz.

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS : www.visualbasicdersleri.com

Alarm Programı Yapımı

KAYNAK: http://eraslancemil.blogspot.com.tr/

Devamını Oku

Ekranı Kilitle

Ekranı Kilitleme Programı

Ekranı kilitleme programı,önce Gözattan .exe rastgele bir dosya seçilir.

daha sonra texte şifre girilir.

şifre girildikten sonra Etkinleştir e basılır.

ekran kilitlenir hiç bir yere girmesine program izin vermez.

görev yöneticisine girmesine bile izin vermemektir.

acmak için ise f12 basıp şifre girmek zorundasınız.

aksi taktirde yeniden başlatırsınız.

Ekranı Kilitleme Programı

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS : www.visualbasicdersleri.com

KAYNAK: http://eraslancemil.blogspot.com.tr/

Devamını Oku

Reklam Pencereli Program

Reklam Pencereli Program

Programınıza 2 tane Form koyun. Form1 re Picturebox ekleyin.

pictureboxun FormBorderStyle sini None yapın.

daha sonra kodu kendinize göre ayarlayın.

Kullanıcı Sizin reklamınıza bastıktan sonra form2 ye yönlenecektir.

EKLENECEKLER:

2 FORM

1 PİCTUREBOX

Public Class Form1
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Form2.Show()
        Dim process As New System.Diagnostics.Process
        process.StartInfo.FileName = "www.visualbasicdersleri.com"
        process.StartInfo.Verb = "Open"
        process.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        process.Start()
    End Sub
End Class

Devamını Oku

TEKRARLANMAYAN Rastgele Sayı Üretmek

 TEKRARLANMAYAN Rastgele Sayı Üretmek

İstediğimiz kadar sayıyı ListBox ' a ekliyoruz.Button ' a tıkladığımız zaman ListBox daki sayılardan birini TextBox a yazdırıyor ve TextBox ' a yazdırdığı sayıyı ListBox'dan siliyor.Böylece Her seferinde farklı sayılar yazdırıyor.Kodlara geçelim: 

İlk önce formumuza bir adet Button , TextBox ve ListBox ekliyoruz.Button 'un adı "Button1" , TextBox 'ın adı "TextBox1" , ListBox ' ın adı "ListBox1" ve Formumuzun adı "Form1" olsun. 

ListBox1.Visible = False 'ListBox 'zımızı gizliyoruz. 
TextBox1.ReadOnly = True 'TextBox 'zımıza değer girilmesini engelliyoruz. 
For sayilar As Integer = 0 To 10 'ListBox 'zımıza 1 'den 10'na kadar sayı ekliyoruz. 
ListBox1.Items.Add(sayilar) 
Next 

Dim sayi As Integer 
Randomize()
sayi = Int(Rnd(1) * (ListBox1.Items.Count - 1)) 'Rastgele sayı üretiyoruz. 
ListBox1.SelectedIndex = sayi 'Üretilen sayının ListBox'da seçilmesini sağlıyoruz. 
TextBox1.Text = ListBox1.Items.Item(sayi) 'Seçilen İtemin TextBox1' de gösterilmesini sağlıyoruz. 
ListBox1.Items.Remove(ListBox1.SelectedItem) 'Seçilen İtemin silinmesini sağlıyoruz. 

Devamını Oku

TÜM Dosya İşlemleri

Bu derste VB.Net'te nasıl dosya işlemleri yapacağımızı öğreneceğiz.Başlayalım: 

Dosya Taşıma: 

Source Code

1. My.Computer.FileSystem.MoveFile("C:\eski_klasor\dosya.txt", "C:\yeni_klasor\dosya.txt")

Klasör Taşıma: 

Source Code

1. My.Computer.FileSystem.MoveDirectory("C:\eski_klasor", "C:\yeni_klasor")

 

Dosya Yaratma: 

Source Code

1. My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False)

 

Klasör Yaratma: 

Source Code

1. My.Computer.FileSystem.CreateDirectory("C:\Yeni_klasor")

Dosya Kopyalama: 

Source Code

1. My.Computer.FileSystem.CopyFile("C:\kaynak.txt", "C:\yeni_klasor\hedef.txt")

Klasör Kopyalama: 

Source Code

1. My.Computer.FileSystem.CopyDirectory("C:\kaynak_klasor", "D:\yeni_klasor")

Sorgulu Dosya Silme: 

Source Code

1. My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Sorgulu Klasör Silme: 

Source Code

1. My.Computer.FileSystem.DeleteDirectory("C:\Test", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Sorgusuz Dosya Silme: 

Source Code

1. My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

 

Sorgusuz Klasör Silme: 

Source Code

1. My.Computer.FileSystem.DeleteDirectory("C:\Test", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

 

Belirtilen Dosya Var mı?: 

Source Code

1. Dim dvarmi As Boolean = My.Computer.FileSystem.FileExists("C:\Test.txt")If dvarmi = True Then
2. MsgBox("Dosya Var")
3. Else
4. MsgBox("Dosya Yok")
5. End If

 

Belirtilen Klasör Var mı?: 

Source Code

1. Dim kvarmi As Boolean = My.Computer.FileSystem.DirectoryExists("C:\hedef_klasor")If kvarmi = True Then
2. MsgBox("Dosya Var")
3. Else
4. MsgBox("Dosya Yok")
5. End If

Belirtilen Dosyanın Boyutu Kaç?: 

Source Code

1. Dim dboyutu As Long = My.Computer.FileSystem.GetFileInfo("C:\dosya.txt").Length

Belirtilen Diskin Boş Boyutunu Ne?: 

Source Code

1. Dim bosalan As Long = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace

Belirtilen Dosyadan Metin Okuma: 

Source Code

1. Dim dicerigi As String = My.Computer.FileSystem.ReadAllText("C:\Test.txt")

Dosyayı Yeniden Adlandırma: 

Source Code

1. My.Computer.FileSystem.RenameFile("C:\eski.txt", "yeni.txt")

Klasörü Yeniden Adlandırma: 

Source Code

1. My.Computer.FileSystem.RenameDirectory("C:\eski_klasor", "yeni_klasor")

Devamını Oku

Klasör gizleme Gösterme

Klasör gizleme Gösterme

Programa 2 tane button koyuyorsunuz. 

1 buttonu GİZLE 2.buttonu ise GÖSTER yapıyorsunuz.

FolderBrowserDialog ekliyorsunuz. daha sonra kodları yapıştırıyorsunuz.

debug  yaptıktan sonra GİZLE den klasörü seçiyorsunuz.

TAMAM bastığınızda klasörü gizler.

tekrar açmak istediğinizde GÖSTER den klasörü seçin ve görünür hale

gelecektir kolay gele.

Public Class Form1 'http://www.visualbasicdersleri.com/
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'http://www.visualbasicdersleri.com/
        Dim DznGizle As String
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 'http://www.visualbasicdersleri.com/
            'Gizlenecek Klasörü Seç
            DznGizle = FolderBrowserDialog1.SelectedPath.TrimEnd

            Dim Gizle As New System.IO.DirectoryInfo(DznGizle)
            'Seçilen Klasör özelliği hidden yapılarak Gizlenecek
            Gizle.Attributes = IO.FileAttributes.Hidden
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim DizinGoster As String
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            'Gösterilecek Gizli  Klasörü Seç
            DizinGoster = FolderBrowserDialog1.SelectedPath.TrimEnd

            Dim Goster As New System.IO.DirectoryInfo(DizinGoster) 'http://www.visualbasicdersleri.com/
            'Seçilen Klasör özelliği Normel yapılarak Gösterilir duruma getirilecek
            Goster.Attributes = IO.FileAttributes.Normal
        End If
    End Sub
End Class

Devamını Oku

Ekran Çözünürlüğünü değiştirme

Ekran Çözünürlüğünü değiştirme

1366x768 Önerilen Çözünürlük

1024x768 Değiştirilen Çözünürlük

EKLENECEKLER:

2 TEXBOX

1 BUTTON

Imports System.Runtime.InteropServices 'WWW.VİSUALBASİCDERSLERİ.COM
Public Class Form1
    Const ENUM_CURRENT_SETTINGS As Integer = -1
    Const CDS_UPDATEREGISTRY As Integer = &H1
    Const CDS_TEST As Long = &H2

    Const CCDEVICENAME As Integer = 32
    Const CCFORMNAME As Integer = 32

    Const DISP_CHANGE_SUCCESSFUL As Integer = 0
    Const DISP_CHANGE_RESTART As Integer = 1
    Const DISP_CHANGE_FAILED As Integer = -1

    Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Integer
    Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef DEVMODE As DEVMODE, ByVal flags As Integer) As Integer 'WWW.VİSUALBASİCDERSLERİ.COM

    <StructLayout(LayoutKind.Sequential)> Public Structure DEVMODE
        <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)> Public dmDeviceName As String
        Public dmSpecVersion As Short
        Public dmDriverVersion As Short
        Public dmSize As Short
        Public dmDriverExtra As Short
        Public dmFields As Integer 'WWW.VİSUALBASİCDERSLERİ.COM
        Public dmOrientation As Short
        Public dmPaperSize As Short
        Public dmPaperLength As Short
        Public dmPaperWidth As Short
        Public dmScale As Short
        Public dmCopies As Short
        Public dmDefaultSource As Short
        Public dmPrintQuality As Short
        Public dmColor As Short
        Public dmDuplex As Short
        Public dmYResolution As Short
        Public dmTTOption As Short
        Public dmCollate As Short
        <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)> Public dmFormName As String 'WWW.VİSUALBASİCDERSLERİ.COM
        Public dmUnusedPadding As Short
        Public dmBitsPerPel As Short
        Public dmPelsWidth As Integer
        Public dmPelsHeight As Integer
        Public dmDisplayFlags As Integer
        Public dmDisplayFrequency As Integer
    End Structure

    Public Sub CozunurlukDegistir(ByVal theWidth As Integer, ByVal theHeight As Integer)

        Dim DevM As DEVMODE

        DevM.dmDeviceName = New [String](New Char(32) {})
        DevM.dmFormName = New [String](New Char(32) {})
        DevM.dmSize = CShort(Marshal.SizeOf(GetType(DEVMODE)))


        If 0 <> EnumDisplaySettings(Nothing, ENUM_CURRENT_SETTINGS, DevM) Then
            Dim lResult As Integer
            'WWW.VİSUALBASİCDERSLERİ.COM
            DevM.dmPelsWidth = theWidth
            DevM.dmPelsHeight = theHeight


            lResult = ChangeDisplaySettings(DevM, CDS_TEST)

            If lResult = DISP_CHANGE_FAILED Then
                MsgBox("Çözünürlük değiştirilemedi..", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Screen Resolution Change Failed")
            Else

                lResult = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

                Select Case lResult
                    Case DISP_CHANGE_RESTART
                        MsgBox("Değişikliklerin uygulanması için bilgisayarınızı yeniden başlatmalısınız.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Tamam") 'WWW.VİSUALBASİCDERSLERİ.COM
                    Case DISP_CHANGE_SUCCESSFUL

                    Case Else
                        MsgBox("Çözünürlük değiştirilemedi.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hata")
                End Select
            End If

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CozunurlukDegistir(TextBox1.Text, TextBox2.Text) 'WWW.VİSUALBASİCDERSLERİ.COM
    End Sub
End Class

Devamını Oku