محبوبترینها
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
سیگنال در ترید چیست؟ بررسی انواع سیگنال در ترید
بهترین هدیه تولد برای متولدین زمستان: هدیه‌های کاربردی برای روزهای سرد
در خرید پارچه برزنتی به چه نکاتی باید توجه کنیم؟
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1827353123
مشکل Mousemove فرم های وی بی 6
واضح آرشیو وب فارسی:سایت ریسک: tarfand 4u16-08-2008, 01:56 PMدوستان همونطوریکه می دونید خصوصیت BorderStyle فرم های وی بی 6 مربوط به نماش نوع فرم هست... حالا اگر مقدار این خصوصیت برابر 0 قرار بگیره یعنی (None) بشه دیگه نمیشه فرم رو حرکت داد. حالا راهی هست که فرم رو بتونیم در محیط ویندوز حرکت بدیم یا نه در ضمن خواهشا اکتیو ایکس SkinControl رو معرفی نکنید دوستان مشکل دارم بسیار شدید کمک کنید بهرام_6216-08-2008, 10:31 PMروش اول و ساده تر که یکم بی کلاسیه منظورم از بی کلاسی اینه که طرف فرم رو که میگیره وقتی درگ می کنه فرم حرکت نمی کنه و وقتی دکمه ماوس رو ول می کنه فرم جابه جا میشه کد: !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! اینم روش دوم که مثلا با کلاسه ولی یکم سریع بخوای فرم رو تکون بدی قاتی می کنه:27: !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! همون روش اولی عالی ترینه:31: tarfand 4u17-08-2008, 08:53 AMسلام دوست عزیز آقا بهرام اول ازتون بسیار متشکرم که مشکل من رو حل کردین دوم من تونستم این مشکل رو حل کنم با استفاده از کد برنامه نویسی روش اول: به این ترتیب که شما می تونید تکه کدی رو که در قسمت MouseUp قرار دادین رو در قسمت MouseMove قرار بدین مشکل حل میشه این طوری: Dim xx As Integer Dim yy As Integer Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub xx = X yy = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub Me.Left = Me.Left + X - xx Me.Top = Me.Top + Y - yy End Sub خیلی ممنونم اگر شما نبودین مشکل من حل نمی شد خیلی زحمت کشیدین سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 282]
-
گوناگون
پربازدیدترینها