Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Co dãn form access theo độ phân giải màn hình
#1
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é
Chữ ký của hoanbhxhls Xin chào, mình là hoanbhxhls, Tham gia http://thuthuataccess.com/forum từ ngày 08-03 -13.
Reply
Những người đã cảm ơn
#2
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 LongByVal 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 LongByVal 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(hDCcapsWM_VERTRES)
DisplayWidth WM_apiGetDeviceCaps(hDCcapsWM_HORZRES)
iRtn WM_apiReleaseDC(hDesktopWndhDCcaps'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.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Cái này chạy lỗi trong Access 2013 bạn an
Chữ ký của tt1212 Present Nhận viết phần mềm, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. Email: Tantriviet.vnn@gmail.com
Reply
Những người đã cảm ơn
#4
(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.


File đính kèm
.zip   ResizeHook.zip (Kích cỡ: 41.04 KB / Tải về: 64)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
(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
Chữ ký của hoanbhxhls Xin chào, mình là hoanbhxhls, Tham gia http://thuthuataccess.com/forum từ ngày 08-03 -13.
Reply
Những người đã cảm ơn
#6
(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
Chữ ký của tt1212 Present Nhận viết phần mềm, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. Email: Tantriviet.vnn@gmail.com
Reply
Những người đã cảm ơn
#7
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! ^^
Chữ ký của ChiMai ChiMai,gia nhập Thủ Thuật Access từ 14-07 -16.
Reply
Những người đã cảm ơn
#8
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
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
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!
Chữ ký của ChiMai ChiMai,gia nhập Thủ Thuật Access từ 14-07 -16.
Reply
Những người đã cảm ơn
#10
(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é
Chữ ký của hoanbhxhls Xin chào, mình là hoanbhxhls, Tham gia http://thuthuataccess.com/forum từ ngày 08-03 -13.
Reply
Những người đã cảm ơn maidinhdan , ChiMai


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tạo from access chuyên nghiệp thanhtruong 2 97 18-02-17, 11:15 PM
Bài mới nhất: tranthanhan1962
  Phần mềm quản lý kho thuốc .mdb thanhtruong 15 771 15-02-17, 12:59 AM
Bài mới nhất: maidinhdan
  code chuyển đổi Hex sang ASCII trong access thanhtruong 9 312 13-02-17, 10:34 PM
Bài mới nhất: ongke0711
  [Hỏi] Mở form có điều kiện. Các bác giúp em với! cannguyen 2 96 13-02-17, 11:23 AM
Bài mới nhất: cannguyen
Wink [Hỏi] Tạo Nút Print- chọn theo trang, khôn in trwcj tiếp connguoi123 4 1,182 05-02-17, 03:24 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ