Merhaba arkadaşlar
Private Sub Command1_Click(Index As Integer)
WebBrowser1.Navigate ("http://") ,Text1.Text ,("/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
End Sub
butona tıkladığımda text1.text içine yazılı IP yi tanıyıp adresi açsın istiyorum. IP yi değiştirebilmek istiyorum.
adresin IP li orjinal hali
WebBrowser1.Navigate ("http://10.20.16.3/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
yardımlarınız için şimdiden teşekkürlerimi sunuyorum.
Hatırladığım kadarı ile (kullanmayalı çok oldu) visual basic te + ile stringleri birleştirebiliyorduk.
string adres1=@"http://"
string adres2=Text1.Text
string adres3=@"/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1"
string tumAdres = adres1 + adres2 + adres3;
WebBrowser1.Navigate(tumAdres);
Derlenirmi bilmiyorum ama böyle birşey olması lazım. Sentaks hataları varsa düzeltirsiniz. Dediğim gibi basic kullanmayalı çok uzun yıllar oldu.
denedim bu şekilde olmadı
Eğer klasik vb6 dan bahsediyorsak : (.Net için de çalışabilir belki, ama emin değilim.)
Private Sub Command1_Click(Index As Integer)
WebBrowser1.Navigate ("http://" & Text1.Text & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
End Sub
Private Sub Command1_Click(Index As Integer)
WebBrowser1.Navigate ("http://" & Text1.Text & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
End Sub
normalde bu şekilde olması gerekiyor ama olmuyor.
hata veriyor
compile error
method or data member not found
merhaba hocam
Private Sub Command1_Click(Index As Integer)
WebBrowser1.Navigate "http://" & Text1.Text & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1"
End Sub
parantezleri kaldırıp tekrar çalıştırırmısınız. Birde bu şekilde deneyin.
WebBrowser1.Navigate ("http://" & Text1.Text & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1") komutu sadece text1.text olduğu zaman çalışıyor mu?
Öyle çalışıyorsa görünmeyen bir alanda text alanında birleştir ve onu kullan.
WebBrowser1.Navigate ("http://" & Text1.Text & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
text1.text i kabul etmiyor.
WebBrowser text1.text i kabul etmiyor olabilirmi?
hata olarak ne veriyor
sonrasında "komutta geçen text1.text yerine doğrudan text içerinde olan değeri yazınız. o şekil deneyiniz ne olacak
WebBrowser1.Navigate ("http://10.20.16.3/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
bu şekilde yazınca sorunsuz çalışıyor.
bu adres İP kameraların adresinden biri sadece.
1. kamera WebBrowser1.Navigate ("http://10.20.16.3/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
2. kamera WebBrowser1.Navigate ("http://10.20.17.3/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
3. kamera WebBrowser1.Navigate ("http://10.20.18.3/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
IP hariç diğer karakterlerin hepsi aynı, sadece IP değişik
bu şekilde olduğunda açıyor. ama benim istediğin 1 tane WebBrowser kullanarak text içine yazdığım İP ie butona bastığımda o kameranın açılması.
muhtemel cast sorunu vardır. yani text i vs i değiştirip başka bir veri türü isteyebilir. bunu anlamak için
dim Adres as string
Adres="http://" & text1.text & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1"
WebBrowser1.Navigate (Adres)
i deneyiniz
birde VB60 da texbox1 mi text1 mi yazılıyordu ?
textbox1 olarak giriliyor
Dim adres As String
Private Sub Command1_Click(Index As Integer)
adres = ("http://10.20.15.3/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
WebBrowser1.Navigate (adres)
End Sub
bu şekilde çalışıyor ama IP nin olduğu yere textbox1 yazdığımda hata veriyor
adres = ("http://" & textbox1 & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1") bu şekilde olduğunda hata veriyor.
adres = ("http://" & textbox1.text & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
olmalı
adres = ("http://" & textbox1.text & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
"http://"
bu alan için compile error veriyor
iki kesme olmasından kaynaklı olabilir mi ?
denedim yine olmadı
Private Sub Command1_Click(Index As Integer)
dim Adres as string
dim Txt as string
Txt=Cstr(textbox1.value)
Adres="http://" & Txt & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1"
WebBrowser1.Navigate (Adres)
End Sub
bu şekilde deneyin birde hocam
tırnak içinde olduğunda bi öenemi yok. her karakter ve sembol olabiliyor.
vb60 mı kullanıyorsunuz ?
sorun sanırım windows'un bazı bilgileri ekranda göründüğü gibi göndermemesinden kaynaklanıyor. Bizim ekranda gördüğümüz bilgiyi şifreli olarak iletiyor. Ama string olarak girdiğimizde bu bilgi şifrelenmediği için sorun oluyor. Veri tipiyle ilgili bir şey gibi görünüyor.
Epeydir Kullanmıyorum. Ama Bu VB60 da Navigate yok muş. muhtemel .NET den biridir.
Private Sub cmdLoadPage_Click()
Dim sTmp As String
sTmp = txtSource(0)
wb.Navigate (sTmp)
End Sub
Bu çalışan bir VB6 kodu. Webbrowser nesnesinde navigate metodu mevcut.
Textbox nesnesinin varsayılan özelliği zaten text olduğundan .text yazılması gerekli değil.
Yukarıda çalışması gerekli örnekler de verilmiş.
Alıntı yapılan: isikyasar - 14 Aralık 2011, 14:15:21
WebBrowser1.Navigate ("http://" & Text1.Text & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
text1.text i kabul etmiyor.
WebBrowser text1.text i kabul etmiyor olabilirmi?
Bu durumda, sorun ya webbrowser nesnesinin yada textbox nesnesinin adının farklı olmasında. Text1.text veya text1 de sorun çıkıyorsa textbox nesnesinin adının farklı olmasından başka bir sorun yok. Text1 indexli de olablir. Yani text1(0), text1(1) gibi yazılmalı.
ARKADAŞLAR VB TE SORUN VARMIŞ SANIRIM. KALDIRDIM YENİDEN KURDUM.
BU KOD ŞU AN ÇALIŞIYOR
Private Sub Command1_Click()
WebBrowser1.Navigate ("http://" & Text1.Text & "/liveview/viewer?lv_winid=ABDXEC5-0&lv_wincnt=1")
End Sub
YARDIMLARINIZ İÇİN ÇOK TEŞEKKÜR EDERİM.