Hàm GetWindowRect cho kết quả khác nhau ở các Version Excel (2 người xem)

Mr.hieudoanxd đã viết:

Ý tưởng của bác xác định theo ô "A1" em hiểu và đã từng làm theo phương pháp ấy. Tuy nhiên để thực hiện thì lại phát sinh nhiều lỗi. Ví dụ để show form đúng vị trí ô A1 thì ô A1 luôn phải nằm đúng vị trí trên cùng bên trái. Nếu trường hợp thanh scroll bar kéo qua kéo lại kéo lên kéo xuống thì useform đi ra xa bờ ngay lập tức. Bác thử mà xem

Nhấp chuột vào đây để mở rộng...

A1 là ví dụ chỉ dùng để dễ nói chuyện thôi, để nói cho ngắn gọn. Còn dụng ý của bạn thì tôi đã nói rất rõ, không thể rõ hơn: "Bạn ấy không muốn đặt ở "bên phải, bên trên, phía dưới, bên trái" của màn hình mà là của ActiveWindow.VisibleRange". Tức nếu ActiveWindow.VisibleRange = W26:AA31 (zoom = 400) thì đặt ở W26 ("bên trái" hoặc "phía trên")

lephuonganh đã viết:

A1 là ví dụ chỉ dùng để dễ nói chuyện thôi, để nói cho ngắn gọn. Còn dụng ý của bạn thì tôi đã nói rất rõ, không thể rõ hơn: "Bạn ấy không muốn đặt ở "bên phải, bên trên, phía dưới, bên trái" của màn hình mà là của ActiveWindow.VisibleRange". Tức nếu ActiveWindow.VisibleRange = W26:AA31 (zoom = 400) thì đặt ở W26 ("bên trái" hoặc "phía trên")

Nhấp chuột vào đây để mở rộng...

Em cũng đã viết là em đã thử phương án trên rồi. Thế thì nhờ bác giải quyết tiếp tục với lỗi phát sinh thứ 2. ActiveWindow.VisibleRange=W26:AA31 tuy nhiên Scroll chuột thì lại để ở giữa dòng

Cho dù bạn dùng SetParent thì cũng chỉ là thiết lập quan hệ cha - con. Lúc đó UserForm sẽ được định vị trong CLIENT AREA của CHA.
Để dễ nói chuyện ta lấy qui ước là bài đầu của tôi. CLIENT AREA của EXCEL7 có góc trên bên trái chính là điểm Q. Mà bạn muốn UserForm ở điểm P cơ mà. Bạn vẫn phải tính được a = "độ rộng của thanh tiêu đề hàng" (1, 2, 3, …), và b = "độ cao của thanh tiêu đề cột" (A, B, C, …). Lúc đó bạn phải thiết lập tọa độ của CON: Con.Left = a, Con.Top = b để CON dịch tới điểm P.

Nhưng nếu bạn biết cách tính a và b thì cần gì SETPARENT? Lúc đó theo như tôi viết ở bài đầu: "... vị trí của điểm Q, rồi từ đó thử "dịch một tí sang phải và một tí xuống dưới" để có Left và Top của P". "dịch một tí sang phải và một tí xuống dưới" hàm ý "dịch sang phải a đơn vị và dịch xuống dưới b đơn vị"

Và nên nhớ là khi dùng SETPARENT thì rất có thể sẽ phải có code để phục vụ các message (vd. nhấn nút ở đâu đó trên Form). Không dễ ăn đâu bạn. Tùy controls CON. Có những sự kiện về CON mà Windows gửi message tới CHA đấy. Mà làm sao can thiệp vào hàm cửa sổ của EXCEL7 bây giờ? SetWindowLong? Mà các controls trên UserForm không hẳn là các controls của Windows (Edit, ListBox, Button, …) nên chưa chắc khi sảy ra sự kiện với chúng thì Windows sẽ gửi message. Thậm chí ListBox VBA không phải là ListBox của Windows nên hàm cửa sổ của UserForm không phục vụ các message liên quan ListBox VBA

Tôi nghĩ là mấu chốt là tính được a và b. Dùng GetWindowRect để có rect. Lúc đó x = UserForm.Left (pixel) = rect.Left + a, y = UserForm.Top (pixel)= rect.top + b. Sau đó dùng MoveWindow hoặc SetWindowPos.
MoveWindow hwnd (UserFrom), x, y, ...