نمایش یک نقطه روی یک نقشه

[ehsanocx]

50055
دوستان من می خوام روی یک نقطه از نقشه کلیک کردم چنین شکلی روی نقشه نمایش دهده بشه و سپس روی نقطه دوم کلیک کردم ، روی نقطه دوم هم چنین شکلی روی اون نقطه هم نمایش بده یعنی دو جای نقشه رو علامت گذاری کنم اینطوری/ چطوری می تونم چنین کاری نم؟ دوستان میشه راهنمایی کنین؟ از mouse pointاز چه چیزی باید استفاده کنم؟ با لیبل تست کردم نمیشه چون به لیبل مختصات هم که میدی وسط لیبل روی نقطه انتخاب شده قرار نمی گیره و گوشه لیبل روی مختصات مورد نظر قرار می گیره

[ASedJavad]

شما از همون لیبل استفاده کن ولی بجای اینکه مثلا بنویسی
Label1.left=x بنویس
Label1.left=x + label1.width / 2
فقط باید قبلش خاصیت Autosaize لیبل رو ترو کنی

[ehsanocx]

اگر بخوام روی عکس کلیک کردم لیبل بچسبه اون نقطه و باز یه نقطه دیگر رو کلیک کردم بچسبه اونجا باید چیکار کنم؟ یعنی دوتا نقطه رو انتخاب کنم؟

[parselearn]

Dim c As Integer

Private Sub Form_Load()
c = 1
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Load Shape1(c)
Shape1(c).Left = X - (Shape1(c).Width / 2)
Shape1(c).Top = Y - (Shape1(c).Height / 2)
Shape1(c).Visible = True

Load Label1(c)
Label1(c).Left = Shape1(c).Left + Shape1(c).Width
Label1(c).Top = Shape1(c).Top
Label1(c).Caption = c
Label1(c).Visible = True

c = c + 1
End Sub