Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
25/11/2008 19:12
Konu Sahibi
chopper07
Yorumlar
2
Okunma
2228
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

chopper07

Uzman
Uzman
ER....
 42
 1.805
 228
 29/01/2008
376
 Aydın
 Otel Müdürü
 Ofis 2016 64 Bit
 19/02/2018,16:03
Bir Butonun veya Labelın Click Olayına Ekleyin


Kod:
1
2
3
4
5
6
7
8
9
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://www.accesstr.net", vbNormal ) 
Case vbNo 
Exit Sub 
End Select 


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


Kullanici Avatari

Puletin

Onursal Üye
Onursal Üye
 Belirtilmemiş
 1.716
 40
 01/11/2008
416
 -
 
 Ofis 2003
 24/12/2016,00:18
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...

Kullanici Avatari

chopper07

Uzman
Uzman
ER....
 42
 1.805
 228
 29/01/2008
376
 Aydın
 Otel Müdürü
 Ofis 2016 64 Bit
 19/02/2018,16:03
rica ederim. elimden geldikce eklemeye, paylaşmaya devam...


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



Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.