Announcement

**sak2005** · 10 Sep 2009, 10:53:07

ผมจะไม่อธิบายรายละเอียดการใช้งานในหน้าโปรแกรม เพราะเมื่อฝึกหัดเรียนรู้-สร้าง Project กันแล้ว จะรู้วิธีการใช้งานกันไปเอง
แต่ให้ทราบถึง ขั้นตอนการใช้ว่ามีอะไรบ้าง ดังนี้
--------------------------------------
1.สร้าง GUI หมายถึง การสร้าง Page Form และ Object ที่ต้องการใช้งานขึ้นมา
2.ปรับแต่งรายละเอียดของ GUI เพิ่มเติม
3.เขียนสคริ๊ปคำสั่งต่างๆลงไปควบคุมการทำงานของ GUI
4.ทดสอบและแก้ไขข้อบกพร่องต่างๆ
5.Save หรือบันทึกผลงาน
6.Build หรือ แปลง ไฟล์ Project ที่สร้าง เช่น .vb และอื่นๆ ..มาเป็น โปรแกรม ที่ใช้ได้ทั่วไป มักจะมีสกุลเป็น .exe

**sak2005** · 10 Sep 2009, 10:54:06

แบบฝึกหัดที่1 เกี่ยวกับ Progressbar
-----------------------------
1.สร้าง Page Form ..คลิ๊กที่เมนู File ..เลือกคลิ๊กที่ New Project...
..เลือกคลิ๊กที่ Windows Forms Application
..ที่ช่อง Name: ตั้งชื่อให้ Project ..คลิ๊ก OK

-------------------------------------------------------
สร้าง Object ต่างๆที่ต้องการใช้งาน ลงบนพอร์ม เช่น Progressbar,Button และ Timer เป็นต้น
ที่ Toolbox ซ้ายมือ ..คลิ๊กเลือก Object ต่างๆที่ตองการใช้งาน มาวางไว้บนฟอร์ม

**sak2005** · 10 Sep 2009, 10:55:02

2.ปรับแต่งรายละเอียดของ GUI
--------------------------
จะย่อ-ขยาย-ย้าย หรือ ปรับเปลี่ยน ขนาด-สี-ตัวอักษร-ตัวเลข และ สัญลักษณ์ ต่างๆ ตามสดวก

**sak2005** · 10 Sep 2009, 10:56:14

3.เขียนสคริ๊ปคำสั่งลงบน Project
--------------------------
ขั้นตอนนี้ ถือว่าสำคัญมาก ทุกท่านควรให้ความสนใจเป็นพิเศษ ..สอบผ่านหรือไม่ผ่านก็ตรงนี้แหละ จำรูปแบบของสคริ๊ปคำสั่งต่างๆไว้ให้ดีว่า..หมายถึงอะไร?
และเขียนให้ถูกต้อง และต้องวางสคริ๊ปคำสั่งบน Object ให้ถูกที่ด้วย ไม่งั้นจะเกิดข้อผิดพลาดตามมา
------------------------------------------------------------------------------------
ดับเบิ้ลที่ Button1 เพื่อเปิด Editor และเขียนสคริ๊ปลงไปดังนี้

Code:

Timer1.Enabled = True

คำสั่งนี้หมายถึง ตั้งเวลาทำงาน ด้วยการกดที่ปุ่ม Button1 ..เป็นแบบ Timer_Tick คือจะทำงานอยู่เป็นช่วงๆ อย่างรวดเร็ว ตลอดเวลา
ในการกำหนดเวลาให้ช้าหรือเร็ว กำหนดได้ที่ในรายละเอียดที่ Interval หรือจะเขียนเป็นสคริ๊ป Timer ออกมาเลยก็ได้ ดังนี้
-------------------------------------------------------------------------------------------

Code:

Timer1.Interval = 100

ถ้าระบุจำนวนตัวเลขให้น้อยลง จะทำงานเร็วขึ้น (สคริ๊ปนี้จะนำไปใช้ใน Editor ของ Timer1 ซึ่งปกติไม่ใช้ก็ได้)
--------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------------------
ดับเบิ้ลคลิ๊กที่ Timer และเขียนสคริ๊ปคำสั่งลงไปดังนี้

Code:

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

Code:

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

[img]http://upic.me/i/zl/clip08

**sak2005** · 10 Sep 2009, 10:57:24

4.ทดสอบผลงาน ถ้าเขียนสคริ๊ปคำสั่งได้ถูกต้อง และไม่มี Error ..Progressbar ก็จะทำงานได้ ดังรูป
5.บันทึกผลงาน เก็บไว้ทำต่อ หรือแก้ไขในคราวต่อไป จะได้ไม่ต้องสร้างขึ้นมาใหม่อีก

-----------------------------------------------------
6.Build ผลงานออกเป็นโปรแกรม (Application) สกุล .exe และไฟล์ Project สกุลต่างๆ
---------------------------------
คลิ๊กที่ Start Page
ที่ Crate: ..คลิ๊กที่ Project... จะมี Dialog Popup ผุดขึ้นมา ให้คลิ๊กที่ Save
คลิ๊ก Browse และเลือกวางผลงานที่ Desktop ..คลิ๊ก Save

**sak2005** · 10 Sep 2009, 10:58:18

แบบฝึกหัดที่2 หัดเขียนคำสั่งเกี่ยวกับ การจัดการ.. File และ Folder
----------------------------------------------------------------------
ใน Script Editor ของ VB.Net นั้น ถ้าเราใช้และสังเกตุให้ดี จะพบว่า ประกอบไปด้วย Script in หรือ สคริ๊ปตัวช่วยเขียน
ผุดขึ้นมาเป็นระยะ ระหว่างที่กำลังเขียนสคริ๊ปคำสั่งอยู่ สคริ๊ปคำสั่งที่เขียนต่อกัน มักถูกคั้นไว้ด้วยเครื่องหมาย . จุด หรือ dot
และที่ต่อจากสคริ๊ปคำสั่ง จะเป็นรูปแบบสคริ๊ปที่ถูกสั่งให้ทำงาน มักจะประกอบไปด้วยเครื่องหมาย (" " , '' ") และ Parameter ต่างๆ เป็นต้น
ถ้าคลิ๊กขวา ก็จะสามารถใช้สคริ๊ป Snippet ซึ่งเก็บรวบรวม สคริ๊ปคำสั่งสำเร็จรูป ไว้ให้ท่านเลือกใช้มากมาย ไม่ต้องคอยเขียนเองทั้งหมด
..ท่านจะเห็นภาพจินตนาการได้ชัดเจนยิ่งขึ้น เมื่อท่านได้ฝึกฝนทำแบบฝึกหัด ดังต่อไปนี้..
---------------------------------------------------------------------------------------------------------------------
1.คำสั่ง: สร้างโฟลเดอร์ใหม่ (Create New Folder)

Code:

My.Computer.FileSystem.CreateDirectory("C:\Documents and Settings\Administrator\Desktop\New Folder1")

ความหมาย: สร้างโฟลเดอร์ใหม่ ชื่อ New Folder1 และวางไว้บนหน้าจอ
------------------------------------------------------------------------------------------------
2.คำสั่ง: ก๊อบปี้โฟลเดอร์ (Copy Folder)

Code:

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) หรือ เปิดหรือรัน โปรแกรมต่างๆที่มีอยู่ในระบบ และอื่นๆ

Code:

Shell("Notepad.exe", AppWinStyle.NormalNoFocus, False, -1)

ความหมาย: สั่งเปิดโปรแกรม Notepad
-------------------------------------------------------------------------

Code:

Shell("C:\Documents and Settings\Administrator\Desktop\winamp512_full.exe", AppWinStyle.NormalNoFocus, False, -1)

ความหมาย: สั่งรันโปรแกรม Winamp_Setup.exe ที่วางอยู่บนเดสก์ทอป
----------------------------------------------------------------------------

Code:

Process.Start("C:\Documents and Settings\Administrator\Desktop\winamp512_full")

ความหมาย: สั่งรันโปรแกรม Winamp_Setup.exe ที่วางอยู่บนเดสก์ทอป
---------------------------------------------------------------------------

**sak2005** · 10 Sep 2009, 10:59:19

แบบฝึกหัดที่3
Dialog Popup Message เป็นหน้าต่างโปรแกรมที่ผุดขึ้นมาให้ใช้งาน เมื่อเราสั่งรัน อยู่หลายประเภท ดังนี้
-----------------------------------------------------
1.MessageBox (msgbox) มี2แบบคือ แบบมีเงื่อนไข และ ไม่มีเงื่อนไข
แบบแรก: มีเงื่อนไข ..ต้องใช้ตัวแปรร่วมด้วย การเขียนสคริ๊ปบน Editor ต้องประกาศตัวแปรด้วยทุกครั้ง เมื่อใช้ตัวแปรนั้นๆ
ไม่งั้นสคริ๊ปที่เขียน จะไม่ทำงาน หรือ ตัวแปรไม่ทำงานนั่นเอง ถ้าสคริ๊ปที่เขียนไม่ได้ใช้ตัวแปร ก็ไม่จำเป็นตัวประกาศตัวแปร
..ประกาศตัวแปร โดยใช้คำสั่ง Dim Stringตัวแปร As Integer..ดังนี้

Code:

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("ท่านต้องการทดสอบการกดปุ่ม?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Sample Project1")
        If BtnCode = vbYes Then
            MsgBox("คุณคลิ๊กปุ่ม.. Yes", 0, "")
        Else
            MsgBox("คุณคลิ๊กปุ่ม.. No", 0, "")
        End If

    End Sub
End Class

**ตัวอักษรที่ตั้งขึ้นเป็นตัวแปร คือ BtnCode**

Code:

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

-------------------------------------------------------------------------
แบบที่สอง: ไม่มีเงื่อนไข ..มักจะมีปุ่มให้ใช้แค่ปุ่มเดียว ดังนี้

Code:

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

Code:

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

**sak2005** · 10 Sep 2009, 11:00:16

OpenFileDialog เป็นคำสั่ง นำเข้าไฟล์ หรือ browse เพื่อเลือกไฟล์ที่ต้องการใช้งาน และใช้งานไฟล์ที่เลือก(สั่งเปิดหรือรันไฟล์)

Code:

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

**sak2005** · 10 Sep 2009, 11:00:58

AutoInstaller&SilentMode ใช้สำหรับติดตั้งโปรแกรมแบบอัตโนมัติ
ผมออกแบบเอง ทำอยู่หลายวันเหมือนกันกว่าจะเสร็จ ยากตรงเขียนสคริ๊ปคำสั่งนี่แหละ ลองนำไปศึกษากันดูครับ
Download:Sample Project9
Size:3.4 MB
http://upload.one2car.com/download.aspx?pku=2C6FAB2E52JGBLKNGPWRE[8QBIH5WQ

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

**sak2005** · 10 Sep 2009, 11:01:58

ตอบปัญหาคาใจ มีคนถามมาว่า TextBox และ InputBox ต่างกันอย่างไร?
และเมื่อพิมพ์ข้อความลงไปแล้ว จะส่งออกผลของข้อความนั้นได้อย่างไร?
----------------------------------------------------------------
ตอบ: TextBox หมายถึง กล่องที่มีช่องให้กรอกข้อความโต้ตอบลงไป
เป็นเครื่องมือที่ช่วยอำนวยความสดวกในการเขียนโปรแกรม
เป็นกราพฟิกซ์สำเร็จรูป มองเห็นได้ ใช้งานได้ทันที ไม่ต้องเสียเวลาเขียนเป็นสคริ๊ป
InputBox เป็น Dialog Popup หมายถึง หน้าต่างโต้ตอบที่ผุดขึ้นมา เรามองไม่เห็น
ต้องเขียนสคริ๊ปสั่งให้แสดงผล เหมือนกับ MessageBox(MsgBox)
---------------------------------------------------------------
ทดลอง:สร้างปุ่มขึ้นมาบนฟอร์ม1ปุ่ม ..ดับเบิ้ลคลิ๊กที่ปุ่มและเขียนโค๊ดลงไปดังนี้

Code:

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 ...)

**sak2005** · 10 Sep 2009, 11:02:48

ต่อไปเป็นการทำให้ ข้อความที่เรากรอกลงไปในช่อง มีผลโต้ตอบออกมา ด้วยการเขียนสคริ๊ปเพิ่มเติมลงไปดังนี้
---------------------------------------------------
วาง Label ,TextBox และ Button ลงบน Form ตามรูปเลยครับ

---------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม แล้วเขียนโค๊ดลงไปดังนี้ ..เสร็จแล้วกดปุ่ม F5 ที่คีย์บอร์ด ทดสอบดูครับ

Code:

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

**sak2005** · 10 Sep 2009, 11:03:27

ตัวอย่างการเขียนสคริ๊ปที่มีเงื่อนไขตัวแปร , การประกาศตัวแปร
ให้ท่านสร้างปุ่มบนฟอร์ม1ปุ่ม ..ดับเบิ้ลคลิ๊กที่ปุ่ม และเขียนโค๊ดลงไปดังนี้ ..เสร็จแล้วกด F5 ทดสอบดูครับ

Code:

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
        Dim StrName As String
        StrName = InputBox("กรอกชื่อสกุล", "Name", "", -1, -1)
        Dim StrPhone As String
        StrPhone = InputBox("กรอกเบอร์โทรศัพท์", "Phone", "", -1, -1)
        Dim StrDis As String
        StrDis = InputBox("กรอกข้อความรายละเอียด", "Dis", "", -1, -1)
        MsgBox("Name:" & StrName & vbCrLf & "Phone:" & _
StrPhone & vbCrLf & "Dis:" & StrDis, MsgBoxStyle.OkOnly, "Record")
    End Sub
End Class

-------------------------------------------------------------------
ข้อสังเกตุ: จะเห็นได้ว่า ใช้เงื่อนไขตัวแปรตรงไหน ก็ประกาศตัวแปรตรงนั้น
ในโค๊ดนี้มี3เงื่อนไขตัวแปร คือ StrName , StrPhone และ StrDis

**sak2005** · 10 Sep 2009, 11:04:17

เลือกติดตั้งโปรแกรมต่างๆ แบบอัตโนมัติ ด้วยคอนโทรล RadioButton
-----------------------------------------------------------
มีนักศึกษาไถ่ถามกันมา มากมายว่า อยากทำโปรแกรมแบบเลือกติดตั้งเองด้วยVB.NET
ให้อาจารย์ช่วยทำ Project เป็นตัวอย่างให้หน่อย จะได้นำไปประยุกต์ใช้งาน
ฉนั้นก็จัดให้เลยครับตามคำขอ ดังรูป
Download:Sample Project11
Size:10.9 MB
http://upload.one2car.com/download.a...NBV79ZCQLYXZVU

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            Dim Proc As Process
            Proc = Process.Start("ezb5_en.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If

        If RadioButton2.Checked = True Then
            Dim Proc As Process
            Proc = Process.Start("uiso8_pe.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If

        If RadioButton3.Checked = True Then
            Dim Proc As Process
            Proc = Process.Start("winamp512_full.exe", "/S")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If
    End Sub
End Class

**sak2005** · 10 Sep 2009, 11:04:54

ตัวอย่างการใช้งานคอนโทรล CheckBox
--------------------------------------
ออกแบบมาให้ใช้ติดตั้งโปรแกรมอัตโนมัติ เลือกติดตั้งทีละโปรแกรม หรือ
เลือกติดตั้งคราวเดียวทั้งหมดเลยก็ได้ ต้องการติดตั้งโปรแกรมไหน? ก็ใส่เครื่องหมายถูกลงไป
Download:http://upload.one2car.com/download.aspx?pku=3CBBFFA5B18YU6F[TS2YNQ1TGPLR9G

Code:

Public Class Form1

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked Then
            Dim Proc As Process
            Proc = Process.Start("ezb5_en.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If

        If CheckBox2.Checked Then
            Dim Proc As Process
            Proc = Process.Start("uiso8_pe.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If

        If CheckBox3.Checked Then
            Dim Proc As Process
            Proc = Process.Start("winamp512_full.exe", "/S")
            Proc.WaitForExit()
            MsgBox("Completed.", MsgBoxStyle.DefaultButton1, "")
        End If
    End Sub
End Class

Announcement

เรียนลัด VB.NET เบื้องต้น

เรียนลัด VB.NET เบื้องต้น

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment