Sitemize reklam vermek için [email protected] adresine mail atabilirsiniz
For Advertising Contact [email protected]


[VB] basit browser JJPP

JoJoPaPi

Level 8
TM Üye
Ticaret - 0%
0   0   0
Katılım
29 Mar 2009
Konular
697
Mesajlar
2,980
Beğeniler
120
MmoLira
0
DevLira
0
#1
basit browser
'Forma birtane combobox Ekleyin ve
' component'ten Microsoft Internet Controls 'u Ekleyin
' Forma Ekleyin Aşağıdaki Koduda Forma Kopyalayın
' Mesela Google Yazıp Enter'a Basıldığında O sayfayı Açsın.


Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
WebBrowser1.Navigate2 Combo1.Text
Combo1.AddItem Combo1.Text
End If
End Sub

Private Sub Form_Click()
Combo1.Text = "www.google.com.tr"
End Sub
 
Üst