چرا این کد کار نمیکنه؟
#1
Note 
سلام من میخوام یه برنامه درست کنم که وقتی داریم ماوس رو روی فرم حرکت میدیم تو همون جایی که ماوس قرار داره یه دایره رسم کنه و تو هر مرحله دایره بزرگتر بشه این کدیه که من نوشتم ولی به دلیل نام معلومی کار نمیکنه

Private Sub Form_Load()
Dim i As Integer
i = 100
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = i + 1
Circle (X, Y), i, QBColor(5)
End Sub

کمک کنید لطفا

پاسخ
#2
Note 
اون متغیری که توی from_load تعریف کردی اصلا ربطی به Form_MouseMove نداره باید متغیر رو سراسری تعریف کنی یعنی تو قسمت بالای همه کدها

[VB]Dim i As Integer
Private Sub Form_Load()
i = 100
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = i + 1
Caption = i
Circle (X, Y), i, QBColor(5)
End Sub
[/VB]

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

کاربرانِ درحال بازدید از این موضوع:   1 مهمان