SES KAYIT VE EKRAN YAKALAMA v.1.0.0.1

SES KAYIT VE EKRAN YAKALAMA v.1.0.0.1

ekran yakalama kodu eraslancemil kod örnekleri örnek projeler Ses kayıt vb.net

Computest Cihazları hakkında bilgi almak isterseniz burayı tıklayın


SES KAYIT VE EKRAN YAKALAMA v.1.0.0.1 PROJE KODU                              İNDİR

Program Mümkün olduğunca değişik ve program bütünlüğü göstermemekle birlikte örnek kodlar içermektedir.Amaç; kod arayanlara aradıklarını bir arada bulmalarını sağlamaktır.
   Programın, Çok kaliteli bir Ses kayıt yaptığı söylenemez. Önemli olan ilgilenenlerin aradığı kod örneğini bulmasıdır.

FORM1 KODLARI :
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 MIDIfrm #Region " SES KAYDEDİCİ FONKSİYONU ve ProgressBar Function.." Declare Function ProgressBar Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Public Sub Kaydedici(ByVal islem As String, ByVal Ses_Yolu As String, ByVal Dsy_ismi As String) If islem = "baslat" Then mciSendString("open new Type waveaudio Alias recsound", "", 0, 0) mciSendString("record recsound", "", 0, 0) ElseIf islem = "bitir" Then mciSendString("save recsound " & SesTamYolu & "/" & Dsy_ismi, "wav", 0, 0) mciSendString("close recsound ", "", 0, 0) End If End Sub #End Region #Region " mciSendString dll KİTAPLIĞI.." <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 <DllImport("winmm.dll", EntryPoint:="mciSendStringA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _ Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer End Function #End Region #Region " FORM TAŞIMA DEĞİŞKENLERİ...." 'Form Taşıma Const i As Integer = &HA1 Const j As Integer = 2 #End Region #Region " FORM TAŞIMA...." Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles AnaSkinPic.MouseDown If e.Button = Windows.Forms.MouseButtons.Left Then Me.Capture = False 'Panelden,pictureden,textten,vb tut sürükle AnaSkinPic.Capture = False Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero) Me.DefWndProc(msg) End If End Sub #End Region #Region " FORM OLAYLARI..." Private Sub MIDIfrm_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing SaveSetting(Application.ProductName, ProductName, "Secili Ekran Yolu", Secili_EkranYolu) SaveSetting(Application.ProductName, ProductName, "Secili Dosya Adı", EkranYakalamaDsyAdı) SaveSetting(Application.ProductName, ProductName, "Secili Dosya Uzantısı", EkranUzantısı) SaveSetting(Application.ProductName, ProductName, "Progress Bar Rengi", ProgresBarRengi) SaveSetting(Application.ProductName, ProductName, "Formu üstte tut", CheckBox1.Checked) SaveSetting(Application.ProductName, ProductName, "Yakalarken Beni Sakla", CheckBox5.Checked) SaveSetting(Application.ProductName, ProductName, "Form Mini-Midi seçimi", Me.Height) SaveSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Ust", Me.Top) SaveSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Sol", Me.Left) SaveSetting(Application.ProductName, ProductName, "Pencere pozisyonu Sakla", CheckBox2.Checked) SaveSetting(Application.ProductName, ProductName, "Yakala ve Göster", CheckBox3.Checked) SaveSetting(Application.ProductName, ProductName, "Tab İndex", TabControl1.SelectedIndex) End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load SaatTimer.Enabled = True Timer1.Enabled = False ProgressBar1.Value = 0 Secili_EkranYolu = GetSetting(Application.ProductName, ProductName, "Secili Ekran Yolu", "C:\Users\" & KullAdi & "\Desktop") Me.EkranDsyAdi.Text = GetSetting(Application.ProductName, ProductName, "Secili Dosya Adı", "YakalananEkran") ComboBox1.Text = GetSetting(Application.ProductName, ProductName, "Secili Dosya Uzantısı", "JPG") EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", "C:\Users\" & KullAdi & "\Desktop") Dsy_ismi = GetSetting(Application.ProductName, ProductName, "Ses Dosyası Adı", "Ses_Kaydi") Me.SesDosyaAdiTxt.Text = Dsy_ismi Ses_Yolu = SesTamYolu & "\" & Dsy_ismi SesDosyaYoluTxt.Text = Ses_Yolu ProgresBarRengi = GetSetting(Application.ProductName, ProductName, "Progress Bar Rengi", 1) CheckBox3.Checked = GetSetting(Application.ProductName, ProductName, "Yakala ve Göster", False) CheckBox5.Checked = GetSetting(Application.ProductName, ProductName, "Yakalarken Beni Sakla", True) TabControl1.SelectedIndex = GetSetting(Application.ProductName, ProductName, "Tab İndex", 0) CheckBox1.Checked = GetSetting(Application.ProductName, ProductName, "Formu üstte tut", True) CheckBox2.Checked = GetSetting(Application.ProductName, ProductName, "Pencere pozisyonu Sakla", False) If CheckBox2.Checked = True Then Me.Top = GetSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Ust", 250) Me.Left = GetSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Sol", 500) Else Me.Top = 250 Me.Left = 300 End If If ProgresBarRengi = 1 Then RadioButton1.Checked = True ElseIf ProgresBarRengi = 2 Then RadioButton2.Checked = True ElseIf ProgresBarRengi = 3 Then RadioButton3.Checked = True End If 'yukardaki ile aynı işlevi yapar 'Select Case ProgresBarRengi ' Case 1 : RadioButton1.Checked = True ' Case 2 : RadioButton2.Checked = True ' Case 3 : RadioButton3.Checked = True 'End Select 'User32 Dll sinde bulunan progressbar apisi çağrılıyor. 1=yeşil,2=kırmızı, 3=sarı 'ProgressBar(ProgressBar1.Handle, 1040, 2, 3) Normal ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0) ' Form mini veya midi açılacak '********************** Me.Height = GetSetting(Application.ProductName, ProductName, "Form Mini-Midi seçimi", 144) If Me.Height = 144 Then Me.Height = 372 Else Me.Height = 144 If Me.Height = 144 Then AltPic.Top = 131 Me.Height = 372 YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK.png") Else Me.Height = 144 AltPic.Top = 144 YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK.png") End If '********************** KayıtPic.Image = RECimList.Images("Durdur.png") LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://eraslancemil1.blogspot.com.tr/") End Sub #End Region #Region " MouseMove ve MouseLeave olayları ..." Private Sub BTNklsr_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles BTNklsr.MouseMove BTNklsr.Image = BTNimLst.Images("DügmeKlsr_R.png") End Sub Private Sub BTNklsr_MouseLeave(sender As System.Object, e As System.EventArgs) Handles BTNklsr.MouseLeave BTNklsr.Image = BTNimLst.Images("DügmeKlsr.png") End Sub Private Sub BTNfoto_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles BTNfoto.MouseMove BTNfoto.Image = BTNimLst.Images("DügmeFotoR.png") End Sub Private Sub BTNfoto_MouseLeave(sender As System.Object, e As System.EventArgs) Handles BTNfoto.MouseLeave BTNfoto.Image = BTNimLst.Images("DügmeFoto.png") End Sub Private Sub KapatPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles KapatPic.MouseMove KapatPic.Image = KptimList.Images("kapat_gri.png") End Sub Private Sub KapatPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles KapatPic.MouseLeave KapatPic.Image = KptimList.Images("kapat_orj.png") End Sub Private Sub MaxiPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MaxiPic.MouseMove MaxiPic.Image = KptimList.Images("maxi_gri.png") End Sub Private Sub MaxiPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles MaxiPic.MouseLeave MaxiPic.Image = KptimList.Images("maxi_orj.png") End Sub Private Sub MiniPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MiniPic.MouseMove MiniPic.Image = KptimList.Images("Mini_Gri.png") End Sub Private Sub MiniPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles MiniPic.MouseLeave MiniPic.Image = KptimList.Images("Mini_orj.png") End Sub Private Sub AltPncAcPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles AltPncAcPic.MouseMove AltPncAcPic.Image = PncAcKapaimLst.Images("AltPncAç-Gri.png") End Sub Private Sub AltPncAcPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles AltPncAcPic.MouseLeave AltPncAcPic.Image = PncAcKapaimLst.Images("AltPncAç.png") End Sub Private Sub YukAsOkPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles YukAsOkPic.MouseMove If Me.Height = 144 Then YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK-Gri.png") Else YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK_Gri.png") End If End Sub Private Sub YukAsOkPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles YukAsOkPic.MouseLeave If Me.Height = 144 Then YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK.png") Else YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK.png") End If End Sub Private Sub BilgisayarPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles BilgisayarPic.MouseLeave BilgisayarPic.Image = BTNimLst.Images("BilgisayarGri.png") End Sub Private Sub BilgisayarPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles BilgisayarPic.MouseMove BilgisayarPic.Image = BTNimLst.Images("Bilgisayar_R.png") End Sub #End Region #Region " BUTON TIKLAMA (Click) OLAYLARI..." Private Sub KapatPic_Click(sender As System.Object, e As System.EventArgs) Handles KapatPic.Click Me.Close() End Sub Private Sub MaxiPic_Click(sender As System.Object, e As System.EventArgs) Handles MaxiPic.Click YukAsOkPic_Click(sender, e) End Sub Private Sub MiniPic_Click(sender As System.Object, e As System.EventArgs) Handles MiniPic.Click Me.WindowState = FormWindowState.Minimized End Sub Private Sub KayıtPic_Click(sender As System.Object, e As System.EventArgs) Handles KayıtPic.Click Call KayitBaslat_Durdur() End Sub Public Sub KayitBaslat_Durdur() If kayıtta = False Then Label14.Visible = True Timer1.Enabled = True kayıtta = True Timer1.Start() KayıtAnimasyonPic.Visible = True ProgressBar1.Value = 0 ProgressBar1.Maximum = MaximumSureCmb.Text.ToString Label1.Text = "Ses Kayıt Ediliyor.." Kaydedici("baslat", "", "") Timer1.Interval = 1000 ProgressBar1.Visible = True KayıtPic.Image = RECimList.Images("kayıt_Akrm.png") Else kayıtta = False KayıtAnimasyonPic.Visible = False ProgressBar1.Value = 0 ProgressBar1.Visible = False KayıtPic.Image = RECimList.Images("Durdur.png") Kaydedici("bitir", Ses_Yolu, Dsy_ismi) Label1.Text = "Ses Kayıt Bitti.." Timer1.Stop() Timer1.Enabled = False Label14.Visible = False CalistirBtn.Enabled = True End If End Sub Private Sub YukAsOkPic_Click(sender As System.Object, e As System.EventArgs) Handles YukAsOkPic.Click, AltPncAcPic.Click If Me.Height = 144 Then AltPic.Top = 131 Me.Height = 372 YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK.png") Else Me.Height = 144 AltPic.Top = 144 YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK.png") End If End Sub #End Region #Region " ALT YORDAMLAR..." Public Sub OlusturulanDsyOku() ' ses yeri Try My.Computer.Audio.Play(Ses_Yolu, AudioPlayMode.Background) ' & "\" & Dsy_ismi Calisiyor = True Catch ex As Exception MsgBox(Ses_Yolu & Dsy_ismi & " Dosya Bulunamadı") End Try End Sub Private Sub BilgisayarPic_Click(sender As System.Object, e As System.EventArgs) Handles BilgisayarPic.Click Process.Start("explorer.exe", "/e,/select,c:") End Sub Private Sub BTNfoto_Click(sender As System.Object, e As System.EventArgs) Handles BTNfoto.Click Dim b As Bitmap = New Bitmap(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height) Dim g As Graphics = Graphics.FromImage(b) Dim s As Size = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height) If GizleChk.Checked Then If CheckBox5.Checked = True Then Me.Hide() End If Dim t As DateTime = Now.AddSeconds(1) Do : Application.DoEvents() Loop Until Now.Second >= t.Second g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy) Me.Show() t = Nothing Else g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy) End If pic.Image = b g.Dispose() b = Nothing Dim saveDlg As SaveFileDialog = New SaveFileDialog Dim dlgResult As DialogResult = New DialogResult pic.Image.Save(Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text) If CheckBox3.Checked = True Then izleBtn_Click(sender, e) End If izleBtn.Enabled = True End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Ses_Yolu = "" Dim FolderDlg As New FolderBrowserDialog FolderDlg.ShowNewFolderButton = True If (FolderDlg.ShowDialog() = DialogResult.OK) Then Ses_Yolu = FolderDlg.SelectedPath SaveSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu) SesDosyaYoluTxt.Text = Ses_Yolu & "\" & SesDosyaAdiTxt.Text End If End Sub Private Sub EkrSaklaYoluBtn_Click(sender As System.Object, e As System.EventArgs) Handles EkrSaklaYoluBtn.Click Secili_EkranYolu = "" Dim FolderDlg As New FolderBrowserDialog FolderDlg.ShowNewFolderButton = True If (FolderDlg.ShowDialog() = DialogResult.OK) Then Secili_EkranYolu = FolderDlg.SelectedPath EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text End If End Sub Private Sub GezginleGosterBtn_Click(sender As System.Object, e As System.EventArgs) Handles GezginleGosterBtn.Click Try System.Diagnostics.Process.Start(Secili_EkranYolu) ' & "\" & EkranDsyAdi.Text & ComboBox1.Text) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Sub izleBtn_Click(sender As System.Object, e As System.EventArgs) Handles izleBtn.Click Try System.Diagnostics.Process.Start(Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Sub BTNklsr_Click(sender As System.Object, e As System.EventArgs) Handles BTNklsr.Click Process.Start(Ses_Yolu) End Sub Private Sub CalistirBtn_Click(sender As System.Object, e As System.EventArgs) Handles CalistirBtn.Click If CalistirBtn.Text = "Çalıştır" Then Call OlusturulanDsyOku() CalistirBtn.Text = "Kapat" Else My.Computer.Audio.Stop() CalistirBtn.Text = "Çalıştır" End If End Sub Private Sub EkranYakalaBtn_Click(sender As System.Object, e As System.EventArgs) Handles EkranYakalaBtn.Click 'Ekran yakala BTNfoto_Click(sender, e) End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click Try Process.Start(SesDosyaYoluTxt.Text) Catch ex As Exception Dim sonuc As String sonuc = MessageBox.Show("( " & SesDosyaAdiTxt.Text & " )" & _ " Dosyası bulunamadı." & vbCrLf & SesTamYolu & " Klasörü açılsın mı ?", _ " Sakla?", MessageBoxButtons.YesNo, MessageBoxIcon.Question, _ MessageBoxDefaultButton.Button1) If sonuc = Windows.Forms.DialogResult.Yes Then Process.Start(SesTamYolu) End If End Try End Sub Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu) Try Process.Start(SesTamYolu) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub #End Region #Region " TİMER-COMBOBOX-LOSTFOCUS-CHECKED_CHANGE.." Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick On Error Resume Next ' Timer progress barı dolduracak şekilde ayarlanıyor. If ProgressBar1.Value < 500 Then ProgressBar1.Value += 1 Label14.Text = ProgressBar1.Value End If If ProgressBar1.Value >= SureCmb.Text.ToString * 60 Then Call KayitBaslat_Durdur() End If End Sub Private Sub SaatTimer_Tick(sender As System.Object, e As System.EventArgs) Handles SaatTimer.Tick Label12.Text = TimeOfDay End Sub Private Sub EkranDsyAdi_Validated(sender As System.Object, e As System.EventArgs) Handles EkranDsyAdi.Validated 'değişiklik işlemi (Validated) onaylanıyor Secili_EkranYolu = GetSetting(Application.ProductName, ProductName, "Secili Ekran Yolu", Secili_EkranYolu) EkranYakalamaDsyAdı = EkranDsyAdi.Text EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged EkranUzantısı = ComboBox1.Text EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text End Sub Private Sub Dsy_ismiTxt_LostFocus(sender As Object, e As System.EventArgs) Handles SesDosyaAdiTxt.LostFocus SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu) SesDosyaYoluTxt.Text = SesTamYolu & "\" & SesDosyaAdiTxt.Text Dsy_ismi = SesDosyaAdiTxt.Text End Sub Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then Me.TopMost = True Else Me.TopMost = False End If End Sub Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked If My.Computer.Network.IsAvailable = False Then MsgBox("Bilgisayarınız İnternete Bağlı Değil.") Exit Sub End If System.Diagnostics.Process.Start(e.Link.LinkData) End Sub Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click If My.Computer.Network.IsAvailable = False Then MessageBox.Show("Bilgisayarınız İnternete Bağlı Değil.") Exit Sub End If System.Diagnostics.Process.Start("mailto:eraslancemil@gmail.com") End Sub Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click Dim info As New ProcessStartInfo("mmsys.cpl") Process.Start(info) End Sub #End Region #Region " TOOLTIP AÇIKLAMALARI " Private Sub BilgisayarPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles BilgisayarPic.MouseHover Dim tooltip As New ToolTip() tooltip.SetToolTip(BilgisayarPic, "Bilgisayarım" & vbCrLf & " Klasörünü Aç") End Sub Private Sub BTNklsr_MouseHover(sender As System.Object, e As System.EventArgs) Handles BTNklsr.MouseHover Dim tooltip As New ToolTip() Ses_Yolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", "C:\Users\" & KullAdi & "\Desktop") tooltip.SetToolTip(BTNklsr, Ses_Yolu & vbCrLf & " Klasörünü Aç") End Sub Private Sub BTNfoto_MouseHover(sender As System.Object, e As System.EventArgs) Handles BTNfoto.MouseHover Dim tooltip As New ToolTip() tooltip.SetToolTip(BTNfoto, "Ekranı Yakala" & vbCrLf & EkranTamYolTxt.Text & " 'e Kaydet") End Sub Private Sub KayıtPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles KayıtPic.MouseHover Dim tooltip As New ToolTip() tooltip.SetToolTip(KayıtPic, "Ses Kayıt Başlat - Durdur." & vbCrLf & " ve Dosyayı Kaydet") End Sub Private Sub KayıtAnimasyonPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles KayıtAnimasyonPic.MouseHover Dim tooltip As New ToolTip() tooltip.SetToolTip(KayıtAnimasyonPic, "Kayıt devamınca animasyon gösterilir") End Sub Private Sub AltPncAcPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles AltPncAcPic.MouseHover Dim tooltip As New ToolTip() tooltip.SetToolTip(AltPncAcPic, "Alt Pencere Açılıp kapatılır" & vbCrLf & " Ayar menülerine ulaşılır") End Sub Private Sub Label1_MouseHover(sender As System.Object, e As System.EventArgs) Handles Label1.MouseHover If Label1.Text = Nothing Then Exit Sub Dim tooltip As New ToolTip() tooltip.SetToolTip(Label1, "Uyarıyı Gizlemek için Tıkla") End Sub #End Region #Region " RADIO BUTTON OLAYLARI.." Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged ProgresBarRengi = 1 ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0) End Sub Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged ProgresBarRengi = 2 ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0) End Sub Private Sub RadioButton3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton3.CheckedChanged ProgresBarRengi = 3 ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0) End Sub Private Sub RadioButton6_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton6.CheckedChanged ProgressBar1.Style = ProgressBarStyle.Blocks GroupBox1.Enabled = True End Sub Private Sub RadioButton5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton5.CheckedChanged ProgressBar1.Style = ProgressBarStyle.Continuous GroupBox1.Enabled = True End Sub Private Sub RadioButton4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton4.CheckedChanged ProgressBar1.MarqueeAnimationSpeed = AnimasyonHiziCmb.Text.ToString ProgressBar1.Style = ProgressBarStyle.Marquee GroupBox1.Enabled = False End Sub #End Region #Region " RANDOM DOSYA ADI ÜRETME...." Private Sub Label10_Click(sender As System.Object, e As System.EventArgs) Handles Label10.Click RNDdosyaadiBtn.PerformClick() End Sub Private Sub RNDdosyaadiBtn_Click(sender As System.Object, e As System.EventArgs) Handles RNDdosyaadiBtn.Click SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu) SesDosyaAdiTxt.Text = UCase(System.IO.Path.GetFileNameWithoutExtension(System.IO.Path.GetRandomFileName())) & ".wav" SesDosyaYoluTxt.Text = SesTamYolu & "\" & SesDosyaAdiTxt.Text Dsy_ismi = SesDosyaAdiTxt.Text SaveSetting(Application.ProductName, ProductName, "Ses Dosyası Adı", SesDosyaAdiTxt.Text) End Sub Private Sub Label9_Click(sender As System.Object, e As System.EventArgs) Handles Label9.Click EkranDsyAdi.Text = UCase(System.IO.Path.GetFileNameWithoutExtension(System.IO.Path.GetRandomFileName())) EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text EkranYakalamaDsyAdı = EkranDsyAdi.Text & ComboBox1.Text End Sub Private Sub Label1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseClick Label1.Text = "" End Sub #End Region End Class

MODULE1 KODLARI
Module Module1 #Region " GENEL DEĞİŞKENLER..." Public KullAdi As String = SystemInformation.UserName Public Ses_Yolu As String ' = "C:\Users\" & KullAdi & "\Desktop\" ' "C:\Users\"& KullAdi & "\Favorites\" ' "C:\Users\" & KullAdi & "\Desktop\" '"G:\AA\BB\" ' C:\Users\Public\Music Public Dsy_ismi As String '= "Ses_Kaydi" Public Secili_EkranYolu As String ' = "C:\Users\" & KullAdi & "\Desktop" Public EkranYakalamaDsyAdı As String = "EkranResmi" Public EkranUzantısı As String ' = ".JPG" Public SesTamYolu As String Public ProgresBarRengi As Integer Public Calisiyor As Boolean = False Public kayıtta As Boolean = False 'Api fonksiyonu belirleniyor. progres barın rengini değiştirmek için 'User32 Dll sinde bulunan progressbar apisi çağrılıyor. 1=yeşil,2=kırmızı, 3=sarı 'ProgressBar(ProgressBar1.Handle, 1040, 2, 3) #End Region End Module

NOT :Aynı programın eski versiyonuna Bakınız