فاطمه وطن دوست
دوشنبه 17 تیر 1387, 23:18 عصر
سلام
این تصاویر رو نگاه کنید .
میخوام با هر بار اسکرول که left پیکچر باکس تغییر میکنه موقعیت بالا - چپ به عنوان محلی
برای درج یه خط جدید باشه .پیکچر باکس خاصیت scale اش قبلا تنظیم شده .
این کدو نوشتم :
Set ComSavBmp = Controls.Add("Project1.UserControl1", "ComSavBmp" & i, pb)
With ComSavBmp
.Top = pb.ScaleTop + pb.Top
.Left = pb.ScaleLeft + pb.Left
.Width = pb.Width
.Height = pb.Height
.Enabled = True
.visible = True
End With
Width = pb.Width
Height = pb.Height-------> توکل فرم قابل حرکت باشه
یه سوال دیگه با هر بار اسکرول واسه وسیع تر شدنه صفحه ترسیمات باید به پهنا و ارتفاع فرم هم به اندازه ی
اسکرول شدن اه پیکچر باکس اضافه بشه ؟تا یه حد میشه اضافه کرد ، در غیر این صورت پیغامه over flow میده .
تو نرم افزارهایی مثله اتو کد واسه وسیع کردنه صفحه چی کار میکنند . این اسکرول همراه با جابه جا شدن و بزرگ
شدنه پیکچر تا یه حدی درسته ولی بعد از چند بار اسکرول پیکچر باکس ارور میده .
جدن این برنامه ها رو چطوری مینویسن. :قلب:
این تصاویر رو نگاه کنید .
میخوام با هر بار اسکرول که left پیکچر باکس تغییر میکنه موقعیت بالا - چپ به عنوان محلی
برای درج یه خط جدید باشه .پیکچر باکس خاصیت scale اش قبلا تنظیم شده .
این کدو نوشتم :
Set ComSavBmp = Controls.Add("Project1.UserControl1", "ComSavBmp" & i, pb)
With ComSavBmp
.Top = pb.ScaleTop + pb.Top
.Left = pb.ScaleLeft + pb.Left
.Width = pb.Width
.Height = pb.Height
.Enabled = True
.visible = True
End With
Width = pb.Width
Height = pb.Height-------> توکل فرم قابل حرکت باشه
یه سوال دیگه با هر بار اسکرول واسه وسیع تر شدنه صفحه ترسیمات باید به پهنا و ارتفاع فرم هم به اندازه ی
اسکرول شدن اه پیکچر باکس اضافه بشه ؟تا یه حد میشه اضافه کرد ، در غیر این صورت پیغامه over flow میده .
تو نرم افزارهایی مثله اتو کد واسه وسیع کردنه صفحه چی کار میکنند . این اسکرول همراه با جابه جا شدن و بزرگ
شدنه پیکچر تا یه حدی درسته ولی بعد از چند بار اسکرول پیکچر باکس ارور میده .
جدن این برنامه ها رو چطوری مینویسن. :قلب: