Nhấn nút làm form trong suốt

[othanhquango]

Chào các bạn, mình có 1 vấn đề sau muốn nhờ các bạn giúp mình.

Mình có 1 form như đính kèm. Mình muốn khi nhấn chuột vào nút trên form và giữ, thì form và tất cả các đối tượng trong form trong suốt ở một mức độ nào đó để có thể xem được dữ liệu bên dưới, khi mình thả chuột thì trở về như cũ

 

[haiduongxd06]

Bạn có thể tham khảo cách làm trong link sau : http://www.giaiphapexcel.com/forum/showthread.php?22671-L%E1%BB%97i-kh%C3%B4ng-l%C3%A0m-form-trong-su%E1%BB%91t-%C4%91%C6%B0%E1%BB%A3c!!

 

[ndu96081631]

Chào các bạn, mình có 1 vấn đề sau muốn nhờ các bạn giúp mình.

Mình có 1 form như đính kèm. Mình muốn khi nhấn chuột vào nút trên form và giữ, thì form và tất cả các đối tượng trong form trong suốt ở một mức độ nào đó để có thể xem được dữ liệu bên dưới, khi mình thả chuột thì trở về như cũ

Chép code này vào UserForm

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 hWnd As Long

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  SetLayeredWindowAttributes hWnd, 0, 150, 2
End Sub

Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  SetLayeredWindowAttributes hWnd, 0, 255, 2
End Sub

Private Sub UserForm_Initialize()
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hWnd, -20, &H80000
  SetLayeredWindowAttributes hWnd, 0, 255, 2
End Sub