+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Dersleri (https://accesstr.net/forum-visual-basic-6-dersleri.html)
+--- Konu Başlığı: Butonla Web adresini Açtırma (/konu-butonla-web-adresini-actirma.html)
Butonla Web adresini Açtırma - chopper07 - 25/11/2008
Bir Butonun veya Labelın Click Olayına Ekleyin
Kod:
Dim iRet As Long
Dim Cevap As Integer
Cevap = MsgBox("www.accesstr.net adresini açmak istiyor musunuz?", vbInformation + vbYesNo, www.accesstr.net )
Select Case Cevap
Case vbYes
iRet = Shell("start.exe https://accesstr.net", vbNormal )
Case vbNo
Exit Sub
End SelectCvp: Butonla Web adresini Açtırma - Puletin - 26/11/2008
Hocam Kodlar için teşekkürler devamını bekliyoruz ...
Sayenizde ufak bir kod arşivi oluşturuyoruz...
Cvp: Butonla Web adresini Açtırma - chopper07 - 26/11/2008
rica ederim. elimden geldikce eklemeye, paylaşmaya devam...