• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Định vị vị trí pop up form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Định vị vị trí pop up form
• Định vị vị trí pop up form

• Định vị vị trí pop up form

  toidjtjmtoi > 17-02-20, 05:10 PM

    Mình đang gặp chút vấn đề về form pop up
  Nó nhảy form và giãn form không theo quy củ gì cả . Cũng không khóa nó lại được
  Có cách nào để cố định form này và vị trí hiển thị của nó không?
  Thanks

• RE: Định vị vị trí pop up form

  tranthanhan1962 > 17-02-20, 06:03 PM

  (17-02-20, 05:10 PM)toidjtjmtoi Đã viết:   Mình đang gặp chút vấn đề về form pop up
  Nó nhảy form và giãn form không theo quy củ gì cả . Cũng không khóa nó lại được
  Có cách nào để cố định form này và vị trí hiển thị của nó không?
  Thanks

  Mặc định form khi open sẽ nằm góc trên, bên trái của khung chứa object (Application.Screen), khi muốn canh giữa màn hình thì thiết đặt auto center =yes (lúc này nó lại canh giữa màn hình windows (phần monitor trừ đi chiều cao thanh taskbar) chứ không quan tâm cái Application.Screen nữa, thật là bậy bạ hết sức. Tuy nhiên vẫn có code VBA để định vị và quản lý vị trí và kích thước của màn hình bằng đoạn mã VBA sau:
      DoCmd.MoveSize (Right, Down, Width, Height)
  Right: Vị trí nằm ngang của góc trên bên trái của cửa sổ, được đo từ cạnh trái của khung chứa.
  Down: Vị trí thẳng đứng của góc trên bên trái của cửa sổ, được đo từ cạnh trên của khung chứa.
  Width: Chiều rộng của form.
  Height: Chiều cao của form.
  Đoạn mã này sẽ được đặt ở event On Load hoặc On Open.
  Ví dụ:
  Private Sub Form_Open(Cancel As Integer)
          DoCmd.MoveSize 500, 600, 800, 1200
  End Sub
  Khi hiển thị Form sẽ có góc trái phía trên cách cạnh trái 500 và cách cạnh trên 600, chiều ngang form là 400, chiều cao form 1200.
  Nếu kết hợp tỷ lệ với các đối tượng InsideHeight, InsideWidth và tính tỷ lệ tốt bạn sẽ định vị được một cái form như ý trên màn hình.

• RE: Định vị vị trí pop up form

  toidjtjmtoi > 17-02-20, 09:08 PM

  (17-02-20, 06:03 PM)tranthanhan1962 Đã viết:

  (17-02-20, 05:10 PM)toidjtjmtoi Đã viết:   Mình đang gặp chút vấn đề về form pop up
  Nó nhảy form và giãn form không theo quy củ gì cả . Cũng không khóa nó lại được
  Có cách nào để cố định form này và vị trí hiển thị của nó không?
  Thanks

  Mặc định form khi open sẽ nằm góc trên, bên trái của khung chứa object (Application.Screen), khi muốn canh giữa màn hình thì thiết đặt auto center =yes (lúc này nó lại canh giữa màn hình windows (phần monitor trừ đi chiều cao thanh taskbar) chứ không quan tâm cái Application.Screen nữa, thật là bậy bạ hết sức. Tuy nhiên vẫn có code VBA để định vị và quản lý vị trí và kích thước của màn hình bằng đoạn mã VBA sau:
      DoCmd.MoveSize (Right, Down, Width, Height)
  Right: Vị trí nằm ngang của góc trên bên trái của cửa sổ, được đo từ cạnh trái của khung chứa.
  Down: Vị trí thẳng đứng của góc trên bên trái của cửa sổ, được đo từ cạnh trên của khung chứa.
  Width: Chiều rộng của form.
  Height: Chiều cao của form.
  Đoạn mã này sẽ được đặt ở event On Load hoặc On Open.
  Ví dụ:
  Private Sub Form_Open(Cancel As Integer)
          DoCmd.MoveSize 500, 600, 800, 1200
  End Sub
  Khi hiển thị Form sẽ có góc trái phía trên cách cạnh trái 500 và cách cạnh trên 600, chiều ngang form là 400, chiều cao form 1200.
  Nếu kết hợp tỷ lệ với các đối tượng InsideHeight, InsideWidth và tính tỷ lệ tốt bạn sẽ định vị được một cái form như ý trên màn hình.

  Nhưng mà mỗi màn hình tỉ lệ khác nhau , thì có cách giải quyết ko nhỉ

• RE: Định vị vị trí pop up form

  tranthanhan1962 > 17-02-20, 10:12 PM

  (17-02-20, 09:08 PM)toidjtjmtoi Đã viết: Nhưng mà mỗi màn hình tỉ lệ khác nhau , thì có cách giải quyết ko nhỉ

  Nếu Bạn sử dụng kết hợp với InsideHeight, InsideWidth thì tỷ lệ màn hình sẻ không ảnh hưởng. InsideHeight=chiều cao màn hình hiện tại, InsideWidth= chiều ngang màn hình hiện tại
  Ví dụ:
  Private Sub Form_Open(Cancel As Integer)
  Dim Trai As Integer (bên trái)
  Dim Dinh As Integer (Đỉnh)
  Dim Rong As Integer (Chiều rộng form)
  Dim Cao As Integer (Chiều cao form)
    Trai =InsideWidth / 4
    Dinh = InsideHeight / 4
    Rong = InsideWidth / 2
    Cao = InsideHeight / 2
          DoCmd.MoveSize Trai, Dinh, Rong , Cao
  End Sub
  Thì ta sẽ luôn có một form popup nằm giữa màn hình và có chiều cao = 1/2 chiều cao màn hình, chiều rộng =1/2 chiều rộng màn hình.
  Nếu tính đến việc tương thích với nhiều độ phân giải thì còn một việc nữa là xử lý kích thước của các control. Lúc này phải sử dụng event On Resize. Lúc này giá trị kích thước các control phải thay đổi theo form.
  Ví dụ ta có một form khi thiết kế có chiều rộng =5000, Detail Cao= bằng 2000 một textbbox TextA có Top =200, left =100, width=1000, hight=300 đặt tại khu vực Detail thì phải có code của form resize như sau:
  Private Sub Form_Resize()
  
  Dim TraiTextA As Integer (bên trái)
  
  Dim DinhTextA As Integer (Đỉnh)
  Dim RongTextA As Integer (Chiều rộng TextA)
  Dim CaoTextA As Integer (Chiều cao TextA)
    TraiTextA =Form.Width * 100 /5000
    DinhTextA = Detail.Height *100 / 2000
    RongTextA = Form.Width * 1000 /5000
    CaoTextA = Detail.Height * 300 / 2000
          TextA.Top = DinhTextA 
          TextA.Left = TraiTextA 
          TextA.Height = CaoTextA 
          TextA.Width = RongTextA  
  End Sub
  Lưu ý: Chiều rộng thì căn cứ vào chiều rộng của form, chiều cao thì căn cừ theo vùng chứa của nó, Nếu ở Detail thì Detail.Hight, nếu ở FormHeader thì FormHeader.Height. Trường hợp một form có nhiều hơn một vùng còn phải tính tỷ lệ từng vùng trong code On Resize, trước khi tính tỷ lệ của conntrol
  Nói chung là nếu tính đến việc tạo form tương thích cho nhiều màn hình tuy không khó nhưng rất cực. Vì vậy phần mềm chỉ nên xử lý 1-2 form cần thiết chứ không thể làm hết nổi.
• Bài trước Bài tiếp