تور لحظه آخری
امروز : چهارشنبه ، 13 تیر 1403    احادیث و روایات:  امام صادق (ع):به جرّاح مدائنى فرمودند: آيا به تو بگويم كه مكارم اخلاق چيست؟ گذشت كردن از مردم، سهي...
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

اتاق فرار

خرید ووچر پرفکت مانی

تریدینگ ویو

کاشت ابرو

لمینت دندان

ونداد کولر

صرافی ارکی چنج

صرافی rkchange

دانلود سریال سووشون

دانلود فیلم

ناب مووی

رسانه حرف تو - مقایسه و اشتراک تجربه خرید

سرور اختصاصی ایران

تور دبی

دزدگیر منزل

تشریفات روناک

قیمت فنس

armanekasbokar

armanetejarat

صندوق تضمین

پیچ و مهره

طراحی کاتالوگ فوری

دانلود کتاب صوتی

تعمیرات مک بوک

Future Innovate Tech

آموزشگاه آرایشگری مردانه شفیع رسالت

پی جو مشاغل برتر شیراز

قیمت فرش

آموزش کیک پزی در تهران

لوله بازکنی تهران

میز جلو مبلی

هتل 5 ستاره شیراز

آراد برندینگ

رنگ استخری

سایبان ماشین

قالیشویی در تهران

مبل استیل

بهترین وکیل تهران

شرکت حسابداری

نظرسنجی انتخابات 1403

استعداد تحلیلی

کی شاپ

خرید دانه قهوه

دانلود رمان

وکیل کرج

آمپول بیوتین بپانتین

پرس برک

بهترین پکیج کنکور

خرید تیشرت مردانه

خرید نشادر

خرید یخچال خارجی

وکیل تبریز

اجاره سند

وام لوازم خانگی

نتایج انتخابات ریاست جمهوری

خرید سی پی ارزان

خرید ابزار دقیق

بهترین جراح بینی خانم

 






آمار وبسایت

 تعداد کل بازدیدها : 1804060538




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

کسی مشکل این برنامه رو میدونه -- حرفه ای ها -


واضح آرشیو وب فارسی:سایت ریسک: کسی مشکل این برنامه رو میدونه -- حرفه ای ها i_lover3000 08 اسفند 1386, 00:04با عرض سلام خدمت دوستان عزیز بازم به یه مشکل دیگه برخوردم برنامه دو تا رسم تو صفحه می کشه که رسم سمت چپ درسته اما رسم سمت راست ادامش میره پایین صفحه و قابل دیدن نیست the_king 08 اسفند 1386, 02:16کد برنامه را ویرایش کردم : Private Sub Command 1_Click() Unload Me End Sub Private Sub Form_Activate() Me.ScaleMode = vbPixels Me.AutoRedraw = True a = Me.ScaleWidth - 1 b = Me.ScaleHeight - 1 c = b / a d = a / b While i < a Line (i, 0)-(a, i * c), RGB(0, 255, 0) i = i + 13 Wend i = 0 While i < b Line (0, i)-(i * d, b), RGB(0, 255, 0) i = i + 13 * c Wend End Sub مورد اول : ترسیم های گرافیکی را با واحد Pixel انجام بدید و نه Twip که واحد پیشفرض ویژوال بیسیک است. از ScaleWidth و ScaleHeight برای این منظور استفاده می شود. مورد دوم : ترسیم گرافیکی در ویژوال بیسیک دو حالت متفاوت داره، با AutoRedraw فعال و غیر فعال. در حالت عادی AutoRedraw غیر فعال است و ترسیم شما فقط روی نمایشگر رسم می شود ولی در حافظه فرم ثبت نمیشه به همین دلیل اگر به هر علتی فرم ترسیم شده Refresh بشه، قسمت Refresh شده به حالت عادی برمی گرده و ترسیم ها فراموش می شوند. مثلا وقتی فرم دیگری روی فرم ما را بپوشاند، وقتی فرم بالایی کنار برود ترسیم های شما دیگر وجود ندارند. برعکس وقتی AutoRedraw فعال باشد، اول ترسیم ها در حافظه فرم ثبت می شوند و سپس روی صفحه نمایشگر نمایش داده می شود. به همین دلیل تا زمانی که خودمان فرمانی ندهیم پاک نمی شوند. مورد دوم بایستی در ترسیم شما بکار بروند، چون شما زمانی دارید در فرم ترسیم انجام می دهید که فرم بصورت کامل نمایش داده نشده، پس احتمال از دست رفتن ترسیم ها با AutoRedraw غیر فعال وجود دارد. مورد سوم : صفحه مانیتور مربع که نیست، نسبت طول به عرض صفحه را رعایت نکرده بودید. i_lover3000 10 اسفند 1386, 01:29با تشکر خیلی بهم کمک کردید موفق باشید ...




این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 394]

bt

اضافه شدن مطلب/حذف مطلب







-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن