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

[sak2005]

ตัวอย่างการใช้งานคอนโทรล ListBox
Download:http://upload.one2car.com/download.a...UQ8OFRUG8ZPMXK

Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        Select Case ListBox1.SelectedIndex
            Case 0 'ปวดหัว
                Label2.Text = "บีบนวด เส้นเอ็นหรือกล้ามเนื้อ บริเวณท้ายทอย"
            Case 2 'ปวดฟัน
                Label2.Text = "แปรงฟันด้วย ยาสีฟันตราดอกบัวคู่ เป็นประจำ"
            Case 4 'ไอ
                Label2.Text = "ทานช็อกโกแล็ตเป็นประจำ จะทำให้การไอทุเลาลง"
            Case 6 'ปวดใจ
                Label2.Text = "ให้คิดว่า บุรุษ หรือ สตรี ไม่ได้มีอยู่คนเดียวในโลก " & vbCrLf & vbCrLf & "ยังมีคนที่ดีกว่าให้เลือกอีกเยอะ"
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

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

    End Sub
End Class

[sak2005]

อันนี้เป็นอีกตัวอย่างหนึ่ง สำหรับคอนโทรล ListBox ..มีปุ่มสำหรับติดตั้งโปรแกรม นำแนวคิดไปประยุกต์ใช้งานได้ครับ

Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        TextBox1.Text = ListBox1.Text
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex = 0 Then
            Dim Proc As Process
            Proc = Process.Start("ezb5_en.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("ติดตั้งเรียบร้อย.", MsgBoxStyle.DefaultButton1, "")
        End If
        If ListBox1.SelectedIndex = 1 Then
            Dim Proc As Process
            Proc = Process.Start("uiso8_pe.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
            Proc.WaitForExit()
            MsgBox("ติดตั้งเรียบร้อย.", MsgBoxStyle.DefaultButton1, "")
        End If
        If ListBox1.SelectedIndex = 2 Then
            Dim Proc As Process
            Proc = Process.Start("winamp512_full.exe", "/S")
            Proc.WaitForExit()
            MsgBox("ติดตั้งเรียบร้อย.", MsgBoxStyle.DefaultButton1, "")
        End If
    End Sub

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

    Private Sub ToolTip1_Popup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PopupEventArgs) Handles ToolTip1.Popup

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolTip1.SetToolTip(Button1, "ติดตั้งอัตโนมัติ")
        ToolTip1.SetToolTip(Label1, "ปิดโปรแกรม")
        ToolTip1.SetToolTip(ListBox1, "เลือกติดตั้ง")
        ToolTip1.SetToolTip(TextBox1, "ชื่อโปรแกรม[สำหรับอ่านเท่านั้น]")

    End Sub
End Class

[sak2005]

ข้อควรรู้: Properties ที่ใช้ปรับแต่ง Form และ Object (ที่ใช้งานบ่อย)
-------------------------------------------------------------------
เมื่อเริ่มต้นการใช้งานโปรแกรม VB.NET ..โปรแกรมจะกำหนด Properties เป็นค่า Default มาให้
ซึ่งหมายถึง ทำให้เกิดความยืดหยุ่นในระหว่างใช้งาน เช่น ปรับขนาด,เปลี่ยนสไตล์ และเติมแต่งสีสัน เป็นต้น
แต่ถ้าเมื่อถึงขั้นตอนสุดท้าย ซึ่งหมายถึง ก่อนการคอมไพล์ หรือ Build งาน (ทำออกมาเป็นโปรแกรม)
เราจะต้องปรับแต่ง Properties อีกครั้งหนึ่ง เพื่อให้ได้งานออกมาเป็นมาตรฐาน มีข้อบกพร่องน้อยที่สุด..ดังนี้
----------------------------------------------------------------------------------------
Form Properties:
1.ล๊อคขนาดของหน้าต่างฟอร์มให้คงที่
AutoSizeMode ..ปกติ เป็น Growonly ให้เปลี่ยนเป็น GrowAndShrink
MaximizeBox ..ปกติ เป็น True ให้เปลี่ยนเป็น False
2.เปลี่ยนสีพื้นฉากหลังของหน้าต่างฟอร์ม
BackColor ..มีสีให้เลือกปรับแต่งตามชอบ 3 Option คือ Custom,Web และ System
3.ใส่รูปภาพเป็นพื้นฉากหลังของหน้าต่างฟอร์ม
BackgroundImage ..นำเข้ารูปภาพ
BackgroundImageLayout ..ปรับเลเยอร์รูปภาพ
4.ระบุตำแหน่งบนหน้าจอ..ที่ให้โปรแกรมปรากฏ
StartPosition ..ให้เลือกเป็น CenterScreen
---------------------------------------------------
Object Properties:
Properties: Button

1.Text ..ตั้งหรือเปลี่ยนชื่อ ที่ปรากฏบนปุ่ม
2.Font ..ปรับแต่ง ขนาดตัวอักษร และภาษา ไทย-อังกฤษ และตัวอักษร หนา-บาง
3.ForeColor ..เปลี่ยนสีตัวอักษร
4.BackColor ..ใส่สีให้กับปุ่ม
5.Cursor ..ปกติ เป็น Default เปลี่ยนเป็น Hand
------------------------------------------------
Properties: Label

1.Cursor ..ปกติ เป็น Default เปลี่ยนเป็น Hand
2.Font ..ปรับแต่ง ขนาดตัวอักษร และภาษา ไทย-อังกฤษ
3.ForeColor ..เปลี่ยนสีตัวอักษร
------------------------------------------------
Properties: TextBox (ลงรายละเอียดให้คราวหน้า)
Properties: ComboBox
Properties: ListBox
-----------------------------------------------------
ToolTip เป็นการแสดงข้อความรายละเอียดเพิ่มเติม[BalloonTip]
เมื่อเรานำตัวชี้เม๊าท์หรือ Cursor มาวางไว้บนคอนโทรล Object นั้นๆ
Properties: ToolTip
1.AutomaticDelay ..ปกติตั้งไว้ที่500 หรือปรับเองตามชอบ
2.IsBalloon ..เปลี่ยนสไตล์บอลลูน
การใช้งาน: ToolTip
เมื่อติดตั้งToolTipแล้ว ให้ดับเบิ้ลคลิ๊กที่ Form และเขียนโค๊ดลงไป ตามตัวอย่าง ดังนี้
ToolTip1.SetToolTip(Button1, "ติดตั้งอัตโนมัติ")
ToolTip1.SetToolTip(Label1, "ปิดโปรแกรม")
ToolTip1.SetToolTip(ListBox1, "เลือกติดตั้ง")
ToolTip1.SetToolTip(TextBox1, "ชื่อโปรแกรม ..สำหรับอ่านเท่านั้น..")
คำอธิบาย:
ToolTip1.SetToolTip หมายถึง คำสั่งแสดงบอลลูนทิป
(Button1, "ติดตั้งอัตโนมัติ") หมายถึง แสดงข้อความที่อยู่ในเครื่องหมายคำพูด เมื่อเม๊าท์ชี้อยู่บน (Name) Button1
-------------------------------------------------------------------------------------------
ความรู้เรื่อง: การควบคุมทิศทางการทำงานของโปรแกรมด้วยคำสั่งต่างๆ พอสรุปได้เป็น2แนวทางง่ายๆดังนี้
1.ควบคุมการทำงานของโปรแกรม ด้วยการสร้างเงื่อนไข, ตัวแปร และ ตัวเลือก
2.คำสั่งControl Loop และ Timer
-----------------------------------------------------------
Snippet Code: และการใช้งาน
--------------------------------------
การใช้งาน:ตัวช่วยเหลือ หรือ Help Support
------------------------------------------------------
Tips1: เกี่ยวกับคำสั่ง Visible และ Enable = True หรือ False

Visible หมายถึง Object ปรากฏอยู่หรือไม่?
Enable หมายถึง Object กระทำอยู่หรือไม่?
True หมายถึง เป็นจริง
False หมายถึง เป็นเท็จ
------------------------------
ตัวอย่าง:โค๊ดและความหมาย
Button1.Visible = True หมายถึง ปุ่มButton1 ยังปรากฏให้เห็นอยู่
Button1.Visible = False หมายถึง ปุ่มButton1 ถูกปิดบังไว้มองไม่เห็น
--------------------------------------------------------------------------
Button1.Enable = True หมายถึง ปุ่มButton1 ยังคงใช้งานได้ปกติ
Button1.Enable = False หมายถึง ปุ่มButton1 ถูกระงับการใช้งานไว้
-------------------------------------------------------------------------
Tips2: เกี่ยวกับ การใช้ properties Object
การเข้าไปปรับแต่งใน Properties ถ้าท่านสังเกตุให้ดี เขาได้จัดแบ่งหมวดหมู่ในการปรับแต่งไว้ให้แล้ว
ถ้าใครแบ่งหมวดหมู่ใน propertie ยังไม่เป็น ก็จะเข้าไปปรับแต่งไม่ค่อยถูก หรือปรับมั่วไปหมด
ไม่รู้อันไหน หมายถึงอะไร? และไม่จำเป็นต้องปรับแต่งทั้งหมด
เลือกปรับแต่งเฉพาะที่ต้องการใช้งานเท่านั้น ..ดูตามภาพและคำอธิบายเลยครับ จะได้เข้าใจดียิ่งขึ้น
..ขอยกตัวอย่างเป็น Properties ของ Button1 ที่สร้างขึ้นทดสอบการปรับแต่ง Properties..
------------------------------------------------------------------------


หมวดที่1 เกี่ยวกับปุ่มโดยตรง เช่น. (Name) เป็นชื่อจริงของปุ่ม ที่ใช้ในสคริ๊ปคำสั่ง เป็นต้น.และอื่นๆ
--------------------------------------------------------------------------------------


หมวดที่9 Text คือชื่อเล่นของปุ่ม จะตั้งชื่ออะไร? ก็ได้ ไม่มีผลต่อสคริ๊ปคำสั่ง
ส่วนหมวดอื่นๆ ทดลองปรับแต่ง เพื่อหาความรู้เพิ่มเติมกันเองนะครับ

[jee110]

สุดยอดครับ คนใจดีมีน้ำใจ

[tack]

เรียนท่าน อาจารย์

ขอบคุณด้วยความเคารพอย่างสูง ครับ

สุดท้ายนี้ถ้ามีปัญหา จะขอความกรุณารบกวนอีก ครับ

ไม่ทราบว่าจะนำไปใช้เกี่ยวกับพวกงาน cpm pert ได้ไหม

[sak2005]

เรียนท่าน อาจารย์

ขอบคุณด้วยความเคารพอย่างสูง ครับ

สุดท้ายนี้ถ้ามีปัญหา จะขอความกรุณารบกวนอีก ครับ

ไม่ทราบว่าจะนำไปใช้เกี่ยวกับพวกงาน cpm pert ได้ไหม

VB.NET กับ Windows เป็นอะไรที่เข้ากันที่สุด น่าจะนำไปประยุกต์ใช้งานได้

[kul_kup]

vb กับ c# อย่างไหนเป็นที่นิยมมากว่ากันครับ
แต่ผมชอบ c# มากกว่าครับ
ขอบคุณอาจารย์ครับ

[pigkapu1]

เยี่ยมมากเลยครับ เอามาลงอีกนะครับ อยากให้ช่วยสอนเรื่องการ ติดต่อฐานข้อมูล sql

[sak2005]

เยี่ยมมากเลยครับ เอามาลงอีกนะครับ อยากให้ช่วยสอนเรื่องการ ติดต่อฐานข้อมูล sql

ไม่รู้ว่าอาจารย์จะสอน vb.net ให้เลยเถิดไปถึงขั้นสูงได้หรือเปล่า?!?
แต่จะหา ตัวอย่างการเขียน การใช้งาน Data Base มาลงให้

[pigkapu1]

ไม่รู้ว่าอาจารย์จะสอน vb.net ให้เลยเถิดไปถึงขั้นสูงได้หรือเปล่า?!?
แต่จะหา ตัวอย่างการเขียน การใช้งาน Data Base มาลงให้

ขอบคุณมากครับ ส่วนผมไม่มีใครสอนหลอก อ่านเอาเองจากหนังสือแล้วก็ตามเวบ

[mpromsopa]

ขยัน up จังท่าน

[julite]

1 จอกครับท่าน

[spykids01]

คารวะ 1 จอก ครับอาจารย์

ว่าแต่อาจารย์ พอมีตัวอย่างทำเครื่องคิดเลข มั้ยครับ

แบบที่ไม่ใช่ ดึงมาจาก Calculator ในเครื่องเรานะ *0*

[sak2005]

คารวะ 1 จอก ครับอาจารย์

ว่าแต่อาจารย์ พอมีตัวอย่างทำเครื่องคิดเลข มั้ยครับ

แบบที่ไม่ใช่ ดึงมาจาก Calculator ในเครื่องเรานะ *0*

การเขียนVBเพื่อสร้างโปรแกรมเครื่องคิดเลข เป็นการเขียนขั้นสูง
การเขียนลึบลับซับซ้อน ต้องพิมพ์สคริ๊ปคำสั่งที่ยาวเป็นหางว่าว
คนเรียนเข้าใจยาก ..แค่เบื้องต้น ยังมีคนบ่นว่า.. 'ไม่รู้เรื่องเลย'

[powerdome]

ดีมากเลยครับอาจารย์เดี๋ยวสอบเสร็จจะมาลงเรียนเลยครับ