close
تبلیغات در اینترنت
کد شفاف کردن فرم در ویژوال بیسیک
loading...

آموزش برنامه نویسی

خیلی اوقات براتون پیش میاد که دوست دارید تو ویژوال بیسیک6 فرمتون رو شفاف(شیشه‌ای) کنید چون باعث زیباتر شدن اون میشه حالا میخواییم نحوه شفاف کردن فرم رو تو ویژوال بیسیک6 بهتون بگم البته تو ویژوال بیسیک 2010 این قابلیت اضافه شده خیلی امکانات زیادی داره که قابل مقایسه با ویژوال بیسیک…

Admin بازدید : 2694 چهارشنبه 26 مرداد 1390 نظرات ()
Form Opacity-برنامه نویسی

خیلی اوقات براتون پیش میاد که دوست دارید تو ویژوال بیسیک6 فرمتون رو شفاف(شیشه‌ای) کنید چون باعث زیباتر شدن اون میشه حالا میخواییم نحوه شفاف کردن فرم رو تو ویژوال بیسیک6 بهتون بگم البته تو ویژوال بیسیک 2010 این قابلیت اضافه شده خیلی امکانات زیادی داره که قابل مقایسه با ویژوال بیسیک 6 نیست.



خب برای شروع به پروژتون یه فرم و به اسکرول بار افقی ایجاد کنید و خاصیت Max اون رو 255 بذارید و Min رو 10.

حالا این کد ها رو تو قسمت جنرال(General)فرمتون کپی کنید:

 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Dim setopacity As Byte

حالا تو رویداد Scroll() اسکرول بارتون این کد رو کپی کنید:

setopacity = HScroll1.Value
Dim Retval As Long
    Retval = GetWindowLong(hWnd, -20)
    Retval = Retval Or 524288
    SetWindowLong hWnd, -20, Retval
    SetLayeredWindowAttributes hWnd, 0, setopacity, 2


نکات:
1.دقت کنید که تو این کد از نام پیشفرض اسکرولبار افقی استفاده شده یعنی HScroll1
2.حداکثر مقدار شفافیت فرم 255 پس  حداکثر مقدار متغییر Setopacity  هم میتونه 255 باشه، به همین خاطر این متغییر رو از نوع Byte تعریف کردیم و گفتیم مقدار خاصیت Max اسکرولبار رو 255 بذارید.

منبع Programming.rozblog.com


مطالب مرتبط
ارسال نظر برای این مطلب

نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B /:) :S
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتیرفرش کد امنیتی
تبلیغات
Rozblog.com رز بلاگ - متفاوت ترين سرويس سایت ساز
اطلاعات کاربری
نام کاربری :
رمز عبور :
  • فراموشی رمز عبور؟
  • نویسندگان
    نظرسنجی
    قالب سایت؟




    بیشتر چه نوع مطالبی رو میپسندید؟





    آمار سایت
  • کل مطالب : 588
  • کل نظرات : 391
  • افراد آنلاین : 2
  • تعداد اعضا : 3326
  • آی پی امروز : 53
  • آی پی دیروز : 55
  • بازدید امروز : 277
  • باردید دیروز : 142
  • گوگل امروز : 0
  • گوگل دیروز : 2
  • بازدید هفته : 1,457
  • بازدید ماه : 5,036
  • بازدید سال : 16,029
  • بازدید کلی : 2,016,275