برنامه شوخی و حرکت نکردن آن

[mahdyari77]

من این برنامه رو نوشتم تا هر کس پسورد رو نزنه برنامه بسته نشه و یک دکمه خروج براش گذاشتم که وقتی موس بره روش 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

[Hybrid]

سلام دوست عزیز این برنامه قایم موشک بازی چیه؟؟؟؟:D

کلا میخوای چکار کنی شاید راه حل بهتری رو بهت پیشنهاد دادیم..

موفق باشین

[mahdyari77]

نه فقط میخوام دلیل مشکلم رو بدونم وگرنه که اصلا برنامه بدردم نمیخوره

[Hybrid]

دوست عزیز میتونین سورس هم بزارین

[mahdyari77]

آپلود کردم فقط نمیدونم چرا اینقدر حجمش کم شد

[meisam3322]

دوست من لطفا کن اون خط کد :


Button1.Visible = False

رو از رویداد MouseEnter دکمه حذف کن. آخه وقتی کنترل Visible ش False میشه، دیگه MouseLeave ش کجا بود ؟

ببین همه چیز درست میشه !!!!!

موفق باشی

[mahdyari77]

داداش قصد من دقیقا یک همچین کدیه اگر اینو حذف کنم که دیگه دکمه قایم نمیشه که

[mahdyari77]

یعنی از این همه اساتید یک نفر نیست جواب مارو بده

[سوداگر]

خوب opacity اون رو صفر کن + False کردن Enable یا اینکه رنگ دکمه رو Transparent کن.