Nhờ kiểm tra giúp! Nguyên nhân nào mà không xuất hiện được MaxMin trên form?

[tanlahill]

Tôi có tải file tạo nút MaxMin trên form về máy sử dụng bình thường nhưng lấy code đó gán cho một form khác thì nút MaxMin lạ không xuất hiện! Nhờ các thành viên GPE sớm tìm nguyên nhân và sửa lại giúp tôi (Khi file mở thì vẫn giữ nguyên kích cở của form đã thiết kế, khi nhấn Min thì ẩn xuống dưới và Max thì bung ra như ban đầu). Chân thành cám ơn.

 

[ndu96081631]

Tôi có tải file tạo nút MaxMin trên form về máy sử dụng bình thường nhưng lấy code đó gán cho một form khác thì nút MaxMin lạ không xuất hiện! Nhờ các thành viên GPE sớm tìm nguyên nhân và sửa lại giúp tôi (Khi file mở thì vẫn giữ nguyên kích cở của form đã thiết kế, khi nhấn Min thì ẩn xuống dưới và Max thì bung ra như ban đầu). Chân thành cám ơn.

Bạn tham khảo code tạo nút Max Min này:

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 Sub UserForm_Initialize()
    Dim hWnd As Long
    hWnd = FindWindow("ThunderDFrame", Me.Caption)
    SetWindowLong hWnd, -16, &H84CF0080
End Sub

Ráp vô file của bạn thành công liền
(còn code trong file của bạn nó dài lằng nhằng... làm biếng xem quá)