Đá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 website:http://www.tantrivietsoft.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ề: 62)
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 website:http://www.tantrivietsoft.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ự động hiện Form khi loading hết thời gian ChiMai 1 34 Hôm qua, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 186 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 162 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  Thay đổi hình ảnh theo mã feeling 3 149 04-11-16, 05:18 PM
Bài mới nhất: maidinhdan
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 123 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902

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ơ