BMS-HOSxP Community
HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: SIWIT ที่ ตุลาคม 02, 2023, 14:43:47 PM
-
สอบถามครับ ใน vn script v.4 ผมสร้าง form2 มีปุ่ม ที่มี event.Close();
ในกรณีที่ผมไม่ต้องการให้ form แสดงผมอยากปิด Form2 หรือ สั่ง Button1.Click();
โดยที่ไม่ต้องคลิ๊กเมาส์ได้ไหมครับ
-
กรณีไม่เข้าเงื่อนไขอยากให้ Form2 ปิดเองโดยไม่ต้อง Click ครับผม
-
ถ้าไม่เข้าเงื่อนไขก็ไม่ต้องแสดงฟอร์มเลยดีกว่ามั้ยครับ
คิวรี่ในเรื่องเดียวกัน ใช้คิวรี่เดียวก็ครอบคลุมได้นะครับ
-
ถ้าไม่เข้าเงื่อนไขก็ไม่ต้องแสดงฟอร์มเลยดีกว่ามั้ยครับ
คิวรี่ในเรื่องเดียวกัน ใช้คิวรี่เดียวก็ครอบคลุมได้นะครับ
ใส่เงื่อนไขกันแสดงฟอร์มตรงไหนเหรอคับ
-
เงื่อนไข สามารถใส่ได้ 2 จุดคือก่อน form2.open กับ หลังจาก open แล้วให้เขียนเงื่อนไขที่ constructure ของ form ก็ได้
แต่ปกติ ผม จะทำ vnscript ขึ้นมาเป็น main ก่อน ที่จะไปเปิด form อื่น เพราะจะได้ตรวจสอบเงื่อนไข ก่อนที่จะ open form อื่นๆที่ต้องการ
-
เงื่อนไข สามารถใส่ได้ 2 จุดคือก่อน form2.open กับ หลังจาก open แล้วให้เขียนเงื่อนไขที่ constructure ของ form ก็ได้
แต่ปกติ ผม จะทำ vnscript ขึ้นมาเป็น main ก่อน ที่จะไปเปิด form อื่น เพราะจะได้ตรวจสอบเงื่อนไข ก่อนที่จะ open form อื่นๆที่ต้องการ
พอเข้าใจแล้วคับ สร้าง form main มาสักอันนึง แล้วถ้าเข้าเงื่อนไข ค่อย open form ย่อยมาแสดง
พอจะได้ไอเดียแล้วคับ เพิ่งจะหัดทำครั้งแรกเลย พอจะมีตัวอย่างไหมคับ ขอบคุณคับ
-
try
RunHOSxP_ScriptProgram('CHECK_TB');
if tmdep then RunHOSxP_ScriptProgram('CHECK_PTDEPART');
RunHOSxP_ScriptProgram('HSRIP_NCD_SCRIPT_V8');
//if FileExists('C:\Program Files (x86)\hsrip\HOSxPNotify\HOSxPNotify.exe') then
//WinEXEC('C:\Program Files (x86)\hsrip\HOSxPNotify\HOSxPNotify.exe '+cid);
//if FileExists('C:\Program Files\hsrip\HOSxPNotify\HOSxPNotify.exe') then
//WinEXEC('C:\Program Files\hsrip\HOSxPNotify\HOSxPNotify.exe '+cid);
//if bpdep then RunHOSxP_ScriptProgram('SmartBP');
except
on E : Exception do Exit;
end;
ตรงนี้คือ สั่งให้มันเปิด form ชื่อ "SmartBP" ของ v4 ผมยังไม่เคยเข้าไปดู อาจจะแตกต่างหรือเปล่าไม่รุ้นะครับ เอาเป้นแค่ ไอเดียก็ได้
RunHOSxP_ScriptProgram('SmartBP');
-
try
RunHOSxP_ScriptProgram('CHECK_TB');
if tmdep then RunHOSxP_ScriptProgram('CHECK_PTDEPART');
RunHOSxP_ScriptProgram('HSRIP_NCD_SCRIPT_V8');
//if FileExists('C:\Program Files (x86)\hsrip\HOSxPNotify\HOSxPNotify.exe') then
//WinEXEC('C:\Program Files (x86)\hsrip\HOSxPNotify\HOSxPNotify.exe '+cid);
//if FileExists('C:\Program Files\hsrip\HOSxPNotify\HOSxPNotify.exe') then
//WinEXEC('C:\Program Files\hsrip\HOSxPNotify\HOSxPNotify.exe '+cid);
//if bpdep then RunHOSxP_ScriptProgram('SmartBP');
except
on E : Exception do Exit;
end;
ตรงนี้คือ สั่งให้มันเปิด form ชื่อ "SmartBP" ของ v4 ผมยังไม่เคยเข้าไปดู อาจจะแตกต่างหรือเปล่าไม่รุ้นะครับ เอาเป้นแค่ ไอเดียก็ได้
RunHOSxP_ScriptProgram('SmartBP');
ขอบคุณสำหรับไอเดียคับ จะลองไปปรับดู
-
กรณีไม่เข้าเงื่อนไขอยากให้ Form2 ปิดเองโดยไม่ต้อง Click ครับผม
ใน ButtonClick() ใส่
//ปิดตัวเอง
self.close;