سوال : محو کردن فرم

[tthenry14plus]

سلام دوستان

می خواستم بدونم چطوری می تونم بدون توابع API در فرم Opacity ایجاد کنم
کاری که در #C به راحتی انجام می شه

اگر نمی شه لطفا تابع API اون رو بنویسید

[saeid_sazegar]

اگه منظورتون اینه که فرم محو بشه ولی کنترلهای روی آن وجود داشته باشند من کدشو دارم
اگه بخواهید میتونم در اختیارتون قرار بدم

[MMR_1344]

دوست عزیز اگر لطف کنی کد اون رو بذاری ممنون میشم

[tthenry14plus]

سلام

بله منظورم محو شدن فرمه
به همراه تمام کنترل های روی آن

اگه لطف کنید مممنون می شم

[TheMatrix]

اگه منظورتون اینه که فرم محو بشه ولی کنترلهای روی آن وجود داشته باشند من کدشو دارم
اگه بخواهید میتونم در اختیارتون قرار بدم

بذار دیگه کدو (کدو نه کد را).

[j.farazani]

بابا کشتیمون کد رو بزار دیگه

[samanvb]

ابتدا
یک ماژول بساز وبعد اینها را پیست کن
Option Explicit
'##ModelId=43DEADE70186
Private Const GWL_EXSTYLE = -20
'##ModelId=43DEADE70196
Private Const LWA_COLORKEY = 1
'##ModelId=43DEADE70198
Private Const LWA_ALPHA = 2
'##ModelId=43DEADE701A6
Private Const WS_EX_LAYERED = &H80000
'##ModelId=43DEADE701B6
Const WS_EX_NOINHERITLAYOUT = &H100000
'##ModelId=43DEADE701C5
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

'##ModelId=43DEADE701E5
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

'##ModelId=43DEADE701F6
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal cKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long

'##ModelId=43DEADE70232
Public Sub ColorKey(hWnd As Long, lColor As Long)
Dim OldLong As Long
OldLong = GetWindowLong(hWnd, GWL_EXSTYLE)
Call SetWindowLong(hWnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYERED Or WS_EX_NOINHERITLAYOUT)
Call SetLayeredWindowAttributes(hWnd, lColor, 0, LWA_COLORKEY)
End Sub

بعد در کد فرم:
Private Sub Form_Load()
BackColor = &HFF00FF
ColorKey hWnd, &HFF00FF
End Sub

[مهدی قربانی]

سلام
دوست عزیز ببینید نمونه موجود در پست 789 لینک زیر بدرد میخوره ؟

http://barnamenevis.org/forum/showthread.php?t=46430&page=79

[saeid_sazegar]

دوست عزیز من که گفتم کدی دارم که فقط فرمو محو میکنه نه کنترلهای روی اونو

[saeid_sazegar]

دوست عزیز و کم طاقت کد من در واقع یه برنامه کامله با ویژوال بیسیک اگه دوست دارید من اونو واسه شما به آدرس میلتون بفرستم

[Rahim Niknab]

اگه منظورت توی VB.net هست که کد خاصی نمیخواد فقط خط زیر رو توی لود فرمت بنویس
Me.Opacity=X%

بجای X ععدی که میخوای فرمو کنترل هات اونقدر محو بشن رو بذار