ایجاد ناحیه ی انتخابی

[فاطمه وطن دوست]

سلام

دیدین وقتی با کلیک و درگ روی یه بخشی از دسکتاپ تمام اشیائئ که زیر ناحیه ی انتخابی هست ، انتخاب میشن و بعدش با کلیک روی صفحه

دوباره از حالت اه انتخاب خارج میشن ؟ من این کدو برا این نوشتم تا با کلیک و درگ یه بخشی رو سلکت کنم ( به صورت خط چین )

اینم کد : فقط مشکلم تویه کلیک روی پیکچر باکس و خارج کردن اه کنترل های لاین هستش ، چی کار باید کرد با دابل کلیک مشکل حل

شدست ولی اگه مطابقه استانداردا باشه خیلی بهتره اگرم راه بهتری هست که من نمیدونم بهم

بگین لطفا

[/code][/align]

[فاطمه وطن دوست]

سلام

درست شد.

باید تو رویداد mouse down اینو نوشت .

mouse down


On Error Resume Next

Dim ctl As Control

For Each ctl In Controls

If TypeOf ctl Is VB.Line Then

i = i - 1

Controls.Remove "ComSavBmp" & i

End If

Next

If Button = 1 Or Button = 2 Then

DownX = x
DownY = y

End If

----------------------------------------------------------------------------------------------------------------