Combobox dan seçilen sayfaya git hk.
Tarih
14/01/2012 19:13
Konu Sahibi
drummers
Yorumlar
0
Okunma
1604
Konuyu Oyla:
  • Derecelendirme: 1/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 1/5 - 1 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  combobox ta seçilen değere göre kaydettirme sorunu Gorkemku 1 1.136 14/05/2014, 23:14 POWER
  comboboxtan seçilen ismi diğer combobox ta görmeme gorkemogutveren 1 1.132 08/02/2014, 22:34 C*e*l*o*y*c*e
  iki sayfa dan Tek sayfaya aktarım fkilic76 1 1.507 29/10/2013, 15:04 fkilic76
Question Access | bi tablodaki seçilen adın id'sinin başka tabloya kaydedilmesi (ACİL YARDIM) serkanmurat 2 1.336 27/06/2013, 10:34 serkanmurat
  bir combobox da iki farklı hücredeki bilgileri görmek yalp_92 3 1.902 15/06/2013, 02:47 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya