Frmtr vb.net sayfası Vb.net kod paylaşımlarım. 03-12-10, 10:12 http://www.tinyurl.com/kvbnet
http://www.frmtr.com/visual-basic/3769419-microsoft-visual-basic-2008-express-edition-ornek-kodlar.html
14 Haziran 2011 Site Yazıları Yedeğidir.
Microsoft visual basic 2008 , express edition , vb.net örnek kodlar
Microsoft visual studio
Microsoft visual basic 2008 express edition
(vb.net visual studio 'un küçültürmüş sürümü) vb.net lerin hepsinde
ben 2008 ini kullanıyorum 2.5gb lik sürüm değil 530mb lik sürümü
örnek kodlarımı paylaşacağım sizde benim takıldığım konularda yardımcı olursunuz.
yazılan kodlar verilmiştir ama aynı kod başka şekillerde de yazılabilir
En az 20 kod yayınlıyacağım
Herkeze bolşanslar..
işinize yarar inşallah...
PHP Code:
kerkur
*************************************************
Kod Başlıkları
* Değişken Tanımları
* Tanımlamaları bu şekilde bir arada yapılabiliyor
* txt dat gibi istediğin uzantılı dosyalara veri kaydetmek
2
* txt dat gibi istediğin uzantılı dosyadan veri çağırmak
* SELECT CASE Örnek?
* örnek Kronometre
web sayfası error vermemesi için hatakodu vermemesi için kod
kapat düğmesine tıklanınca (X) çıkacakmısın diye soru sorması
3
macro yada program çalıştırmak için kod
* 1 Hata olursa Program kapanmasın görmezden gelsin hatayı
"timer1 başlatma durdurma
* Belli bir süre sonra mesala 5 sn sonra işe devam için
* Pencere sabit Kalması için ayarları
4
seç ve tıkla web butonu webbrowser için
bu ise adres id ine adres.txt den dolacak Webbrowser da.
Tarih yazdırma
inputbox
Sadece sayi gİrİlsİn textbox a
5
webbrowser da butun girilen internet adresleri hatırlar form load a konur.adres
' mouse üzerindeyken balon açıklama
textbox ta enter tuşuna basma olayı buton yerine onay gibi
webbrowser web Sayfasının Html Kodunu Kod.Text 'e al
WebBrowser1.Navigate bu kodu devamlı yazmak yerine Navigate
6
WebBrowser1 sayfa tam yüklendiğinde yapılmasını istediğiniz kodlardır
'örnek bir webbrowser yapımı
vb.net kod ornek cut copy paste
progress bar örneği
c# kodunu vb.net koduna çevirme
7
webbrowserda dolu form bilgilerini alma id okuma
html kodda bir butonun akfif olduğununu kontrol etme
vb.net form başlığı kayması
VB.NET ile resim cekme (screenhost)*(Ekran Görüntüsü) Alma
zipli kod dahil vb.net programları örnek kod indirme siteleri
8
Form webbrowser da başlığın değişimi
öğelere tıklayınca mouse tıklama sayısını verme
ListBox taki eleman sayısı
Replace ve mid komutu
Aynı Formu Tekrar Başlatmak Farklı Pencerede aynı anda
9
Tabcontrol webbrowser da sayfaları değiştiğimizde sayfa isminin değişmesi programda
Tablı webbrowser da sayfaları tek tek yukleme için sıralı kod kasılmaz makina
Webbrowserda Yeni pencere linkine tıkladığında aynı çerçevede kalma
Listbox 'ı txt Dosyasından Doldurma
10
Webbrowserda Yeni pencere linkine tıkladığında aynı webbrowser da linki açma
Textbox yada TextChanged özelliği olan form öğesinde sadece sayıları veya Sadece harfleri silme
yenipencerede aç denmediği sürece bütün linkleri yeni formda açar.
Belli bir yazıda aradığın bir kelime ve istediğin karekter sonrasını bulma
11
Belli bir yazıda aradığı 2 kelime ve 2 kelime arasındaki uzunluk ne olursa olsun arasını alma ( link bulma gibi )
Html sayfası resources da değil kodda navigate etme
Reklam kodunu programa ekleme textten html oluşturması tempe ve çıkışta silinmesi
12
Bir Web Sayfasının Html Kodunu Hemen Notdefteri ni Açıp içine Yükleme
13
Form çalışırken atanan tuşa basınca başka bir eylemi başlatma click,timer başlaması v.s.
Microsoft® Visual Studio® 2010 Express _ ilk önce siteden
ilk Program lazım indirelim
Microsoft® Visual Studio® 2010 Express _ ilk önce siteden
programı indiriyoruz
www.microsoft.com/express/Downloads/#2010-Visual-Basic
Microsoft® Visual Studio® 2010 Express
program express olduğundan bedava dır.lisans gerektirmez.bedava register kayıt
yapılmalıdır.
indirip kurduktan sonra altta direkt linki var. göndereceğim kodları ve
siteleri,programları deniyebilirsiniz.
sitesinden english dilini seçin yada
Buradan direkt indirin
www.microsoft.com/express/
* Değişken Tanımları
* Değişken Tanımları
PHP Code:
Dim yas As Byte 'gibi
Byte: 0-255 değer arasında pozitif sayı değeri alır.
String: Karakter ifadeleri (sayı olmayan,sayıda alır) (1kb)
Integer: ± 32768 sayısına kadar tam sayı değeri alır (2kb)
Variant: Bütün değişkenlerin yerini alır. , Date: Tarih değeri alır.
* Tanımlamaları bu şekilde bir arada yapılabiliyor
#Region "TANIMLAMALAR"
Dim a As String
#End Region
'birden fazla tanımlama koyulabilir
* txt dat gibi istediğin uzantılı dosyalara veri kaydetmek
* txt dat gibi istediğin uzantılı dosyalara veri kaydetmek
(txtPassword_TextChanged gibi üzerine tıklayınce değiştirme gibi komuta koydum)
textbox multiline olursa içerik tamamı gözükür
PHP Code:
Dim FILENAME As String = "txtPassword.dat"
Try
Dim objWriter As New System.IO.StreamWriter(FILENAME)
objWriter.WriteLine(txtPassword.Text.ToString)
objWriter.Close()
Catch ex As Exception
End Try
* txt dat gibi istediğin uzantılı dosyadan veri çağırmak
* txt dat gibi istediğin uzantılı dosyadan veri çağırmak
PHP Code:
If txtPassword.Text Then
Dim FILENAME As String = "txtPassword.dat"
Dim objReader As New System.IO.StreamReader(FILENAME)
txtPassword.Text = objReader.ReadToEnd
objReader.Close()
End If
* SELECT CASE Örnek?
* SELECT CASE Örnek?
PHP Code:
Private Sub Command1_Click()
puan = InputBox("Notunuzu Giriniz")
Select Case puan
Case 100
MsgBox ("Bravo 100 almışsınız. Ödül kazandınız")
Case 90 To 99
MsgBox ("Pekiyi ile geçtiniz")
Case 80 To 89
MsgBox ("iyi ile geçtiniz")
Case 70 To 79
MsgBox ("orta ile geçtiniz")
Case 60 To 69
MsgBox ("Geçerle geçtiniz")
Case Is < 60
MsgBox ("kaldınız")
Case Else
MsgBox ("yanlış sayı girdiniz")
End Select
End Sub
* örnek Kronometre
* örnek Kronometre
PHP Code:
Public Class Form1
' Değişkenleri tanımlama
Dim d As Object
Dim a, b As Object
Dim c As Short
Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal
eventArgs As System.EventArgs) Handles Button2.Click
a = 0
b = 0
c = 0
Label1.Text = "00:00:00"
Timer1.Stop()
End Sub
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal
eventArgs As System.EventArgs) Handles MyBase.Load
a = 0
b = 0
c = 0
Label1.Text = "00:00:00"
End Sub
Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs
As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = 1
c = c + 1
If b = 60 Then
a = a + 1
b = 0
End If
If c = 60 Then
b = b + 1
c = 0
End If
Label1.Text = Str(a) & ":" & Str(b) & ":" & Str(c)
DefInstance.Text = "Kronometre " & TimeOfDay
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Select Case Button1.Text
Case "baslat"
Timer1.Enabled = True
Button1.Text = "durdur"
Case "durdur"
Timer1.Enabled = False
Button1.Text = "baslat"
End Select
End Sub
End Class
web sayfası error vermemesi için hatakodu vermemesi için kod
web sayfası error vermemesi için hatakodu vermemesi için kod
PHP Code:
WebBrowser1.ScriptErrorsSuppressed = True
kapat düğmesine tıklanınca (X) çıkacakmısın diye soru sorması
kapat düğmesine tıklanınca (X) çıkacakmısın diye soru sorması için kod a dim le
tanıtılır.
PHP Code:
Dim a As String
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Beep()
a = MsgBox("Çıkmak istediğinizden emin misiniz?", MsgBoxStyle.YesNo +
MsgBoxStyle.Question, "Kerkur prog ismi")
If a = vbYes Then
Else
e.Cancel = True
Me.WindowState = FormWindowState.Normal
End If
End Sub
macro yada program çalıştırmak için kod
macro yada program çalıştırmak için kod
PHP Code:
Shell("TASI\Sorvar.exe")
tası dizini içindeki uygulama çalışır.
* 1 Hata olursa Program kapanmasın görmezden gelsin hatayı
* 1 Hata olursa Program kapanmasın görmezden gelsin hatayı diye başa konulur.
kodun ilk satırına
PHP Code:
On Error Resume Next
"timer1 başlatma durdurma
PHP Code:
Timer1.Start ()
"timer1 başlatır.
PHP Code:
Timer1.Stop ()
"timer1 durdurur.
* Belli bir süre sonra mesala 5 sn sonra işe devam için
* Belli bir süre sonra mesala 5 sn sonra işe devam için
timerc.start()
yazılır (timer.interval=1000 olmalı 1 sn karşılık gelir)
(timerc_Tick içinde ise)
PHP Code:
Dim sayac as integer
On Error Resume Next
timerc.Interval = 1000
sayac = sayac + 1
SAYA.Text = sayac 'istersek
If serisayac = "5" = True Then
'(5 sn dolunca yapılması gereken iş)
timerc.stop () '(sonunda timerc.stop yazıp durduruyoruz)
End if
* Bazı Komutlar
* Bazı Komutlar
PHP Code:
a1.Visible = False
(a1 in görünmesini gizler ama çalışır.)
PHP Code:
a1.Visible = True
(a1 in görünmesini sağlar.)
* Pencere sabit Kalması için ayarları
* Pencere sabit Kalması için ayarları otarafa butarafa büyümez kenardan çekilince
PHP Code:
MaximizeBox=False
AutoSizeMode=GroveAndShrink
seç ve tıkla web butonu webbrowser için
seç ve tıkla web butonu webbrowser için
PHP Code:
Webbrowser1.Document.GetElementById("id").Focus()
Webbrowser1.Document.GetElementById("id").InvokeMember("click")
bu ise adres id ine adres.txt den dolacak Webbrowser da.
Webbrowser da
bu ise adres id ine adres.txt(textbox1 gibi) den dolacak Webbrowser da.
PHP Code:
Webbrowser1.Document.GetElementById("tAdres").Focus()
Webbrowser1.Document.ActiveElement.InnerText() = Adres.Text
Tarih yazdırma
Tarih yazdırma
PHP Code:
Dim d2 As String
Dim m2 As String
Dim y4 As String
Tarih = Now
d2 = DatePart("d", Tarih)
m2 = DatePart("m", Tarih)
y4 = DatePart("yyyy", Tarih)
DT.Text = d2 - 1 & "." & m2 & "." & y4
TT.Text = d2 & "." & m2 & "." & y4
inputbox
inputbox ekrana veri istemeni sağlar
PHP Code:
anadi.Text = InputBox(b & "Anne Adı 'nı Giriniz Tamam 'a Basın")
girilen b ye eşitlenir
b dim de tanımlanır
sayı sadece ise integer
herşey için dim b as string
Sadece sayi gİrİlsİn textbox a
SADECE SAYI GİRİLSİN TEXTBOX A
PHP Code:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsNumber(e.KeyChar) = False Then
e.Handled = True
End If
End Sub
webbrowser da butun girilen internet adresleri hatırlar form load a konur.adres
webbrowser da butun girilen internet adresleri hatırlar form load a konur.adres çubuğu için
PHP Code:
TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
TextBox1.AutoCompleteSource = AutoCompleteSource.AllUrl
' mouse üzerindeyken balon açıklama
' mouse üzerindeyken balon açıklama
kodun çalışması için control eventinden
ToolTip
eventi forma eklemek gerekir.
form1_load a bu kod konursa herzaman tanımlıların hepsinde gözükür.
altta label1 e konulmuş label1 üstüne geldikten sonra tanımlıların hepsinde balon gözükür.
PHP Code:
Dim Hovering As Boolean
Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Label1.MouseHover
ToolTip1.SetToolTip(Me.Label1, "www.google.com")
ToolTip1.SetToolTip(Me.Label2, "100 Sonuçlu Google Araması")
ToolTip1.SetToolTip(Me.Label3, "mail.live.com")
ToolTip1.SetToolTip(Me.Label4, "mail.yahoo.com")
ToolTip1.SetToolTip(Me.Label5, "www.facebook.com/")
ToolTip1.SetToolTip(Me.Label6, "www.giveawayoftheday.com/")
ToolTip1.SetToolTip(Me.Label7, "kerkur.tr.gg/BanaMailatin.htm")
ToolTip1.SetToolTip(Me.Label8, "www.diyanet.gov.tr/namazvakti")
Hovering = True
End Sub
textbox ta enter tuşuna basma olayı buton yerine onay gibi
textbox ta enter tuşuna basma olayı buton yerine onay gibi
PHP Code:
Private Sub TextBox1_KeyDown( ByVal sender As Object, ByVal e As
KeyEventArgs) Handles TextBox1.KeyDown
If (e.KeyCode = Keys.Enter) Then
Navigate(toolStripTextBox1.Text)
End If
End Sub
webbrowser web Sayfasının Html Kodunu Kod.Text 'e al
web Sayfasının Kodunu Kod.Text 'e al
Kod.Text ilkin gözükmiyecek
kodu göster butonuna basınca gösterecek
form1.load kısmında
Kod.Text .visible = false
olacak
---
PHP Code:
Private Sub SKodgoster_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SKodgoster.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
'Sayfa Kodunu al
Kod.Text = WebBrowser1.DocumentText
Kod.Visible = True
End Sub
'arama kodu html de ( webbrowser da web sayfasında ) varmı diyor işaretlemiyor
Private Sub Arama_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Arama.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
' arama kodu html de varmı diyor işaretlemiyor
Dim kodu As String
Dim aracan As String
kodu = Kod.Text
aracan = InputBox("Aranacak ifade")
Dim arasonuc As String
arasonuc = kodu.IndexOf(aracan)
If arasonuc = -1 Then
MsgBox("İçinde Yok")
Else
MsgBox("Aranan ifade =" & aracan)
End If
End Sub
WebBrowser1.Navigate bu kodu devamlı yazmak yerine Navigate
WebBrowser1.Navigate bu kodu devamlı yazmak yerine Navigate yazmak
webbrowserda
__________________________________________
PHP Code:
Private Sub Navigate(ByVal address As String)
WebBrowser1.ScriptErrorsSuppressed = True
If String.IsNullOrEmpty(address) Then Return
If address.Equals("about:blank") Then Return
'ht tp ayrı olmucak
If Not address.StartsWith("http://") And _
Not address.StartsWith("https://") Then
address = "http://" & address
End If
Try
WebBrowser1.Navigate(New Uri(address))
Catch ex As System.UriFormatException
Return
End Try
End Sub
adres çubuğunda enter a basınca o adrese gitmesi
Private Sub toolStripTextBox1_KeyDown(ByVal sender As Object, ByVal e As
KeyEventArgs) Handles Adres.KeyDown
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
If (e.KeyCode = Keys.Enter) Then
Navigate(Adres.Text)
End If
End Sub
WebBrowser1 sayfa tam yüklendiğinde yapılmasını istediğiniz kodlardır
'WebBrowser1.DocumentCompleted burada yazılan kodlar sayfa tam
yüklendiğinde yapılmasını istediğiniz kodlardır
'örnek bir webbrowser yapımı
'örnek bir webbrowser yapımı
'---------------------------------------------------------------
PHP Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Kod.Visible = False
'htt p http ve w ww www olacak.
WebBrowser1.Navigate("http://www.google.com")
End Sub
Private Sub toolStripTextBox1_KeyDown(ByVal sender As Object, ByVal e As
KeyEventArgs) Handles Adres.KeyDown
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
If (e.KeyCode = Keys.Enter) Then
Navigate(Adres.Text)
End If
End Sub
Private Sub goButton_Click(ByVal sender As Object, ByVal e As EventArgs)
Handles goButton.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate(Adres.Text)
End Sub
Private Sub Navigate(ByVal address As String)
WebBrowser1.ScriptErrorsSuppressed = True
If String.IsNullOrEmpty(address) Then Return
If address.Equals("about:blank") Then Return
If Not address.StartsWith("http://") And _
Not address.StartsWith("https://") Then
address = "http://" & address
End If
Try
WebBrowser1.Navigate(New Uri(address))
Catch ex As System.UriFormatException
Return
End Try
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal
e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Handles WebBrowser1.DocumentCompleted
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Adres.Text = WebBrowser1.Url.AbsoluteUri
Me.Text = WebBrowser1.Document.Title + "
Kerkur Hızlı Web"
End Sub
Private Sub webBrowser1_Navigated(ByVal sender As Object, ByVal e As
WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Adres.Text = WebBrowser1.Url.ToString()
End Sub
Private Sub Geri_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Geri.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
If WebBrowser1.CanGoBack = True Then
WebBrowser1.GoBack()
Else
'MsgBox("Cannot go back any further", MsgBoxStyle.Information)
End If
End Sub
Private Sub ileri_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ileri.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
If WebBrowser1.CanGoForward = True Then
WebBrowser1.GoForward()
Else
' MsgBox("Cannot go further forward", MsgBoxStyle.Information)
End If
End Sub
Private Sub Anasayfa_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Anasayfa.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.GoHome()
End Sub
Private Sub Yenile_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Yenile.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Refresh()
End Sub
Private Sub SKodgoster_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SKodgoster.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
'Sayfa Kodunu al
Kod.Text = WebBrowser1.DocumentText
Kod.Visible = True
End Sub
Private Sub Kod_DoubleClick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Kod.DoubleClick
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
If MsgBox("Koddan çıkmakmı istedin", MsgBoxStyle.YesNo) = MsgBoxResult.Yes
Then
Kod.Visible = False
Kod.Visible = False
End If
End Sub
Private Sub Arama_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Arama.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
' arama kodu html de varmı diyor işaretlemiyor
Dim kodu As String
Dim aracan As String
kodu = Kod.Text
aracan = InputBox("Aranacak ifade")
Dim arasonuc As String
arasonuc = kodu.IndexOf(aracan)
If arasonuc = -1 Then
MsgBox("İçinde Yok")
Else
MsgBox("Aranan ifade =" & aracan)
End If
End Sub
End Class
webbrowser da sayfa ismini yukarıda gösterme kodu
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal
e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Handles WebBrowser1.DocumentCompleted
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Adres.Text = WebBrowser1.Url.AbsoluteUri
Me.Text = WebBrowser1.Document.Title + "Kerkur Hızlı Web"
End Sub
vb.net kod ornek cut copy paste
vb.net kod ornek cut copy paste
http://www.brangle.com/wordpress/2009/08/how-to-cutcopypaste-text-intoclipboardusing-
vb-net/
ten alındı.
--------------------------------------------------------------------------------
'This code was developed by Gerardo Lopez and was downloaded from
ww w.brangle.com
'Complete source code is available at:
'http://www.brangle.com/wordpress/2009/08/how-to-cutcopypaste-text-intoclipboardusing-
vb-net/
PHP Code:
Public Class Form1
Private Sub btnCut_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnCut.Click
'Checks to see if the user selected anything
If txtTextBox.SelectedText <> "" Then
'Good, the user selected something
'Copy the information to the clipbaord
Clipboard.SetText(txtTextBox.SelectedText)
'Since this is a cut command, we want to clear whatever
'text they had selected when they clicked cut
txtTextBox.SelectedText = ""
Else
'If there was no text selected, print out an error message box
MsgBox("No text is selected to cut")
End If
End Sub
Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnCopy.Click
'Checks to see if the user selected anything
If txtTextBox.SelectedText <> "" Then
'Copy the information to the clipboard
Clipboard.SetText(txtTextBox.SelectedText)
Else
'If no text was selected, print out an error message box
MsgBox("No text is selected to copy")
End If
End Sub
Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnPaste.Click
'Get the data stored in the clipboard
Dim iData As IDataObject = Clipboard.GetDataObject()
'Check to see if the data is in a text format
If iData.GetDataPresent(DataFormats.Text) Then
'If it's text, then paste it into the textbox
txtTextBox.SelectedText = CType(iData.GetData(DataFormats.Text), String)
Else
'If it's not text, print a warning message
MsgBox("Data in the clipboard is not availble for entry into a textbox")
End If
End Sub
End Class
'kopya hafızasını temizle
Clipboard.Clear()
progress bar örneği
progress bar örneği
progressbar1 rin ismini PB ile değiştirdim daha kolay oldu. özelliklerinden title dan
_________________________
PHP Code:
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e
As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles
WebBrowser1.ProgressChanged
Me.PB.Maximum = Convert.ToInt32(e.MaximumProgress)
Me.PB.Value = Convert.ToInt32(e.CurrentProgress)
End Sub
Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles
WebBrowser1.Navigating
PB.Visible = True
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles
WebBrowser1.DocumentCompleted
PB.Visible = False
End Sub
c# kodunu vb.net koduna çevirme
c# kodunu vb.net koduna çevirme
http://www.developerfusion.com/tools/convert/csharp-to-vb/
webbrowserda dolu form bilgilerini alma id okuma
webbrowserda dolu form bilgilerini alma id okuma
websayfasındaki form bilgilerini programa çekme,alma.
_____________________________________
PHP Code:
User.Text = W.Document.GetElementById("user").GetAttribute("value")
' üsteki user name id tanımlı formun içeriğini user.text (textbox a)içeriğine doldurur.
'value html de formda doldurulan form bölümlerinde değğiştirilen girilen yer
anlamına gelir
html kodda bir butonun akfif olduğununu kontrol etme
html kodda bir butonun akfif olduğununu kontrol etmek için idine bakacak pasif mi
aktifmi olduğunu idi belirler onu koşul ifadeleriyle (if,select case gibi) isimnden
bakılır GetAttribute("buraya")) bakılır sonuç onagore kontrol edilir.
örnek html kodu
PHP Code:
input disabled="disabled" id="YeniM" name="Yeni" type="submit" value="Yeni"
---
bu kodda butonun disabled özelliği butonun pasifmi aktifmi olduğunu gösteriyor
programdan alma kodu
sunuç
aktif ise bukod için false,pasif ise aktif olur.
sonuçları msgbox (kodu yazın) kontrol edebilirsiniz.
PHP Code:
Webbrowser1.Document.GetElementById("Yeni").GetAttribute("disabled"))
vb.net form başlığı kayması
vb.net form başlığı kayması
-------------------------------------------------------------------
PHP Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Me.Text = Microsoft.VisualBasic.Right(Me.Text, 1) & Microsoft.VisualBasic.Left
(Me.Text, Len(Me.Text) - 1)
End Sub
timer açık olmalı
VB.NET ile resim cekme (screenhost)*(Ekran Görüntüsü) Alma
Screenshot (Ekran Görüntüsü) Alma
VB.NET ile resim cekme (screenhost).
Projemize 2 adet buton ve 1 adet picture box ekliyoruz.
Butonlarimizin isimleri Resim Cek ve Kayit et olarak yaziyoruz.
-
Resim cek butonu kodlari ;
PHP Code:
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width,
bounds.Height,System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size,
CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
-
Kayit et butonu ;
PHP Code:
Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "Save File"
savefiledialog1.FileName = "*.jpeg"
savefiledialog1.Filter = "JPEG *.jpeg"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.FileName,
System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception 'Do Nothing
End Try
zipli kod dahil vb.net programları örnek kod indirme siteleri
zipli kod dahil vb.net programları örnek kod indirme siteleri
1 http://www.codeproject.com/
2 http://www.a1vbcode.com/
3 http://search.codesoso.com/Search?q=vb.net
zipli kod dahil vb.net programları
Form webbrowser da başlığın değişimi
Form webbrowser da başlığın değişimi
PHP Code:
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal
e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Handles WebBrowser1.DocumentCompleted
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Adres.Text = WebBrowser1.Url.AbsoluteUri 'adres barının texte yazılması
Me.Text = WebBrowser1.Document.Title + "Kerkur Hızlı Web" 'form başlığı değişimi
End Sub
öğelere tıklayınca mouse tıklama sayısını verme
öğelere tıklayınca mouse tıklama sayısını verme
PHP Code:
Public Class Form1
Private mouse_Click As Integer = 0 '// keep track of clicks.
Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEv
entArgs) _
Handles Button1.MouseClick, Button2.MouseClick, Button3.MouseClick, ListBox1.MouseClick, T
extBox1.MouseClick, TextBox2.MouseClick, _
TextBox3.MouseClick
mouse_Click += 1 '// increase count by 1.
Me.Text = mouse_Click & " - tıklayınca mouse sayıyor"
End Sub
End Class
ListBox taki eleman sayısı
PHP Code:
' ListBox taki eleman sayısını verir
TextBox1.Text = ListBox1.Items.Count
'________________________________________________
'Listeye textbox'daki yazıyı ekledik
ListBox1.Items.Add(TextBox1.Text)
'________________________________________________
'Listede olanların sayısı biterse koşulu
If ListBox1.Items.Count - 1 = "-1" = True Then
End If
Replace ve mid komutu
Replace ve mid komutu
PHP Code:
'Replace komutu
'TextBox1.text teki iki yazarsa onu sil sadece iki yi yerine dort yaz
TextBox1.Text = Replace(TextBox1.Text, "iki", "dort", , , vbBinaryCompare)
'________________________________________________
' mid komutu
'TextBox1 deki 27. karekter ve 3 sonrasındaki karekter TYK ise
'bu TextBox1.text i listbox a ekle
If Strings.Mid(TextBox1.Text, 27, 3) = "TYK" = False Then
ListBox1.Items.Add(TextBox1.Text)
End If
'________________________________________________
Aynı Formu Tekrar Başlatmak Farklı Pencerede aynı anda
Aynı Formu Tekrar Başlatmak Farklı Pencerede aynı anda
PHP Code:
Dim YeniForm As Form1
YeniForm = New Form1()
YeniForm.Show()
YeniForm = Nothing
Form1
kodun basındaki
Public Class Form1
dekidir.
Tabcontrol webbrowser da sayfaları değiştiğimizde sayfa isminin değişmesi programda
Tabcontrol webbrowser da sayfaları değiştiğimizde sayfa isminin değişmesi programda
PHP Code:
Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabCont
rol1.Click
Me.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle + " -
kerclik 1.0.2011"
End Sub
Tablı webbrowser da sayfaları tek tek yukleme için sıralı kod kasılmaz makina
Tablı webbrowser da sayfaları tek tek yukleme için sıralı kod kasılmaz makina
PHP Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyB
ase.Load
On Error Resume Next
Webbrowser1.Navigate("http://www.google.com/")
Me.Text = " - kerclik 1.0.2011"
End Sub
Private Sub Webbrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Fo
rms.WebBrowserDocumentCompletedEventArgs) Handles Webbrowser1.DocumentCompleted
On Error Resume Next
If Webbrowser1.Url.ToString = "http://www.google.com/" = True Then
If Webbrowser2.Url.ToString = "about:blank" = True Then
Webbrowser2.Navigate("http://www.youtube.com/")
End If
End If
End Sub
Private Sub Webbrowser2_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Fo
rms.WebBrowserDocumentCompletedEventArgs) Handles Webbrowser2.DocumentCompleted
On Error Resume Next
If Webbrowser2.Url.ToString = "http://www.youtube.com/" = True Then
' If Webbrowser3.Url.ToString = "about:blank" = True Then
' Webbrowser3.Navigate("http://www.frmtr.com/")
' End If
End If
End Sub
Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tab
Control1.Click
Me.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle + " -
kerclik 1.0.2011"
End Sub
End Class
önemli olan koşulda webbrowser başlangıç sayfalarının about:blank eşit olması koşul buna göre yazıldı.
kodu devam edebilirsiniz tablarda.
Webbrowserda Yeni pencere linkine tıkladığında aynı çerçevede kalma
Webbrowserda Yeni pencere linkine tıkladığında aynı çerçevede kalma
yeni bir pencerede açma linkini kendi form çerçevesinde açma internet explorerda açmamasını sağlayan kod
form da import edilecek en başta
PHP Code:
Imports System
Public Class ... devam eder başlangıca import lar
PHP Code:
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelE
ventArgs) Handles WebBrowser1.NewWindow
On Error Resume Next
Dim myElement As HtmlElement = WebBrowser1.Document.ActiveElement
Dim target As String = myElement.GetAttribute("href")
Dim kerform As New Form1
kerform.Visible = True
kerform.WebBrowser1.Navigate(target)
e.Cancel = True
End Sub
Listbox 'ı txt Dosyasından Doldurma
Listbox 'ı txt Dosyasından Doldurma
PHP Code:
Dim r As IO.StreamReader
r = New IO.StreamReader("yeni.txt")
While (r.Peek() > -1)
listbox1.Items.Add(r.ReadLine)
End While
r.Close()
Webbrowserda Yeni pencere linkine tıkladığında aynı webbrowser da linki açma
Webbrowserda Yeni pencere linkine tıkladığında aynı webbrowser da linki açma
PHP Code:
Imports System.IO
Public Class Form1
Private Sub LinkClicked(ByVal sender As Object, ByVal e As EventArgs)
Dim link As HtmlElement = WebBrowser1.Document.ActiveElement
Dim url As String = link.GetAttribute("href")
WebBrowser1.Navigate(url, False)
'MsgBox("Link Clicked: " & link.InnerText & vbCrLf & "Destination: " & url)
End Sub
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.Can
celEventArgs) Handles WebBrowser1.NewWindow
e.Cancel = True
PictureBox1.Visible = True
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Win
dows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Me.Text = WebBrowser1.DocumentTitle + " - Kerkur Hizli Web @ 2011 "
Dim olink As HtmlElement
Dim olinks As HtmlElementCollection = WebBrowser1.Document.Links
For Each olink In olinks
olink.AttachEventHandler("onclick", AddressOf LinkClicked)
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyB
ase.Load
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate("http://www.google.com/")
PictureBox1.Visible = False
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Hand
les PictureBox1.Click
On Error Resume Next
WebBrowser1.GoBack()
PictureBox1.Visible = False
End Sub
End Class
Textbox yada TextChanged özelliği olan form öğesinde sadece sayıları veya Sadece harf
Textbox yada TextChanged özelliği olan form öğesinde sadece sayıları veya Sadece harfleri silme
Sadece sayıları, Rakamları Bırakma
PHP Code:
For i = 0 To kilo.Text.Length - 1
' Char.IsDigit rakam yoksa ifadesi
If Char.IsDigit(kilo.Text.Chars(i)) = "False" Then
' Rakam olmayanı sil
kilo.Text = Replace(kilo.Text, i, "", , , vbBinaryCompare)
End If
Next i
Sadece Harfleri Bırakma
PHP Code:
For i = 0 To kilo.Text.Length - 1
' Char.IsLetter harf ifadesi
If Char.IsLetter(kilo.Text.Chars(i)) = "False" Then
'Harf olmayanı sil
kilo.Text = Replace(kilo.Text, i, "", , , vbBinaryCompare)
End If
Next i
Sadece Harf ve Rakam Bırakma (. , gibi işaretleri kaldırma)
PHP Code:
For i = 0 To kilo.Text.Length - 1
' Char.IsLetterOrDigit harf ve rakam ifadesi
If Char.IsLetterOrDigit(kilo.Text.Chars(i)) = "False" Then
'Harf ve rakam olmayanı sil
kilo.Text = Replace(kilo.Text, i, "", , , vbBinaryCompare)
End If
Next i
yenipencerede aç denmediği sürece bütün linkleri yeni formda açar.
' sağ tıkla yenipencerede aç denmediği sürece bütün linkleri yeni formda açar.
PHP Code:
Dim yenipencerekerkur As String
Private Sub WebBrowser1_StatusTextChanged(ByVal sender As Object, ByVal e As System.Event
Args) Handles WebBrowser1.StatusTextChanged
On Error Resume Next
yenipencerekerkur = WebBrowser1.StatusText
End Sub
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentMode
l.CancelEventArgs) Handles WebBrowser1.NewWindow
On Error Resume Next
e.Cancel = True
Dim kerkurform As New Form1
kerkurform.Visible = True
kerkurform.WebBrowser1.Navigate(yenipencerekerkur)
End Sub
_______
Belli bir yazıda aradığın bir kelime ve istediğin karekter sonrasını bulma
Belli bir yazıda aradığın bir kelime ve istediğin karekter sonrasını bulma
mesela bir web sayfasındaki linkleri bulma
PHP Code:
'click e v.s. konacak kodlar
Dim link1 As String
Dim KacinciKarakter As Integer
For i = 1 To 80 'kaç tane olduğunu bilmiyorsan fazla yaz
'TextBox1.Text web sayfasının kod kısmı yada istediğiniz text
'içinde index.php? geçen kaçıncı karakter olduğu bulunur.
KacinciKarakter = TextBox1.Text.IndexOf("index.php?")
'karakterden kaç sonrası uzunluğu seçilir altta 20 uzunlukta link alındı
link1 = Strings.Mid(TextBox1.Text, KacinciKarakter + 1, 20)
link1 = "http://www.google.com/" & link1
'linkin uzunluğunu sen belirle onu al
If Len(link1) < 100 = True Then
ListBox1.Items.Add(link1)
'bir sonraki link için for next te link lisxboxa eklenip silindi
'başta aramaya devam eder 2. link varsa onu bulur
TextBox1.Text = TextBox1.Text.Remove(KacinciKarakter, 10)
End If
Next i
-
Belli bir yazıda aradığı 2 kelime ve 2 kelime arasını bulma
Belli bir yazıda aradığı 2.kelime ve 2.kelime arasındaki uzunluk ne olursa olsun içeriğinin bulunması
Belli bir yazıda aradığı 2 kelime ve 2 kelime arasını bulma
mesela bir web sayfasındaki linkleri bulma,bir yazıda benzer karakterlerin arasını bulma
bu kodu ister butona koyun tıklayınca oluşsun kod ister isterseniz webbrowser isdediğiniz sayfaya
geldiğinde otomatik başlasın buda webbrowser1.downloadcomplete ile sağlanır.
aşağıdaki kodu otomatik yapıp size veren LinkÇözücü yü eklediğimde (kendim yazdım kod da reklam
bölümü kaldı bedava program reklamlı olsun altında bitince )burada linki yayınlayacağım
otomatik sizin girdiğiniz kodu ayrıştırıp linkleri size verecek vb.net sonucunuda kod olarak size verecek.
PHP Code:
Dim ARAKarakterNOSU As Integer
Dim ARAKarakterNOSU2 As Integer
Dim kerkurlink As String
TextBox1.Text = WebBrowser1.DocumentText
'işlenecek web sayfanın kodu oluşmazsa kod sayfayı refresh yapın 1 kere
'isterseniz sizin bir yazınızı koyun içinden istediğini seçsin belli ön arkada kalan benzer öğeler
den
For i = 1 To 1000
'linkler bitince otomatik durur.o yuzden 1000 dedim
'aranacak koda " işareti koymayın hata oluşur
ARAKarakterNOSU = TextBox1.Text.IndexOf("href")
' 1. aranacak burda href seçildi
kerkurlink = Strings.Mid(TextBox1.Text, ARAKarakterNOSU + 1, ARAKarakterNOSU2 + ARAKarakte
rNOSU + 50)
ARAKarakterNOSU2 = kerkurlink.IndexOf("id")
' 2. aranacak burda id seçildi
kerkurlink = Strings.Mid(TextBox1.Text, ARAKarakterNOSU + Len("id") + "15", ARAKarakterNOS
U2 - "15" - "5")
' üste 15 1. aranacaktan önünden nekadar silinecek kaç karakter
' üste 5 ise 2. aranacaktan önünden nekadar silinecek kaç karakter
kerkurlink = "http://www.kerkur.net/id=" & kerkurlink
'üste kodda rir
' sonuç olarak http://www.kerkur.net/id=234345ghfhytr5y64 linki oluşur
If ARAKarakterNOSU2 <> "-
1" = True Then '2.aranan bulunmayana kadar listeye eklemeye devam
ListBox1.Items.Add(kerkurlink) ' oluşan linki listboxa ekledik
' ikinci arama için ilk oluşanı listboxa aldık ve silecez başlangıç 1.arama değeri
ni ki
' 2. aramayı başlatmak için stirng değerinden
'altta
TextBox1.Text = TextBox1.Text.Remove(ARAKarakterNOSU, "15")
kerkurlink = ""
End If
If ARAKarakterNOSU = "-1" = True Then ' 1.Aranacak bulunmayınca aramayı durdur.
a = MsgBox(ListBox1.Items.Count & " Link Oluştu. Açmak istermisiniz?", MsgBoxStyl
e.YesNo + MsgBoxStyle.Question, "Kerkur Hızlı Web")
If a = vbYes Then
Button2_Click(sender, e) ' bu butona listbox seçili itemi navigate ediyor.
Exit Sub
Else
Exit Sub
End If
End If
Next i
-
Html sayfası resources da değil kodda navigate etme
Html sayfası resources da değil kodda navigate etme
kodda entera basmadan html kodu yazılmalı altsatıra
Altsatıra kodda devam et yok " _ " bu işaret yani
HTML kodunu
PHP Code:
Me.WebBrowser1.Navigate("about: ")
arasında yazmalısınız. örnek aşağıda.
PHP Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyB
ase.Load
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Me.WebBrowser1.Navigate("about:html sayfası resources değil kodda ="">
Hoşgeldinizörnek
")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Fo
rms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
On Error Resume Next
Me.Text = WebBrowser1.DocumentTitle
End Sub
End Class
Reklam kodunu programa ekleme textten html oluşturması tempe ve çıkışta silinmesi
Reklam kodunu programa ekleme textten html oluşturması tempe ve çıkışta silinmesi
Programa textbox1.text te yazıp gizlediğimiz reklam kodunu adsense gibi temp te açıp çalıştığında navigate etme program
kapandığında silinmesi
PHP Code:
Dim PreviewFileHTML As String
Dim PreviewFileName As String
Private Sub k_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My
Base.Load
'On Error Resume Next 'try komudu için bu kullanılmaz.
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser2.ScriptErrorsSuppressed = True
'reklam kodum ReklamKod.Text içinde olsun tempte oluşuyor içinde visiblesi false Rekl
amKod.Text bunun
PreviewFileHTML = ""
PreviewFileHTML = PreviewFileHTML & ReklamKod.Text
PreviewFileName = My.Computer.FileSystem.GetTempFileName & ".html" ' Create a temp fi
le' Here goes the "build preview file code"Try My.Computer.FileSystem.WriteAllText(PreviewFi
leName, PreviewFileHTML, False)Catch ex As Exception ' Handle exception. Make sure to check
why you can't write to file (ex.Message)End TryIf My.Computer.FileSystem.FileExists(PreviewF
ileName) Then Form2.PreviewFileName = PreviewFileName ' Now, pass the temp file's name to pr
eview form Form2.ShowDialog() My.Computer.FileSystem.DeleteFile(PreviewFileName) ' Delete t
emp fileEnd IfPreviewFileName = My.Computer.FileSystem.GetTempFileName & ".html" ' Create a t
emp file
Try
My.Computer.FileSystem.WriteAllText(PreviewFileName, PreviewFileHTML, False)
Catch ex As Exception
End Try
Me.WebBrowser1.Navigate( PreviewFileName )
Me.WebBrowser2.Navigate( PreviewFileName )
End Sub
'Kapanınca program silinsin temp dizininden reklam kodum
Private Sub k_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClo
singEventArgs) Handles Me.FormClosing
On Error Resume Next
My.Computer.FileSystem.DeleteFile(PreviewFileName) ' Delete temp file
End Sub
-
Bir Web Sayfasının Html Kodunu Hemen Notdefteri ni Açıp içine Yükleme
Bir Web Sayfasının Html Kodunu Hemen Notdefteri ni Açıp içine Yükleme
PHP Code:
On Error Resume Next
Dim source As [String] = ("kaynakhtml.txt")
' Imports System.IO zorunlu alt satır için
Dim writer As StreamWriter = File.CreateText(source)
writer.Write(WebBrowser1.DocumentText)
writer.Close()
Process.Start("notepad.exe", source)
-
Form çalışırken atanan tuşa basınca başka bir eylemi başlatma click,timer başlaması v
Form çalışırken atanan tuşa basınca başka bir eylemi başlatma click,timer başlaması v.s.
Koddakiler K yada Control+ B yada Alt+F tuşuna basıldığını söyliyecek
PHP Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyB
ase.Load
'form çalışırken bir tuşa basınca öenek k tuşu bir başka işi başlatsın .
' bir sonraki hareket tuşa basma gibi.
'butonun üstüne gelmeden atayacağın tuşla butona v.s. tıklama başlatma.
Me.KeyPreview = True 'açık olmalı.
've formun keydown olayına tuşu yazın.
Me.Text = "K yada Control+ B yada Alt+F tuşuna basın."
Me.Width = "400" ' Açıklama başlığı gözüksün diye bu satır sadece.
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs
) Handles Me.KeyDown
If e.KeyCode = Keys.K Then 'burası değiştir f1 değilmi enter f2 falan yazabilirsin.
MsgBox("K tuşuna bastın") 'BUYUK KUCUK FARKETMEZ
End If
If e.Alt And e.KeyCode.ToString = "F" Then
MsgBox("Alt + F tuşuna bastın")
End If
If e.Control And e.KeyCode.ToString = "B" Then
MsgBox("Control + B tuşuna bastın")
End If
End Sub
End Class
http://www.frmtr.com/visual-basic/3769419-microsoft-visual-basic-2008-express-edition-ornek-kodlar-13.html
son sayfa 14 6 2011 için devamı güncellenecek
http://kerkur.blogspot.com
@ 2011
http://www.frmtr.com/visual-basic/3769419-microsoft-visual-basic-2008-express-edition-ornek-kodlar.html
14 Haziran 2011 Site Yazıları Yedeğidir.
Microsoft visual basic 2008 , express edition , vb.net örnek kodlar
Microsoft visual studio
Microsoft visual basic 2008 express edition
(vb.net visual studio 'un küçültürmüş sürümü) vb.net lerin hepsinde
ben 2008 ini kullanıyorum 2.5gb lik sürüm değil 530mb lik sürümü
örnek kodlarımı paylaşacağım sizde benim takıldığım konularda yardımcı olursunuz.
yazılan kodlar verilmiştir ama aynı kod başka şekillerde de yazılabilir
En az 20 kod yayınlıyacağım
Herkeze bolşanslar..
işinize yarar inşallah...
PHP Code:
kerkur
*************************************************
Kod Başlıkları
* Değişken Tanımları
* Tanımlamaları bu şekilde bir arada yapılabiliyor
* txt dat gibi istediğin uzantılı dosyalara veri kaydetmek
2
* txt dat gibi istediğin uzantılı dosyadan veri çağırmak
* SELECT CASE Örnek?
* örnek Kronometre
web sayfası error vermemesi için hatakodu vermemesi için kod
kapat düğmesine tıklanınca (X) çıkacakmısın diye soru sorması
3
macro yada program çalıştırmak için kod
* 1 Hata olursa Program kapanmasın görmezden gelsin hatayı
"timer1 başlatma durdurma
* Belli bir süre sonra mesala 5 sn sonra işe devam için
* Pencere sabit Kalması için ayarları
4
seç ve tıkla web butonu webbrowser için
bu ise adres id ine adres.txt den dolacak Webbrowser da.
Tarih yazdırma
inputbox
Sadece sayi gİrİlsİn textbox a
5
webbrowser da butun girilen internet adresleri hatırlar form load a konur.adres
' mouse üzerindeyken balon açıklama
textbox ta enter tuşuna basma olayı buton yerine onay gibi
webbrowser web Sayfasının Html Kodunu Kod.Text 'e al
WebBrowser1.Navigate bu kodu devamlı yazmak yerine Navigate
6
WebBrowser1 sayfa tam yüklendiğinde yapılmasını istediğiniz kodlardır
'örnek bir webbrowser yapımı
vb.net kod ornek cut copy paste
progress bar örneği
c# kodunu vb.net koduna çevirme
7
webbrowserda dolu form bilgilerini alma id okuma
html kodda bir butonun akfif olduğununu kontrol etme
vb.net form başlığı kayması
VB.NET ile resim cekme (screenhost)*(Ekran Görüntüsü) Alma
zipli kod dahil vb.net programları örnek kod indirme siteleri
8
Form webbrowser da başlığın değişimi
öğelere tıklayınca mouse tıklama sayısını verme
ListBox taki eleman sayısı
Replace ve mid komutu
Aynı Formu Tekrar Başlatmak Farklı Pencerede aynı anda
9
Tabcontrol webbrowser da sayfaları değiştiğimizde sayfa isminin değişmesi programda
Tablı webbrowser da sayfaları tek tek yukleme için sıralı kod kasılmaz makina
Webbrowserda Yeni pencere linkine tıkladığında aynı çerçevede kalma
Listbox 'ı txt Dosyasından Doldurma
10
Webbrowserda Yeni pencere linkine tıkladığında aynı webbrowser da linki açma
Textbox yada TextChanged özelliği olan form öğesinde sadece sayıları veya Sadece harfleri silme
yenipencerede aç denmediği sürece bütün linkleri yeni formda açar.
Belli bir yazıda aradığın bir kelime ve istediğin karekter sonrasını bulma
11
Belli bir yazıda aradığı 2 kelime ve 2 kelime arasındaki uzunluk ne olursa olsun arasını alma ( link bulma gibi )
Html sayfası resources da değil kodda navigate etme
Reklam kodunu programa ekleme textten html oluşturması tempe ve çıkışta silinmesi
12
Bir Web Sayfasının Html Kodunu Hemen Notdefteri ni Açıp içine Yükleme
13
Form çalışırken atanan tuşa basınca başka bir eylemi başlatma click,timer başlaması v.s.
Microsoft® Visual Studio® 2010 Express _ ilk önce siteden
ilk Program lazım indirelim
Microsoft® Visual Studio® 2010 Express _ ilk önce siteden
programı indiriyoruz
www.microsoft.com/express/Downloads/#2010-Visual-Basic
Microsoft® Visual Studio® 2010 Express
program express olduğundan bedava dır.lisans gerektirmez.bedava register kayıt
yapılmalıdır.
indirip kurduktan sonra altta direkt linki var. göndereceğim kodları ve
siteleri,programları deniyebilirsiniz.
sitesinden english dilini seçin yada
Buradan direkt indirin
www.microsoft.com/express/
* Değişken Tanımları
* Değişken Tanımları
PHP Code:
Dim yas As Byte 'gibi
Byte: 0-255 değer arasında pozitif sayı değeri alır.
String: Karakter ifadeleri (sayı olmayan,sayıda alır) (1kb)
Integer: ± 32768 sayısına kadar tam sayı değeri alır (2kb)
Variant: Bütün değişkenlerin yerini alır. , Date: Tarih değeri alır.
* Tanımlamaları bu şekilde bir arada yapılabiliyor
#Region "TANIMLAMALAR"
Dim a As String
#End Region
'birden fazla tanımlama koyulabilir
* txt dat gibi istediğin uzantılı dosyalara veri kaydetmek
* txt dat gibi istediğin uzantılı dosyalara veri kaydetmek
(txtPassword_TextChanged gibi üzerine tıklayınce değiştirme gibi komuta koydum)
textbox multiline olursa içerik tamamı gözükür
PHP Code:
Dim FILENAME As String = "txtPassword.dat"
Try
Dim objWriter As New System.IO.StreamWriter(FILENAME)
objWriter.WriteLine(txtPassword.Text.ToString)
objWriter.Close()
Catch ex As Exception
End Try
* txt dat gibi istediğin uzantılı dosyadan veri çağırmak
* txt dat gibi istediğin uzantılı dosyadan veri çağırmak
PHP Code:
If txtPassword.Text Then
Dim FILENAME As String = "txtPassword.dat"
Dim objReader As New System.IO.StreamReader(FILENAME)
txtPassword.Text = objReader.ReadToEnd
objReader.Close()
End If
* SELECT CASE Örnek?
* SELECT CASE Örnek?
PHP Code:
Private Sub Command1_Click()
puan = InputBox("Notunuzu Giriniz")
Select Case puan
Case 100
MsgBox ("Bravo 100 almışsınız. Ödül kazandınız")
Case 90 To 99
MsgBox ("Pekiyi ile geçtiniz")
Case 80 To 89
MsgBox ("iyi ile geçtiniz")
Case 70 To 79
MsgBox ("orta ile geçtiniz")
Case 60 To 69
MsgBox ("Geçerle geçtiniz")
Case Is < 60
MsgBox ("kaldınız")
Case Else
MsgBox ("yanlış sayı girdiniz")
End Select
End Sub
* örnek Kronometre
* örnek Kronometre
PHP Code:
Public Class Form1
' Değişkenleri tanımlama
Dim d As Object
Dim a, b As Object
Dim c As Short
Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal
eventArgs As System.EventArgs) Handles Button2.Click
a = 0
b = 0
c = 0
Label1.Text = "00:00:00"
Timer1.Stop()
End Sub
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal
eventArgs As System.EventArgs) Handles MyBase.Load
a = 0
b = 0
c = 0
Label1.Text = "00:00:00"
End Sub
Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs
As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = 1
c = c + 1
If b = 60 Then
a = a + 1
b = 0
End If
If c = 60 Then
b = b + 1
c = 0
End If
Label1.Text = Str(a) & ":" & Str(b) & ":" & Str(c)
DefInstance.Text = "Kronometre " & TimeOfDay
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Select Case Button1.Text
Case "baslat"
Timer1.Enabled = True
Button1.Text = "durdur"
Case "durdur"
Timer1.Enabled = False
Button1.Text = "baslat"
End Select
End Sub
End Class
web sayfası error vermemesi için hatakodu vermemesi için kod
web sayfası error vermemesi için hatakodu vermemesi için kod
PHP Code:
WebBrowser1.ScriptErrorsSuppressed = True
kapat düğmesine tıklanınca (X) çıkacakmısın diye soru sorması
kapat düğmesine tıklanınca (X) çıkacakmısın diye soru sorması için kod a dim le
tanıtılır.
PHP Code:
Dim a As String
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Beep()
a = MsgBox("Çıkmak istediğinizden emin misiniz?", MsgBoxStyle.YesNo +
MsgBoxStyle.Question, "Kerkur prog ismi")
If a = vbYes Then
Else
e.Cancel = True
Me.WindowState = FormWindowState.Normal
End If
End Sub
macro yada program çalıştırmak için kod
macro yada program çalıştırmak için kod
PHP Code:
Shell("TASI\Sorvar.exe")
tası dizini içindeki uygulama çalışır.
* 1 Hata olursa Program kapanmasın görmezden gelsin hatayı
* 1 Hata olursa Program kapanmasın görmezden gelsin hatayı diye başa konulur.
kodun ilk satırına
PHP Code:
On Error Resume Next
"timer1 başlatma durdurma
PHP Code:
Timer1.Start ()
"timer1 başlatır.
PHP Code:
Timer1.Stop ()
"timer1 durdurur.
* Belli bir süre sonra mesala 5 sn sonra işe devam için
* Belli bir süre sonra mesala 5 sn sonra işe devam için
timerc.start()
yazılır (timer.interval=1000 olmalı 1 sn karşılık gelir)
(timerc_Tick içinde ise)
PHP Code:
Dim sayac as integer
On Error Resume Next
timerc.Interval = 1000
sayac = sayac + 1
SAYA.Text = sayac 'istersek
If serisayac = "5" = True Then
'(5 sn dolunca yapılması gereken iş)
timerc.stop () '(sonunda timerc.stop yazıp durduruyoruz)
End if
* Bazı Komutlar
* Bazı Komutlar
PHP Code:
a1.Visible = False
(a1 in görünmesini gizler ama çalışır.)
PHP Code:
a1.Visible = True
(a1 in görünmesini sağlar.)
* Pencere sabit Kalması için ayarları
* Pencere sabit Kalması için ayarları otarafa butarafa büyümez kenardan çekilince
PHP Code:
MaximizeBox=False
AutoSizeMode=GroveAndShrink
seç ve tıkla web butonu webbrowser için
seç ve tıkla web butonu webbrowser için
PHP Code:
Webbrowser1.Document.GetElementById("id").Focus()
Webbrowser1.Document.GetElementById("id").InvokeMember("click")
bu ise adres id ine adres.txt den dolacak Webbrowser da.
Webbrowser da
bu ise adres id ine adres.txt(textbox1 gibi) den dolacak Webbrowser da.
PHP Code:
Webbrowser1.Document.GetElementById("tAdres").Focus()
Webbrowser1.Document.ActiveElement.InnerText() = Adres.Text
Tarih yazdırma
Tarih yazdırma
PHP Code:
Dim d2 As String
Dim m2 As String
Dim y4 As String
Tarih = Now
d2 = DatePart("d", Tarih)
m2 = DatePart("m", Tarih)
y4 = DatePart("yyyy", Tarih)
DT.Text = d2 - 1 & "." & m2 & "." & y4
TT.Text = d2 & "." & m2 & "." & y4
inputbox
inputbox ekrana veri istemeni sağlar
PHP Code:
anadi.Text = InputBox(b & "Anne Adı 'nı Giriniz Tamam 'a Basın")
girilen b ye eşitlenir
b dim de tanımlanır
sayı sadece ise integer
herşey için dim b as string
Sadece sayi gİrİlsİn textbox a
SADECE SAYI GİRİLSİN TEXTBOX A
PHP Code:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsNumber(e.KeyChar) = False Then
e.Handled = True
End If
End Sub
webbrowser da butun girilen internet adresleri hatırlar form load a konur.adres
webbrowser da butun girilen internet adresleri hatırlar form load a konur.adres çubuğu için
PHP Code:
TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
TextBox1.AutoCompleteSource = AutoCompleteSource.AllUrl
' mouse üzerindeyken balon açıklama
' mouse üzerindeyken balon açıklama
kodun çalışması için control eventinden
ToolTip
eventi forma eklemek gerekir.
form1_load a bu kod konursa herzaman tanımlıların hepsinde gözükür.
altta label1 e konulmuş label1 üstüne geldikten sonra tanımlıların hepsinde balon gözükür.
PHP Code:
Dim Hovering As Boolean
Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Label1.MouseHover
ToolTip1.SetToolTip(Me.Label1, "www.google.com")
ToolTip1.SetToolTip(Me.Label2, "100 Sonuçlu Google Araması")
ToolTip1.SetToolTip(Me.Label3, "mail.live.com")
ToolTip1.SetToolTip(Me.Label4, "mail.yahoo.com")
ToolTip1.SetToolTip(Me.Label5, "www.facebook.com/")
ToolTip1.SetToolTip(Me.Label6, "www.giveawayoftheday.com/")
ToolTip1.SetToolTip(Me.Label7, "kerkur.tr.gg/BanaMailatin.htm")
ToolTip1.SetToolTip(Me.Label8, "www.diyanet.gov.tr/namazvakti")
Hovering = True
End Sub
textbox ta enter tuşuna basma olayı buton yerine onay gibi
textbox ta enter tuşuna basma olayı buton yerine onay gibi
PHP Code:
Private Sub TextBox1_KeyDown( ByVal sender As Object, ByVal e As
KeyEventArgs) Handles TextBox1.KeyDown
If (e.KeyCode = Keys.Enter) Then
Navigate(toolStripTextBox1.Text)
End If
End Sub
webbrowser web Sayfasının Html Kodunu Kod.Text 'e al
web Sayfasının Kodunu Kod.Text 'e al
Kod.Text ilkin gözükmiyecek
kodu göster butonuna basınca gösterecek
form1.load kısmında
Kod.Text .visible = false
olacak
---
PHP Code:
Private Sub SKodgoster_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SKodgoster.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
'Sayfa Kodunu al
Kod.Text = WebBrowser1.DocumentText
Kod.Visible = True
End Sub
'arama kodu html de ( webbrowser da web sayfasında ) varmı diyor işaretlemiyor
Private Sub Arama_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Arama.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
' arama kodu html de varmı diyor işaretlemiyor
Dim kodu As String
Dim aracan As String
kodu = Kod.Text
aracan = InputBox("Aranacak ifade")
Dim arasonuc As String
arasonuc = kodu.IndexOf(aracan)
If arasonuc = -1 Then
MsgBox("İçinde Yok")
Else
MsgBox("Aranan ifade =" & aracan)
End If
End Sub
WebBrowser1.Navigate bu kodu devamlı yazmak yerine Navigate
WebBrowser1.Navigate bu kodu devamlı yazmak yerine Navigate yazmak
webbrowserda
__________________________________________
PHP Code:
Private Sub Navigate(ByVal address As String)
WebBrowser1.ScriptErrorsSuppressed = True
If String.IsNullOrEmpty(address) Then Return
If address.Equals("about:blank") Then Return
'ht tp ayrı olmucak
If Not address.StartsWith("http://") And _
Not address.StartsWith("https://") Then
address = "http://" & address
End If
Try
WebBrowser1.Navigate(New Uri(address))
Catch ex As System.UriFormatException
Return
End Try
End Sub
adres çubuğunda enter a basınca o adrese gitmesi
Private Sub toolStripTextBox1_KeyDown(ByVal sender As Object, ByVal e As
KeyEventArgs) Handles Adres.KeyDown
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
If (e.KeyCode = Keys.Enter) Then
Navigate(Adres.Text)
End If
End Sub
WebBrowser1 sayfa tam yüklendiğinde yapılmasını istediğiniz kodlardır
'WebBrowser1.DocumentCompleted burada yazılan kodlar sayfa tam
yüklendiğinde yapılmasını istediğiniz kodlardır
'örnek bir webbrowser yapımı
'örnek bir webbrowser yapımı
'---------------------------------------------------------------
PHP Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Kod.Visible = False
'htt p http ve w ww www olacak.
WebBrowser1.Navigate("http://www.google.com")
End Sub
Private Sub toolStripTextBox1_KeyDown(ByVal sender As Object, ByVal e As
KeyEventArgs) Handles Adres.KeyDown
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
If (e.KeyCode = Keys.Enter) Then
Navigate(Adres.Text)
End If
End Sub
Private Sub goButton_Click(ByVal sender As Object, ByVal e As EventArgs)
Handles goButton.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate(Adres.Text)
End Sub
Private Sub Navigate(ByVal address As String)
WebBrowser1.ScriptErrorsSuppressed = True
If String.IsNullOrEmpty(address) Then Return
If address.Equals("about:blank") Then Return
If Not address.StartsWith("http://") And _
Not address.StartsWith("https://") Then
address = "http://" & address
End If
Try
WebBrowser1.Navigate(New Uri(address))
Catch ex As System.UriFormatException
Return
End Try
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal
e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Handles WebBrowser1.DocumentCompleted
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Adres.Text = WebBrowser1.Url.AbsoluteUri
Me.Text = WebBrowser1.Document.Title + "
Kerkur Hızlı Web"
End Sub
Private Sub webBrowser1_Navigated(ByVal sender As Object, ByVal e As
WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Adres.Text = WebBrowser1.Url.ToString()
End Sub
Private Sub Geri_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Geri.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
If WebBrowser1.CanGoBack = True Then
WebBrowser1.GoBack()
Else
'MsgBox("Cannot go back any further", MsgBoxStyle.Information)
End If
End Sub
Private Sub ileri_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ileri.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
If WebBrowser1.CanGoForward = True Then
WebBrowser1.GoForward()
Else
' MsgBox("Cannot go further forward", MsgBoxStyle.Information)
End If
End Sub
Private Sub Anasayfa_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Anasayfa.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.GoHome()
End Sub
Private Sub Yenile_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Yenile.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Refresh()
End Sub
Private Sub SKodgoster_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SKodgoster.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
'Sayfa Kodunu al
Kod.Text = WebBrowser1.DocumentText
Kod.Visible = True
End Sub
Private Sub Kod_DoubleClick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Kod.DoubleClick
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
If MsgBox("Koddan çıkmakmı istedin", MsgBoxStyle.YesNo) = MsgBoxResult.Yes
Then
Kod.Visible = False
Kod.Visible = False
End If
End Sub
Private Sub Arama_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Arama.Click
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
' arama kodu html de varmı diyor işaretlemiyor
Dim kodu As String
Dim aracan As String
kodu = Kod.Text
aracan = InputBox("Aranacak ifade")
Dim arasonuc As String
arasonuc = kodu.IndexOf(aracan)
If arasonuc = -1 Then
MsgBox("İçinde Yok")
Else
MsgBox("Aranan ifade =" & aracan)
End If
End Sub
End Class
webbrowser da sayfa ismini yukarıda gösterme kodu
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal
e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Handles WebBrowser1.DocumentCompleted
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Adres.Text = WebBrowser1.Url.AbsoluteUri
Me.Text = WebBrowser1.Document.Title + "Kerkur Hızlı Web"
End Sub
vb.net kod ornek cut copy paste
vb.net kod ornek cut copy paste
http://www.brangle.com/wordpress/2009/08/how-to-cutcopypaste-text-intoclipboardusing-
vb-net/
ten alındı.
--------------------------------------------------------------------------------
'This code was developed by Gerardo Lopez and was downloaded from
ww w.brangle.com
'Complete source code is available at:
'http://www.brangle.com/wordpress/2009/08/how-to-cutcopypaste-text-intoclipboardusing-
vb-net/
PHP Code:
Public Class Form1
Private Sub btnCut_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnCut.Click
'Checks to see if the user selected anything
If txtTextBox.SelectedText <> "" Then
'Good, the user selected something
'Copy the information to the clipbaord
Clipboard.SetText(txtTextBox.SelectedText)
'Since this is a cut command, we want to clear whatever
'text they had selected when they clicked cut
txtTextBox.SelectedText = ""
Else
'If there was no text selected, print out an error message box
MsgBox("No text is selected to cut")
End If
End Sub
Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnCopy.Click
'Checks to see if the user selected anything
If txtTextBox.SelectedText <> "" Then
'Copy the information to the clipboard
Clipboard.SetText(txtTextBox.SelectedText)
Else
'If no text was selected, print out an error message box
MsgBox("No text is selected to copy")
End If
End Sub
Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnPaste.Click
'Get the data stored in the clipboard
Dim iData As IDataObject = Clipboard.GetDataObject()
'Check to see if the data is in a text format
If iData.GetDataPresent(DataFormats.Text) Then
'If it's text, then paste it into the textbox
txtTextBox.SelectedText = CType(iData.GetData(DataFormats.Text), String)
Else
'If it's not text, print a warning message
MsgBox("Data in the clipboard is not availble for entry into a textbox")
End If
End Sub
End Class
'kopya hafızasını temizle
Clipboard.Clear()
progress bar örneği
progress bar örneği
progressbar1 rin ismini PB ile değiştirdim daha kolay oldu. özelliklerinden title dan
_________________________
PHP Code:
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e
As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles
WebBrowser1.ProgressChanged
Me.PB.Maximum = Convert.ToInt32(e.MaximumProgress)
Me.PB.Value = Convert.ToInt32(e.CurrentProgress)
End Sub
Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles
WebBrowser1.Navigating
PB.Visible = True
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles
WebBrowser1.DocumentCompleted
PB.Visible = False
End Sub
c# kodunu vb.net koduna çevirme
c# kodunu vb.net koduna çevirme
http://www.developerfusion.com/tools/convert/csharp-to-vb/
webbrowserda dolu form bilgilerini alma id okuma
webbrowserda dolu form bilgilerini alma id okuma
websayfasındaki form bilgilerini programa çekme,alma.
_____________________________________
PHP Code:
User.Text = W.Document.GetElementById("user").GetAttribute("value")
' üsteki user name id tanımlı formun içeriğini user.text (textbox a)içeriğine doldurur.
'value html de formda doldurulan form bölümlerinde değğiştirilen girilen yer
anlamına gelir
html kodda bir butonun akfif olduğununu kontrol etme
html kodda bir butonun akfif olduğununu kontrol etmek için idine bakacak pasif mi
aktifmi olduğunu idi belirler onu koşul ifadeleriyle (if,select case gibi) isimnden
bakılır GetAttribute("buraya")) bakılır sonuç onagore kontrol edilir.
örnek html kodu
PHP Code:
input disabled="disabled" id="YeniM" name="Yeni" type="submit" value="Yeni"
---
bu kodda butonun disabled özelliği butonun pasifmi aktifmi olduğunu gösteriyor
programdan alma kodu
sunuç
aktif ise bukod için false,pasif ise aktif olur.
sonuçları msgbox (kodu yazın) kontrol edebilirsiniz.
PHP Code:
Webbrowser1.Document.GetElementById("Yeni").GetAttribute("disabled"))
vb.net form başlığı kayması
vb.net form başlığı kayması
-------------------------------------------------------------------
PHP Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Me.Text = Microsoft.VisualBasic.Right(Me.Text, 1) & Microsoft.VisualBasic.Left
(Me.Text, Len(Me.Text) - 1)
End Sub
timer açık olmalı
VB.NET ile resim cekme (screenhost)*(Ekran Görüntüsü) Alma
Screenshot (Ekran Görüntüsü) Alma
VB.NET ile resim cekme (screenhost).
Projemize 2 adet buton ve 1 adet picture box ekliyoruz.
Butonlarimizin isimleri Resim Cek ve Kayit et olarak yaziyoruz.
-
Resim cek butonu kodlari ;
PHP Code:
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width,
bounds.Height,System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size,
CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
-
Kayit et butonu ;
PHP Code:
Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "Save File"
savefiledialog1.FileName = "*.jpeg"
savefiledialog1.Filter = "JPEG *.jpeg"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.FileName,
System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception 'Do Nothing
End Try
zipli kod dahil vb.net programları örnek kod indirme siteleri
zipli kod dahil vb.net programları örnek kod indirme siteleri
1 http://www.codeproject.com/
2 http://www.a1vbcode.com/
3 http://search.codesoso.com/Search?q=vb.net
zipli kod dahil vb.net programları
Form webbrowser da başlığın değişimi
Form webbrowser da başlığın değişimi
PHP Code:
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal
e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Handles WebBrowser1.DocumentCompleted
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Adres.Text = WebBrowser1.Url.AbsoluteUri 'adres barının texte yazılması
Me.Text = WebBrowser1.Document.Title + "Kerkur Hızlı Web" 'form başlığı değişimi
End Sub
öğelere tıklayınca mouse tıklama sayısını verme
öğelere tıklayınca mouse tıklama sayısını verme
PHP Code:
Public Class Form1
Private mouse_Click As Integer = 0 '// keep track of clicks.
Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEv
entArgs) _
Handles Button1.MouseClick, Button2.MouseClick, Button3.MouseClick, ListBox1.MouseClick, T
extBox1.MouseClick, TextBox2.MouseClick, _
TextBox3.MouseClick
mouse_Click += 1 '// increase count by 1.
Me.Text = mouse_Click & " - tıklayınca mouse sayıyor"
End Sub
End Class
ListBox taki eleman sayısı
PHP Code:
' ListBox taki eleman sayısını verir
TextBox1.Text = ListBox1.Items.Count
'________________________________________________
'Listeye textbox'daki yazıyı ekledik
ListBox1.Items.Add(TextBox1.Text)
'________________________________________________
'Listede olanların sayısı biterse koşulu
If ListBox1.Items.Count - 1 = "-1" = True Then
End If
Replace ve mid komutu
Replace ve mid komutu
PHP Code:
'Replace komutu
'TextBox1.text teki iki yazarsa onu sil sadece iki yi yerine dort yaz
TextBox1.Text = Replace(TextBox1.Text, "iki", "dort", , , vbBinaryCompare)
'________________________________________________
' mid komutu
'TextBox1 deki 27. karekter ve 3 sonrasındaki karekter TYK ise
'bu TextBox1.text i listbox a ekle
If Strings.Mid(TextBox1.Text, 27, 3) = "TYK" = False Then
ListBox1.Items.Add(TextBox1.Text)
End If
'________________________________________________
Aynı Formu Tekrar Başlatmak Farklı Pencerede aynı anda
Aynı Formu Tekrar Başlatmak Farklı Pencerede aynı anda
PHP Code:
Dim YeniForm As Form1
YeniForm = New Form1()
YeniForm.Show()
YeniForm = Nothing
Form1
kodun basındaki
Public Class Form1
dekidir.
Tabcontrol webbrowser da sayfaları değiştiğimizde sayfa isminin değişmesi programda
Tabcontrol webbrowser da sayfaları değiştiğimizde sayfa isminin değişmesi programda
PHP Code:
Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabCont
rol1.Click
Me.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle + " -
kerclik 1.0.2011"
End Sub
Tablı webbrowser da sayfaları tek tek yukleme için sıralı kod kasılmaz makina
Tablı webbrowser da sayfaları tek tek yukleme için sıralı kod kasılmaz makina
PHP Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyB
ase.Load
On Error Resume Next
Webbrowser1.Navigate("http://www.google.com/")
Me.Text = " - kerclik 1.0.2011"
End Sub
Private Sub Webbrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Fo
rms.WebBrowserDocumentCompletedEventArgs) Handles Webbrowser1.DocumentCompleted
On Error Resume Next
If Webbrowser1.Url.ToString = "http://www.google.com/" = True Then
If Webbrowser2.Url.ToString = "about:blank" = True Then
Webbrowser2.Navigate("http://www.youtube.com/")
End If
End If
End Sub
Private Sub Webbrowser2_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Fo
rms.WebBrowserDocumentCompletedEventArgs) Handles Webbrowser2.DocumentCompleted
On Error Resume Next
If Webbrowser2.Url.ToString = "http://www.youtube.com/" = True Then
' If Webbrowser3.Url.ToString = "about:blank" = True Then
' Webbrowser3.Navigate("http://www.frmtr.com/")
' End If
End If
End Sub
Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tab
Control1.Click
Me.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle + " -
kerclik 1.0.2011"
End Sub
End Class
önemli olan koşulda webbrowser başlangıç sayfalarının about:blank eşit olması koşul buna göre yazıldı.
kodu devam edebilirsiniz tablarda.
Webbrowserda Yeni pencere linkine tıkladığında aynı çerçevede kalma
Webbrowserda Yeni pencere linkine tıkladığında aynı çerçevede kalma
yeni bir pencerede açma linkini kendi form çerçevesinde açma internet explorerda açmamasını sağlayan kod
form da import edilecek en başta
PHP Code:
Imports System
Public Class ... devam eder başlangıca import lar
PHP Code:
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelE
ventArgs) Handles WebBrowser1.NewWindow
On Error Resume Next
Dim myElement As HtmlElement = WebBrowser1.Document.ActiveElement
Dim target As String = myElement.GetAttribute("href")
Dim kerform As New Form1
kerform.Visible = True
kerform.WebBrowser1.Navigate(target)
e.Cancel = True
End Sub
Listbox 'ı txt Dosyasından Doldurma
Listbox 'ı txt Dosyasından Doldurma
PHP Code:
Dim r As IO.StreamReader
r = New IO.StreamReader("yeni.txt")
While (r.Peek() > -1)
listbox1.Items.Add(r.ReadLine)
End While
r.Close()
Webbrowserda Yeni pencere linkine tıkladığında aynı webbrowser da linki açma
Webbrowserda Yeni pencere linkine tıkladığında aynı webbrowser da linki açma
PHP Code:
Imports System.IO
Public Class Form1
Private Sub LinkClicked(ByVal sender As Object, ByVal e As EventArgs)
Dim link As HtmlElement = WebBrowser1.Document.ActiveElement
Dim url As String = link.GetAttribute("href")
WebBrowser1.Navigate(url, False)
'MsgBox("Link Clicked: " & link.InnerText & vbCrLf & "Destination: " & url)
End Sub
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.Can
celEventArgs) Handles WebBrowser1.NewWindow
e.Cancel = True
PictureBox1.Visible = True
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Win
dows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Me.Text = WebBrowser1.DocumentTitle + " - Kerkur Hizli Web @ 2011 "
Dim olink As HtmlElement
Dim olinks As HtmlElementCollection = WebBrowser1.Document.Links
For Each olink In olinks
olink.AttachEventHandler("onclick", AddressOf LinkClicked)
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyB
ase.Load
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate("http://www.google.com/")
PictureBox1.Visible = False
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Hand
les PictureBox1.Click
On Error Resume Next
WebBrowser1.GoBack()
PictureBox1.Visible = False
End Sub
End Class
Textbox yada TextChanged özelliği olan form öğesinde sadece sayıları veya Sadece harf
Textbox yada TextChanged özelliği olan form öğesinde sadece sayıları veya Sadece harfleri silme
Sadece sayıları, Rakamları Bırakma
PHP Code:
For i = 0 To kilo.Text.Length - 1
' Char.IsDigit rakam yoksa ifadesi
If Char.IsDigit(kilo.Text.Chars(i)) = "False" Then
' Rakam olmayanı sil
kilo.Text = Replace(kilo.Text, i, "", , , vbBinaryCompare)
End If
Next i
Sadece Harfleri Bırakma
PHP Code:
For i = 0 To kilo.Text.Length - 1
' Char.IsLetter harf ifadesi
If Char.IsLetter(kilo.Text.Chars(i)) = "False" Then
'Harf olmayanı sil
kilo.Text = Replace(kilo.Text, i, "", , , vbBinaryCompare)
End If
Next i
Sadece Harf ve Rakam Bırakma (. , gibi işaretleri kaldırma)
PHP Code:
For i = 0 To kilo.Text.Length - 1
' Char.IsLetterOrDigit harf ve rakam ifadesi
If Char.IsLetterOrDigit(kilo.Text.Chars(i)) = "False" Then
'Harf ve rakam olmayanı sil
kilo.Text = Replace(kilo.Text, i, "", , , vbBinaryCompare)
End If
Next i
yenipencerede aç denmediği sürece bütün linkleri yeni formda açar.
' sağ tıkla yenipencerede aç denmediği sürece bütün linkleri yeni formda açar.
PHP Code:
Dim yenipencerekerkur As String
Private Sub WebBrowser1_StatusTextChanged(ByVal sender As Object, ByVal e As System.Event
Args) Handles WebBrowser1.StatusTextChanged
On Error Resume Next
yenipencerekerkur = WebBrowser1.StatusText
End Sub
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentMode
l.CancelEventArgs) Handles WebBrowser1.NewWindow
On Error Resume Next
e.Cancel = True
Dim kerkurform As New Form1
kerkurform.Visible = True
kerkurform.WebBrowser1.Navigate(yenipencerekerkur)
End Sub
_______
Belli bir yazıda aradığın bir kelime ve istediğin karekter sonrasını bulma
Belli bir yazıda aradığın bir kelime ve istediğin karekter sonrasını bulma
mesela bir web sayfasındaki linkleri bulma
PHP Code:
'click e v.s. konacak kodlar
Dim link1 As String
Dim KacinciKarakter As Integer
For i = 1 To 80 'kaç tane olduğunu bilmiyorsan fazla yaz
'TextBox1.Text web sayfasının kod kısmı yada istediğiniz text
'içinde index.php? geçen kaçıncı karakter olduğu bulunur.
KacinciKarakter = TextBox1.Text.IndexOf("index.php?")
'karakterden kaç sonrası uzunluğu seçilir altta 20 uzunlukta link alındı
link1 = Strings.Mid(TextBox1.Text, KacinciKarakter + 1, 20)
link1 = "http://www.google.com/" & link1
'linkin uzunluğunu sen belirle onu al
If Len(link1) < 100 = True Then
ListBox1.Items.Add(link1)
'bir sonraki link için for next te link lisxboxa eklenip silindi
'başta aramaya devam eder 2. link varsa onu bulur
TextBox1.Text = TextBox1.Text.Remove(KacinciKarakter, 10)
End If
Next i
-
Belli bir yazıda aradığı 2 kelime ve 2 kelime arasını bulma
Belli bir yazıda aradığı 2.kelime ve 2.kelime arasındaki uzunluk ne olursa olsun içeriğinin bulunması
Belli bir yazıda aradığı 2 kelime ve 2 kelime arasını bulma
mesela bir web sayfasındaki linkleri bulma,bir yazıda benzer karakterlerin arasını bulma
bu kodu ister butona koyun tıklayınca oluşsun kod ister isterseniz webbrowser isdediğiniz sayfaya
geldiğinde otomatik başlasın buda webbrowser1.downloadcomplete ile sağlanır.
aşağıdaki kodu otomatik yapıp size veren LinkÇözücü yü eklediğimde (kendim yazdım kod da reklam
bölümü kaldı bedava program reklamlı olsun altında bitince )burada linki yayınlayacağım
otomatik sizin girdiğiniz kodu ayrıştırıp linkleri size verecek vb.net sonucunuda kod olarak size verecek.
PHP Code:
Dim ARAKarakterNOSU As Integer
Dim ARAKarakterNOSU2 As Integer
Dim kerkurlink As String
TextBox1.Text = WebBrowser1.DocumentText
'işlenecek web sayfanın kodu oluşmazsa kod sayfayı refresh yapın 1 kere
'isterseniz sizin bir yazınızı koyun içinden istediğini seçsin belli ön arkada kalan benzer öğeler
den
For i = 1 To 1000
'linkler bitince otomatik durur.o yuzden 1000 dedim
'aranacak koda " işareti koymayın hata oluşur
ARAKarakterNOSU = TextBox1.Text.IndexOf("href")
' 1. aranacak burda href seçildi
kerkurlink = Strings.Mid(TextBox1.Text, ARAKarakterNOSU + 1, ARAKarakterNOSU2 + ARAKarakte
rNOSU + 50)
ARAKarakterNOSU2 = kerkurlink.IndexOf("id")
' 2. aranacak burda id seçildi
kerkurlink = Strings.Mid(TextBox1.Text, ARAKarakterNOSU + Len("id") + "15", ARAKarakterNOS
U2 - "15" - "5")
' üste 15 1. aranacaktan önünden nekadar silinecek kaç karakter
' üste 5 ise 2. aranacaktan önünden nekadar silinecek kaç karakter
kerkurlink = "http://www.kerkur.net/id=" & kerkurlink
'üste kodda rir
' sonuç olarak http://www.kerkur.net/id=234345ghfhytr5y64 linki oluşur
If ARAKarakterNOSU2 <> "-
1" = True Then '2.aranan bulunmayana kadar listeye eklemeye devam
ListBox1.Items.Add(kerkurlink) ' oluşan linki listboxa ekledik
' ikinci arama için ilk oluşanı listboxa aldık ve silecez başlangıç 1.arama değeri
ni ki
' 2. aramayı başlatmak için stirng değerinden
'altta
TextBox1.Text = TextBox1.Text.Remove(ARAKarakterNOSU, "15")
kerkurlink = ""
End If
If ARAKarakterNOSU = "-1" = True Then ' 1.Aranacak bulunmayınca aramayı durdur.
a = MsgBox(ListBox1.Items.Count & " Link Oluştu. Açmak istermisiniz?", MsgBoxStyl
e.YesNo + MsgBoxStyle.Question, "Kerkur Hızlı Web")
If a = vbYes Then
Button2_Click(sender, e) ' bu butona listbox seçili itemi navigate ediyor.
Exit Sub
Else
Exit Sub
End If
End If
Next i
-
Html sayfası resources da değil kodda navigate etme
Html sayfası resources da değil kodda navigate etme
kodda entera basmadan html kodu yazılmalı altsatıra
Altsatıra kodda devam et yok " _ " bu işaret yani
HTML kodunu
PHP Code:
Me.WebBrowser1.Navigate("about: ")
arasında yazmalısınız. örnek aşağıda.
PHP Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyB
ase.Load
On Error Resume Next
WebBrowser1.ScriptErrorsSuppressed = True
Me.WebBrowser1.Navigate("about:
Hoşgeldinizörnek
")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Fo
rms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
On Error Resume Next
Me.Text = WebBrowser1.DocumentTitle
End Sub
End Class
Reklam kodunu programa ekleme textten html oluşturması tempe ve çıkışta silinmesi
Reklam kodunu programa ekleme textten html oluşturması tempe ve çıkışta silinmesi
Programa textbox1.text te yazıp gizlediğimiz reklam kodunu adsense gibi temp te açıp çalıştığında navigate etme program
kapandığında silinmesi
PHP Code:
Dim PreviewFileHTML As String
Dim PreviewFileName As String
Private Sub k_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My
Base.Load
'On Error Resume Next 'try komudu için bu kullanılmaz.
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser2.ScriptErrorsSuppressed = True
'reklam kodum ReklamKod.Text içinde olsun tempte oluşuyor içinde visiblesi false Rekl
amKod.Text bunun
PreviewFileHTML = ""
PreviewFileHTML = PreviewFileHTML & ReklamKod.Text
PreviewFileName = My.Computer.FileSystem.GetTempFileName & ".html" ' Create a temp fi
le' Here goes the "build preview file code"Try My.Computer.FileSystem.WriteAllText(PreviewFi
leName, PreviewFileHTML, False)Catch ex As Exception ' Handle exception. Make sure to check
why you can't write to file (ex.Message)End TryIf My.Computer.FileSystem.FileExists(PreviewF
ileName) Then Form2.PreviewFileName = PreviewFileName ' Now, pass the temp file's name to pr
eview form Form2.ShowDialog() My.Computer.FileSystem.DeleteFile(PreviewFileName) ' Delete t
emp fileEnd IfPreviewFileName = My.Computer.FileSystem.GetTempFileName & ".html" ' Create a t
emp file
Try
My.Computer.FileSystem.WriteAllText(PreviewFileName, PreviewFileHTML, False)
Catch ex As Exception
End Try
Me.WebBrowser1.Navigate( PreviewFileName )
Me.WebBrowser2.Navigate( PreviewFileName )
End Sub
'Kapanınca program silinsin temp dizininden reklam kodum
Private Sub k_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClo
singEventArgs) Handles Me.FormClosing
On Error Resume Next
My.Computer.FileSystem.DeleteFile(PreviewFileName) ' Delete temp file
End Sub
-
Bir Web Sayfasının Html Kodunu Hemen Notdefteri ni Açıp içine Yükleme
Bir Web Sayfasının Html Kodunu Hemen Notdefteri ni Açıp içine Yükleme
PHP Code:
On Error Resume Next
Dim source As [String] = ("kaynakhtml.txt")
' Imports System.IO zorunlu alt satır için
Dim writer As StreamWriter = File.CreateText(source)
writer.Write(WebBrowser1.DocumentText)
writer.Close()
Process.Start("notepad.exe", source)
-
Form çalışırken atanan tuşa basınca başka bir eylemi başlatma click,timer başlaması v
Form çalışırken atanan tuşa basınca başka bir eylemi başlatma click,timer başlaması v.s.
Koddakiler K yada Control+ B yada Alt+F tuşuna basıldığını söyliyecek
PHP Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyB
ase.Load
'form çalışırken bir tuşa basınca öenek k tuşu bir başka işi başlatsın .
' bir sonraki hareket tuşa basma gibi.
'butonun üstüne gelmeden atayacağın tuşla butona v.s. tıklama başlatma.
Me.KeyPreview = True 'açık olmalı.
've formun keydown olayına tuşu yazın.
Me.Text = "K yada Control+ B yada Alt+F tuşuna basın."
Me.Width = "400" ' Açıklama başlığı gözüksün diye bu satır sadece.
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs
) Handles Me.KeyDown
If e.KeyCode = Keys.K Then 'burası değiştir f1 değilmi enter f2 falan yazabilirsin.
MsgBox("K tuşuna bastın") 'BUYUK KUCUK FARKETMEZ
End If
If e.Alt And e.KeyCode.ToString = "F" Then
MsgBox("Alt + F tuşuna bastın")
End If
If e.Control And e.KeyCode.ToString = "B" Then
MsgBox("Control + B tuşuna bastın")
End If
End Sub
End Class
http://www.frmtr.com/visual-basic/3769419-microsoft-visual-basic-2008-express-edition-ornek-kodlar-13.html
son sayfa 14 6 2011 için devamı güncellenecek
http://kerkur.blogspot.com
@ 2011
