Zone-IT.com

ยินดีต้อนรับคุณ, บุคคลทั่วไป กรุณา เข้าสู่ระบบ หรือ ลงทะเบียน
Please Login!
ขอความกรุณาสละเวลา 5 นาที เพื่อกรอกแบบสอบถามของเว็บเรา
(ปิดรับทุกความเห็นภายในวันที่ 31 มีนาคมนี้)
Zone-IT - โซนไอที สังคมดีๆบนโลกออนไลน์ » IT Zone ! » Tip - Articles (ผู้ดูแล: ζ ΐ ζ ζ Θ ž ķ v.2, sweetpotatoes, MrWebmonster)
      เรียนลัด VB.NET เบื้องต้น
หน้า: 1 [2] 3 4 ... 6
« หน้าที่แล้ว ต่อไป »
  พิมพ์  
ผู้เขียน หัวข้อ: เรียนลัด VB.NET เบื้องต้น  (อ่าน 8454 ครั้ง)
0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #20 เมื่อ: 23 สิงหาคม พ.ศ. 2552, 0.09 น. »
ตัวอย่างการเขียนสคริ๊ปที่มีเงื่อนไขตัวแปร , การประกาศตัวแปร
ให้ท่านสร้างปุ่มบนฟอร์ม1ปุ่ม ..ดับเบิ้ลคลิ๊กที่ปุ่ม และเขียนโค๊ดลงไปดังนี้ ..เสร็จแล้วกด F5 ทดสอบดูครับ

โค๊ด:
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


Coolfirmed 3 คูลเฟิร์มโดย: iters, •!3o4T•, zidane36
« แก้ไขครั้งสุดท้าย: 23 สิงหาคม พ.ศ. 2552, 0.17 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #21 เมื่อ: 25 สิงหาคม พ.ศ. 2552, 22.28 น. »
เลือกติดตั้งโปรแกรมต่างๆ แบบอัตโนมัติ ด้วยคอนโทรล RadioButton
-----------------------------------------------------------
มีนักศึกษาไถ่ถามกันมา มากมายว่า อยากทำโปรแกรมแบบเลือกติดตั้งเองด้วยVB.NET
ให้อาจารย์ช่วยทำ Project เป็นตัวอย่างให้หน่อย จะได้นำไปประยุกต์ใช้งาน
ฉนั้นก็จัดให้เลยครับตามคำขอ ดังรูป
Download:Sample Project11
Size:10.9 MB
http://upload.one2car.com/download.aspx?pku=3A67F52BB0JLUA22NBV79ZCQLYXZVU



โค๊ด:
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


Coolfirmed 2 คูลเฟิร์มโดย: •!3o4T•, zidane36
« แก้ไขครั้งสุดท้าย: 25 สิงหาคม พ.ศ. 2552, 22.40 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #22 เมื่อ: 26 สิงหาคม พ.ศ. 2552, 12.47 น. »
ตัวอย่างการใช้งานคอนโทรล CheckBox
--------------------------------------
ออกแบบมาให้ใช้ติดตั้งโปรแกรมอัตโนมัติ เลือกติดตั้งทีละโปรแกรม หรือ
เลือกติดตั้งคราวเดียวทั้งหมดเลยก็ได้ ต้องการติดตั้งโปรแกรมไหน? ก็ใส่เครื่องหมายถูกลงไป
Download:http://upload.one2car.com/download.aspx?pku=3CBBFFA5B18YU6F[TS2YNQ1TGPLR9G



โค๊ด:
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


Coolfirmed 2 คูลเฟิร์มโดย: •!3o4T•, zidane36
« แก้ไขครั้งสุดท้าย: 26 สิงหาคม พ.ศ. 2552, 13.14 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #23 เมื่อ: 26 สิงหาคม พ.ศ. 2552, 14.51 น. »
ตัวอย่างการใช้งานคอนโทรล ListBox
Download:http://upload.one2car.com/download.aspx?pku=3CBBFFDE9C1DERRKUQ8OFRUG8ZPMXK



โค๊ด:
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


Coolfirmed 2 คูลเฟิร์มโดย: •!3o4T•, zidane36
« แก้ไขครั้งสุดท้าย: 26 สิงหาคม พ.ศ. 2552, 14.58 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #24 เมื่อ: 26 สิงหาคม พ.ศ. 2552, 15.17 น. »
อันนี้เป็นอีกตัวอย่างหนึ่ง สำหรับคอนโทรล 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, "ชื่อโปรแกรม[i][/i][สำหรับอ่านเท่านั้น]")

    End Sub
End Class


Coolfirmed 2 คูลเฟิร์มโดย: •!3o4T•, zidane36
« แก้ไขครั้งสุดท้าย: 27 สิงหาคม พ.ศ. 2552, 23.02 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #25 เมื่อ: 27 สิงหาคม พ.ศ. 2552, 23.05 น. »
ข้อควรรู้: 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 คือชื่อเล่นของปุ่ม จะตั้งชื่ออะไร? ก็ได้ ไม่มีผลต่อสคริ๊ปคำสั่ง
ส่วนหมวดอื่นๆ ทดลองปรับแต่ง เพื่อหาความรู้เพิ่มเติมกันเองนะครับ


Coolfirmed 3 คูลเฟิร์มโดย: suwijakza, •!3o4T•, zidane36
« แก้ไขครั้งสุดท้าย: 9 กันยายน พ.ศ. 2552, 13.47 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #26 เมื่อ: 22 กันยายน พ.ศ. 2552, 10.02 น. »
Scripting Update บริเวณนี้ผมตั้งใจจะนำ สคริ๊ปโค๊ดคำสั่ง ที่ต้องใช้บ่อย หรือจำเป็นต้องใช้ มาเก็บรวบรวมไว้ที่นี่
เพระบางคราวเราจะใช้สคริ๊ปคำสั่ง สั่งให้ Objectทำอะไร?บางอย่าง ..แต่เราไม่รู้ และต้องเสียเวลาค้นหา
ตั้งแต่เปลี่ยนจาก VB6 เป็น VB.NET ..รูปแบบสคริ๊ปโค๊ดคำสั่งต่างๆก็เปลี่ยนไปค่อนข้างมาก
..แต่เปลี่ยนไปในทางที่ดีขึ้น ..แต่เราก็ต้องศึกษาค้นคว้าเพิ่มเติม ถึงจะเขียนสคริ๊ปได้อย่างคล่องตัว
---------------------------------------------------------------------------------------------
NameSpace Threading
คำสั่ง Sleep ใช้สำหรับหน่วงเวลาการทำงานของ Object ด้วยการกำหนดตัวเลขระยะเวลา
รูปแบบThreading.Thread.Sleep(millisecondsTimeout As Integer)



โค๊ด:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button1.Click
       
        PgB1.Minimum = 1
        PgB1.Maximum = 100
        PgB1.Step = 1
        PgB1.Value = 1
       
        Dim x As Integer
        For x = 1 To 100 Step 1
            If PgB1.Value < 100 Then
                PgB1.Value += 1
                Threading.Thread.Sleep(50)
            End If
        Next x
        If PgB1.Value >= 100 Then
            MsgBox("Completed.", MsgBoxStyle.Information, "")
            PgB1.Value = 1
        End If
    End Sub
   
    Private Sub PgB1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles PgB1.Click
    End Sub
End Class
----------------------------------------------------------
Project Download:http://upload.one2car.com/download.aspx?pku=3371C60907UVTKPUDMF9OEER[9CRW1


Coolfirmed 2 คูลเฟิร์มโดย: •!3o4T•, zidane36
« แก้ไขครั้งสุดท้าย: 22 กันยายน พ.ศ. 2552, 14.25 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #27 เมื่อ: 24 กันยายน พ.ศ. 2552, 9.05 น. »
คำสั่ง: ยกเลิกการใช้งาน หรือปิดโปรแกรมต่างๆ
โค๊ด:
Close()
โค๊ด:
Me.Close
โค๊ด:
Application.Exit()
------------------------------------
คำสั่ง:แสดง Message "ข้อความ หรือ รายละเอียด" อย่างง่าย
โค๊ด:
MessageBox.Show("ยินดีต้อนรับ")
<Tip:ประยุกต์ใช้งาน> นำโค๊ดนี้ไปเขียนกำกับไว้ใน Object เช่น ฟอร์ม(Event Shown) , ปุ่ม หรือตัวอักษรลิ๊งค์


Coolfirmed 2 คูลเฟิร์มโดย: •!3o4T•, zidane36
« แก้ไขครั้งสุดท้าย: 24 กันยายน พ.ศ. 2552, 11.28 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #28 เมื่อ: 24 กันยายน พ.ศ. 2552, 12.02 น. »
การใช้งาน:KeyStorke ใน VB.NET
ตัวอย่าง:เป็นการส่งคีย์ เพื่อสั่งติดตั้งโปรแกรม EasyBoot แบบอัตโนมัติ

โค๊ด:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("ezb5_en.exe")
        Threading.Thread.Sleep(2000)
        AppActivate("Setup - EasyBoot")
        SendKeys.SendWait("{ENTER}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{TAB}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{UP}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{ENTER}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{ENTER}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{ENTER}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{ENTER}")
        Threading.Thread.Sleep(2000)
        SendKeys.SendWait("{ENTER}")
    End Sub
End Class
 


Coolfirmed 2 คูลเฟิร์มโดย: •!3o4T•, zidane36
« แก้ไขครั้งสุดท้าย: 24 กันยายน พ.ศ. 2552, 14.48 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #29 เมื่อ: 26 กันยายน พ.ศ. 2552, 21.56 น. »
ตัวอย่างการส่งคีย์เพื่อลงทะเบียนโปรแกรม
เพื่อหลีกเลี่ยงการละเมิดลิขสิทธ์ จึงจำลองโปรแกรมขึ้นมา ให้ทดสอบ แล้วนำไปศึกษาค้นคว้ากันเอง ดังรูป
Download:http://upload.one2car.com/download.aspx?pku=3CC1F71ED0Q6W8KNP9MPHT62[V9NBH



โค๊ด:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button1.Click
        AppActivate("Test Activate")
        Threading.Thread.Sleep(1000)
        SendKeys.SendWait("1A2B3C-4D5E6F-I7J8K-9L0M1N-2O3P4Q5R-6S7T8U")
    End Sub
End Class


Coolfirmed คูลเฟิร์มโดย: •!3o4T•
« แก้ไขครั้งสุดท้าย: 26 กันยายน พ.ศ. 2552, 23.48 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
jpoo267 สวัสดียินดีที่ได้รู้จักเพื่อนๆใหม่ๆๆคะ
ออฟไลน์
หญิง
Posts 49
Coolness 56
Coolness 57
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #30 เมื่อ: 27 กันยายน พ.ศ. 2552, 18.57 น. »
ขอบคุณมากค่ะ


Coolfirmed คูลเฟิร์มโดย: zidane36
บันทึกการเข้า
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #31 เมื่อ: 28 กันยายน พ.ศ. 2552, 10.45 น. »
ความรู้เพิ่มเติมเกี่ยวกับคำสั่ง Control Loop แบบต่างๆ เช่น Do Loop , While Loop และ For Loop โดยไม่ต้องใช้ Timer ช่วย
ลองดาวน์โหลด Sample Project ไปศึกษากันดูนะครับ
Size:134.2 KB
Download:http://upload.one2car.com/download.aspx?pku=416A0CEA2B2VNKKLMY3BT6OEDCIW78



Coolfirmed คูลเฟิร์มโดย: •!3o4T•
« แก้ไขครั้งสุดท้าย: 28 กันยายน พ.ศ. 2552, 10.53 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #32 เมื่อ: 28 กันยายน พ.ศ. 2552, 12.41 น. »
ความรู้เกี่ยวกับ ProgressBar Percentage
เป็นการประยุกต์ใช้งานไฟล์สคริ๊ป Control Properties สร้าง Fontตัวเลข % ขึ้นมาบน progressbar ดังรูป
Download Project:http://upload.one2car.com/download.aspx?pku=416A0D38A52[SZU5FVGCJJO9BC6Y1F



Coolfirmed คูลเฟิร์มโดย: •!3o4T•
« แก้ไขครั้งสุดท้าย: 28 กันยายน พ.ศ. 2552, 12.45 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: Firefox OS: Windows
« ตอบ #33 เมื่อ: 4 ตุลาคม พ.ศ. 2552, 22.51 น. »
ขยายความเรื่องคำสั่งControl Loop แปลเป็นไทยก็หมายความว่า.. ทำซ้ำๆกันหลายๆครั้งวนไปวนมา
คำสั่ง Loop บางคำสั่ง ก็มีจุดสิ้นการทำงาน เช่น คำสั่ง For Next
และบางคำสั่ง ก็ไม่มีจุดสิ้นสุดการทำงาน ทำไปเรื่อยๆ จนกว่าเราจะสร้างเงื่อนไขให้หยุด
เช่น คำสั่ง While หรือ DO เป็นต้น ..ถ้าเราหัดใช้คำสั่งLoopให้เป็น จะมีประโยชน์อย่างมากในการเขียนโปรแกรม
-----------------------------------------------------------------
การเขียนคำสั่งต่างๆ ให้สามารถทำงานได้นั้น ขั้นแรกเราจะต้องทำความเข้าใจ ในรูปแบบคำสั่งต่างๆเหล่านั้นเสียก่อน
ไม่งั้นก็จะเขียนกันผิดๆ ..เมื่อเขียนผิด ก็จะเกิดข้อผิดพลาด(Error!)ตามมา
หลักการก็ง่ายๆขอให้ท่านจำไว้ ดังนี้
1.ถ้ามีการใช้ 'ตัวแปร' ก็ต้องมีการ 'ประกาศ' ตัวแปร ทุกครั้งให้ถูกต้อง
2.จำรูปแบบคำสั่งต่างๆไว้ให้ได้ว่า.. เขียนอย่างไร? จึงไม่เกิด Error!
3.จัดลำดับคำสั่งที่เขียนให้ถูกต้อง เพราะถ้าจัดวางไว้ผิด แต่เขียนได้ครบถูกต้อง ก็เป็นสาเหตุให้เกิด Error! ได้เช่นกัน
« แก้ไขครั้งสุดท้าย: 5 ตุลาคม พ.ศ. 2552, 8.27 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: Firefox OS: Windows
« ตอบ #34 เมื่อ: 5 ตุลาคม พ.ศ. 2552, 9.00 น. »
เพื่อความกระจ่างชัด ใน Control Loop แบบต่างๆดังที่กล่าวมา ผมจะอธิบายให้ท่านเข้าใจ ในความหมายของรูปแบบอีกครั้ง
ตัวอย่างแรก: For...Next Statements
รูปแบบ:
โค๊ด:
For counter = start To end [Step step]
    [statements]
    [Exit For]
    [statements]
Next
-----------------------------------------------------------
คำอธิบาย:
counter คือตัวแปรที่เรากำหนดขึ้น ส่วนมากจะใช้ตัวอักษร i หรือ x หรือตัวอักษรใดๆก็ได้ที่ต้องไม่ตรงกับคำที่สงวนไว้เป็นคำสั่ง
statements คือคำสั่งที่ถูกควบคุมการทำงานโดย Loop
---------------------------------------------------------------------------
ยกตัวอย่างจากการสั่งให้ Progressbar ทำงาน เขียนได้ดังนี้
เริ่มต้นด้วยการประกาศตัวแปร เพราะเราจำเป็นต้องใช้ตัวแปร
Dim x As Interger
รูปแบบการประกาศก็มีให้เลือกประกาศได้หลายแบบ เช่น
For x As Interger = 1 To 100
Dim x As Interger = 0
------------------------------------------------
ต่อไปก็ใส่คำสั่ง statements ลงไป ถ้าเป็น Progressbar เขียนได้ดังนี้
ProgressBar1.Value += 1
ProgressBar1.Value = ProgressBar1.Value + 1
-------------------------------------------------------
ถ้าเป็นตัวแปร ซึ่งเป็นเงื่อนไขใน statements มักจะใช้สัญญลักษณ์ต่างๆเป็นตัวดำเนินการ จะไม่มีการประกาศตัวแปรใดๆ เช่น
=    หมายถึง   เท่ากับ
<       "        น้อยกว่า
>       "        มากกว่า
<=     "        น้อยกว่าเท่ากับ
>=     "        มากกว่าเท่ากับ
-------------------------------------------------------
การใช้งานตัวดำเนินการ ก็ต้องใช้ให้เหมาะสมกับโค๊ดคำสั่งนั้นๆ บางตัวถ้าใส่ไว้ไม่เหมาะสม ก็จะทำให้เกิด Error! ได้
« แก้ไขครั้งสุดท้าย: 5 ตุลาคม พ.ศ. 2552, 10.18 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: Firefox OS: Windows
« ตอบ #35 เมื่อ: 5 ตุลาคม พ.ศ. 2552, 10.18 น. »
While...End While Statement
รูปแบบ:

โค๊ด:
While condition
    [ statements ]
    [ Exit While ]
    [ statements ]
End While
-----------------------------------------------
คำอธิบาย:
condition   หมายถึง   เป็นคำสั่งที่ให้ statements เริ่มต้นการทำงาน โดยระบุไว้ว่า..ให้ทำไปถึงไหน? แล้ววนกลับมาเริ่มต้นทำใหม่
วนไปวนมาอยู่อย่างนี้ไปเรื่อยๆ เช่น
While < 100   หมายถึง   ถ้า statements น้อยกว่า 100 จริง ให้ทำไปจนครบ 100 และเมื่อครบ 100 แล้วก็ให้วนกลับมาเริ่มต้นทำใหม่ ซ้ำไปซ้ำมาอยู่เรื่อยๆ
---------------------------------------------------
ส่วนคำสั่ง Exit เช่น Exit For , Exit While เป็นคำสั่งที่ต้องการให้ statements
ที่กำลังทำงานอยู่ หยุด หรือ หลุดออกจากการ วน Loop (กระโดด)
---------------------------------------------------
คำแนะนำ: คำสั่งที่เขียนเต็มรูปแบบ ได้ลงไว้ให้ดาวน์โหลดข้างต้นแล้ว ลองนำไปศึกษาเปรียบเทียบดู
« แก้ไขครั้งสุดท้าย: 5 ตุลาคม พ.ศ. 2552, 12.16 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: Firefox OS: Windows
« ตอบ #36 เมื่อ: 5 ตุลาคม พ.ศ. 2552, 11.23 น. »
เรามาดูกันซิว่า..เมื่อเราใส่คำสั่ง Exit ลงไปใน Statement แล้วจะเกิดอะไร?ขึ้น ดั่งตัวอย่าง
ตัวอย่าง:

 
โค๊ด:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Step = 1
        ProgressBar1.Value = 0
        Dim x As Integer
        For x = 1 To 100
            x += 1
            ProgressBar1.Value += 1
            ProgressBar1.PerformStep()
            Threading.Thread.Sleep(50)
            If x = 50 Then Exit For         '<----คำสั่งที่ใส่เพื่อทดสอบ----<<
            Next x
        If ProgressBar1.Value >= 100 Then
            Threading.Thread.Sleep(500)
            MsgBox("Completed.", MsgBoxStyle.Information, "")
            ProgressBar1.Value = 0
        End If
    End Sub
End Class

-----------------------------------
ผลที่ได้ก็คือ.. progressbar วิ่งมาถึงครึ่งทางแล้วหยุดลง
« แก้ไขครั้งสุดท้าย: 5 ตุลาคม พ.ศ. 2552, 12.00 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: Firefox OS: Windows
« ตอบ #37 เมื่อ: 5 ตุลาคม พ.ศ. 2552, 11.39 น. »
 ถ้าใส่ตัวดำเนินการ ที่เป็นเครื่องหมาย = และตามด้วยจำนวนตัวเลข% ล่ะ! ..จะเกิดอะไร?
-----------------------------------------------------------------------
 
โค๊ด:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Step = 1
        ProgressBar1.Value = 0
        Dim x As Integer
        For x = 1 To 100
            x += 1
            ProgressBar1.Value += 1
            ProgressBar1.PerformStep()
            Threading.Thread.Sleep(50)
            If x = 50 Then                       
           MsgBox("BarCurrent = 50%", MsgBoxStyle.Information, "")   '<-Message ยืนยันการทำงาน ตามเงื่อนไข-<
            End If
            Next x
        If ProgressBar1.Value >= 100 Then
            Threading.Thread.Sleep(500)
            MsgBox("Completed.", MsgBoxStyle.Information, "")
            ProgressBar1.Value = 0
        End If
    End Sub
End Class
---------------------------------------------------------
ผลที่ได้..progressbar วิ่งมาถึง 50% ก็จะหยุดวิ่งชั่วคราว แล้วมี Message ขึ้นมาบอกเงื่อนไข%
ถ้าเราคลิ๊ก ok ยืนยันเงื่อนไข ..progressbar ก็จะวิ่งต่อไปจนครบ 100%


-----------------------------------------------------------------
อันนี้เป็นการใส่ Counter หรือ Value% ลงบนฟอร์ม ใช้ Timer ควบคุมการทำงาน
Size:64.7 KB
Download:Sample Project
http://upload.one2car.com/download.aspx?pku=17872B285CI8HPINAT7KO9YOH6I6C[



โค๊ด:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Integer
        If ProgressBar1.Value < 100 Then
            Label1.Text = "Installing.." & ProgressBar1.Value.ToString() & "%"
            ProgressBar1.PerformStep()
            i = i + 1
            If ProgressBar1.Value >= 100 Then
               Timer1.Enabled = False
                MsgBox("Completed.", MsgBoxStyle.Information, "")
                ProgressBar1.Value = 0
                Label1.Text = "Installing..0%"
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Close()
    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

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

    End Sub
End Class


Coolfirmed คูลเฟิร์มโดย: expact
« แก้ไขครั้งสุดท้าย: 10 ตุลาคม พ.ศ. 2552, 0.02 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
BBBeAu
ออฟไลน์
Posts 33
Coolness 16
Coolness 8
ดูรายละเอียด อีเมล์
Browser: IE OS: Windows
« ตอบ #38 เมื่อ: 9 ตุลาคม พ.ศ. 2552, 10.01 น. »
เพิ่งจะเริ่มค่ะกับ VB.net คือว่าจะสร้าง GUI อ่าค่ะ

ยังไงอาจมารบกวนบ่อยหน่อยนะคะ อิอิ

ขอถามตั้งแต่เริ่มเลยว่า Visual studio กะ Visual Basic ไม่เหมือนกันใช่มั้ยค่ะ คือว่าแต่มีแผ่น studio

ขอบคุณค่ะ
บันทึกการเข้า
sak2005
ออฟไลน์
Posts 480
Coolness 1720
Coolness 749
ดูรายละเอียด อีเมล์
Browser: Firefox OS: Windows
« ตอบ #39 เมื่อ: 9 ตุลาคม พ.ศ. 2552, 23.20 น. »
อ้างจาก: BBBeAu ที่ 9 ตุลาคม พ.ศ. 2552, 10.01 น.
เพิ่งจะเริ่มค่ะกับ VB.net คือว่าจะสร้าง GUI อ่าค่ะ
ยังไงอาจมารบกวนบ่อยหน่อยนะคะ อิอิ
ขอถามตั้งแต่เริ่มเลยว่า Visual studio กะ Visual Basic ไม่เหมือนกันใช่มั้ยค่ะ คือว่าแต่มีแผ่น studio
ขอบคุณค่ะ
-------------------------------------------
Visual Basic หรือเขียนย่อๆว่า..VB ..ภาษาVB ได้รับการพัฒนา Upgrage เวอร์ชั่นมาอย่างต่อเนื่อง
จนโปรแกรมมีขนาดใหญ่และสมบูรณ์มากขึ้น เริ่มตั้งแต่ VB6.0 จนกลายเป็น VB.NET
Visual studio หมายถึง VB.NET ที่มีการเก็บรวบรวมข้อมูลต่างที่เป็นประโยชน์ต่อการเขียนและพัฒนาโปรแกรม
มารวมไว้ด้วยกัน จะสังเกตุเห็นได้ว่า โปรแกรมจะมีขนาดความจุใหญ่มาก ใครที่มีคอมพิวเตอร์แรงน้อยๆ คงจะรันลำบาก
รูปแบบสคริ๊ปคำสั่งที่ใช้เขียน ของ VB6.0 กับ VB.NET ก็เปลี่ยนแปลงแตกต่างกันออกไปโดยสิ้นเชิง
ใช้ร่วมกันหรือแทนกันได้เป็นบางคำสั่งเท่านั้น แต่ถ้าใครมีพื้นความรู้จาก VB6.0 มาบ้างแล้ว..VB.NET ก็คงจะศึกษาได้ไม่ยากเย็นอะไร
« แก้ไขครั้งสุดท้าย: 9 ตุลาคม พ.ศ. 2552, 23.34 น. โดย sak2005 » บันทึกการเข้า
สัจจธรรม:ธรรมดาของสัตว์โลก ไม่สามารถอยู่ตัวคนเดียวได้นาน ความรัก ความใคร่ ความเข้าใจ จึงเป็นที่ต้องการของสัตว์โลก
หน้า: 1 [2] 3 4 ... 6
  พิมพ์  
« หน้าที่แล้ว ต่อไป »
 
กระโดดไป:  

13



Powered by SMF 1.1.11 | SMF © 2006-2008, Simple Machines LLC | Thai language by ThaiSMF | Icons from Everaldo.com, famfamfam.com | hosted by HostCZ.com


© 1 เมษายน พ.ศ. 2549 - 2553
คุณมีสิทธิที่จะทำซ้ำ แก้ไข จำหน่ายจ่ายแจก กับข้อความและรูปภาพทั้งหมดที่ปรากฎบนเว็บไซต์นี้ แต่ต้องอ้างอิงกลับมายังที่นี่
ติดต่อสอบถาม admin@zone-it.com
Zone-IT.com - CC BY 3.0


หน้านี้ถูกสร้างขึ้นภายในเวลา 0.249 วินาที กับ 53 คำสั่ง