Yeni Sayfa Da Link Açma

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Kız Babası
    kuytul
    kuytul's avatar
    Kayıt Tarihi: 08/Eylül/2005
    Erkek
    ben formun üstünde label veya buton a tıklandığında örn http://www.google.com ya da C:\Downloads yolunu yeni sayfada  açılmasını nasıl sağlayabilirim.

    instagram.com/yks.rehberlik >> YKS Rehberlik ve Eğitim Koçluğu için takipte kalın ;)
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    'Formun declarations kısmına:


    Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


    'Butonun click yada labelin click olayına neyse iste..


    url = ShellExecute(Me.hwnd, "Open", "http://www.tahribat.com", "", "", 1)


    'Tıklandıında tahribat.com u yeni ie penceresinde açar..


     


    Eywallah..


    The king is bleeding.
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Kız Babası
    kuytul
    kuytul's avatar
    Kayıt Tarihi: 08/Eylül/2005
    Erkek
    teşekkür ederim,ama olmadı ya da ben yapamadım.Command1 e tıklanıldığında açılacak şekilde tekrar yazabilir misin?

    instagram.com/yks.rehberlik >> YKS Rehberlik ve Eğitim Koçluğu için takipte kalın ;)
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


    Private Sub Command1_Click()
    url = ShellExecute(Me.hwnd, "Open", "http://www.tahribat.com", "", "", 1)
    End Sub


    The king is bleeding.
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Kız Babası
    kuytul
    kuytul's avatar
    Kayıt Tarihi: 08/Eylül/2005
    Erkek

    buton ekleyip hepsiini yapıştırıyorum,hata veriyor.Hata da şu:


    Compile error


    Variable not defined


     


    bu hata çıkıyor ve url= bölümünü gösteriyor.


    Ne yapmak gerekiyor acep?


    instagram.com/yks.rehberlik >> YKS Rehberlik ve Eğitim Koçluğu için takipte kalın ;)
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    Senin visual basic kaç?Bide URL Yazmadan dene bakiim


    ShellExecute(Me.hwnd, "Open", http://www.tahribat.com, "", "", 1)


     


    gibi..


     


    The king is bleeding.
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Kız Babası
    kuytul
    kuytul's avatar
    Kayıt Tarihi: 08/Eylül/2005
    Erkek
    vb 6.0 kullanıyorum.url olmadan yaptım bu sefer de = işareti yok diye hata verdi.Sen denedin mi peki kodu?

    instagram.com/yks.rehberlik >> YKS Rehberlik ve Eğitim Koçluğu için takipte kalın ;)
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek
    o zaman dinamic variant deisken tanımla URL diye gitsin bitsin olmazsa yaz oraya visual basic a.ına koimm diye :)

    The king is bleeding.
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hacker-T
    Hacker-T's avatar
    Kayıt Tarihi: 20/Ağustos/2005
    Erkek

    Shell "explorer.exe " & "http://www.tahribat.com", 1


    bu kodu butonun yormad1ma ekle sitenin ad1n1 edistir...


    noktayi koydUM nickimI degIstirdim aq böle isin icine siciyim.
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek
    Ewt bu daha kolaymıs..

    The king is bleeding.
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Kız Babası
    kuytul
    kuytul's avatar
    Kayıt Tarihi: 08/Eylül/2005
    Erkek
    Hacker-T bunu yazdı:



    Shell "explorer.exe " & "http://www.tahribat.com", 1


    bu kodu butonun yormad1ma ekle sitenin ad1n1 edistir...




    teşekkür ederim,umarım başka üyelerin de işine yarar

    instagram.com/yks.rehberlik >> YKS Rehberlik ve Eğitim Koçluğu için takipte kalın ;)
Toplam Hit: 2876 Toplam Mesaj: 11