textbox ta listelenen bilgiye link verme

[deppocu]

Arkadaşlar kolay gelsin

Benim bulamadığım uygulama şöyle. Bir adres defterinde seçilen ismin bilgileri textbox larda sıralanıyor. Ben bu texbox lardan herhangi birinde listelenen veriye link vermek istiyorum. Oradaki bilgiye çift tıklayınca bir internet sayfası açılsın. Acaba bu mümkünmüdür. Bu saatlere kadar aradım bulamadım. Forumda da bulamadım. Şimdiden teşekkürler

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[deppocu]

ekte burdan bulduğum bir çalışma

Bir örnek dosya eklermisiniz.

Ekteki dosyayı bu forumdan aldım onun üzerinde açıklamaya çalışayım. Şiresi 1234 dosyanın bu arada. userformda ilk kaydı seçtik. Solda bilgiler çıkıyor. ilk çıkan bilgiye çift tıkladığımda bir html sayfası diğer isme tıkladığımda başka bir html sayfası açılsın istiyorum. Kısacası textbox taki bilgilere link verilebiliyormu sorum bu. Bu arada çalışmayı hazırlayan arkadaşa da teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Private Sub TextBox9_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo Hata
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & TextBox9, vbMaximizedFocus
    Exit Sub
Hata:
    MsgBox "İnternet bağlantısı şu anda kurulamıyor." _
    & Chr(10) & "Lütfen daha sonra tekrar deneyiniz.", vbCritical, "Dikkat !"
End Sub

 

[deppocu]

teşekkür ediyorum fakat eksik yazmışım herhalde. Html sayfası derken hyperlink i kastetmiştim. Yani benim istediğim bir html sayfasını açsın yada asp farketmez. bu şekilde değiştirebilirmiyiz acaba

 

[deppocu]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Private Sub TextBox9_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo Hata
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & TextBox9, vbMaximizedFocus
    Exit Sub
Hata:
    MsgBox "İnternet bağlantısı şu anda kurulamıyor." _
    & Chr(10) & "Lütfen daha sonra tekrar deneyiniz.", vbCritical, "Dikkat !"
End Sub

Arkadaşım eline sağlık. Çok teşekkür ediyorum süper oldu hemde.