- Katılım
- 21 Ocak 2007
- Mesajlar
- 106
- Excel Vers. ve Dili
- Office 2007 Professional Enterprise
arkadaşlar öncelikle herkese kolay gelsin..
hazırladığım bir projede takıldım..ustalarımın yardımı olmadan sanırım çözemeyeceğim..
tablodaki yer adı ve yolları formdaki liste kutusu aracılığı ile ikinci bir formdaki webbrowserden açtırıyorum...buraya kadar sorun yok...
liste kutusunun bulunduğu forma ekleyeceğim butonlara tıkladığım zaman da ikinci formdaki webbrowserden istediğim linki açtırmak istiyorum ama yapamadım..
her iki formdada aşağıdaki kod var..butona tıkladığım zamanda liste kutusuna bağlı olan metin6 kutusundaki linki açıyor..ben hem liste kutusundan tıklayınca oradaki linki,butona tıklayınca da butondaki linki aynı webbrowserde açmasını istiyorum..bunu kod kullanarak nasıl yapabilirim yada modülmü gerekir..formlara nasıl bir kod koymalıyım..yardım edebilirseniz sevinirim..herkese iyi çalışmalar..
Private Sub Form_AfterUpdate()
Dim a As Variant
a = Me.Metin6
WebBrowser4.Navigate a
End Sub
Private Sub Form_Current()
Dim a As Variant
a = Me.Metin6
WebBrowser4.Navigate a
End Sub
hazırladığım bir projede takıldım..ustalarımın yardımı olmadan sanırım çözemeyeceğim..
tablodaki yer adı ve yolları formdaki liste kutusu aracılığı ile ikinci bir formdaki webbrowserden açtırıyorum...buraya kadar sorun yok...
liste kutusunun bulunduğu forma ekleyeceğim butonlara tıkladığım zaman da ikinci formdaki webbrowserden istediğim linki açtırmak istiyorum ama yapamadım..
her iki formdada aşağıdaki kod var..butona tıkladığım zamanda liste kutusuna bağlı olan metin6 kutusundaki linki açıyor..ben hem liste kutusundan tıklayınca oradaki linki,butona tıklayınca da butondaki linki aynı webbrowserde açmasını istiyorum..bunu kod kullanarak nasıl yapabilirim yada modülmü gerekir..formlara nasıl bir kod koymalıyım..yardım edebilirseniz sevinirim..herkese iyi çalışmalar..
Private Sub Form_AfterUpdate()
Dim a As Variant
a = Me.Metin6
WebBrowser4.Navigate a
End Sub
Private Sub Form_Current()
Dim a As Variant
a = Me.Metin6
WebBrowser4.Navigate a
End Sub