สอบถามคำสั่ง Docmd.Movesize


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

10 ม.ค. 62 , 10:55:54
อ่าน 1560 ครั้ง

prajak

สอบถามคำสั่ง Docmd.Movesize
« เมื่อ: 10 ม.ค. 62 , 10:55:54 »
รบกวนสอบถามการสั่งให้ฟอร์มอีก1ฟอร์มไปแสดงผลอีกจออัตโนมัติโดยใช้คำสั่ง movesize ครับ
คือผมมีPC1ตัว ต่อออก2จอโดยตั้งเป็นแบบ Extend โดยที่
จอที่1(primary) 21.5" resolution 1920x1080 ต่อผ่านสาย DVI
จอที่2(secondary) 19.5" resolution 1600x900 ต่อผ่านสาย VGA

ที่โปรแกรม Access มี2ฟอร์ม
ฟอร์มที่1 ชื่อฟอร์ม FrmDbLine1_Eng1 ที่ On open ใส่ Call OpenBClient() เพื่อเรียกคำสั่ง Movesize ที่วางไว้ใน Module
ฟอร์มที่2 ชื่อฟอร์ม FrmDbLine2_Eng1 (คือฟอร์มที่ต้องการให้ออกจอ2)

ที่ Module ชื่อ Monitor ใส่ Code ดังนี้
Option Compare Database

Option Explicit

Public clnClient As New Collection

Function OpenBClient()
 
    Dim frm As Form
   
    Set frm = New Form_FrmDbLine2_Eng1
     frm.Visible = True
    frm.Caption = frm.hWnd & ", Opened " & Now()
   
   
    clnClient.Add item:=frm, Key:=CStr(frm.hWnd)
    DoCmd.MoveSize 20000, 0, 0, 0
    DoCmd.Maximize
     
    Set frm = Nothing
End Function

ผลคือฟอร์มที่2 FrmDbLine2_Eng1 ไม่ออกจอ2ครับ ไม่ทราบว่า ตรงcode movesize ต้องเป็นค่าเท่าไหร่ครับ

 

10 ม.ค. 62 , 14:40:03
ตอบกลับ #1

ปิ่นณรงค์

: สอบถามคำสั่ง Docmd.Movesize
« ตอบกลับ #1 เมื่อ: 10 ม.ค. 62 , 14:40:03 »
ที่ คุณสมบัติฟอร์ม FrmDbLine2_Eng1
เป็นแบบนี้หรือยังครับ


ใส่เป็น

  DoCmd.MoveSize 30000, 0, 0, 0

เลยครับ  :cool: :cool:
« แก้ไขครั้งสุดท้าย: 10 ม.ค. 62 , 15:41:36 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: prajak, aek

10 ม.ค. 62 , 16:00:35
ตอบกลับ #2

prajak

: สอบถามคำสั่ง Docmd.Movesize
« ตอบกลับ #2 เมื่อ: 10 ม.ค. 62 , 16:00:35 »
ได้แล้วครับ ขอบคุณคุณปิ่นณรงค์ที่แนะนำการปรับฟอร์มให้พอดีกับหน้าจอครับ ถ้าฟอร์มที่ต้องการ move ไม่พอดีกับจอที่จะให้ออก มันจะไม่ move ให้ ส่วนการใส่ค่าฟอร์มของผมใส่ 30000 ตามที่บอก ใช้ได้เลยครับ

 
โพสต์นี้ได้รับคำขอบคุณจาก: aek


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5