سوال در مورد هاید (غیب) کردن فرم [بایگانی]

View Full Version : سوال در مورد هاید (غیب) کردن فرم

mmshooreshi

سه شنبه 06 فروردین 1392, 18:31 عصر

چگونه می شود فرم را غیب کرد و فقط مثلاً عکس یک توپ ترنسپرنت را نشان داد؟

program2vb

سه شنبه 06 فروردین 1392, 19:42 عصر

چگونه می شود فرم را غیب کرد و فقط مثلاً عکس یک توپ ترنسپرنت را نشان داد؟

سلام خدمت شما دوست عزیز

با استفاده از کد زیر ............

یک فرم ایجاد کنید و رنگ پس زمینه فرم رو آبی کنین میتونین رنگ دیگه هم بدین بهش ........ رنگ آبی رو جرف میکنه ........... و بقیه رنگ ها میمونه

Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000 '&H70000 &H60000

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 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

Dim Retval As Long

Private Sub Command1_Click()
Retval = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Retval = Retval Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Retval
SetLayeredWindowAttributes Me.hWnd, RGB(0, 0, 255), 0, LWA_COLORKEY
End Sub

soheila2012

سه شنبه 06 فروردین 1392, 20:01 عصر

من که متوجه نشدم یعنی کاری از کد ندیدم!!
mmshooreshi (http://barnamenevis.org/member.php?261609-mmshooreshi) شما چیزی متوجه شدین؟؟

SlowCode

سه شنبه 06 فروردین 1392, 20:16 عصر

من که متوجه نشدم یعنی کاری از کد ندیدم!!
mmshooreshi (http://barnamenevis.org/member.php?261609-mmshooreshi) شما چیزی متوجه شدین؟؟
شما توی paint یه دایره بکشین با هر رنگی که خواستی بعد رنگ پس زمینش رو سفید بزار(یا هر رنگ دیگه) حالا این کد رو تو فرمت بنویس:
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000 '&H70000 &H60000

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 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

Dim Retval As Long

Private Sub Form_Load()
Retval = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Retval = Retval Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Retval
SetLayeredWindowAttributes Me.hWnd, RGB(255, 255, 255), 0, LWA_COLORKEY
End Sub

اون عکس رو هم به پس زمینه فرمت تنظیم کن.
نکته اینجاست که تو خط یکی مونده به آخر که از تابع rgb(255,255,255) استفاده شده. همون رنگ پس زمینه فرم هست که قراره حذف بشه. حالا دوستمون نوشتن rgb(0,0,255) یا همون آبی. خلاصه اختیاریه.

ho3ein.3ven

سه شنبه 06 فروردین 1392, 20:23 عصر

سلام .
اینم یک نمونه سورس :

101957

موفق باشید

program2vb

سه شنبه 06 فروردین 1392, 20:36 عصر

من که متوجه نشدم یعنی کاری از کد ندیدم!!
mmshooreshi (http://barnamenevis.org/member.php?261609-mmshooreshi) شما چیزی متوجه شدین؟؟

ببخشین شما برنامه نویسی با چه زبانی میکنید ؟ ....................

سوال داشتین در خدمتم ............... موفق و پیروز باشید در پناه خدا .... یاعلی

soheila2012

سه شنبه 06 فروردین 1392, 21:06 عصر

program2vb

سه شنبه 06 فروردین 1392, 21:19 عصر

[QUOTE=ho3ein.3ven;1730656]سلام .
اینم یک نمونه سورس :

عالییییییییی بود
مرسی

http://barnamenevis.org/image/gif,GIF89a%12%00%12%00%B3%00%00%FF%FF%FF%F7%F7%EF% CC%CC%CC%BD%BE%BD%99%99%99ZYZRUR%00%00%00%FE%01%02 %00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%0 0%00%00%00%00!%F9%04%04%14%00%FF%00%2C%00%00%00%00 %12%00%12%00%00%04X0%C8I%2B%1D8%EB%3D%E4%00%60(%8A %85%17%0AG*%8C%40%19%7C%00J%08%C4%B1%92%26z%C76%FE %02%07%C2%89v%F0%7Dz%C3b%C8u%14%82V5%23o%A7%13%19L %BCY-%25%7D%A6l%DF%D0%F5%C7%02%85%5B%D82%90%CBT%87%D8i7 %88Y%A8%DB%EFx%8B%DE%12%01%00%3B

ببخشین آدرستون اشتباه بود ............

و همچنین لطفا در تگ مربوط به خودش قرار یدین

اینم یه سورس از خودم ................

موفق و پیروز باشید در پناه خدا ............. یا علی

soheila2012

سه شنبه 06 فروردین 1392, 21:25 عصر

آدرس چی اشتباه بود؟
الان دقیقا با کدوم یکی بودین؟

program2vb

سه شنبه 06 فروردین 1392, 21:43 عصر

آدرس چی اشتباه بود؟
الان دقیقا با کدوم یکی بودین؟

بالا آدرس سورس دادین داخل تگ image گذاشتین آدرس هم اشتباه هست
400 Bad Request

خطا میده ............ لطفا آدرس رو صحیح وارد کنید ؟