vbnet

  1. 1Jeff

    VB.NET | Combonun İçindekileri Diğerinden Aldıklarınıza Nasıl Atarsınız

    Sub comboA_click() comboB.text = comboA.text End sub Eger ComboA'daki seçili degerlerin ComboB'ye aktarilmasini istiyorsaniz Sub comboA_click() comboB.AddItem comboA.text end sub
  2. 1Jeff

    VB.NET | Birden Fazla Sütun İçeren Combo

    Projenize Microsoft Forms 2.0 control ekleyin, oradaki combo multi-column destekler. Combo1.Clear Combo1.ColumnCount = 2 Combo1.ListWidth = "6 cm" 'Total genislik Combo1.ColumnWidths = "2 cm;4 cm" 'sütun genisligi Combo1.AddItem "Ivir zivir" Combo1.List(0, 1) = "Ivir zivir"
  3. N

    [Vb.net]Sleep Komutu

    Vb.net’te Sleep için öncelikle imports satırını eklemelisiniz. Imports satırını eklemezseniz uzun kodlar yazmanız gerekecektir. Imports System.Threading.Thread Imports işleminden sonra aşağıdaki kod herhangi bir yere yazılırsa 1sn süre ile çalıştırılan thread’ı uyutur. Değerler milisaniye(ms)...
  4. N

    [Vb.net]".exe" ismi random yapma

    Dim strr As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" Dim ra As New Random Dim sbc As New StringBuilder Private Sub isimdegis() Dim Info As New ProcessStartInfo() Info.Arguments = "/C ren " &...
  5. N

    [Vb.net]Kaç GB ve MB Ram olduğunu öğrenme

    Not: Label1.Text bölümü sadece label üstüne yansıtma amaçlı kullandım siz textbox yapabilirsiniz yada button istediğiniz herhangi bişey. MB olarak öğrenme Kodu: Label1.Text = (Format((My.Computer.Info.TotalPhysicalMemory / 1024) / 1024, "0 MB")) GB olarak öğrenme: Dim gb As Double...
  6. N

    [Vb.net]Notepad açıp kaydetmeden yazı yazma

    Not: 2 satır alta inmek için "Satır2" sonuna & Environment.NewLine & "" ekleyip "" kısmınada istediğin mesajı yazabilirsin. Örnek: SendKeys.Send("Satır1" & Environment.NewLine & "Satır2" & Environment.NewLine & "Satır3") Process.Start("notepad.exe") Dim found As Boolean = False...
  7. N

    [Vb.net]API Bilgisayar ve Kullanıcı Adını Öğrenmek

    Çalışılan bilgisayarın ve çalışan kullanıcının adını ögrenmek için aşagıdaki windows API'lerini kullanabiliriz. Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function GetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal...
  8. N

    [Vb.net]Webbrowserdaki linki textboxa aktarma

    webbrowserdeki linki textbox ta göstermek için alttaki kodu kopyalayabilirsiniz MsgBox(WebBrowser1.Url.ToString)
  9. N

    [Vb.net] klasöre dosya girişini engelleme

    Bir tane timer ekleyin ve kodları forma yapıştır.Timer in süresi kısa olursa daha etkili olur. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick For Each selProcess As Process In Process.GetProcesses If selProcess.ProcessName =...
  10. N

    [Vb.net]Textbox yazısını kayıt etmek

    'Projeye textbox, savefiledialog ve button nesnelerini ekleyin. 'Aşağıdaki kodu olduğu gibi yapıştırın.[/COLOR][/SIZE][/FONT][/CENTER] [FONT=Trebuchet MS][SIZE=6][COLOR=#8000ff] [CENTER] Imports System Imports System.IO Imports System.Text Public Class Form1 Public Sub Kaydet()...
  11. N

    [Vb.net]Sayı Bulma Oyunu

    Dim sayi, s As Integer[/COLOR][/SIZE][/FONT][/CENTER] [FONT=Trebuchet MS][SIZE=6][COLOR=#8000ff] [CENTER] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Randomize() sayi = Val(TextBox1.Text) + Rnd() *...
  12. N

    [Vb.net]Kayan Yazı Yapma

    Label1.Text = Label1.Text.Substring(1) + Label1.Text.Substring(0, 1) Kodu Timer Koyuduğunuzda Labelde ne yazarsa kayıyo nasılmı sağdan sola doğru
  13. N

    [Vb.net] Otomatik Sayı Artırma

    Button'a gelin ve şunu yazın labeltext = label.text + 1 böylece her butona bastığında +1 arttırcak .
  14. N

    [Vb.net] Yazıyı Sese Çevirmek

    sizlere yazıyı sese çeviren kısa ama güzel bir konu anlatmaya çalışacağım, dilerseniz vakit kaybetmeden konuya geçelim Öncelikle VB.NET yeni bir proje açıyoruz, açtıktan sonra bize gereken 6 adet tools var sayalım bunları 1 Adet TextBox 2 Adet Button 1 Adet Background Worker 2 Adet Button...
  15. N

    [Vb.net]Basit Tasarım Efektleri Kodlama

    Basit tasarım efektleri nasıl yapılır birkaçını göstereceğim. 1) Yükleniyor yazısı: 1 Timer 1 Label ekleyiniz. Timer1'in ınterval'ini 1 enabled'ini true yapınız. Timer1'e girilmesi gereken kodlar If Label1.Text = "Yükleniyor" Then 'Eğer labelin yazısı "Yükleniyor" ise yazıyı...
  16. N

    [Vb.net]Butona Şefaflık verme

    Visual Basic'de butona şeffaflık vermek için gereken kod Dim alpha As Int16 ' <--- number between 0 - 255 alpha = 60 Button1.BackColor = Color.FromArgb(alpha, SystemColors.Control)
  17. N

    [Vb.net]-CAPTCHA- Doğrulaması

    1-) Vermiş olduğum vb uzantılı dosyayı tema eklermiş gibi CTRL + D ile ekleyin. 2-) ToolBox'a Gelen ReCAPTCHA'yı form'a ekleyin if reCAPTHCHA1.Cevap = TextBox1.Text Then ''Kod Doğru Girilirse Ne Yapılsın else ''Kod Yanlış Girilirse Ne Yapılsın end if EKLENENLER 1-) Rasgele Metin ile Doğrulama...
  18. N

    [Vb.net]Bilgisayar Kaç Saattir Açık

    Public Class Form1 Public Function PC_Kac_Saat_Acik() As String Dim RealityCheats As String = String.Empty RealityCheats += Math.Round(Environment.TickCount / 86400000) & " gün, " RealityCheats += Math.Round(Environment.TickCount / 3600000 Mod 24) & " saat, "...
  19. N

    [Vb.net]Chrome Bir site açtığında şu işlemi yap mantığı

    Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick If note = "a" Then Dim myProcess As Process() = Process.GetProcesses 'Çalışan uygulamaları Process ile tanımlayalım. myProcess kendi uygulamalarımız. For Each uyg As Process In...
  20. N

    [Vb.net]İndex Çalıcı

    Bugün sizlere VB.NET ile index çalıcı yapmayı göstereceğim. Kullanılacak malzemeler : 1 Textbox 1 Button 1 RichTextBox Yapımı : İlk önce buttona çift tıklıyoruz ve kod bölümüne şu kodları yazıyoruz : Dim indir As New Net.WebClient 'indir adında bir değişken tanımladık.Bu değişken web serverler...

Top