|
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.
Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!
|
 Çevrimiçi Üyeler
feb123
Üye Sayısı:    
Ziyaretçiler nerede?
| |
|
"Lucky Seven"
Private Sub cmdExıt_Click()
End
End Sub
Private Sub cmdSpin_Click()
lbl1.Caption = Int(Rnd * 10) 'pick numbers
lbl2.Caption = Int(Rnd * 10)
lbl3.Caption = Int(Rnd * 10)
'7 numara görüntülendiğinde beep sesi duyulacaktır
If (lbl1.Caption = 7) And (lbl2.Caption = 7) And (lbl3.Caption = 7) Then
Beep
MsgBox (" bildiniz")
End If
End Sub
Private Sub Label3_Click()
End Sub
Private Sub lbl1_Click()
End Sub
  parsavcı | 28.05.2009 20:06
|
|
Tüm Kategoriler |
Web site tanıtımları ve kaynaklar |
Web site tanıtımları ve kaynaklar 1. Sayfa
|
|
