mahdyari77
سه شنبه 29 آذر 1390, 19:08 عصر
من این برنامه رو نوشتم تا هر کس پسورد رو نزنه برنامه بسته نشه و یک دکمه خروج براش گذاشتم که وقتی موس بره روش progressbar ما دیگه جلو نره و دکمه قایم شه (visible = false )و یک lable که نوشته enter your pass قرمز بشه و وقتی پوینتر بیاد بیرون باز progressbar بکار بیفته و هنگامی که progressbar به آخر رسید اگر پسورد درست بود دکمه ما دیگه قایم نشه اگر نبود از اول
اما وقتی پوینتر میره رویه دکمه، هم دکمه قایم میشه و هاید میشه هم کلا برنامه از کار میوفته(هنگ نمیکنه )اما اون قرمزه نمیاد کلا و هیچ عملی انجام نمیشه تا پوینتر بیاد از روی دکمه اونور
اینم کد من
البته روی ویندوز xp درسته
Public Class Form1
Dim ok As Integer
Dim okk As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ok = 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
If okk = 0 Then
Button1.Visible = False
lable1.ForeColor = Color.Red
ok = "0"
Else
End If
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.Visible = True
lable1.ForeColor = Color.White
ok = "1"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ok = "1" Then
If ProgressBar1.Value < 50 Then
ProgressBar1.Value = ProgressBar1.Value + 1
Else
If TextBox1.Text = "mdr" Then
okk = 1
End If
ProgressBar1.Value = 0
End If
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
End Sub
Private Sub lable1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lable1.Click
End Sub
End Class
اما وقتی پوینتر میره رویه دکمه، هم دکمه قایم میشه و هاید میشه هم کلا برنامه از کار میوفته(هنگ نمیکنه )اما اون قرمزه نمیاد کلا و هیچ عملی انجام نمیشه تا پوینتر بیاد از روی دکمه اونور
اینم کد من
البته روی ویندوز xp درسته
Public Class Form1
Dim ok As Integer
Dim okk As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ok = 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
If okk = 0 Then
Button1.Visible = False
lable1.ForeColor = Color.Red
ok = "0"
Else
End If
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.Visible = True
lable1.ForeColor = Color.White
ok = "1"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ok = "1" Then
If ProgressBar1.Value < 50 Then
ProgressBar1.Value = ProgressBar1.Value + 1
Else
If TextBox1.Text = "mdr" Then
okk = 1
End If
ProgressBar1.Value = 0
End If
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
End Sub
Private Sub lable1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lable1.Click
End Sub
End Class