folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder VB, Program Dizinini Açtırmak,Dizindeki Html Dosyasini Webbrowser A Gostermek



VB, Program Dizinini Açtırmak,Dizindeki Html Dosyasini Webbrowser A Gostermek

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Gzx
    Gzx's avatar
    Kayıt Tarihi: 23/Ağustos/2005
    Erkek

    button1 e tiklandiginda program dizinini acsin

     

    form_load da webbrowser1 program dizinindeki ahmet.html dosyasini gostersn

    button 2 ye tiklandiginda mehmet.html dosyasini okusun

     

    nası yapabilirim bunları :D

    "açık mı var la" yazdı diye ban yiyen adam !
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Gzx
    Gzx's avatar
    Kayıt Tarihi: 23/Ağustos/2005
    Erkek

    program dizinindeki

     

    bat dosyasinida calistiramiorm :S

     

    Shell "run.bat", vbNormalFocus

     

    diorm olmuor

    "açık mı var la" yazdı diye ban yiyen adam !
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    Shell "run.bat" dersen ve senin programinin exesiyle run.bat ayni dizindeyse acilir.Fakat sistemin xp ise dos penceresi direkt acilip kapanacagindan goremiyor olabilirsin.

    -------------------

    klasor acmaya gelelim

     

    folder = "explorer " & App.Path
    Shell folder, vbNormalFocus

    program yolunu explorer.exe ye parametre olarak veriorsun.

     

    webbrowser olayina bakamiyorum ne yazikki benim componentte bi problem var sanirim, ozellikleri listelemiyor :)

     

     

    The king is bleeding.
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Fikret
    Fikret's avatar
    Kayıt Tarihi: 01/Ekim/2007
    Erkek

    forma bi tane filelistbox ve webbrowser nesnesi ekliosn.

    ---------------------------------

    Private Sub File1_Click()
    WebBrowser1.Navigate (File1.Path & "\" & File1.FileName)
    End Sub

    Private Sub Form_Load()
    File1.Path = "C:\Inetpub\wwwroot\"
    End Sub 

    ---------------------------------

    path kısmında ben kendi dosyalarımın bulundugu yolu verdim. "" icersindeki kısımları silip app.path yazarsn programın oldugu dizini listeler. denedim calı$ıo sonra calı$mıo flan deme :D kolay gelsin. 

    screw you guys! i"m goin" hoooome!
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Gzx
    Gzx's avatar
    Kayıt Tarihi: 23/Ağustos/2005
    Erkek

    gVer snn verdigin kodda buton a tiklayinca

     

    folder kısmı hata verior

     

    f1kr3t 

    snn verdigin koddada hata verior en su sekilde yaptm sadece bilgi.html kısmında hata verdi

     

    Private Sub Form_Load()
    On Error Resume Next
    File1.Path = App.Path
    WebBrowser1.Navigate (File1.Path & "\" & bilgi.html)

    "açık mı var la" yazdı diye ban yiyen adam !
    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    31 yaşında emekli
    ajan1111
    ajan1111's avatar
    Kayıt Tarihi: 25/Ağustos/2005
    Erkek

    f8 le çalıştır programı. şu satıra gelince bak;

    WebBrowser1.Navigate (File1.Path & "\" & bilgi.html)

    file.path değerinde kendiliğinden "\" varmı? yada diğer "/" işareti koy.

    evet evet "/" bu işareti koy (:

    çünkü klasör işlemlerinde ters slaş "\"

    web işlemlerinde normal slaş "/" kullanılıyor. 

    Kayalardan kayarım yoktur benim ayarım (;
    Reply With Quote Alıntı yap
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    Private Sub Command1_Click()
    folder = "explorer " & App.Path
    Shell folder, vbNormalFocus
    End Sub

    çalısıyor hocam, ne hatasi verdigini solersen daha cok yardimci olabilirz

    The king is bleeding.
    Reply With Quote Alıntı yap
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Fikret
    Fikret's avatar
    Kayıt Tarihi: 01/Ekim/2007
    Erkek
    Gzx bunu yazdı:
    -----------------------------

    gVer snn verdigin kodda buton a tiklayinca

     

    folder kısmı hata verior

     

    f1kr3t

    snn verdigin koddada hata verior en su sekilde yaptm sadece bilgi.html kısmında hata verdi

     

    Private Sub Form_Load()
    On Error Resume Next
    File1.Path = App.Path
    WebBrowser1.Navigate (File1.Path & "\" & bilgi.html)


    -----------------------------

    bilgi.html tırnak icinde olcak güzel karde$im :) 

    Private Sub Form_Load()
    On Error Resume Next
    File1.Path = App.Path
    WebBrowser1.Navigate (File1.Path & "\" & "bilgi.html")

    screw you guys! i"m goin" hoooome!
    Reply With Quote Alıntı yap
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Gzx
    Gzx's avatar
    Kayıt Tarihi: 23/Ağustos/2005
    Erkek

    tmmdir

    hepsi tmm f1kr3t eyw saolasn ogreniorz ywas ywas iste :D

     

    ama tek sorun su program dizinini actirmakta

     

     

    http://img126.imageshack.us/img126/9691/hataajs9.jpg

     

    hata burda gver

    "açık mı var la" yazdı diye ban yiyen adam !
    Reply With Quote Alıntı yap
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ertan
    ertan's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek

    hoca explorer dediğin ne, ayrıca "\" işaretini koymamışsın hata verir tabii.

    şöyle yaz..

    folder = app.path & "\xxx.html"

     

    Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona göre karşıma gelin...
    Reply With Quote Alıntı yap
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Gzx
    Gzx's avatar
    Kayıt Tarihi: 23/Ağustos/2005
    Erkek
    hocam html yi fln hallettik sadece button 5 tiklantiginda program dizini acmasi gerekior onu hallemedim :S
    "açık mı var la" yazdı diye ban yiyen adam !
    Reply With Quote Alıntı yap
Toplam Hit: 4266 Toplam Mesaj: 14