treeview ağacına tıkladığımızda verilerin webbrowser nesnesine gelmesi

udentr2002

Altın Üye
Katılım
5 Kasım 2006
Mesajlar
1,478
Excel Vers. ve Dili
iş yerinde Office 365
evde Office 365
Altın Üyelik Bitiş Tarihi
07-11-2024
Merhaba arkadaşlar;

Benim word dosyasında hazırladığım bir dosyam var form üzerinde.
treeview nesnesi var. Bu treeview nesnesinde treeviewin başlığındaki isim C'nin altında A dosyasının içinde bulunan bir PDF dosyasıdır. Bende trewiev nesnesine tıkladığımda ilgili pdf dosyasını webbrowser nesnesinde görünmesi için nasıl bir kod yazabilirim.

Örnek olarak treeview nesnesinden 3.2.2 A şeklinde bir başlık var ve bu isim ile C'nin altında A dosyasının içinde 3.2.2. A diye bir pdf dosyası var. Özetle treeview de o başlığa ait olan pdf dosyasını web browser da gösterebilecek.

İnşallah anlatabilmişimdir. Şimdiden yardımcı olacak arkadaşlarıma çok teşekkür ederim.
 

udentr2002

Altın Üye
Katılım
5 Kasım 2006
Mesajlar
1,478
Excel Vers. ve Dili
iş yerinde Office 365
evde Office 365
Altın Üyelik Bitiş Tarihi
07-11-2024
Arkadaşlar biraz uğraşarak örnek dosyalardan bir şeyler yaptım.
şöyle bir yor izledim treeview başlıklarına tıkladığımda onu textbox2'ye alıyorum webbrowser içinde dosya yolu olaral textbox2'yi gösteriyorum. o zaman olacak gibi. Şöyle bir sorun yaşıyorum kodları aşağıda gönderiyorum kodlarda da göreceğiniz gibi textbox2'ye treeview başlığını yazdırırken

TextBox2 = "C:\CTD\" & TextBox2 & ".pdf"
kodunu textboxa yazdırırken örnek olarak
C:\CTD\MODÜL-2 .pdf şeklinde yazıyor yani .pdf den önce bir boşluk bırakıp yazıyor bundan dolayı webrowser dosya yolunu yanlış algılıyor kodlar aşağıdadır
Private Sub TreeView1_NodeClick(ByVal node As MSComctlLib.node)
On Error Resume Next
Dim tableTemp As Table
Dim rngTemp As Range
For Each aTable In ActiveDocument.Tables
Set tableTemp = ActiveDocument.Tables(1)
Set rngTemp = tableTemp.ConvertToText(Separator:=wdSeparateByTabs)
Next aTable

Me.TextBox2.Text = node.Text
MyVal = ThisDocument.Bookmarks(node.Key).Range.Text
MyVal = Replace(MyVal, Chr(13), vbCrLf)
TextBox2 = "C:\CTD\" & TextBox2 & ".pdf"
WebBrowser1.navigate [TextBox2]
aşağıda renkli olarak işaretlenen kod
TextBox2 = "C:\CTD\" & TextBox2 & ".pdf"

kısacası textbox ye dosya yolunu yazdırırken .pdf kısmını nasıl bitişik yazdırabilirim. çok şey denedim ama olmadı


End Sub
 

udentr2002

Altın Üye
Katılım
5 Kasım 2006
Mesajlar
1,478
Excel Vers. ve Dili
iş yerinde Office 365
evde Office 365
Altın Üyelik Bitiş Tarihi
07-11-2024
Hocam sorun benim treeview başlıkalrını oluşturuken boşluk bırakmamda
orayı düzeltince sorun çözüldü :)
 
Üst