Vb 2010 Web Browser'e Sekme Ekleme
- Konuyu başlatan kutlay510
- Başlangıç tarihi
sezgin1444
Kıdemli Üye
SEKME EKLEME
Dim wb As New WebBrowser
wb.Navigate("URL")
Dim tab As New TabPage("Title")
tab.Controls.Add(wb)
TabControl.TabPages.Add(tab)
TabControl.SelectedTab = tab
KISAYOL TUŞU KULLANIMI
FORMUN EN ÜSTE BU KODU EKLE
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Integer
TİMER EKLE ENABLE = TRUE YAP
TİMER_TİCK E BUNLARI EKLE
'burada k tuşu kısayol tuşu
On Error Resume Next
If GetAsyncKeyState(Keys.K) Then
'TUŞA BASILINCA NE YAPILSIN
Exit sub
end ıf
Dim wb As New WebBrowser
wb.Navigate("URL")
Dim tab As New TabPage("Title")
tab.Controls.Add(wb)
TabControl.TabPages.Add(tab)
TabControl.SelectedTab = tab
KISAYOL TUŞU KULLANIMI
FORMUN EN ÜSTE BU KODU EKLE
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Integer
TİMER EKLE ENABLE = TRUE YAP
TİMER_TİCK E BUNLARI EKLE
'burada k tuşu kısayol tuşu
On Error Resume Next
If GetAsyncKeyState(Keys.K) Then
'TUŞA BASILINCA NE YAPILSIN
Exit sub
end ıf
sezgin1444
Kıdemli Üye
önemli değil ama bunda yeni sekmedeki webbrowserin boyutunda sorun oluyo snrım onu tam yaparsam gönderirim
teşekkür etmek için mesaj atmak yerine teşekkür butonuna tıklarsan daha iyi olur
teşekkür etmek için mesaj atmak yerine teşekkür butonuna tıklarsan daha iyi olur
sezgin1444
Kıdemli Üye
birdaha bak yok öyle birşey++varsa link atarmısın ayrıca burada mesaj kasıyor olsaydık moda bildir sende mesaj kasmak için mesaj atma!
