vad är problemet?
Tillägg av p5 2011-08-17 20:32
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
BackColor = Color.LightGreen
TextBox1.Enabled = True
Dim Key As Integer
Key = (Rnd() * 5)
Timer1.Stop()
End If
If RadioButton1.Checked = True Then
Select Case Key
Case 1
TextBox1.Text = "1330-1270-2109-5153-8837-9231"
Case 2
TextBox1.Text = "1330-1953-8438-8500-7117-3533"
Case 3
TextBox1.Text = "1330-1158-3088-0438-6574-0867"
Case 4
TextBox1.Text = "1330-1361-6670-4304-7886-6688"
Case 5
TextBox1.Text = "1330-1985-9548-0538-9132-8266"
End Select
End If
If RadioButton2.Checked = True Then
Select Case Key()
Case 1
TextBox1.Text = "1325-1118-5864-4422-1094-1166"
Case 2
TextBox1.Text = "1192-1378-9489-2478-4506-6866"
Case 3
TextBox1.Text = "1192-1688-1273-5698-6952-5360"
Case 4
TextBox1.Text = "1192-1018-4023-3250-4269-8918"
Case 5
TextBox1.Text = "1192-1015-3447-7982-8441-4483"
End Select
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Function Key() As Object
Throw New NotImplementedException
End Function
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
BackColor = Color.LightGreen
TextBox1.Enabled = True
Dim Key As Integer
Key = (Rnd() * 5)
Timer1.Stop()
End If
If RadioButton1.Checked = True Then
Select Case Key
Case 1
TextBox1.Text = "1330-1270-2109-5153-8837-9231"
Case 2
TextBox1.Text = "1330-1953-8438-8500-7117-3533"
Case 3
TextBox1.Text = "1330-1158-3088-0438-6574-0867"
Case 4
TextBox1.Text = "1330-1361-6670-4304-7886-6688"
Case 5
TextBox1.Text = "1330-1985-9548-0538-9132-8266"
End Select
End If
If RadioButton2.Checked = True Then
Select Case Key()
Case 1
TextBox1.Text = "1325-1118-5864-4422-1094-1166"
Case 2
TextBox1.Text = "1192-1378-9489-2478-4506-6866"
Case 3
TextBox1.Text = "1192-1688-1273-5698-6952-5360"
Case 4
TextBox1.Text = "1192-1018-4023-3250-4269-8918"
Case 5
TextBox1.Text = "1192-1015-3447-7982-8441-4483"
End Select
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Function Key() As Object
Throw New NotImplementedException
End Function
End Class
Störd bajare.
