Zoom کردن خطوط ( ترسیمی و یوزر کنترل )

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

سلام

شما یه بار خودتون x یوزر کنترل و خطوط ترسیم شده ( منظورم ناحیه ی

انتخابی-قرمز )رو ببینید ، یه بار نسبت به مبداء مختصات چکش کنید ببینید همه چیز x های یوزر کنترل درسته ؟ http://forum.iranled.com/images/smilies2/my.gif

==================================================
درواقع میخوام :




یه ناحیه رو انتخاب کنم
بعدش زوم رو زدم هر چی تو اون ناحیه هست ، ابعادش دو برابر بشه


=================================================
در واقع یوزر کنترل رو هنوز حرکت ندادیم ، و اصلا تو یه ناحیه انتخابی نیست ،
پس چرا zoom میشه ؟

معذرت میخوام تاپیک قبلی ، اشتباها پاک شد .

[AmirAmiri]

سلام خانوم وطن دوست خسته نباشید. اگه ممکنه یه توضیح کوچیکی درباره برنامه بدید تا اول با خوده برنامه و کارش آشنا بشیم و بعد اگر کاری از دستمون بر میومد دریغ نمیکنیم. چون الان که من برنامه رو دانلود کردم و اجرا کردم اصلا نمیدونم که برنامه باید چه کاری انجام بده و مشکلش چیه و کجاست در ضمن برنامه خطا داشت (یوزر کنترل رو به فرم اضافه کردم درست شد).
منتظریم...

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

سلام

من معمولا برای اینکه بتونم تسلط بیشتری روی برنامه داشته باشم ، هر بخش رو تو یه پروژه جدید مینویسم . از دوستان معذرت میخوام . :لبخندساده:

---------------------------------------------------------------------------------------------------
مشکل :
اینکه من تو زمان طراحی یوزر کنترل رو به فرمم اضافه کردم. که مطمئنن x, y هاش بر اساس Scale ، پیکچر باکس نبوده .


---------------------------------------------------------------------------------------------------
http://forum.iranled.com/images/smilies2/clap.gif رفع اه مشکل : http://forum.iranled.com/images/smilies2/clap.gif



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



تعیین Scale ، برا ی پیکچر باکس.




Private Sub Form_Load()

Pb.Scale (-100, 100)-(100, -100)

End Sub




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


ایجاد یوزر کنترل :








Private Sub Create_line_click()

Set ComSavBmp = Controls.Add("vb.line", "ComSavBmp" & i, Pb)

With ComSavBmp
.visible = True
.X1 = -90
.Y1 = 90
.X2 = 30
.Y2 = 30
.BorderStyle = 3
.bordercolor = vbRed
i = i + 1
End With
End Sub