Đổi Show modal bằng VBA

[othanhquango]

Chào các bạn, mình mới học vba nên chưa rành 1 số vấn đề, nhờ các bạn giải đáp giúp mình.

- Mình có 1 nút lệnh trên form, mình muốn khi nhấn thu nhỏ lại thì height = 0, with = 0 và showmodel = false (để mình thao tác trên sheet).
- sau đó mình sẽ nhấn 1 nút trên sheet thì phục hồi lại height của form (400 chẳng hạn) và cho form vào giữa màn hình và showmodel = true (để khỏi thao tác được trên sheet).

Nhờ các bạn giúp mình làm theo hướng trên.

Chân thành cảm ơn các bạn.

 

[nghiaphuc]

Chào các bạn, mình mới học vba nên chưa rành 1 số vấn đề, nhờ các bạn giải đáp giúp mình.

- Mình có 1 nút lệnh trên form, mình muốn khi nhấn thu nhỏ lại thì height = 0, with = 0 và showmodel = false (để mình thao tác trên sheet).
- sau đó mình sẽ nhấn 1 nút trên sheet thì phục hồi lại height của form (400 chẳng hạn) và cho form vào giữa màn hình và showmodel = true (để khỏi thao tác được trên sheet).

Nhờ các bạn giúp mình làm theo hướng trên.

Chân thành cảm ơn các bạn.

Không cần thu nhỏ kích thước như vậy đâu bạn. Cách giải quyết của mình là:
- Sử dụng câu lệnh Me.Hide cho nút lệnh trên Form để khi nhấn thì ẩn Form.
- Sử dụng câu lệnh UserForm1.Show cho nút lệnh trên Sheet để gọi Form.

 

[othanhquango]

Hic, mình cũng đã nghĩ tới hide. Nhưng do mình có 1 số sự kiện khi open form. Do đó, nếu hide rồi show lại thì sẽ chạy sự kiện đó thêm lần nữa. Hic.

Mình đã giải quyết được vấn đề trên. Nhờ các bạn giúp mình vấn đề khác là làm cách nào để khi mình resize form nhỏ lại sau đó resize về như cũ thì cái form trở về như cũ lúc này phải nằm giữa screen.

 

[nghiaphuc]

Hic, mình cũng đã nghĩ tới hide. Nhưng do mình có 1 số sự kiện khi open form. Do đó, nếu hide rồi show lại thì sẽ chạy sự kiện đó thêm lần nữa. Hic.

Mình đã giải quyết được vấn đề trên. Nhờ các bạn giúp mình vấn đề khác là làm cách nào để khi mình resize form nhỏ lại sau đó resize về như cũ thì cái form trở về như cũ lúc này phải nằm giữa screen.

Bạn sử dụng sub UserForm_Activate để chạy các lệnh khi mở form phải không? Nếu đúng như vậy thì bạn thử đổi sub này thành UserForm_Initialize rồi sử dụng Me.Hide xem có được không.

 

[othanhquango]

Bạn sử dụng sub UserForm_Activate để chạy các lệnh khi mở form phải không? Nếu đúng như vậy thì bạn thử đổi sub này thành UserForm_Initialize rồi sử dụng Me.Hide xem có được không.

Hic, chuẩn luôn. Đơn giản quà hiệu quả.