Vấn đề Zoom control khi Maximized, Minimized, Normal trong form (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Hoàng Trọng Nghĩa

Hoàng Trọng Nghĩa

Chuyên gia GPE
Thành viên BQT
Moderator
Tham gia
17/8/08
Bài viết
8,662
Được thích
16,720
Giới tính
Nam
Xin vui lòng cho hỏi, khi Max hay Normal cửa sổ của Form, có code nào zoom các control trong form theo tỷ lệ có được không?
Tôi đã tìm mãi trên Google mà chưa thấy.
Xin cám ơn mọi sự hướng dẫn và giúp đỡ.
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
ndu96081631 đã viết:
Bởi vậy mới nói là nó còn tùy thuộc vào màn hình người dùng đang chạy nữa ---> Màn hình sư phụ không bị nhưng màn hình em đang dùng thì lại có vấn đề (màn hình em đang dùng thuộc dạng màn hình rộng, độ phân giải hiện hành = 1280 x 800)
Nhấp chuột vào đây để mở rộng...
Em cũng thấy nó như vậy. Qua sử dụng em thấy điều chỉnh độ phân giải màn hình cũng có nhược điểm, do không tương thích, và có những máy độ phân giải giống như của Thầy 1280*800 khi chỉnh về 800*600 thì nó không bun ra hết màn hình mà nó co nhỏ 1 chút xíu.....
 
Upvote 0
Nói về set màn hình Wide thì có 1 Option là Maintain Aspect Ratio or not.
 
Upvote 0
Cám ơn các Thầy đã tận tâm hướng dẫn. Em thấy ví dụ Zoom trong Excel Help cũng thật thú vị. Không biết có ứng dụng gì được không.
 

File đính kèm

Upvote 0
Chứ còn viết code kiểu thay đổi kích thước các control, em cho là không mấy hiệu quả ---> Chỉ mới có nhiêu đó control mà code của sư phụ đã dài thòng lòng rồi ---> Em đang nghĩ với 1 form có chừng 5 page + vài chục control thì... Ẹc... Ẹc... vã mồ hôi
Nhấp chuột vào đây để mở rộng...
Tôi đang nghĩ đến 1 dạng rút gọn code bằng vòng lặp duyệt qua từng control, nhưng còn đang bí chỗ này: Làm cách nào để biết Form đang ở trạng thái maximize?
Nếu gán được 1 biến FormState dạng boolean đại khái là form maximized thì true, ngược lại thì False, ta có thể làm như sau:

PHP: 
Sub CtrlResize2()
With Fm1
    Msize = .Width
    Mrate2 = Msize / 600
    FormState = "bí chỗ này"
For Each Ctl In .Controls
    With Ctl
        On Error Resume Next
        .Top = .Top * IIf( FormState = True, 1 / Mrate2, Mrate2)
        .Left = .Left * IIf(FormState = True, 1 / Mrate2, Mrate2)
        .Height = .Height * IIf(FormState = True, 1 / Mrate2, Mrate2)
        .Width = .Width * IIf(FormState = True, 1 / Mrate2, Mrate2)
        .Font.Size = .Font.Size * IIf(FormState = True, 1 / Mrate2, Mrate2)
    End With
Next
End With
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Minh Thien bổ xung 1 chút sẽ hay hơn:

Trên đầu vùng viết Code bạn thêm dòng:

Public H_save, W_save

Bổ xung code UserForm_Zoom 2 dòng lệnh màu xanh:

Private Sub UserForm_Zoom(Percent As Integer)
Dim MyResult As Double

If Percent > 99 Then
ScrollBars = fmScrollBarsBoth
ScrollLeft = 0
ScrollTop = 0

MyResult = Width * Percent / 100
ScrollWidth = MyResult

MyResult = Height * Percent / 100
ScrollHeight = MyResult
Else
ScrollBars = fmScrollBarsNone
ScrollLeft = 0
ScrollTop = 0
End If
Me.Height = H_save * Percent / 100
Me.Width = W_save * Percent / 100
End Sub

Như vậy, thì cách giải quyết vấn đề của Minh Thien dần có hướng đơn giản hơn.
 
Upvote 0
ptm0412 đã viết:
Tôi đang nghĩ đến 1 dạng rút gọn code bằng vòng lặp duyệt qua từng control, nhưng còn đang bí chỗ này: Làm cách nào để biết Form đang ở trạng thái maximize?
Nếu gán được 1 biến FormState dạng boolean đại khái là form maximized thì true, ngược lại thì False, ta có thể làm như sau:

PHP: 
Sub CtrlResize2()
With Fm1
    Msize = .Width
    Mrate2 = Msize / 600
    FormState = "bí chỗ này"
For Each Ctl In .Controls
    With Ctl
        On Error Resume Next
        .Top = .Top * IIf( FormState = True, 1 / Mrate2, Mrate2)
        .Left = .Left * IIf(FormState = True, 1 / Mrate2, Mrate2)
        .Height = .Height * IIf(FormState = True, 1 / Mrate2, Mrate2)
        .Width = .Width * IIf(FormState = True, 1 / Mrate2, Mrate2)
        .Font.Size = .Font.Size * IIf(FormState = True, 1 / Mrate2, Mrate2)
    End With
Next
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Sư phụ ơi, nếu minhthien đã phát hiện ra code zoom như ở trên thì em nghĩ không cần vòng lập nào ---> Đã kiểm tra, khi form zoom là toàn bộ control trên form cũng tự động chỉnh kích thước tương ứng ---> Quá khỏe!
Vấn đề còn lại là dựa vào độ phân giải màn hình để tìm tỉ lệ zoom thích hợp
 
Upvote 0
ndu96081631 đã viết:
Sư phụ ơi, nếu minhthien đã phát hiện ra code zoom như ở trên thì em nghĩ không cần vòng lập nào ---> Đã kiểm tra, khi form zoom là toàn bộ control trên form cũng tự động chỉnh kích thước tương ứng ---> Quá khỏe!
Vấn đề còn lại là dựa vào độ phân giải màn hình để tìm tỉ lệ zoom thích hợp
Nhấp chuột vào đây để mở rộng...

Đồng ý với ndu, nhưng vẫn tức, lý do là không hiểu cơ chế load form của excel như thế nào: thấy khi vừa mở form lên, form resize chạy 3 lần!

Một cái tức nữa: chả hiểu Minhthien sưu tầm code ở đâu mà rất kkkkhó hiểu:

PHP: 
Private Sub UserForm_Initialize()
Call MinMax(UserForm1.Caption)
H1 = UserForm1.Height
UserForm1.Height = 0     ' chỗ này cho  bằng không để làm gì?'
H2 = UserForm1.Height  ' tại sao không gán bằng không phứt?'
UserForm1.Height = H1  ' cho bằng không rồi quay lại bằng giá trị cũ?'
End Sub

Còn nữa:
PHP: 
Private Sub UserForm_Resize()
    If Me.Height <= H2 Then
        Application.WindowState = xlMinimized
    Else
        Application.Windows(ThisWorkbook.Name).WindowState = xlMaximized  ' xlNormal'
    End If
End Sub

1. Íp iếc làm quái gì trong khi H2 luôn luôn "empty"? (vì có khai báo biến Public đâu). Và nếu có khai báo public, thì ở trên đã cho H2 = 0 mất rồi, xuống đâu thì If sẽ luôn luôn False, cái window nào đó lúc nào cũng Maximize! (???)

2. Tại sao gom 2 cái Normal và Maximize làm 1 để gán cùng 1 windowstate?

Túm lại là tức vỡ đầu! Stress thế này chắc Minhthien phải đền "cái gì đó" thôi.

Bi giờ lại siu tầm code zoom ở đâu nữa, chả biết ai đó cải tiến code zoom này có bị vỡ đầu như mình không! Mình thì Xin kiếu!
 
Lần chỉnh sửa cuối:
Upvote 0
ptm0412 đã viết:
Đồng ý với ndu, nhưng vẫn tức, lý do là không hiểu cơ chế load form của excel như thế nào: thấy khi vừa mở form lên, form resize chạy 3 lần!

Một cái tức nữa: chả hiểu Minhthien sưu tầm code ở đâu mà rất kkkkhó hiểu:

PHP: 
Private Sub UserForm_Initialize()
Call MinMax(UserForm1.Caption)
H1 = UserForm1.Height
UserForm1.Height = 0     ' chỗ này cho  bằng không để làm gì?'
H2 = UserForm1.Height  ' tại sao không gán bằng không phứt?'
UserForm1.Height = H1  ' cho bằng không rồi quay lại bằng giá trị cũ?'
End Sub
Còn nữa:
PHP: 
Private Sub UserForm_Resize()
    If Me.Height <= H2 Then
        Application.WindowState = xlMinimized
    Else
        Application.Windows(ThisWorkbook.Name).WindowState = xlMaximized  ' xlNormal'
    End If
End Sub
1. Íp iếc làm quái gì trong khi H2 luôn luôn "empty"? (vì có khai báo biến Public đâu). Và nếu có khai báo public, thì ở trên đã cho H2 = 0 mất rồi, xuống đâu thì If sẽ luôn luôn False, cái window nào đó lúc nào cũng Maximize! (???)

2. Tại sao gom 2 cái Normal và Maximize làm 1 để gán cùng 1 windowstate?

Túm lại là tức vỡ đầu! Stress thế này chắc Minhthien phải đền "cái gì đó" thôi.

Bi giờ lại siu tầm code zoom ở đâu nữa, chả biết ai đó cải tiến code zoom này có bị vỡ đầu như mình không! Mình thì Xin kiếu!
Nhấp chuột vào đây để mở rộng...
Ủa ---> Sư phụ nói đến code nào vậy? File tại bài 23 có code thế này cơ mà:
PHP: 
Private Sub UserForm_Initialize()
  SpinButton1.Min = 10
  SpinButton1.Max = 400
  SpinButton1.Value = 100
  Label1.Caption = SpinButton1.Value
  CommandButton1.Caption = "Zoom it!"
End Sub
PHP: 
Private Sub UserForm_Zoom(Percent As Integer)
  Dim MyResult As Double
  If Percent > 99 Then
    ScrollBars = fmScrollBarsBoth
    ScrollLeft = 0
    ScrollTop = 0
    MyResult = Width * Percent / 100
    ScrollWidth = MyResult
    MyResult = Height * Percent / 100
    ScrollHeight = MyResult
  Else
    ScrollBars = fmScrollBarsNone
    ScrollLeft = 0
    ScrollTop = 0
  End If
End Sub
Và code này nằm trong Help của Excel thôi sư phụ à!
 
Lần chỉnh sửa cuối:
Upvote 0
Anh đang nói code trong file bài #8, là cái file anh dùng để cải tiến suốt từ đó đến giờ, và nhức đầu vì nó.
Còn file bài #23 thì đã nói là "Xin Kiếu"
 
Upvote 0
ptm0412 đã viết:
Đồng ý với ndu, nhưng vẫn tức, lý do là không hiểu cơ chế load form của excel như thế nào: thấy khi vừa mở form lên, form resize chạy 3 lần!

Một cái tức nữa: chả hiểu Minhthien sưu tầm code ở đâu mà rất kkkkhó hiểu:

PHP: 
Private Sub UserForm_Initialize()
Call MinMax(UserForm1.Caption)
H1 = UserForm1.Height
UserForm1.Height = 0 ' chỗ này cho bằng không để làm gì?'
H2 = UserForm1.Height ' tại sao không gán bằng không phứt?'
UserForm1.Height = H1 ' cho bằng không rồi quay lại bằng giá trị cũ?'
End Sub

Còn nữa:
PHP: 
Private Sub UserForm_Resize()
If Me.Height <= H2 Then
Application.WindowState = xlMinimized
Else
Application.Windows(ThisWorkbook.Name).WindowState = xlMaximized ' xlNormal'
End If
End Sub

1. Íp iếc làm quái gì trong khi H2 luôn luôn "empty"? (vì có khai báo biến Public đâu). Và nếu có khai báo public, thì ở trên đã cho H2 = 0 mất rồi, xuống đâu thì If sẽ luôn luôn False, cái window nào đó lúc nào cũng Maximize! (???)

2. Tại sao gom 2 cái Normal và Maximize làm 1 để gán cùng 1 windowstate?

Túm lại là tức vỡ đầu! Stress thế này chắc Minhthien phải đền "cái gì đó" thôi.

Bi giờ lại siu tầm code zoom ở đâu nữa, chả biết ai đó cải tiến code zoom này có bị vỡ đầu như mình không! Mình thì Xin kiếu!
Nhấp chuột vào đây để mở rộng...

Đúng là hơi nhức đầu, nhưng "IP IẾC" gì đó nó có tác dụng của nó Thầy ơi, bởi một cái nó làm cho Form ở XL97 và XL2000 trở lên Thầy à.
Thầy nhìn dòng code trong module dưới đây thì sẽ thấy tác dụng của nó.
PHP: 
If Val(Application.Version) < 9 Then
    hWndForm = FindWindow("ThunderXFrame", sCaption)  'XL97
Else
    hWndForm = FindWindow("ThunderDFrame", sCaption)  'XL2000
End If

Theo em nghĩ là vậy, không biết Thầy và mọi người nghĩ sao.
 
Upvote 0
MinhThien coi kỹ đoạn code íp iếc, nó đặt điều kiện If Me.Height <= H2, chả có liên quan gì đến vẹc sông vẹc siếc cả. Biến H2 này lại chưa hề gán giá trị gì, cũng không khai báo, nên giá trị mặc định của nó không có (empty). Vậy Me.Height <= H2 luôn luôn False!
 
Upvote 0
Việc co dãn kích thước thì đơn giản nhưng xác định được top và left của Control thì bết quá, đang chờ anh Mỹ, Ndu xem sao
 
Upvote 0
sealand đã viết:
Minh Thien bổ xung 1 chút sẽ hay hơn:

Trên đầu vùng viết Code bạn thêm dòng:

Public H_save, W_save

Bổ xung code UserForm_Zoom 2 dòng lệnh màu xanh:

Private Sub UserForm_Zoom(Percent As Integer)
Dim MyResult As Double

If Percent > 99 Then
ScrollBars = fmScrollBarsBoth
ScrollLeft = 0
ScrollTop = 0

MyResult = Width * Percent / 100
ScrollWidth = MyResult

MyResult = Height * Percent / 100
ScrollHeight = MyResult
Else
ScrollBars = fmScrollBarsNone
ScrollLeft = 0
ScrollTop = 0
End If
Me.Height = H_save * Percent / 100
Me.Width = W_save * Percent / 100
End Sub

Như vậy, thì cách giải quyết vấn đề của Minh Thien dần có hướng đơn giản hơn.
Nhấp chuột vào đây để mở rộng...
Tại sao để 2 dòng lệnh vào, cái form bé tí xíu vậy Anh?
 
Upvote 0
ptm0412 đã viết:
MinhThien coi kỹ đoạn code íp iếc, nó đặt điều kiện If Me.Height <= H2, chả có liên quan gì đến vẹc sông vẹc siếc cả. Biến H2 này lại chưa hề gán giá trị gì, cũng không khai báo, nên giá trị mặc định của nó không có (empty). Vậy Me.Height <= H2 luôn luôn False!
Nhấp chuột vào đây để mở rộng...

Í quên, em nói lộn rồi, cái form Min, Max đó đúng ra chỉ cần code này thôi:
PHP: 
Private Sub UserForm_Initialize()
Call MinMax(UserForm1.Caption)
End Sub

Nhưng nó lại muốn khi nó resize thì cái windowstate tức là cửa sổ trong excel nó sẽ lớn hay nhỏ tương ứng khi nó zoom lớn hay zoom nhỏ thôi ạ!

Thầy thử nhé, thầy cứ để nguyên code như vậy, sau đó Thầy thử sẽ thấy:
PHP: 
Private Sub UserForm_Initialize()
Call MinMax(UserForm1.Caption)
H1 = UserForm1.Height
UserForm1.Height = 0
H2 = UserForm1.Height
UserForm1.Height = H1
End Sub
Private Sub UserForm_Resize()
    If Me.Height <= H2 Then
        Application.WindowState = xlMinimized
    Else
        Application.Windows(ThisWorkbook.Name).WindowState = xlMinimized 'xlMaximized 'xlNormal
    End If
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
MinhThien chắc không đọc kỹ, hoặc đọc mà không hiểu gì cả. Đã nói là H2 chưa khai báo! chưa gán giá trị! nó empty! Thì dùng If so Form width với nó làm quái gì. Lúc nào cũng False!

Còn cái này:
PHP: 
H1 = UserForm1.Height
UserForm1.Height = 0
H2 = UserForm1.Height
UserForm1.Height = H1

Chạy vòng vòng sau đó H2 bằng bao nhiêu? UserForm1. Height bằng bao nhiêu? Xoá phứt nó đi Minmax vẫn chạy tốt!
 
Lần chỉnh sửa cuối:
Upvote 0
ptm0412 đã viết:
MinhThien chắc không đọc kỹ, hoặc đọc mà không hiểu gì cả. Đã nói là H2 chưa khai báo! chưa gán giá trị! nó empty! Thì dùng If so Form width với nó làm quái gì. Lúc nào cũng False!

Còn cái này:
PHP: 
H1 = UserForm1.Height
UserForm1.Height = 0
H2 = UserForm1.Height
UserForm1.Height = H1

Chạy vòng vòng sau đó H2 bằng bao nhiêu? UserForm1. Height bằng bao nhiêu? Xoá phứt nó đi Minmax vẫn chạy tốt!
Nhấp chuột vào đây để mở rộng...

Uh ha, em xóa nó luôn cũng chạy không cần H hiếc gì hết! Nhưng tại sao tác giả của code này lại sử dụng chúng nhỉ? Lúc đầu em nghĩ cái Form ở trạng thái ban đầu ví dụ Normal được gán cho H1, khi Max thì trạng thái đó cũng cho là H1 luôn nên tác giả mới viết như vậy.
 
Lần chỉnh sửa cuối:
Upvote 0
minhthien321 đã viết:
Uh ha, em xóa nó luôn cũng chạy không cần H hiếc gì hết! Nhưng tại sao tác giả của code này lại sử dụng chúng nhỉ? Lúc đầu em nghĩ cái Form ở trạng thái ban đầu ví dụ Normal được gán cho H1, khi Max thì trạng thái đó cũng cho là H1 luôn nên tác giả mới viết như vậy.
Nhấp chuột vào đây để mở rộng...
Bạn nên khai báo biến cho H1 và H2 là được, không phải vô lý mà người viết code lại viết như vậy đâu.
Public H1
Public H2

Sau đây là một ví dụ về Zoom, bạn tham khảo. Có lẽ phải cải tiến thêm code cho độ phân giải theo bác NDU nói trong ví dụ sau mới đúng, tuy nhiên hướng giải quyết đã có chỉ cần làm sao cho mình chủ động cái Form của mình mở lên thì độ phân giải máy tính tự điều chỉnh khi Form_Active. Thoát ra thì trở lại bình thường. Vấn đề này chắc các Sư phụ thêm vào.
 

File đính kèm

Upvote 0
Learning_Excel đã viết:
Bạn nên khai báo biến cho H1 và H2 là được, không phải vô lý mà người viết code lại viết như vậy đâu.
Public H1
Public H2

Sau đây là một ví dụ về Zoom, bạn tham khảo. Có lẽ phải cải tiến thêm code cho độ phân giải theo bác NDU nói trong ví dụ sau mới đúng, tuy nhiên hướng giải quyết đã có chỉ cần làm sao cho mình chủ động cái Form của mình mở lên thì độ phân giải máy tính tự điều chỉnh khi Form_Active. Thoát ra thì trở lại bình thường. Vấn đề này chắc các Sư phụ thêm vào.
Nhấp chuột vào đây để mở rộng...

Vẫn bị một lỗi Learning_Excel ơi, đôi khi Min rồi Max, các control bị zoom ngược lại, Khi Nomal thì zoom lớn, khi Max bị zoom nhỏ!
Không biết khắc phục như thế nào? Chắc do mỗi lần Form_Resize chế độ Boolean vẫn hoạt động nên bị tình trạng xáo trộn khi Min (trong khi boolean cho 2 kết quả False or True còn Min, Max, Normal lại đến 3 động tác nên gây "hiệu ứng nghịch" chăng?)
 
Upvote 0
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

PhanTuHuong
Nên chọn điện thoại nào? (1 người xem)
2
Trả lời
20
Đọc
1K
dungluyen2119
dungluyen2119
PhanTuHuong
Hà Nội hẹn hò gặp gỡ đầu năm 2025 thôi :)
    • Thích
    • Yêu thích
Trả lời
9
Đọc
384
Nguyễn Duy Tuân
Nguyễn Duy Tuân
Manhhung90
Tạo nút bấm để xoá nhanh trang trong file word.
Trả lời
3
Đọc
77
PhanTuHuong
PhanTuHuong
H
Hàm Evaluate bị lỗi khi mở lại
2
Trả lời
23
Đọc
274
ptm0412
ptm0412
T
tìm ra số tháng mà lượng hàng nhập ban đầu sử dụng hết (1 người xem)
    • Buồn
    • Cười
Trả lời
5
Đọc
208
SA_DQ
SA_DQ
Nguyễn Duy Tuân
Lập trình VBA với Google Drive, OneDrive, DropBox cho Upload-Download-Copy-Move... (1 người xem)
    • Cảm ơn
    • Thích
Trả lời
4
Đọc
293
quyenpv
quyenpv
hungmanh.th1
Lỗi không trả về Giá trị 0 trong excel
    • Cười
Trả lời
5
Đọc
63
hungmanh.th1
hungmanh.th1
HeSanbi
  • Question Question
VBA nâng cao: Nhúng tập tin vào trang tính hoặc trích xuất chúng nhanh chóng
    • Cảm ơn
    • Thích
Trả lời
0
Đọc
116
HeSanbi
HeSanbi
nguyễn tiến tú
file CALCULATING rất chậm em nhờ các anh chị xem giúp em ạ
Trả lời
7
Đọc
370
tranhungdao12a3
T
T
  • Question Question
Xin thầy/cô và anh chị giúp đỡ cách điền thông tin ca kíp trực trong bảng Excel bằng VBA
Trả lời
2
Đọc
146
tiennd67
T
vnxgiokinhtoi
Nhờ giúp đỡ công thức lưu dữ liệu và mở lại dữ liệu cũ đã save
Trả lời
2
Đọc
102
le_vis
L
H
HELP! HÀM LẤY THÁNG/ NĂM TRONG EXCEL
Trả lời
5
Đọc
127
ptm0412
ptm0412
H
Em hỏi vì sao khi file googlesheet của em thì code chạy
Trả lời
2
Đọc
56
Hoale85
H
4
EXCEL TỰ ĐỘNG MỞ TRÊN WEB
Trả lời
9
Đọc
268
4545
4
T
Nhờ ACE chỉ giáo công thức Gộp nhiều dữ liệu vào một ô trong excel
Trả lời
9
Đọc
228
Hoàng Tuấn 868
H
H
Phân quyền xem trên từng trang tính của googlesheet
Trả lời
6
Đọc
146
tranhungdao12a3
T
vn81206
TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL
    • Buồn
2 3
Trả lời
50
Đọc
14K
HeSanbi
HeSanbi
GPE-Trợ Lý
CHÚC MỪNG NGÀY QUỐC TẾ PHỤ NỮ 08/03/2025
    • Yêu thích
    • Thích
Trả lời
0
Đọc
55
GPE-Trợ Lý
GPE-Trợ Lý
M
  • Question Question
Tự chèn dòng khi cập nhật dữ liệu từ trang tính khác.
Trả lời
6
Đọc
281
hoangtuan.net
hoangtuan.net
K
Không đăng nhập được MS Teams sau khi tải về (chỉ cho sử dụng bản trên web)
Trả lời
4
Đọc
116
ptm0412
ptm0412
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom