Thu nhỏ UserForm, mổ cửa sổ Excel khác làm việc (1 người xem)

[DMQ]

Các AC cho em hỏi có thể viết code khi thu nhỏ(Minimum) Form, rồi mở file Excel khác được không ah???? Khi cần lại Maximum form đó lên làm việc .
Mong các AC chỉ giáo!!!!

 

[DMQ]

Vấn đề này có lẽ là "Nhiệm Vụ Bất Khả Thi".
Đã 35 lần đọc mà chưa có ai trả lời.
Mong các AC nào có ý kiến gì chăng????
Cũng khó vì UserForm đang SHOW thì sao mở cửa sổ khác được, có phải không mọi người.

 

[doveandrose]

Vấn đề này có lẽ là "Nhiệm Vụ Bất Khả Thi".
Đã 35 lần đọc mà chưa có ai trả lời.
Mong các AC nào có ý kiến gì chăng????
Cũng khó vì UserForm đang SHOW thì sao mở cửa sổ khác được, có phải không mọi người.

ủa bạn có lập đề tài này rồi mà sao còn hỏi
http://www.giaiphapexcel.com/forum/showthread.php?109229-lhwnd-là-gì/page2

thêm nút Minimaze cho UserForm cũng dùng hàm SetWindowLong mà

 

[Nguyễn Duy Tuân]

Hiển thị nút Min, Max, Close trong Userform

Tôi gửi bạn code hiển thị nút Min, Max, Close trong userform, cho phép resize userform. Muốn vừa hiển thị userform vừa làm việc với bảng tính thì đặt ShowModal=False trong cửa sổ Properties.

Bạn copy tất cả code dưới đây vào Userform.

[GPECODE=vb]
'Set userform style
Option Explicit
Const GWL_STYLE = (-16)
Const GWL_EXSTYLE = (-20)
Const WS_MAXIMIZE = &H1000000
Const WS_MAXIMIZEBOX = &H10000
Const WS_MINIMIZE = &H20000000
Const WS_MINIMIZEBOX = &H20000
Const WS_THICKFRAME = &H40000
Const WS_SIZEBOX = WS_THICKFRAME
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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim hForm As Long, lPrevStyle As Long

Private Sub UserForm_Initialize()
'ShowModal = False
hForm = FindWindow("ThunderDFrame", Caption)
lPrevStyle = GetWindowLong(hForm, GWL_STYLE)
'Show button Min, Max, Close, Resize form
SetWindowLong hForm, GWL_STYLE, lPrevStyle Or _
(WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SIZEBOX)
End Sub

Private Sub UserForm_Terminate()
SetWindowLong hForm, GWL_STYLE, lPrevStyle
End Sub

[/GPECODE]

 

[sealand]

Bạn nên Google trước khi hỏi thì nhanh hơn, mình kiếm giùm bạn đây này.
Khi thu nhỏ thanh biểu tượng đáy màn hình và biểu tượng trên TastBar .Bạn xem form ví dụ trong file nha


Trang tham khảo
http://cellmasters.net/cd_063.htm

 

[DMQ]

Ah, lúc đầu em tưởng chỉnh ShowModal=False thì được như Bác Tuân nói, nhưng sao File của Bác Sealand ShowModal=True cũng được vậy. Để em từ từ học hỏi code mấy Bác. Cám ơn mọi người.

 

[Hoàng Trọng Nghĩa]

Ah, lúc đầu em tưởng chỉnh ShowModal=False thì được như Bác Tuân nói, nhưng sao File của Bác Sealand ShowModal=True cũng được vậy. Để em từ từ học hỏi code mấy Bác. Cám ơn mọi người.

Cái chỗ gọi Form.Show 0 đó bạn! Coi kỹ rồi nói nhé!

 

[DMQ]

Anh Nghĩa:
Tại cái số không (0) đó em chả hiểu nó là gi, nó là False đó hả Anh Nghĩa???


Mà Code của các Bác quá cao siêu(Toàn hàm API), em hiểu chết liền. Chắc cú cứ "bê vào", hiểu code các Bác chắc 10 năm miệt mài nghiên cứu.
Cám ơn Mọi Người.

 

[Hoàng Trọng Nghĩa]

Anh Nghĩa:
Tại cái số không (0) đó em chả hiểu nó là gi, nó là False đó hả Anh Nghĩa???


Mà Code của các Bác quá cao siêu(Toàn hàm API), em hiểu chết liền. Chắc cú cứ "bê vào", hiểu code các Bác chắc 10 năm miệt mài nghiên cứu.
Cám ơn Mọi Người.

Đúng thế, False có giá trị bằng 0, tuy nhiên trong VBA, True có giá trị là -1. Điều này khác với TRUE trong sheet là 1.