|
 |
« ตอบ #40 เมื่อ: 16 กรกฎาคม พ.ศ. 2552, 23.50 น. » |
|
ถ้าต้องการตรวจสอบหรือแก้ไขขั้นตอนการทำ ..คลิ๊ก Edit .. ถ้าไม่ต้องการ Task ที่ทำไว้ ..คลิ๊กที่ Delete ถ้าทุกอย่างถูกต้อง คลิ๊กที่ Minimize เป็นอันเสร็จ.  |
|
|
|
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #41 เมื่อ: 16 กรกฎาคม พ.ศ. 2552, 23.53 น. » |
|
เมื่อถึงเวลาที่ตั้งเอาไว้ โปรแกรมก็จะขึ้นมาทำการแบ็คอัพข้อมูลให้อัตโนมัติ เมื่อครบ 100% จะได้ออกมาเป็นข้อมูลที่ถูกมัดรวมกันไว้ อยู่ในรูปไฟล์สกุล .hbk  |
|
|
|
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #42 เมื่อ: 16 กรกฎาคม พ.ศ. 2552, 23.57 น. » |
|
วิธีการ Restore ไฟล์แบ็คอัพ สกุล .hbk ให้กลับมาเป็น ไฟล์ข้อมูลปกติตามเดิม1.ดับเบิ้ลคลิ๊ก หรือ คลิ๊กขวาที่ ไฟล์แบ็คอัพ .hbk ..เลือกคลิ๊กที่ Restore With Auto backup ..คลิ๊ก Next  
|
|
|
|
« แก้ไขครั้งสุดท้าย: 17 กรกฎาคม พ.ศ. 2552, 1.06 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #43 เมื่อ: 17 กรกฎาคม พ.ศ. 2552, 0.02 น. » |
|
กำลังแสกนไฟล์ รอจนกระทั่งครบ 100% ..คลิ๊ก Next  |
|
|
|
« แก้ไขครั้งสุดท้าย: 17 กรกฎาคม พ.ศ. 2552, 0.37 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #44 เมื่อ: 17 กรกฎาคม พ.ศ. 2552, 0.05 น. » |
|
ที่ File Name ..ใส่เครื่องหมายถูกลงไปในช่องสี่เหลี่ยม หน้า ไดรฟ์ C: ..คลิ๊ก Next  |
|
|
|
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #45 เมื่อ: 17 กรกฎาคม พ.ศ. 2552, 0.08 น. » |
|
คลิ๊กเลือกที่ Restore to new folder ..คลิ๊ก Browse เลือกสถานที่เก็บข้อมูลปลายทาง ที่ Browse for Folder ..เลือกคลิ๊กที่ Desktop หรือที่อื่นๆตามสะดวก ..คลิ๊ก OK ..คลิ๊ก Restore   |
|
|
|
« แก้ไขครั้งสุดท้าย: 17 กรกฎาคม พ.ศ. 2552, 1.10 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #46 เมื่อ: 17 กรกฎาคม พ.ศ. 2552, 0.23 น. » |
|
รอให้ Restore จนกระทั่งครบ 100% ..คลิ๊ก Close เป็นอันเสร็จ. ได้ออกมาเป็นโฟลเดอร์ ชื่อ Documents and Settings ..มีข้อมูลอยู่ภายใน  ----------------------------------------------------------- [ จบแล้วครับ..ไว้รอต่อภาค2] |
|
|
|
« แก้ไขครั้งสุดท้าย: 17 กรกฎาคม พ.ศ. 2552, 1.15 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
ζ ΐ ζ ζ Θ ž ķ v.2
ผู้ใหญ่บ้าน
.::เฒ่าทรนง::.
|
|
« ตอบ #47 เมื่อ: 17 กรกฎาคม พ.ศ. 2552, 0.35 น. » |
|
ท่านsak2005 ถ้าท่านมีโอกาสก็ช่วยทำบทความเกี่ยวกับการโมวินโดว์แบบละเอียดได้ด้วยก็ดีครับ เห็นมีหลายท่านสนใจอยู่ไม่น้อย รวมถึงบทความเก่าของท่านด้วยเกี่ยวกับการทำ wpi ผมได้อ่านบทความท่านมาหลายๆอันแล้วจากเวปอื่นๆ แต่ไม่อยากก๊อปมาลงเอง กลัวสมาชิคอ่านแล้วไม่เข้าใจ เท่ากับท่านอธิบายเอง ยังงัยก็ขอขอบคุณท่านมา ณ ที่นี้ด้วยแทนสมาชิคทุกท่านด้วยน่ะครับ
ทีมงานโซนไอที
|
|
|
|
|
บันทึกการเข้า
|
ขอบคุณครับท่านผู้เยี่ยมชมที่เข้ามาเม้นส์ ขอให้โชคดีครับท่าน ติดต่อ-สอบถาม ผู้ดูแลเว็บ Email :admin@zone-it.com| แจ้งเหตุด่วนถึงผู้ใหญ่บ้าน (คลี๊กที่นี่)| กฎระเบียบข้อบังคับ (คลิ๊กที่นี่) l พ.ร.บ คอมพิวเตอร์ ปี 2550 (คลิ๊กที่นี่)
|
|
|
|
|
« ตอบ #48 เมื่อ: 7 สิงหาคม พ.ศ. 2552, 1.51 น. » |
|
(ภาค2) Script Action Wizardการใช้งาน StatusDialog เบื้องต้น ..StatusDialog เป็น หน้าต่าง Progressbar สำเร็จรูป ที่โปรแกรมมีมาให้ ใช้งานได้ทันที ไม่ต้องสร้างขึ้นมาอีก :คำสั่งและความหมาย: ----------------------------------------------------- StatusDlg.Show 'หมายถึง สั่งแสดงหน้าต่าง Progressbar ดังรูป  ----------------------------------------------------- ถ้าจะให้ Progressbar บนหน้าต่าง เกิดการทำงาน ก็ต้องใส่รูปแบบสคริ๊ปคำสั่ง Loop For หรือ While ลงไปดังนี้ (ถ้าต้องการทดสอบ ก็ให้สร้าง Page Form และ Button ขึ้นมา แล้วใส่สคริ๊ปทั้งหมดลงไปที่ปุ่ม) Loop ForStatusDlg.Show(MB_ICONNONE, false);
Window.Hide(Application.GetWndHandle()); --คำสั่งปิดบัง Page Form ไม่ให้เห็นชั่วคราว เมื่อ StatusDlg ปรากฏขึ้น
for x = 0, 100, 1 do --คำสั่งวนลูป
StatusDlg.SetMeterPos(x); --คำสั่งให้แถบ progresbar เคลื่อนที่ ตั้งแต่ต้น(0) จนจบ(100)
Application.Sleep(100); --คำสั่งหน่วงเวลา
if x >= 100 then
Application.Sleep(1000);
StatusDlg.Hide();
Window.Show(Application.GetWndHandle()); --เมื่อStatusDlg หายไปแล้ว จะปรากฏ Page Form ขึ้นมาแทน
end
end ----------------------------------------------------------------------------------------------- Loop WhileStatusDlg.Show(MB_ICONNONE, false);
Window.Hide(Application.GetWndHandle());
x = 0
while (x < 100) do
StatusDlg.SetMeterPos(x);
x = x + 1;
Application.Sleep(100);
if x >= 100 then
Application.Sleep(1000);
StatusDlg.Hide();
Window.Show(Application.GetWndHandle());
end
end
|
|
|
|
« แก้ไขครั้งสุดท้าย: 7 สิงหาคม พ.ศ. 2552, 22.36 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #49 เมื่อ: 7 สิงหาคม พ.ศ. 2552, 23.23 น. » |
|
Function CallBackเป็นชุดคำสั่งที่ใช้สำหรับทำให้ StatusDlg Progressbar แสดงผลอัตโนมัติ เมื่อกระทำอะไรบางอย่าง เช่น ก๊อบปี้ไฟล์ หรือ ซิปไฟล์ เป็นต้น เรามาดูตัวอย่างคำสั่งก๊อบปี้ไฟล์ ที่ใช้ CallBack Function และ StatusDlg ..คำสั่งCallBackที่ใช้ก็คือคำสั่ง.. nil ------------------------------------------------------------------------------------------ ให้ท่านสร้าง Page Form และ Button ขึ้นมา ..ดับเบิ้ลคลิ๊กที่ Button แล้วเขียนสคริ๊ปลงไปดังนี้ DestFolder = Shell.GetFolder(SHF_MYDOCUMENTS);
Folder.Create(DestFolder.."\\TestBackup");
StatusDlg.Show(MB_ICONNONE, false);
File.Copy("AutoPlay\\Docs\\*.*", DestFolder.."\\TestBackup\\", true, true, false, true, nil);
error = Application.GetLastError();
StatusDlg.Hide();
if error ~= 0 then
result = Dialog.Message("Error", "There was an error copying the files to your system. Please try again.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
else
Shell.Execute(DestFolder.."\\TestBackup", "explore", "", "", SW_SHOWNORMAL);
end -------------------------------------------------------------------------- :รายละเอียด:DestFolder = Shell.GetFolder(SHF_MYDOCUMENTS); คำสั่งกำหนดพื้นที่ ที่จะนำข้อมูลเข้าไปวางไว้ ในกรณีย์นี้กำหนดไว้ที่ MyDocuments ---------------------------------------------------------------- Folder.Create(DestFolder.."\\TestBackup"); คำสั่งสร้างโฟลเดอร์ใหม่ ชื่อ TestBackup สำหรับเก็บไฟล์ต่างๆที่ถูกก๊อบปี้ โฟลเดอร์นี้ ถูกกำหนดให้เก็บไว้ใน MyDocuments ----------------------------------------------------------------- StatusDlg.Show(MB_ICONNONE, false); คำสั่งให้แสดงหน้าต่าง StatusDlg Progressbar ---------------------------------------------------------------- File.Copy("AutoPlay\\Docs\\*.*", DestFolder.."\\TestBackup\\", true, true, false, true, nil); คำสั่งก๊อบปี้ไฟล์ต่างๆ จากโฟลเดอร์ Docs ซึ่งเป็นโฟลเดอร์เก็บข้อมูลที่จะก๊อบปี้และเกี่ยวข้องกับการสร้าง Project เปิดดูหรือใช้งานได้ที่ C:\Documents and Settings\Administrator\My Documents\AutoPlay Media Studio 7.0\Projects\My Project\CD_Root\AutoPlay\Docs ---------------------------------------------------------------- คำสั่งเช็ค Error ซ่อน StatusDlg และเปิด explore เมื่อสิ้นสุดการทำงาน error = Application.GetLastError(); StatusDlg.Hide(); if error ~= 0 then result = Dialog.Message("Error", "There was an error copying the files to your system. Please try again.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1); else Shell.Execute(DestFolder.."\\TestBackup", "explore", "", "", SW_SHOWNORMAL); end ------------------------------------------------------------------------------ รูปตัวอย่าง StatusDlg Progressbar CallBack Function ..กำลังทำงาน  -------------------------------------------------------- อันนี้เป็นการใส่ % และข้อความ ลงไปใน StatusDlg ด้วย ..ดูรูป   StatusDlg.Show(MB_ICONNONE, false);
min = 0
max = 100
step = 1
for x = min,max,step do
StatusDlg.SetMeterPos(x);
StatusDlg.SetStatusText("Current Status:" ..x .."%");
StatusDlg.SetMessage("Working...");
Application.Sleep(100);
if x >= 100 then
Application.Sleep(500);
StatusDlg.SetStatusText("Completed.");
StatusDlg.SetMessage("Done.");
Application.Sleep(500);
StatusDlg.Hide();
end
end
|
|
|
|
« แก้ไขครั้งสุดท้าย: 10 กันยายน พ.ศ. 2552, 13.32 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #50 เมื่อ: 8 สิงหาคม พ.ศ. 2552, 1.45 น. » |
|
อีกตัวอย่างหนึ่ง ..คำสั่ง Zip หรือบีบอัดไฟล์ข้อมูลต่างๆ ..ใช้ CallBack Function StatusDlg archive_files = Dialog.FileBrowse(false, "Files to Add", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, false);
if (archive_files[1] ~= "CANCEL") and (archive_files ~= nil) then
StatusDlg.Show();
Zip.Add(_DesktopFolder.."\\NewArchive.zip", archive_files, true, "", 5, nil, false);
error = Application.GetLastError();
StatusDlg.Hide();
if (error == 0) then
Dialog.Message("Success", "The files were successfully archived.", MB_OK, MB_ICONINFORMATION);
File.ExploreFolder(_DesktopFolder, SW_SHOWNORMAL);
else
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
end
end --------------------------------------------------------------------------------------------------------- :รายละเอียด:archive_files = Dialog.FileBrowse(false, "Files to Add", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, false); คำสั่งเปิดหน้าต่าง Dialog เพื่อเลือกไฟล์ข้อมูลที่จะบีบอัด ---------------------------------------------------------------------------------------------------------- Zip.Add(_DesktopFolder.."\\NewArchive.zip", archive_files, true, "", 5, nil, false); คำสั่งบีบอัดไฟล์ ..เมื่อบีบอัดเสร็จเรียบร้อยแล้ว ไฟล์ข้อมูลที่ถูกบีบอัดทั้งหมด จะอยู่ใน NewArchive.zip ..วางอยู่บนเดสก์ทอป ----------------------------------------------------------------------------------------------------------- if (error == 0) then Dialog.Message("Success", "The files were successfully archived.", MB_OK, MB_ICONINFORMATION); File.ExploreFolder(_DesktopFolder, SW_SHOWNORMAL); else Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); end end คำสั่งเช็ค Error ..แจ้งสิ้นสุดการทำงาน ด้วย MessageBox และเปิด ExploreFolder |
|
|
|
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #51 เมื่อ: 9 สิงหาคม พ.ศ. 2552, 23.07 น. » |
|
การใช้งาน Input Box ..เป็นตัวอย่างการออกแบบโปรแกรมที่ทุกท่านควรศึกษาไว้ จะได้นำวิธีการ ไปประยุกต์ใช้ในการออกแบบกับโปรแกรมอื่นๆ ตามสไตล์ที่ท่านอยากให้เป็น ..โปรแกรมตัวอย่างต่อไปนี้ ผมใช้เวลาค้นคว้าทดลอง 1 วันเต็มๆ กว่าจะออกแบบมาได้สำเร็จ เป็นโปรแกรม Auto Install ..ไว้สำหรับตั้งโปรแกรมต่างๆแบบอัตโนมัติ การออกแบบไม่มีอะไรซับซ้อนมากนัก ไม่ยากเกินกว่าที่ท่านจะทำความเข้าใจ Download:Projectเพื่อการศึกษา Size:2.3 MB http://upload.one2car.com/download.aspx?pku=1C2358C6E4ZQZEQJ2GE5KF2TQCTQR2----------------------------------------------------------------------------------------------- ให้ท่านสร้าง Page Form และใส่ Object ลงไปตามรูปเลยครับ  ------------------------------------------------------ อันนี้ปรับปรุงมาให้ใหม่ มี Parameter ของโปรแกรมให้เลือกใช้ในตัว  ------------------------------------------------------ ส่วนประกอบของโปรแกรมนี้แบ่งออกเป็น6ส่วนด้วยกัน แต่ละส่วนต้องเขียนสคริ๊ปกำกับไว้ดังนี้ 1.Page1 หรือ Form Input.SetEnabled("Input1", false);
Input.SetEnabled("Input2", false);
ComboBox.SetEnabled("ComboBox1", false);
Button.SetEnabled("Button2", false); ------------------------------------------------------ 2.Input1 หรือ File Path: ส่วนนี้ไม่ต้องเขียนสคริ๊ปกำกับ ------------------------------------------------- 3.Button1 หรือ Browse open_file = Dialog.FileBrowse(true, "Select a File to install:", _DesktopFolder, "Program Files (*.exe;*.msi)|*.exe;*.msi|All Files (*.*)|*.*|", "", "dat", false, false);
Input.SetText("Input1", open_file[1]);
Input.SetEnabled("Input1", true);
ComboBox.SetEnabled("ComboBox1", true); ------------------------------------------------------------------ 4.Input2 หรือ Parameter ส่วนนี้ไม่ต้องเขียนสคริ๊ปกำกับ ----------------------------------------------------------------- 5.ComboBox1 หรือ Switches ..ส่วนนี้ต้องนำเข้า Switch parameter ของโปรแกรมต่างๆ ที่ต้องใช้งาน เข้าไปอยู่ในลิสท์รายการ Item Text ด้วย ดังรูป  get_text = ComboBox.GetText("ComboBox1");
Input.SetText("Input2", get_text);
Input.SetEnabled("Input2", true);
Button.SetEnabled("Button2", true); ------------------------------------------------------------------------------ 6.Button2 หรือ Install file_install = Input.GetText("Input1");
file_silent = Input.GetText("Input2");
File.Run(file_install, file_silent, "", SW_SHOWNORMAL, true);
Dialog.Message("", "Completed.", MB_OK, MB_ICONNONE, MB_DEFBUTTON3);
Window.Close(Application.GetWndHandle(), CLOSEWND_SENDMESSAGE); |
|
|
|
« แก้ไขครั้งสุดท้าย: 22 สิงหาคม พ.ศ. 2552, 1.12 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #52 เมื่อ: 26 สิงหาคม พ.ศ. 2552, 8.32 น. » |
|
ตัวอย่างการใช้งาน RadioButton-------------------------------- ผมออกแบบทำเป็นโปรแกรมเลือกติดตั้งเองแบบอัตโนมัติ จะได้ให้ท่านนำไปประยุกต์ใช้ติดตั้งโปรแกรมต่างๆ ดังรูป Download:Sample Project13 Size:12.2 MB http://upload.one2car.com/download.aspx?pku=3CBBFEF2A4LCC1BEP1DORVZIIJLYSL Chk_Btn1 = RadioButton.GetChecked("RadioButton1");
if (Chk_Btn1 == true) then
File.Run("AutoPlay\\Docs\\ezb5_en.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-", "", SW_SHOWNORMAL, true);
Dialog.Message("", "Completed.", MB_OK, MB_ICONNONE, MB_DEFBUTTON1);
end
Chk_Btn2 = RadioButton.GetChecked("RadioButton2");
if (Chk_Btn2 == true) then
File.Run("AutoPlay\\Docs\\uiso8_pe.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-", "", SW_SHOWNORMAL, true);
Dialog.Message("", "Completed.", MB_OK, MB_ICONNONE, MB_DEFBUTTON1);
end
Chk_Btn3 = RadioButton.GetChecked("RadioButton3");
if (Chk_Btn3 == true) then
File.Run("AutoPlay\\Docs\\winamp512_full.exe", "/S", "", SW_SHOWNORMAL, true);
Dialog.Message("", "Completed.", MB_OK, MB_ICONNONE, MB_DEFBUTTON1);
end |
|
|
|
« แก้ไขครั้งสุดท้าย: 26 สิงหาคม พ.ศ. 2552, 8.55 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
Porifera
แมงกะพรุนแถวกระบี่ค่ะ
|
|
« ตอบ #53 เมื่อ: 29 สิงหาคม พ.ศ. 2552, 19.44 น. » |
|
แหล่มค่ะ
|
|
|
|
|
บันทึกการเข้า
|
|
|
|
|
|
« ตอบ #54 เมื่อ: 30 สิงหาคม พ.ศ. 2552, 9.32 น. » |
|
พูดถึงเรื่อง Script Wizard ..ในบางครั้งก็เป็นอะไรที่ลึกซึ้งเกินที่จะเข้าใจ ผมก็เลยจัดทำเป็น ชุดสคริ๊ปสำเร็จรูปมาให้ใช้ ท่านจะได้ไม่ต้องเขียนเองทั้งหมด ---------------------------------------------------------- ตัวอย่างการใช้งาน ListBox Advanced ..ขั้นแรกให้ท่านสร้าง Form Object ขึ้นมาดังรูป  ------------------------------------------------------- ดับเบิ้ลคลิ๊กที่ Form หรือ Page1 เพื่อเปิด Script Editor ..คลิ๊กที่ Script ..คลิ๊ก OnShow แล้วเขียนสคริ๊ปลงไปดังนี้ bFound = Folder.DoesExist("AutoPlay\\Docs\\myFiles");
if bFound == true then
tFiles = File.Find("AutoPlay\\Docs\\myFiles", "*", false, false, nil, nil);
if tFiles then
for i,sFilePath in tFiles do
tFileParts = String.SplitPath(sFilePath); -- this breaks everypart of the filepath
sFileName = tFileParts.Filename; -- this one is the Filename only
sFileExtension = tFileParts.Extension; -- this one is File Extension only
sFullFileName = sFileName..sFileExtension;
ListBox.AddItem("ListBox1", sFullFileName, sFilePath); -- add to the ListBox
end
end
end ------------------------------------------------------------------------- ดับเบิ้ลคลิ๊กที่ ListBox1 ..คลิ๊กที่ Script และเขียนโค๊ดลงไปดังนี้ tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
sFilePath = ListBox.GetItemData("ListBox1", tSelected[1]);
File.Open(sFilePath, "", SW_SHOWNORMAL);
else
end -------------------------------------------------------- จากนั้นให้นำไฟล์ข้อมูลต่างๆ เช่น โปรแกรม,เพลง,หนัง,รูปภาพ เป็นต้น และอื่นๆ ที่ต้องการใช้งาน ไปวาง หรือเก็บไว้ที่ โฟลเดอร์ myFiles (หรือตามที่อยู่นี้; C:\Documents and Settings\Administrator\My Documents\AutoPlay Media Studio 7.0\Projects\ListBoxOpenFiles\CD_Root\AutoPlay\Docs) (ในกรณีย์ที่ท่านไม่ได้ใช้ Sample Project ..ให้ท่านสร้างโฟลเดอร์ชื่อ myFiles ขึ้นมาใหม่ และเก็บไว้ในโฟลเดอร์ Doc) ซึ่งอยู่ในโฟลเดอร์ Projects ของ AutoPlay Media Studio ใน My Documents ด้วยอำนาจการควบคุมการทำงาน อันเกิดจากโค๊ดคำสั่ง ที่เขียนลงบน Object จะทำให้รายชื่อของไฟล์ข้อมูลต่างๆ ไปปรากฏอยู่ที่ใน ListBox ตอน PreView ..ดับเบิ้ลคลิ๊กที่รายชื่อ เพื่อเปิดไฟล์  Download:Sample Project Size: 4.6 MB http://upload.one2car.com/download.aspx?pku=460C30C14ASFF4MZXCCHVAXF76NBCS |
|
|
|
« แก้ไขครั้งสุดท้าย: 31 สิงหาคม พ.ศ. 2552, 22.02 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #55 เมื่อ: 10 กันยายน พ.ศ. 2552, 12.38 น. » |
|
ความรู้เกี่ยวกับ Properties Object Explorer---------------------------- การปรับแต่งในส่วนของ Properties Object ต่างๆ ก็มีความสำคัญ จะช่วยทำให้โปรแกรมที่สร้าง..สมบูรณ์ และทำใด้อย่างรวดเร็ว เรามาดูกันว่า ส่วนต่างๆใน Properties ..อะไร? หมายถึงอะไร ..หรือมีหน้าที่ ..ใช้ทำอะไรได้บ้าง ----------------------------------------------------------------------------- Project Explorer มีหน้าที่ แสดง Object ต่างๆที่สร้างขึ้น รวมไปถึงการแสดงของ Code ต่างๆที่เราใส่ใน Event ของ Object นั้นๆ (ดูรูป)  ------------------------------------------------- Show Events ..มีหน้าที่แสดง Events ของ Object ต่างๆที่สร้างขึ้น ถ้าต้องการให้โชว์รูป Events ต่างๆ ..ก็ใส่เครื่องหมายถูกลงไปในช่องสี่เหลี่ยมที่ Show Events เราสามารถนำมาใช้ตรวจสอบว่า Object ไหน? ได้มีการเขียนสคริ๊ปโค๊ดควบคุมใส่ไว้บ้าง ถ้า Object ไหน มีการเขียนโค๊ดกำกับไว้ รูป Events ใน Project Explorer จะมีสีออกมาเป็น สีเขียว ดังรูป  จากรูปจะสังเกตุได้ว่า มีโค๊ดคำสั่งควบคุมการทำงานเขียนไว้ที่ .. Page1 ..ที่ Events On Show และที่ Button1 หรือปุ่ม Start ..ที่ Events On Click ---------------------------------------------------------------------- Properties ..ต่อไปเป็นใช้งานการปรับแต่ง รายละเอียด ของ Object ต่างๆ ที่ใช้ปรับแต่งอยู่บ่อยๆ จากรูป จะยกตัวอย่างจาก properties ของ Button1 ที่สร้างขึ้น ..แบ่งออกเป็นหมวดหมู่ ดังนี้  หมวดที่1 ObjectText = ใช้สำหรับเปลี่ยนชื่อที่ปรากฏบนปุ่ม Font = ใช้จัดการเกี่ยวกับ ภาษา , ขนาด ของตัวอักษร ------------------------------------------------ หมวดที่2 Colors ใส่สีให้ตัวอักษร , Link สีตัวอักษร และ Cursor Events Normal = Highlight = Click = Disable = |
|
|
|
« แก้ไขครั้งสุดท้าย: 11 กันยายน พ.ศ. 2552, 14.43 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #56 เมื่อ: 10 กันยายน พ.ศ. 2552, 12.45 น. » |
|
ท่านsak2005 ถ้าท่านมีโอกาสก็ช่วยทำบทความเกี่ยวกับการโมวินโดว์แบบละเอียดได้ด้วยก็ดีครับ เห็นมีหลายท่านสนใจอยู่ไม่น้อย รวมถึงบทความเก่าของท่านด้วยเกี่ยวกับการทำ wpi ผมได้อ่านบทความท่านมาหลายๆอันแล้วจากเวปอื่นๆ แต่ไม่อยากก๊อปมาลงเอง กลัวสมาชิคอ่านแล้วไม่เข้าใจ เท่ากับท่านอธิบายเอง ยังงัยก็ขอขอบคุณท่านมา ณ ที่นี้ด้วยแทนสมาชิคทุกท่านด้วยน่ะครับ[i][/i] ถ้าทำบทความเสร็จเมื่อไหร่ จะนำบทความเกี่ยวกับ การโมวินด์ และ WPI มาลงให้แบบรวดเดียวจบครับ... |
|
|
|
« แก้ไขครั้งสุดท้าย: 10 กันยายน พ.ศ. 2552, 12.47 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #57 เมื่อ: 16 กันยายน พ.ศ. 2552, 12.02 น. » |
|
ความรู้เรื่อง Events ..คือ หรือ หมายถึงอะไร? ..ใช้ทำอะไร? ใช้ยังไง? เป็นคำถามของผู้ที่ยังไม่เข้าใจเรื่องของ อีเว้นท์ มากนัก Events หมายถึงการควบคุมการทำงานของ Object ในเหตุการณ์ต่างๆที่อยากให้เกิดขึ้นกับ Object นั้นๆ ผ่านทาง.. การเขียนสคริ๊ปสั่งให้ทำงาน หรือ สั่งให้ทำงานด้วยตนเอง ผ่าทางอุปกรณ์คอมพ์ เช่น. เม๊าท์ หรือ คีย์บอร์ด เป็นต้น. Events ที่ใช้กับ Object ต่างๆ มีไม่เท่ากัน แต่มีหลายแบบ แบ่งออกเป็น Events ประจำ Object ต่างๆ ..ตัวอย่างดังนี้ ------------------------------------------ 1. Events Form และความหมาย On Preload หมายถึง ถ้าเขียนสั่งให้ Object ใดทำงานที่ตำแหน่งนี้ จะทำให้ Object นั้นทำงานก่อนที่ Page Form จะเปิดขึ้น On Show หมายถึง ถ้าเขียนสั่งให้ Object ใดทำงานที่ตำแหน่งนี้ จะทำให้ Object นั้นทำงานพร้อมกับ Page Form On Close หมายถึง On Timer หมายถึง On Audio หมายถึง On Size หมายถึง On Menu หมายถึง On Key หมายถึง On Mouse Button หมายถึง On Mouse Move หมายถึง -------------------------------------- 2. Events Button และความหมาย OnClick หมายถึง ถ้าเขียนสั่งให้ Object ใดทำงานที่ตำแหน่งนี้ จะทำให้ Object นั้นทำงาน ด้วยการใช้เม๊าท์คลิ๊กที่ปุ่มนั้นๆ1ครั้ง On Right-Click หมายถึง On Enter หมายถึง On Leave หมายถึง ---------------------------------------- 3. Events Input และความหมาย On Key หมายถึง On Focus หมายถึง --------------------------------------- 4.. Events ListBox และความหมาย On Double-Click หมายถึง On Select หมายถึง On Key หมายถึง On Focus หมายถึง --------------------------------------- Events Object มีเยอะมาก จะอธิบายให้ทั้งหมด ก็คงไม่ไหว ..ที่เหลือ..ท่านต้องศึกษา ค้นคว้าเพิ่มเติมกันเองนะครับ ---------------------------------------------------------------------------------------- ตัวอย่าง: ..ถ้าเขียนสคริ๊ปคำสั่ง ..สั่งให้ StatusDlg ProgressBar ทำงาน ..โดยเขียนสคริ๊ปไว้ที่ Form.. On Preload 'จะเกิดอะไร?ขึ้น' คำตอบก็คือ..เมื่อ StatusDlg ProgressBar แสดงผลจบ ..หน้าต่างโปรแกรมที่สร้าง (Page Form)ก็จะเปิดขึ้นมา  ----------------------------------------------------------------------------------------------- ..ถ้าเขียนสคริ๊ปไว้ที่ Form.. On Show ล่ะ? ..'จะเกิดอะไร?!?'..
คำตอบก็คือ.. หน้าต่างโปรแกรมจะเปิดขึ้นมาพร้อมๆกับการแสดงผลของ StatusDlg ProgressBar |
|
|
|
« แก้ไขครั้งสุดท้าย: 17 กันยายน พ.ศ. 2552, 13.26 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #58 เมื่อ: 24 กันยายน พ.ศ. 2552, 20.58 น. » |
|
ความพยายามสูงมาก แบบนี้น่าสนับสนุน
|
|
|
|
|
บันทึกการเข้า
|
|
|
|
|
|
« ตอบ #59 เมื่อ: 28 กันยายน พ.ศ. 2552, 18.02 น. » |
|
ความรู้เพิ่มเติมเกี่ยวกับ Progressbar Percentageเป็นการใส่ ตัวเลข % ลงบน ProgressBar ลองดาวน์โหลด Project ไปศึกษาดูครับ Download: http://upload.one2car.com/download.aspx?pku=416A0E1C2AIKTBV87O9N73147QRZLB min = 0;
max = 100;
step = 1;
for x = min, max, step do
Progress.SetCurrentPos("Progress1", x);
Progress.SetText("Progress1", x.."%");
Application.Sleep(50);
if x >= 100 then
Application.Sleep(500);
Dialog.Message("", "Completed.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Progress.SetCurrentPos("Progress1", 0);
Progress.SetText("Progress1", "0%");
end
end ---------------------------------------------------------------------------------- x = 0;
while (x < 100) do
Progress.SetCurrentPos("Progress1", x);
Progress.SetText("Progress1", x.."%");
x = x + 1;
Application.Sleep(50);
if x >= 100 then
Application.Sleep(500);
Dialog.Message("", "Completed.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Application.Sleep(500);
Progress.SetCurrentPos("Progress1", 100);
Progress.SetText("Progress1", "100%");
Application.Sleep(500);
Progress.SetCurrentPos("Progress1", 0);
Progress.SetText("Progress1", "0%");
end
end |
|
|
|
« แก้ไขครั้งสุดท้าย: 28 กันยายน พ.ศ. 2552, 19.16 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
