• چرا این کد کار نمیکنه؟
    #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 مهمان