Printable View
با سلام :
خدمت دوستان من یک کد همچین چیزی رو میخوام که بتونم هر عکس دلخواهم رو به عنوان اسکین فرمم
اعمال کنم.
مثال : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
در واقع عکس بالا همون فرمم بشه .
اگه کسی به صورت کد یا هر طور دیگه ای بلد هست لطف کنه و راهنمایی کنه ممنون میشم از همیاری و کمک شما دوست عزیز.:10:
کد:http://www.bigresource.com/VB-Circular-Shaped-Form-psLPfutz.html
آقا دستت درد نکنه بازم به شما خیلی ممنون ولی مثل اینکه کدی که بشه عکس رو به عنوان اسکین به فرم شناخت نداشت.
ولی بازم از لطفت ممنون :10::11::40:
این کار در visual basic 6 نمیشه ولی اگه از visual basic.net استفاده کنی میتونی این کار رو انجام بدی
کار نشد نداره...! شاید یه کم کد هاش بیشتر بشه... ولی میشه این کار رو کرد...! :27:نقل قول:
بچه ضایع میکنی:13:
اگه میتونی بگو بسم الله
ما هم یاد میگیریم
ولی باز هم میگم داخل visual basic.net به راحتی میشه این کار رو انجام داد:21:
ممنون دوستان از راهنمایی تون دعوا نکنید.
خودم با یکم سعی و تلاش درستش کردم . ولی نخواید کدش رو بگم چون فعلا قصد ندارم . چراش ؟ خصوصی هست .
هر کی خواست بگم pm بده ؟
خیلی نامردی
تا ما دعوا میکردیم تو کار خودت رو انجام دادی
ولی به هر حال من هم یه جایی یه چیزی در این رابطه خوندم
ولی فراموش نکن اینجا جاییه که همه اطلاعاتشون رو برای استفاده هم دیگه به اشتراک میذارن
و پیامبر اکرم فرمودند:
برای هر چیز زکاتی است و زکات علم آموختن آن است
موفق باشی:31:
سلام
ساده ترین راه در VB6:
الف)
یک تصویر gif نیمه Transparent از شکل مورد نظرتان تهیه کنید.
و روی PictureBox یا ّForm قرار دهید.
سپس BackColor را به رنگی مشخصی ست کنید که در ان تصویر وجود ندارد.
(مثلاً آواتار من gif است و جاهایی از ان کامل Transparent است و رنگ مشخص و تابلو و اصلی ای مثل سفید یا سبز یا قرمز را ندارد.
ب)
یک تصویر عادی تهیه کنید که دورش یا جاهایی که میخواهید حذف شود یک رنگ مشخص و خالص داشته باشد.
(سفید و سیاه و آبی و سبز و قرمز خالص)
و ان را در PictureBox یا فرم قرار دهید.
سپس با دستور زیر میتوانید به ویندوز اعلام کنید که کلیه فلان رنگ ها را شفاف کند:
کد مناسب VB7,8,9,10:کد:Private Const LWA_COLORKEY = &H1
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Sub OnAction()
Dim i32 As Long
i32 = GetWindowLongA(Me.hWnd, GWL_EXSTYLE)
Call SetWindowLongA(Me.hWnd, GWL_EXSTYLE, i32 Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hWnd, RGB(255, 0, 0), 0, LWA_COLORKEY)
End Sub
دقیقاً عمل فوق الذکر را میتوان در نسخه های بالاتر هم انجام داد ولی برای ست کردن رنگ نماینده شفاف سازی نیازی به فراخوانی API و کدنویسی نیست.
کافیست خصیصه TransparencyKey فرم اصلی را به رنگ مورد نظر ست کنید.
البته بجز مورد بیان شده راه های دیگری هم وجود دارد...
تاپیک های مرتبط:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
موفق باشید.
دستت درد نکنه
علی یارت:40: