Tùy chọn
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
-
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
hoanbhxhls > 22-04-15, 08:45 AM
(21-04-15, 11:31 PM)maidinhdan Đã viết:
-Đoan code đầu tiên mình chạy các control trên form mất hê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.
-Đ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:
-Đoan code đầu tiên mình chạy các control trên form mất hê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.
-Đ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
-
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
-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é