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

Visual Basic 6

توسط lov3r در 5 سال پیش
0 575 1 5 سال پیش
lov3rpeyman
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

خوش آمدید

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

لطفا ابتدا لاگین کنید