آقا الکی الکی یه چیزی کشف کردم که واقعآ دلم نیومد نذارمش.
این کد رو امتحان کنید و نتیجه ش رو ببینید
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y_ As Single)
If Button = 1 Then Picture1.Line (X, Y)-(X + X, Y + Y)
End Sub
If Button = 1 Then Picture1.Line (X, Y)-(X + X, Y + Y)
End Sub
۲ نظر:
دانلود رایگان پروژه و سورس های برنامه نویسی به تمام زبان ها به صورت کاملا رایگان
با سلام به مدیر عزیز وبلاگ
امیدوارم موفق باشید
با تشکر از مطالب مفیدی که در وبلاگ خود گذاشته اید
اگر ممکن است وبلاگ من را هم لینک کنید
با تشکر
سلام داریوش عزیز
امیدوارم که موفق باشید
وبلاگ شما را با نام ویژوال بیسیک لینک کردم
اگر ممکن است وبلاگ من را با نام دانلود رایگان سورس های برنامه نویسی و پروژه های دانشجویی لینک کن
در ضمن آدرس وبلاگ من این است که ظاهرا اشتباه وارد کردی
آدرس صحیح وبلاگ من:
www.source69.blogfa.com
ارسال یک نظر