samanvb
جمعه 19 مرداد 1386, 17:09 عصر
ترسیم دایره با کلیک کردن موس روی فرم
در کد زیر اگه روی فرم کلیک کردیم در همان جا که کلیک کردیم یک دایره ایجاد بشه
برای این کار کد زیر را به فرم اضافه کنید
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
( circle(x,y),(300
می توانید به جای circle اجسام دیگری قرار دهید
در کد زیر اگه روی فرم کلیک کردیم در همان جا که کلیک کردیم یک دایره ایجاد بشه
برای این کار کد زیر را به فرم اضافه کنید
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
( circle(x,y),(300
می توانید به جای circle اجسام دیگری قرار دهید