AccessTr.neT
Combobox dan seçilen sayfaya git hk. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: Combobox dan seçilen sayfaya git hk. (/konu-combobox-dan-secilen-sayfaya-git-hk.html)



Combobox dan seçilen sayfaya git hk. - drummers - 14/01/2012


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim url2 As String
Application.DoEvents()
url2 = "https://ebildirge.sgk.gov.tr/WPEB/jsp/anamenu_ap.jsp"
Me.WebBrowser1.Navigate(url2)
Dim url3 As String = "https://ebildirge.sgk.gov.tr/WPEB/amp/gecBildGoruntulePage"
Me.WebBrowser1.Navigate(url3)
Do While (Me.WebBrowser1.ReadyState <> WebBrowserReadyState.Complete)
Application.DoEvents()
Loop
Me.WebBrowser1.Document.GetElementById("donemyil").SetAttribute("Value", Me.ComboBox2.Text)
Me.WebBrowser1.Document.GetElementById("donemay").SetAttribute("Value", Me.ComboBox3.Text)
Me.WebBrowser1.Document.GetElementById("btnSubmit").InvokeMember("click")
Do While (Me.WebBrowser1.ReadyState <> WebBrowserReadyState.Complete)
Application.DoEvents()
Loop

Bu kod ile onaylı tahakkuklar sayfasını açıyorum


Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
If ComboBox4.Text = "1" Then
Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
On Error Resume Next
WebBrowser1.Navigate("javascript:form1.action='/WPEB/TahakkukFisi.pdf?rapor=TahakkukFisi&n=0'; form1.submit();")
ElseIf ComboBox4.Text = "2" Then
Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
On Error Resume Next
WebBrowser1.Navigate("javascript:form2.action='/WPEB/TahakkukFisi.pdf?rapor=TahakkukFisi&n=0'; form2.submit();")
ElseIf ComboBox4.Text = "3" Then
Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
On Error Resume Next
WebBrowser1.Navigate("javascript:form3.action='/WPEB/TahakkukFisi.pdf?rapor=TahakkukFisi&n=0'; form3.submit();")
ElseIf ComboBox4.Text = "4" Then
Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
On Error Resume Next
WebBrowser1.Navigate("javascript:form4.action='/WPEB/TahakkukFisi.pdf?rapor=TahakkukFisi&n=0'; form4.submit();")
End If

Bu kod ile ComboBox4 den seçtiğim tahakukları görüntülemek isteğindeyim. Fakat "1" seçtiğimde pdf dosyası açılıyor. Benim istediğim hangi itemi seçersem o pdf açılsın.

Yani ComboBox4 den seçtiğim item değiştikçe webbrowser sayfasında açılan pdf de değişecek

Teşekkürler