Skip to main content

AccessTr.neT


Combobox dan seçilen sayfaya git hk.

drummers
drummers
0
2402

Combobox dan seçilen sayfaya git hk.

#1
Visual Basic Code
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

Visual Basic Code
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