چرا این کد کار نمیکنه؟

Visual Basic 6

توسط lov3r در 7 سال پیش
0 24.2k 1 7 سال پیش
lov3r peyman
0

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

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

کمک کنید لطفا

0

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

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

خوش آمدید

برای طرح سوال، ایجاد بحث و فعالیت در سایت نیاز است ابتدا وارد حساب کاربری خود شوید. در صورتی که هنوز عضو سایت نیستید میتوانید در عرض تنها چند ثانیه ثبت نام کنید.