مشکل در رزولیشن فرم

[lesolai]

یک برنامه نوشتم که رزولیشن رو توسط کد زیر تغییر دادم:


Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
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

Private Sub Form_Load()
Dim Ret As Long
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, 0, 190, LWA_ALPHA
End Sub

یک frame روی فرم برنامم گذاشتم که می خوام رزولیشنش بالاتر از رزولیشن فرمم باشه.
با کد بالا همه ی برناممون یک رزولیشن مشخص میگیره ، من باید چطور رزولیشن frame رو بالاتر ببرم؟

[محسن واژدی]

سلام علیکم
تا آنجایی که بنده اطلاع دارم راهی نیست، قبلا" نیز یکی از دوستان همین سوال را در رابطه با دکمه های روی فرم داشتند و یه بحث هایی هم صورت گرفت ولی تا جایی که در ذهن دارم به نتیجه مقبولی نرسید

چون اشیاء بر روی فرم قرار دارند و فرم اصطلاحا" container این اشیاست، هرتغییر بر روی شفافیت فرم موجب تاثیر همه اشیاء میشود

موفق باشید