ایا امکان داره کنترل ذاتی FRAM رو در vb جوری نمایش داد که شفاف باشه .

[m-amini]

یعنی پشت زمینه فرمی که فریم روی اون گذاشته میشه نمایش داده بشه نه فریم . ممنون

[sohrab o]

فکر نکنم باید از یه OCX استفاده کنی که من قبلا از سایت زیر گرفتم
A1VBCODE.Com

[m-amini]

فکر نکنم باید از یه OCX استفاده کنی که من قبلا از سایت زیر گرفتم
A1VBCODE.Com

مرسی اما هر چی گشتم پیدا نکردم اگه دارین بزارین ممنون میشم .

[saina2006]

برای این کار نیازی به OCX نیست و میشه از API های ویندوز استفاده کرد.


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 crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&

Private Sub Form_Load()
Dim LEVEL As Byte
LEVEL = 50
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, 0, LEVEL, LWA_ALPHA)
End Sub

که LEVEL مقدار شفافیت را نشون می ده که اگه 0 باشه فرمی نمایش داده نمی شه

[m-amini]

با تشکر
دوست من منظور من فریم است نه فرم ؟

[حامد مصافی]

پروژه ضمیمه رو ببین