رسم دایره بروی فرم [بایگانی]

HarchiMarchi

سه شنبه 27 اردیبهشت 1390, 03:00 صبح

سلام . من قبلا یه سوال داشتم به این صورت که برنامه ای بنویسد که با کلیک موس روی فروم یه دایره اطراف جایی که موس رو کلیک کردید ایجاد بشه ! کسی بلده کدش رو بهم بگه چطوره ؟ ممنون

Slytherin

سه شنبه 27 اردیبهشت 1390, 04:43 صبح

سلام . من قبلا یه سوال داشتم به این صورت که برنامه ای بنویسد که با کلیک موس روی فروم یه دایره اطراف جایی که موس رو کلیک کردید ایجاد بشه ! کسی بلده کدش رو بهم بگه چطوره ؟ ممنون

درود،
بفرمایید.

HarchiMarchi

سه شنبه 27 اردیبهشت 1390, 12:53 عصر

خیلی خیلی ممنون . الان تستش میکنم ببینم چطوریه :قلب:

returnx

سه شنبه 27 اردیبهشت 1390, 14:14 عصر

با این تکه کد هم میتونید یک چیز تقریبا مثل زمانی که تو Windows دکمه ctrl رو فشار میدید یک دایره دورش میاد رو پیاده سازی کنید:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
For i = 100 To 800 Step 100
For j = 1 To 30
Me.Circle (X, Y), i + j
Next j
Sleep 100
Next i
Sleep 100
Me.Cls
End If
End Sub

HarchiMarchi

جمعه 30 اردیبهشت 1390, 01:12 صبح

ممنون . خوب من این دایره رو یاد گرفتم اما مثلا بخوام مستطیل یا مثلث یا شکلک های دیگه رو بزارم باید چه کدی بنویسم ؟

returnx

جمعه 30 اردیبهشت 1390, 10:25 صبح

خوب اونطوری شما می تونید از متد line استفاده کنید یا از کنترل Shape استفاده کنید....