• Trang chủ click to expand contents 

  • Co dãn form access theo độ phân giải màn hình

  • co dãn form access theo độ phân giải màn hình

    hoanbhxhls > 20-04-15, 04:19 PM

    Chào các bạn
    -Mình muốn viết 1 module
    +co dãn form của ms access và các control trên form co dãn theo độ phân giải màn hình
    bạn nào có code gửi cho anh em tham khảo nhé

  • RE: co dãn form access theo độ phân giải màn hình

    maidinhdan > 21-04-15, 12:43 AM

    Xem đoạn code sau:

    Mã PHP:
    'CREDITS:
    Global Const DesignResolutionX = 1024
    '    THAY ĐỔI GIÁ TRỊ
    Global Const WM_HORZRES = 8
    Global Const WM_VERTRES = 10
    Dim Width     As Integer
    Dim Factor     As Single 'Used as multiplier for current size properties'
    Declare Function WM_apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hdc As Long, ByVal nIndex As Long) As Long
    Declare Function WM_apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
    Declare Function WM_apiGetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
    Declare Function WM_apiReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hwnd As Long, ByVal hdc As Long) As Long
    Declare Function WM_apiGetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
    Function GetScreenResolution() As String
    'trả về chiều cao và chiều rộng'
    Dim DisplayHeight As Integer
    Dim DisplayWidth     As Integer
    Dim hDesktopWnd     As Long
    Dim hDCcaps     As Long
    Dim iRtn     As Integer

    'API gọi được độ phân giải hiện tại'
    hDesktopWnd = WM_apiGetDesktopWindow() 'get handle to desktop
    hDCcaps = WM_apiGetDC(hDesktopWnd) '    get display context for desktop
    DisplayHeight     = WM_apiGetDeviceCaps(hDCcaps, WM_VERTRES)
    DisplayWidth = WM_apiGetDeviceCaps(hDCcaps, WM_HORZRES)
    iRtn = WM_apiReleaseDC(hDesktopWnd, hDCcaps) 'release display context
    GetScreenResolution = DisplayWidth & "x" & DisplayHeight
    Width = DisplayWidth
    End Function 

    Mã PHP:
    Public Sub ReSizeForm(frm As Form)
    Dim ctl As Control
    'Dim i As Integer

    On Error Resume Next
    SetFactor '    Call to procedure SetFactor
    With frm
    .Width = frm.Width * Factor
    End With
    For Each ctl In frm.Controls
    With ctl
    .Height = ctl.Height * Factor
    .Left = ctl.Left * Factor
    .Top = ctl.Top * Factor
    .Width = ctl.Width * Factor
    .FontSize = .FontSize * Factor
    End With
    Next ctl
    End Sub
    Sub SetFactor    ()
    GetScreenResolution 'Call to function GetScreenResolution
    Factor = Width / DesignResolutionX
    End Sub 

    Tham khảo thêm 2 link dưới đây:
    1. http://thuthuataccess.com/forum/thread-137.html
    2. http://thuthuataccess.com/forum/thread-4854.html

    Chúc bạn thành công.

  • RE: co dãn form access theo độ phân giải màn hình

    tt1212 > 21-04-15, 10:27 PM

    Cái này chạy lỗi trong Access 2013 bạn an

  • RE: co dãn form access theo độ phân giải màn hình

    maidinhdan > 21-04-15, 11:31 PM

    (21-04-15, 10:27 PM)tt1212 Đã viết: Cái này chạy lỗi trong Access 2013 bạn an

    Thử demo này xem.

  • RE: co dãn form access theo độ phân giải màn hình

    hoanbhxhls > 22-04-15, 08:45 AM

    (21-04-15, 11:31 PM)maidinhdan Đã viết:
    (21-04-15, 10:27 PM)tt1212 Đã viết: Cái này chạy lỗi trong Access 2013 bạn an

    Thử demo này xem.
    -Đoan code đầu tiên mình chạy các control trên form mất hêt
    -Đoạn code trong ResizeHook.zip mình chạy thì bị treo máy luôn
    Co dãn form và control trên form ms access theo độ phân giải màn hình quả thực nan giải

  • RE: co dãn form access theo độ phân giải màn hình

    tt1212 > 23-04-15, 01:08 PM

    (22-04-15, 08:45 AM)hoanbhxhls Đã viết:
    (21-04-15, 11:31 PM)maidinhdan Đã viết:
    (21-04-15, 10:27 PM)tt1212 Đã viết: Cái này chạy lỗi trong Access 2013 bạn an

    Thử demo này xem.
    -Đoan code đầu tiên mình chạy các control trên form mất hêt
    -Đoạn code trong ResizeHook.zip mình chạy thì bị treo máy luôn
    Co dãn form và control trên form ms access theo độ phân giải màn hình quả thực nan giải

    Bạn thử ứng dụng này xem
    http://sinhvienit.net/forum/attachment/3...5.rar.html

  • Cách làm form hiện full màn hình

    ChiMai > 15-07-16, 12:26 AM

    Chào cả nhà! Mình có câu hỏi này muốn nhờ mọi người hướng dẫn: Khi mình tạo form xong, mình muốn khi nào form này hoạt động nó sẽ hiện full màn hình?
    Cám ơn mọi người nhiều! ^^

  • RE: Cách làm form hiện full màn hình

    cpucloi > 15-07-16, 08:48 AM

    Có một bạn đã hỏi về vấn đề này và đã nhận được trả lời rất cụ thể (hình như bạn đó bị nhắc nhở do không search trước khi hỏi)
    Bạn chịu khó tìm kiếm một chút xem nhé

    P/s: Tớ dự đoán rằng MaiDinhDan lại yêu cầu gộp hoặc xóa chủ đề này  014 014 014 014 014 014 014 014 014 014 014 014 014

  • RE: Cách làm form hiện full màn hình

    ChiMai > 15-07-16, 04:06 PM

    Thực ra, mình là thàn viên mới! Có thể mình đã bỏ qua thao tác nào đó. Nhưng vấn đề là mình không biết và mình muốn hỏi. Nếu ai biết thì trả lời dùm mình? Hông thì mình tự tìm hiểu thui ạ! Nếu mình đã biết thì mình không đưa lên đây hỏi ạ!
    Cám ơn bạn nhiều!

  • RE: Cách làm form hiện full màn hình

    hoanbhxhls > 15-07-16, 05:40 PM

    (15-07-16, 08:48 AM)cpucloi Đã viết: Có một bạn đã hỏi về vấn đề này và đã nhận được trả lời rất cụ thể (hình như bạn đó bị nhắc nhở do không search trước khi hỏi)
    Bạn chịu khó tìm kiếm một chút xem nhé

    P/s: Tớ dự đoán rằng MaiDinhDan lại yêu cầu gộp hoặc xóa chủ đề này  014 014 014 014 014 014 014 014 014 014 014 014 014

    -làm form full màn hình thì dễ ,nhưng co dãn form và control trên form theo độ phân giải của màn hình thì rất khó
    -Mình đã thử 1 số module trên diễn đàn cũng như google nhưng vẫn chưa tìm được
    -Bạn nào có module con giãn form và control trên form access theo độ phân giải của màn hình thì gửi anh em tham khảo nhé