|
 |
« เมื่อ: วันแม่ปีที่แล้ว, 13.11 น. » |
|
ผมครุ่นคิดอยู่นานว่า..ทำอย่างไร? ที่จะสอนการใช้งาน vb.net แบบรวบรัด กระชับ เข้าใจง่าย เพื่อปูพื้นฐานการเรียนรู้ vb.net ขั้นสูงต่อไป ให้แก่ท่านทั้งหลาย ขอให้ติดตามบทความนี้กันไปเรื่อย จะมา Update ความรู้ให้เป็นระยะๆ ..ให้ท่านเตรียมติดตั้งโปรแกรม Visual Basic 2008 ไว้ก่อนล่วงหน้า การติดตั้งโปรแกรม Visual Basic 2008 ทำได้2ทาง คือ ติดตั้งผ่านเน็ต หรือจะหาแผ่นCDมาติดตั้งเองก็ได้ ..คราวหน้าเรากลับมาเรียนรู้กัน Link:VB.NET Setup    27 คูลเฟิร์มโดย: ζ ΐ ζ ζ Θ ž ķ v.2, bncom, *o*WINTER*v*, sutt, jedphuket, ananchai, Maruko, ▓▒░BirD░▒▓™, เด็กตัวดำ, simarisu, iters, Code_NamE, •!3o4T•, armdianajone, meymee, มนุษย์ต่างดาว  , ☼Runtime Error!!!☼, OriginalSpinZ, zidane36, nook_563, trye, >>☀sarut☀<<  , nikomweb, ɹǝʞɔɐɹɔ-[ɹ]ǝuunƃ , smile-of-me, βΣ₪žÏÏL!ª<3, Mr.\/@sZ@ |
|
|
|
« แก้ไขครั้งสุดท้าย: 14 ธันวาคม พ.ศ. 2552, 13.40 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #1 เมื่อ: วันแม่ปีที่แล้ว, 17.20 น. » |
|
ผมจะไม่อธิบายรายละเอียดการใช้งานในหน้าโปรแกรม เพราะเมื่อฝึกหัดเรียนรู้-สร้าง Project กันแล้ว จะรู้วิธีการใช้งานกันไปเอง
แต่ให้ทราบถึง ขั้นตอนการใช้ว่ามีอะไรบ้าง ดังนี้
--------------------------------------
1.สร้าง GUI หมายถึง การสร้าง Page Form และ Object ที่ต้องการใช้งานขึ้นมา
2.ปรับแต่งรายละเอียดของ GUI เพิ่มเติม
3.เขียนสคริ๊ปคำสั่งต่างๆลงไปควบคุมการทำงานของ GUI
4.ทดสอบและแก้ไขข้อบกพร่องต่างๆ
5.Save หรือบันทึกผลงาน
6.Build หรือ แปลง ไฟล์ Project ที่สร้าง เช่น .vb และอื่นๆ ..มาเป็น โปรแกรม ที่ใช้ได้ทั่วไป มักจะมีสกุลเป็น .exe
----------------------------------------------------------------------------------------
|
|
|
|
« แก้ไขครั้งสุดท้าย: วันแม่ปีที่แล้ว, 22.56 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #2 เมื่อ: วันแม่ปีที่แล้ว, 17.30 น. » |
|
แบบฝึกหัดที่1 เกี่ยวกับ Progressbar ----------------------------- 1.สร้าง Page Form ..คลิ๊กที่เมนู File ..เลือกคลิ๊กที่ New Project... ..เลือกคลิ๊กที่ Windows Forms Application ..ที่ช่อง Name: ตั้งชื่อให้ Project ..คลิ๊ก OK   ------------------------------------------------------- สร้าง Object ต่างๆที่ต้องการใช้งาน ลงบนพอร์ม เช่น Progressbar,Button และ Timer เป็นต้น ที่ Toolbox ซ้ายมือ ..คลิ๊กเลือก Object ต่างๆที่ตองการใช้งาน มาวางไว้บนฟอร์ม    |
|
|
|
« แก้ไขครั้งสุดท้าย: วันแม่ปีที่แล้ว, 22.50 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #3 เมื่อ: วันแม่ปีที่แล้ว, 18.04 น. » |
|
2.ปรับแต่งรายละเอียดของ GUI -------------------------- จะย่อ-ขยาย-ย้าย หรือ ปรับเปลี่ยน ขนาด-สี-ตัวอักษร-ตัวเลข และ สัญลักษณ์ ต่างๆ ตามสดวก  |
|
|
|
« แก้ไขครั้งสุดท้าย: วันแม่ปีที่แล้ว, 23.24 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #4 เมื่อ: วันแม่ปีที่แล้ว, 20.41 น. » |
|
ความ รู้ ทั้ง นั้น เลย ครับ ผม ติด ตาม อยู่ อิอิ
|
|
|
|
|
บันทึกการเข้า
|
|
|
|
|
|
« ตอบ #5 เมื่อ: วันแม่ปีที่แล้ว, 21.24 น. » |
|
สมองเพิ่มรอยหยักได้อีกแล้ว
|
|
|
|
|
บันทึกการเข้า
|
|
|
|
|
|
« ตอบ #6 เมื่อ: วันแม่ปีที่แล้ว, 23.36 น. » |
|
3.เขียนสคริ๊ปคำสั่งลงบน Project -------------------------- ขั้นตอนนี้ ถือว่าสำคัญมาก ทุกท่านควรให้ความสนใจเป็นพิเศษ ..สอบผ่านหรือไม่ผ่านก็ตรงนี้แหละ จำรูปแบบของสคริ๊ปคำสั่งต่างๆไว้ให้ดีว่า..หมายถึงอะไร? และเขียนให้ถูกต้อง และต้องวางสคริ๊ปคำสั่งบน Object ให้ถูกที่ด้วย ไม่งั้นจะเกิดข้อผิดพลาดตามมา ------------------------------------------------------------------------------------ ดับเบิ้ลที่ Button1 เพื่อเปิด Editor และเขียนสคริ๊ปลงไปดังนี้ Timer1.Enabled = True คำสั่งนี้หมายถึง ตั้งเวลาทำงาน ด้วยการกดที่ปุ่ม Button1 ..เป็นแบบ Timer_Tick คือจะทำงานอยู่เป็นช่วงๆ อย่างรวดเร็ว ตลอดเวลา ในการกำหนดเวลาให้ช้าหรือเร็ว กำหนดได้ที่ในรายละเอียดที่ Interval หรือจะเขียนเป็นสคริ๊ป Timer ออกมาเลยก็ได้ ดังนี้ ------------------------------------------------------------------------------------------- Timer1.Interval = 100 ถ้าระบุจำนวนตัวเลขให้น้อยลง จะทำงานเร็วขึ้น (สคริ๊ปนี้จะนำไปใช้ใน Editor ของ Timer1 ซึ่งปกติไม่ใช้ก็ได้) --------------------------------------------------------------------------------------------  ---------------------------------------------------------------------------------------------------------------- ดับเบิ้ลคลิ๊กที่ Timer และเขียนสคริ๊ปคำสั่งลงไปดังนี้ If ProgressBar1.Value <= 100 Then
ProgressBar1.Value = ProgressBar1.Value + 1
Timer1.Interval = 50
If ProgressBar1.Value >= 100 Then
ProgressBar1.Value = 0
Timer1.Enabled = False
End If
End If การเริ่มการทำงานและการสิ้นสุดการทำงานของ Progressbar ถูกกำหนด ด้วยเงื่อนไขที่ว่า... If ProgressBar1.Value <= 100 Then หมายถึง ถ้าการแสดงผลของ Progressbar นั้น น้อยกว่า 100 ซึ่งอันที่จริง Progressbar ถูกกำหนดโดยโปรแกรม ไว้ที่ 0 อยู่แล้ว นั่นก็เท่ากับว่า น้อยกว่า 100 จริงๆ จึงเป็นเหตุให้ Progressbar ทำงานตามสั่ง คือ ProgressBar1.Value = ProgressBar1.Value + 1 หมายถึง สั่งให้ Progressbar เคลื่อนที่ไปเรื่อยๆ ที่ละ 1 จนกว่าจะครบ 100 การเคลื่อนที่ของ Progressbar จะช้าหรือเร็ว สามารถกำหนดได้ด้วยคำสั่งนี้..Timer1.Interval = 50 + 1 คือ Progress Step ..ถ้า + มาก จะวิ่งเร็วขึ้น -------------------------------- If ProgressBar1.Value >= 100 Then ProgressBar1.Value = 0 Timer1.Enabled = False 3คำสั่งนี้หมายถึง ถ้า Progressbar เท่ากับ หรือมากกว่า 100 เมื่อใด ให้ Progressbar กลับไปเป็น 0 ตามเดิม และสั่งให้ Timer หยุดทำงาน ถ้าต้องการสั่งปิด หน้าต่าง Form ด้วย บันทัดต่อไปให้ใส่คำสั่ง End If ProgressBar1.Value <= 100 Then
ProgressBar1.Value = ProgressBar1.Value + 1
Timer1.Interval = 50
If ProgressBar1.Value >= 100 Then
ProgressBar1.Value = 0
Timer1.Enabled = False
End
End If
End If  |
|
|
|
« แก้ไขครั้งสุดท้าย: 13 สิงหาคม พ.ศ. 2552, 11.31 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #7 เมื่อ: 13 สิงหาคม พ.ศ. 2552, 1.55 น. » |
|
4.ทดสอบผลงาน ถ้าเขียนสคริ๊ปคำสั่งได้ถูกต้อง และไม่มี Error ..Progressbar ก็จะทำงานได้ ดังรูป 5.บันทึกผลงาน เก็บไว้ทำต่อ หรือแก้ไขในคราวต่อไป จะได้ไม่ต้องสร้างขึ้นมาใหม่อีก  |
|
|
|
« แก้ไขครั้งสุดท้าย: 13 สิงหาคม พ.ศ. 2552, 1.58 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #8 เมื่อ: 13 สิงหาคม พ.ศ. 2552, 2.15 น. » |
|
6.Build ผลงานออกเป็นโปรแกรม (Application) สกุล .exe และไฟล์ Project สกุลต่างๆ
---------------------------------
คลิ๊กที่ Start Page
ที่ Crate: ..คลิ๊กที่ Project... จะมี Dialog Popup ผุดขึ้นมา ให้คลิ๊กที่ Save
คลิ๊ก Browse และเลือกวางผลงานที่ Desktop ..คลิ๊ก Save
|
|
|
|
« แก้ไขครั้งสุดท้าย: 13 สิงหาคม พ.ศ. 2552, 2.22 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #9 เมื่อ: 13 สิงหาคม พ.ศ. 2552, 2.23 น. » |
|
แบบฝึกหัดที่2 หัดเขียนคำสั่งเกี่ยวกับ การจัดการ.. File และ Folder ---------------------------------------------------------------------- ใน Script Editor ของ VB.Net นั้น ถ้าเราใช้และสังเกตุให้ดี จะพบว่า ประกอบไปด้วย Script in หรือ สคริ๊ปตัวช่วยเขียน ผุดขึ้นมาเป็นระยะ ระหว่างที่กำลังเขียนสคริ๊ปคำสั่งอยู่ สคริ๊ปคำสั่งที่เขียนต่อกัน มักถูกคั้นไว้ด้วยเครื่องหมาย . จุด หรือ dot และที่ต่อจากสคริ๊ปคำสั่ง จะเป็นรูปแบบสคริ๊ปที่ถูกสั่งให้ทำงาน มักจะประกอบไปด้วยเครื่องหมาย (" " , '' ") และ Parameter ต่างๆ เป็นต้น ถ้าคลิ๊กขวา ก็จะสามารถใช้สคริ๊ป Snippet ซึ่งเก็บรวบรวม สคริ๊ปคำสั่งสำเร็จรูป ไว้ให้ท่านเลือกใช้มากมาย ไม่ต้องคอยเขียนเองทั้งหมด ..ท่านจะเห็นภาพจินตนาการได้ชัดเจนยิ่งขึ้น เมื่อท่านได้ฝึกฝนทำแบบฝึกหัด ดังต่อไปนี้.. --------------------------------------------------------------------------------------------------------------------- 1.คำสั่ง: สร้างโฟลเดอร์ใหม่ (Create New Folder) My.Computer.FileSystem.CreateDirectory("C:\Documents and Settings\Administrator\Desktop\New Folder1") ความหมาย: สร้างโฟลเดอร์ใหม่ ชื่อ New Folder1 และวางไว้บนหน้าจอ ------------------------------------------------------------------------------------------------ 2.คำสั่ง: ก๊อบปี้โฟลเดอร์ (Copy Folder) My.Computer.FileSystem.CopyDirectory("C:\Documents and Settings\Administrator\My Documents\My Pictures", "C:\Documents and Settings\Administrator\Desktop\My Pictures", True) ความหมาย: ก๊อบปี้ข้อมูลทั้งหมด ที่อยู่ในโฟลดเอร์ ชื่อ My Pictures มาไว้ในโฟลเดอร์ใหม่ชื่อ My Pictures ถ้ามีข้อมูลที่ซ้ำกัน ให้เขียนทับของเดิมที่มีอยู่ (ใช้คำสั่ง True) (ถ้าไม่ต้องการเขียนทับ ให้ใช้คำสั่ง False) และวางโฟลเดอร์ไว้บนเดสก์ทอป ------------------------------------------------------------------------------------------------------------------------ 3.คำสั่ง: รันไฟล์ (Run , Open) หรือ เปิดหรือรัน โปรแกรมต่างๆที่มีอยู่ในระบบ และอื่นๆ Shell("Notepad.exe", AppWinStyle.NormalNoFocus, False, -1) ความหมาย: สั่งเปิดโปรแกรม Notepad ------------------------------------------------------------------------- Shell("C:\Documents and Settings\Administrator\Desktop\winamp512_full.exe", AppWinStyle.NormalNoFocus, False, -1) ความหมาย: สั่งรันโปรแกรม Winamp_Setup.exe ที่วางอยู่บนเดสก์ทอป ---------------------------------------------------------------------------- Process.Start("C:\Documents and Settings\Administrator\Desktop\winamp512_full") ความหมาย: สั่งรันโปรแกรม Winamp_Setup.exe ที่วางอยู่บนเดสก์ทอป --------------------------------------------------------------------------- |
|
|
|
« แก้ไขครั้งสุดท้าย: 18 สิงหาคม พ.ศ. 2552, 10.20 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #10 เมื่อ: 13 สิงหาคม พ.ศ. 2552, 10.36 น. » |
|
ขอบคุนมากคับท่าน Sak2005
ลบกวนคุนหน่อยครับ
ผมอยากรู้โค้ดของกานหลี้นเพงใน VB 6.0 ครับ
ตัวย่าง เวลาเราคลิก Button แล้วให้มีเสียงเพงครับ
ขอบคุนล่วงหน้านะครับ
|
|
|
|
|
บันทึกการเข้า
|
|
|
|
|
|
« ตอบ #11 เมื่อ: 13 สิงหาคม พ.ศ. 2552, 21.56 น. » |
|
ขอบคุนมากคับท่าน Sak2005
ลบกวนคุนหน่อยครับ
ผมอยากรู้โค้ดของกานหลี้นเพงใน VB 6.0 ครับ
ตัวย่าง เวลาเราคลิก Button แล้วให้มีเสียงเพงครับ
ขอบคุนล่วงหน้านะครับ
วันหลังจะกลับมาตอบให้ครับ ..เครื่องไม่ได้ลง VB.6 ไว้ |
|
|
|
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #12 เมื่อ: 13 สิงหาคม พ.ศ. 2552, 21.58 น. » |
|
แบบฝึกหัดที่3 Dialog Popup Message เป็นหน้าต่างโปรแกรมที่ผุดขึ้นมาให้ใช้งาน เมื่อเราสั่งรัน อยู่หลายประเภท ดังนี้ ----------------------------------------------------- 1.MessageBox (msgbox) มี2แบบคือ แบบมีเงื่อนไข และ ไม่มีเงื่อนไข แบบแรก: มีเงื่อนไข ..ต้องใช้ตัวแปรร่วมด้วย การเขียนสคริ๊ปบน Editor ก็ต้องประกาศตัวแปรด้วยทุกครั้ง เมื่อใช้ตัวแปรนั้นๆ ไม่งั้นสคริ๊ปที่เขียน จะไม่ทำงาน หรือ ตัวแปรไม่ทำงานนั่นเอง ถ้าสคริ๊ปที่เขียนไม่ได้ใช้ตัวแปร ก็ไม่จำเป็นตัวประกาศตัวแปร ..ประกาศตัวแปร โดยใช้คำสั่ง Dim Stringตัวแปร As Integer..ดังนี้ Public Class Form1
Dim BtnCode As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BtnCode = MsgBox("ท่านต้องการทดสอบการกดปุ่ม?", 36, "Sample Project1")
If BtnCode = vbYes Then
MsgBox("คุณคลิ๊กปุ่ม.. Yes", 0, "")
Else
MsgBox("คุณคลิ๊กปุ่ม.. No", 0, "")
End If
End Sub
End Class **ตัวอักษรที่ตั้งขึ้นเป็นตัวแปร คือ BtnCode** ---------------------------------------- อันนี้เป็นโค๊ดที่เขียนถูกต้องตามต้นฉบับ Dim BtnCode As MsgBoxResult
BtnCode = MsgBox("คุณต้องการทดสอบกดปุ่ม?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Test MessageBox")
If BtnCode = MsgBoxResult.Yes Then
MsgBox("คุณคลิ๊ก..Yes", MsgBoxStyle.Information, "")
Else
MsgBox("คุณคลิ๊ก..No", MsgBoxStyle.Information, "")
End If ----------------------------------------  Public Class Form1
Dim BtnCode As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BtnCode = MsgBox("ท่านต้องการทดสอบการกดปุ่ม?", 35, "Sample Project1")
Select Case BtnCode
Case vbYes
MsgBox("คุณคลิ๊กปุ่ม.. Yes", 0, "")
Case vbNo
MsgBox("คุณคลิ๊กปุ่ม.. No", 0, "")
Case vbCancel
MsgBox("คุณคลิ๊กปุ่ม.. Cancel", 0, "")
End Select
End Sub
End Class  ------------------------------------------------------------------------- แบบที่สอง: ไม่มีเงื่อนไข ..มักจะมีปุ่มให้ใช้แค่ปุ่มเดียว ดังนี้ Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("ระวัง! พบข้อผิดพลาด ตรวจสอบอีกครั้ง ", 48, "")
End Sub
End Class  Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("ระบบทำงานล้มเหลว!?!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "")
End Sub
End Class  |
|
|
|
« แก้ไขครั้งสุดท้าย: 22 กันยายน พ.ศ. 2552, 15.31 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #13 เมื่อ: 14 สิงหาคม พ.ศ. 2552, 7.03 น. » |
|
ขอบคุนมากคับท่าน Sak2005
ลบกวนคุนหน่อยครับ
ผมอยากรู้โค้ดของกานหลี้นเพงใน VB 6.0 ครับ
ตัวย่าง เวลาเราคลิก Button แล้วให้มีเสียงเพงครับ
ขอบคุนล่วงหน้านะครับ
วันหลังจะกลับมาตอบให้ครับ ..เครื่องไม่ได้ลง VB.6 ไว้ จะค่อยติดตามนะครับ ถ้าเป็นย่างไงบอก Code ด้วยนะครับ ขอบคุนอีกที |
|
|
|
|
บันทึกการเข้า
|
|
|
|
|
|
« ตอบ #14 เมื่อ: 15 สิงหาคม พ.ศ. 2552, 14.10 น. » |
|
โปรแกรมดูหนัง ฟังเพลง สร้างจาก VB6 ตามคำขอครับ พร้อม Source code Download: Multimedia Project Size:1.4 MB http://upload.one2car.com/download.aspx?pku=231F7D0A7315SEOLEN15XMYBA[D63R Private Sub Form_Load()
End Sub
_______________________________________________________
Private Sub wmpRun_OpenStateChange(ByVal NewState As Long)
End Sub
_______________________________________________________
Private Sub txtURL_Change()
End Sub
_______________________________________________________
Private Sub cmdOpenFile_Click()
cdlFile.ShowOpen
cdlFile.Filter = "MP3 File (*.mp3 : *.dat ) | *.mp3; *.dat | All File (*.*) | *.*"
txtURL.Text = cdlFile.FileName
End Sub
________________________________________________________
Private Sub Command1_Click()
wmpRun.URL = txtURL.Text
End Sub ________________________________________________________ |
|
|
|
« แก้ไขครั้งสุดท้าย: 15 สิงหาคม พ.ศ. 2552, 14.26 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #15 เมื่อ: 15 สิงหาคม พ.ศ. 2552, 21.19 น. » |
|
สุด ยอด จริงๆ ครับ ท่าน sak2005
อิอิ
|
|
|
|
|
บันทึกการเข้า
|
|
|
|
|
|
« ตอบ #16 เมื่อ: 17 สิงหาคม พ.ศ. 2552, 10.49 น. » |
|
OpenFileDialog เป็นคำสั่ง นำเข้าไฟล์ หรือ browse เพื่อเลือกไฟล์ที่ต้องการใช้งาน และใช้งานไฟล์ที่เลือก(สั่งเปิดหรือรันไฟล์)   Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.InitialDirectory = "C:\Documents and Settings\Administrator\Desktop"
OpenFileDialog1.Title = "Select a file to Open:"
OpenFileDialog1.Filter = "Program File(*.exe;*.msi)|*.exe;*.msi|All Files(*.*)|*.*"
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell(TextBox1.Text, AppWinStyle.NormalFocus)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
End Sub
End Class
|
|
|
|
« แก้ไขครั้งสุดท้าย: 17 สิงหาคม พ.ศ. 2552, 12.43 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #17 เมื่อ: 19 สิงหาคม พ.ศ. 2552, 4.43 น. » |
|
AutoInstaller&SilentMode ใช้สำหรับติดตั้งโปรแกรมแบบอัตโนมัติ ผมออกแบบเอง ทำอยู่หลายวันเหมือนกันกว่าจะเสร็จ ยากตรงเขียนสคริ๊ปคำสั่งนี่แหละ ลองนำไปศึกษากันดูครับ Download:Sample Project9 Size:3.4 MB http://upload.one2car.com/download.aspx?pku=2C6FAB2E52JGBLKNGPWRE[8QBIH5WQ Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button2.Enabled = True
Button3.Enabled = True
OpenFileDialog1.InitialDirectory = "C:\Documents and Settings\Administrator\Desktop"
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "Program Files (*.exe;*.msi)|*.exe;*.msi|All Files (*.*)|*.*"
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Proc As Process
TextBox1.Text = TextBox1.Text
Proc = Process.Start(TextBox1.Text, TextBox2.Text)
Proc.WaitForExit()
MsgBox("ติดตั้งเรียบร้อย.", MsgBoxStyle.OkOnly + MsgBoxStyle.ApplicationModal, "")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell("C:\Documents and Settings\Administrator\Desktop\AutoInstallerVB.NET_Project9\ProjectHit\Plugin\USSF1", _
AppWinStyle.NormalFocus)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button2.Enabled = False
Button3.Enabled = False
End Sub
End Class ------------------------------------------------------------------------- อันนี้ปรับปรุงมาให้ใหม่ มี Switch parameter ให้เลือกใช้ในตัว  -------------------------------------------------- ส่วนประกอบโปรแกรม มีอยู่ด้วยกัน 6 ส่วน แต่ละส่วน ต้องเขียนสคริปกำกับไว้ ดังนี้ 1.Form Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button2.Enabled = False
TextBox2.Enabled = False
ComboBox1.Enabled = False
End Sub -------------------------------------------------------------------- 2.TextBox1 หรือ Source ไม่ต้องเขียนสคริ๊ปกำกับ -------------------------------------------------------------------- 3.Button1 หรือ Browse Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.InitialDirectory = "C:\Documents and Settings\Administrator\Desktop"
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "Program Files (*.exe;*.msi)|*.exe;*.msi|All Files (*.*)|*.*"
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
ComboBox1.Enabled = True
TextBox2.Enabled = True
End Sub ------------------------------------------------------------------------------------------ 4.TextBox2 หรือ Parameter ไม่ต้องเขียนสคริ๊ปกำกับ ----------------------------------------------- 5.ComboBox1 หรือ Switches ..ต้องนำเข้า Switches Parameter ที่ต้องใช้ เข้าไปในลิสท์รายการ ดังรูป เลือกคลิ๊กที่ Edit Items ..นำเข้า Switches Parameter ..คลิ๊ก OK   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox2.Text = ComboBox1.Text
Button2.Enabled = True
End Sub ------------------------------------------------------------ 6.Button2 หรือ Install Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Proc As Process
TextBox1.Text = TextBox1.Text
Proc = Process.Start(TextBox1.Text, TextBox2.Text)
Proc.WaitForExit()
MsgBox("ติดตั้งเรียบร้อย.", MsgBoxStyle.OkOnly + MsgBoxStyle.ApplicationModal, "")
End
End Sub
|
|
|
|
« แก้ไขครั้งสุดท้าย: 22 สิงหาคม พ.ศ. 2552, 3.39 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #18 เมื่อ: 19 สิงหาคม พ.ศ. 2552, 11.32 น. » |
|
ตอบปัญหาคาใจ มีคนถามมาว่า TextBox และ InputBox ต่างกันอย่างไร? และเมื่อพิมพ์ข้อความลงไปแล้ว จะส่งออกผลของข้อความนั้นได้อย่างไร? ---------------------------------------------------------------- ตอบ: TextBox หมายถึง กล่องที่มีช่องให้กรอกข้อความโต้ตอบลงไป เป็นเครื่องมือที่ช่วยอำนวยความสดวกในการเขียนโปรแกรม เป็นกราพฟิกซ์สำเร็จรูป มองเห็นได้ ใช้งานได้ทันที ไม่ต้องเสียเวลาเขียนเป็นสคริ๊ป InputBox เป็น Dialog Popup หมายถึง หน้าต่างโต้ตอบที่ผุดขึ้นมา เรามองไม่เห็น ต้องเขียนสคริ๊ปสั่งให้แสดงผล เหมือนกับ MessageBox(MsgBox) --------------------------------------------------------------- ทดลอง:สร้างปุ่มขึ้นมาบนฟอร์ม1ปุ่ม ..ดับเบิ้ลคลิ๊กที่ปุ่มและเขียนโค๊ดลงไปดังนี้ Public Class Form1
Dim Resp As String
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Resp = InputBox("คุณต้องการทดสอบพิมพ์ข้อความ?", "Test InputBox Project", _
"พิมพ์ข้อความที่นี่")
End Sub
End Class  -------------------------------------------- เตือนความจำ: ทุกครั้งที่เขียนโค๊ดที่มีการสร้าง'เงื่อนไข'ขึ้นมา ต้องประกาศตัวแปรด้วยเสมอ (Dim ... As ...)
|
|
|
|
« แก้ไขครั้งสุดท้าย: 19 สิงหาคม พ.ศ. 2552, 12.39 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
|
« ตอบ #19 เมื่อ: 19 สิงหาคม พ.ศ. 2552, 12.30 น. » |
|
ต่อไปเป็นการทำให้ ข้อความที่เรากรอกลงไปในช่อง มีผลโต้ตอบออกมา ด้วยการเขียนสคริ๊ปเพิ่มเติมลงไปดังนี้ --------------------------------------------------- วาง Label ,TextBox และ Button ลงบน Form ตามรูปเลยครับ  --------------------------------------------------- ดับเบิ้ลคลิ๊กที่ปุ่ม แล้วเขียนโค๊ดลงไปดังนี้ ..เสร็จแล้วกดปุ่ม F5 ที่คีย์บอร์ด ทดสอบดูครับ Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text
MsgBox("ชื่อของท่านคือ:" & TextBox1.Text, MsgBoxStyle.DefaultButton1, _
"Answer")
End Sub -------------------------------------------------------------------------- อันนี้เป็นโค๊ด ทดสอบการใช้งาน InputBox Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim fname
fname = InputBox("กรุณากรอกชื่อลงในช่อง")
MsgBox("ชื่อของคุณคือ " & fname)
End Sub
End Class |
|
|
|
« แก้ไขครั้งสุดท้าย: 20 สิงหาคม พ.ศ. 2552, 17.25 น. โดย sak2005 »
|
บันทึกการเข้า
|
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
|
|
|
|
