Skip to main content

AccessTr.neT


Butonla Web adresini Açtırma

chopper07
chopper07
2
3262

Butonla Web adresini Açtırma

#1
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 Select

™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
#2
Hocam Kodlar için teşekkürler devamını bekliyoruz ...
Sayenizde ufak bir kod arşivi oluşturuyoruz...
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
#3
rica ederim. elimden geldikce eklemeye, paylaşmaya devam...
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da