Skip to main content

AccessTr.neT


Combobox dan seçilen sayfaya git hk.

drummers
drummers
0
2597

Combobox dan seçilen sayfaya git hk.

#1

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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da