• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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,503
Excel Vers. ve Dili
iş yerinde Office 365
evde Office 365
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.
 
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
 
Hocam sorun benim treeview başlıkalrını oluşturuken boşluk bırakmamda
orayı düzeltince sorun çözüldü :)
 
Geri
Üst