پاسخ به سوالات

( میشه سورس فرم شیشه ای رو بزارین )

جواب : بله - می شه !!

کد ماژول :

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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 Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const WS_EX_LAYERED = &H80000

' ######### FUNCTION ##################

Public Function Trans(ByVal hwnd As Long, Perc As Integer) As Long

Dim Msg As Long
On Error Resume Next
If Perc < 0 Or Perc > 255 Then
  Trans = 1
Else
  Msg = GetWindowLong(hwnd, GWL_EXSTYLE)
  Msg = Msg Or WS_EX_LAYERED
  SetWindowLong hwnd, GWL_EXSTYLE, Msg
  SetLayeredWindowAttributes hwnd, 0, Perc, LWA_ALPHA
  Trans = 0
End If
If Err Then
  Trans = 2
End If

End Function

به طور پیش فرض من فرم شما رو با نام  Form1  درنظر گرفتم :

Private Sub Form_Activate()

 Trans Form1.hwnd, 100

End Sub

اگر باز هم مشکلی داشتین مشکل خود را مطرح نمایید
لطفا نظر یادتون نره