- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Web adresleri nasıl açılır ( Bi Butonun veya Labelın Click Olayına Ekleyin )
Kod:
Dim iRet As Long Dim Cevap As Integer Cevap = MsgBox("www.webhocam.com adresini açmak istiyor musunuz?", vbInformation + vbYesNo, www.webhocam.com ) Select Case Cevap Case vbYes iRet = Shell("start.exe http://www.webhocam.com", vbNormal ) Case vbNo Exit Sub End Select
Kod:
Dim iRet As Long Dim Cevap As Integer Cevap = MsgBox("www.webhocam.com adresini açmak istiyor musunuz?", vbInformation + vbYesNo, www.webhocam.com ) Select Case Cevap Case vbYes iRet = Shell("start.exe http://www.webhocam.com", vbNormal ) Case vbNo Exit Sub End Select