- 19 Ara 2008
- 224
- 0
Bir text ve buton.
Private Sub Command1_Click()
Dim key As Integer 'key değişkeni tanınıyor
key = Int(Rnd() * 3) 'x adet random case değeri
Select Case key 'select case'imiz başlıyor key integerıyla
Case 0 '0 dan başlar bu ve istenilenler yazilir - sıra mantığı
Text1.Text = "xxxx-xxx-xxxx"
Case 1
Text1.Text = "xxxx-yyyy-xxxx"
Case 2
Text1.Text = "xxxx-xxx-yyyy"
End Select 'select case kapanışı
End Sub