قرار دادن نقاط چشمك زن روي فرم

[fidnah]

سلام دوستان
من ميخوام روي فرمم يك نقطه قرار بدم كه حالت چشمك زن باشه .مختصات اون مكانو خودم توي برنامه مشخص كنم
ميشه چنين كاريو توي vbانجام داد؟
ممنون

[مهران رسا]

سلام .

شاید منظورتون این باشه ...

[fidnah]

ممنون خيلي به دردم خورد
حالا اگه بخوام هر جا كليك كنم اين نقطه چشمك رن ايجاد بشه بايد چيكار كنم؟
ممنون

[اوبالیت به بو]

حالا اگه بخوام هر جا كليك كنم اين نقطه چشمك رن ايجاد بشه بايد چيكار كنم؟


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.PSet (X, Y)
End If
End Sub

[alifatehi]

ایا می توان جای چشمک زن عوض کرد
و رنگ آنرا

[مهران رسا]

ایا می توان جای چشمک زن عوض کرد
و رنگ آنرا

رنگش مربوط میشه به خاصیت ForeColor فرم .

Me.ForeColor=VbRed

[fidnah]

قطعه كدي كه دادين فقط محل كليك كردن نقطه جاپ مي كنه چشمك زن نيست

[parselearn]

خب دوست عزيز هنگام كليك كردن مختصات نقطه رو دربيار سپس اينو بزار داخل يك تايمر تا چشمك بزنه



Dim i As Integer
Dim xs As Integer
Dim ys As Integer

Private Sub Form_Load()
Me.DrawWidth = 10
Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()
i = i + 1
Me.PSet (xs, ys)
If i > 1 Then: Cls: i = 0
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
Cls
xs = X
ys = Y

If Button = 1 Then
Me.PSet (X, Y)
End If
End Sub

[aminramezan]

سلام
آقا کسي ميتونه پيکسل ها(نقطه ها) را روي picture box به صورت ستون هاي شانزده تايي به صورت دايره تقسيم بندي کند.و بعد از هر کلیک در یک آرایه مقدار 0 اگر خاموش بود و 1 اگر روشن بود را بدهد
خيلي به اين برنامه نيازدارم اگه کسي مي تونه حتما بزاره خيلي ممنون.