เปิดฟอร์มแล้ว ...



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

09 เม.ย. 64 , 09:52:58
อ่าน 254 ครั้ง

kitisak

เปิดฟอร์มแล้ว ...
« เมื่อ: 09 เม.ย. 64 , 09:52:58 »
1. เปิดฟอร์มแล้วให้ซ่อนหน้าต่างนำทาง โค้ดอย่างไรครับ
2. เปิดฟอร์มแล้วให้ขอบซ้ายของฟอร์มชิดขอบหน้าต่าง (ตอนนี้หน้าต่างมันอยู่กึ่งกลาง) กำหนดตรงไหนครับ

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

09 เม.ย. 64 , 09:59:27
ตอบกลับ #1

PNR

: เปิดฟอร์มแล้ว ...
« ตอบกลับ #1 เมื่อ: 09 เม.ย. 64 , 09:59:27 »
1. เปิดฟอร์มแล้วให้ซ่อนหน้าต่างนำทาง โค้ดอย่างไรครับ
2. เปิดฟอร์มแล้วให้ขอบซ้ายของฟอร์มชิดขอบหน้าต่าง (ตอนนี้หน้าต่างมันอยู่กึ่งกลาง) กำหนดตรงไหนครับ
ข้อ1 ใส่ใน Event Form_Load ก็ได้ครับ

    Private Sub Form_Load()
    DoCmd.ShowToolbar "Ribbon", acToolbarNo  'ซ่อน Ribon ด้านบน
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.RunCommand acCmdWindowHide  'ซ่อนหน้าต่างนำทาง
    End Sub

ข้อ2
1.ประกาสตัวแปลไว้บนสุดของคำสั่ง
    Public FrmTop  As Long
    Public FrmLeft As Long

2.ที่ Event Form_Activate() ใส่โค๊ดนี้เข้าไป
    Private Sub Form_Activate()
    FrmTop = Forms![ชื่อฟอร์ม].WindowTop
    FrmLeft = Forms![ชื่อฟอร์ม].WindowLeft
    FrmTop = Me.WindowTop
    FrmLeft = Me.WindowLeft
    End Sub
« แก้ไขครั้งสุดท้าย: 09 เม.ย. 64 , 10:09:44 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin, kitisak, ิboonyarit


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