من موندم برای رسم دایره مثل Paint ویندوز باید چی کار کنم ؟ !!
شعاع دایره رو چه جوری با توجه به حرکت موس تعیین کنم ؟ :46:
Printable View
من موندم برای رسم دایره مثل Paint ویندوز باید چی کار کنم ؟ !!
شعاع دایره رو چه جوری با توجه به حرکت موس تعیین کنم ؟ :46:
سلام
کد:Dim oldx As Integer
Dim oldy As Integer
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
oldx = Int(X)
oldy = Int(Y)
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
linx% = Int(oldx + X)
liny% = Int(oldy + Y)
rad = Sqr((X - oldx) ^ 2 + (Y - oldy) ^ 2) / (2)
Picture1.Circle (linx / 2, liny / 2), vbRed
End Sub
یه دنیا ممنون ولی ...
دوست عزیز خودت این رو امتحان کردی ؟!!
فکر کنم درست کار نمیکنه. از اول تستش میکنم.
دوست عزیز شما تو خط رسم دایره یادت رفته بود پارامتر شعاع رو هم بنویسی به خاطر همین دستور غلط میشد، الان درستش کردم و همون چیزی شد که میخواستم.
دستت خیلی خیلی خیلی خیلی خیلی خیلی خیلی خیلی خیلی خیلی خیلی خیلی درد نکنه :31:
براي رسم بيضي بايد چي كار كنيم ؟ :20:
سلامنقل قول:
بيضي اينجوري ميشه
کد:Dim oldx As Integer
Dim oldy As Integer
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
oldx = Int(X)
oldy = Int(Y)
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
linx% = Int(oldx + X)
liny% = Int(oldy + Y)
rad = Sqr((X - oldx) ^ 2 + (Y - oldy) ^ 2) / (2)
Picture1.Circle (linx / 2, liny / 2), rad, vbRed, , , 2
End Sub
الان اگه به جاي 2 عدد كوچك تر از يك وارد كنم مگه نبايد بيضي افقي رسم كنه پس چرا نميشه ؟!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1=دايرهنقل قول:
<>1 توليد بيضي:27::10:
آخه تو كتاب ما اين رو نوشته :
اگر اين آرگومان 1 باشد يك دايره رسم خواهد شد، اما اگر كوچك تر يا بزرگ تر از 1 باشد به ترتيب به صورت بيضي افقي يا عمودي تغيير خواهد كرد.
تازه عكسش هم گذاشته يه بيضي عمودي و افقي.