ใน vb.net2005 เราสามารถเขียนคำสั่งหลาย ๆ คำสั่งในบรรทัดเดียวกันได้ {โดยปกติ คอมไพล์เลอร์ของ visual basic นั้นจะมองหนึ่งคำสั่ง หนึ่งบรรทัด } เพื่อเป็นการประหยัดบรรทัดคำสั่งใน source code โดยใช้เครื่องหมาย โคลอน : ดังตย.

    dim a ,b , c, d as integer

    a= 5 : b = 10 : c=20 : d=30

หรือ
    button1.enabled= false : button1.enabled= false : button1.enabled= false

 การใช้งานเครื่องหมาย _ (under score)
    ภาษา visual basic นั้น ได้กำหนดให้ การเขียนคำสั่ง 1 คำสั่ง นั้น ต้องจบภายในบรรทัดเดีียวกัน หรือ หนึ่งคำสั่ง หนึ่งบรรทัดนั้นเอง แต่บางครั้ง หรือ บางคำสั่งของ visual basic ก็อาจจะต้องเขียนคำสั่งยาวมากทำให้ ยากต่อการอ่านคำสั่ง {ต้องเลื่อน scroll bar นั่นเอง }

ต.ย.
    if TextBox1.Text = "" Then
        Msgbox("กรุณาป้อนข้อมูลใน TextBox ก่อนครับ",MsgboxStyle.yesnocancel + MsgboxStyle.Critical , "MyProject")
    else
    end if

    สังเกตุตรงบรรทัดคำสั่ง Msgbox จะเห็นว่าค่อนข้างยาว เราสามารถตัดขึ้นบรรทัดใหม่ได้ โดยใช้ _ ดังนี้

      If TextBox1.Text = "" Then
        MsgBox("กรุณาป้อนข้อมูลใน TextBox ก่อนครับ", _
        MsgBoxStyle.YesNoCancel + MsgBoxStyle.Critical, _
        "MyProject")
    Else
    End If

หมายเหตุ :: ก่อน _ ต้องเว้นช่องว่าง 1 ช่องก่อน

 

 คำสั่งในการทดสอบเครือข่าย  PING มีรูปแบบดังนี้
Dim value As Boolean = My.Computer.Network.Ping(hostNameOrAddress)
Dim value As Boolean = My.Computer.Network.Ping(address)
Dim value As Boolean = My.Computer.Network.Ping(hostNameOrAddress ,timeout)
Dim value As Boolean = My.Computer.Network.Ping(address ,timeout)

Example 1.
If My.Computer.Network.Ping("198.01.01.01") Then
       MsgBox("Server pinged successfully.")
Else
      MsgBox("Ping request timed out.")
End If

Example 2.
If My.Computer.Network.Ping("www.siam2dev.com",1000) Then
        MsgBox("Server pinged successfully.")
Else
         MsgBox("Ping request timed out.")
End If .

 คำสั่งในการตรวจสอบข้อมูลใน Flash Drive  [ 14/04/2552 ]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim drives() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()

For Each drive As System.IO.DriveInfo In drives
    'Skip floppy's.. useless garage.
    ' If the user is using a B:\ drive, they deserve to experience a 1 second lag
    ' that I can't stand with the A:\
    If drive.Name <> "A:\" Then
        ' Check if the drive is removable
        If drive.DriveType = IO.DriveType.Removable Then
            Dim directory As String = drive.Name
            Dim fileDialog As New OpenFileDialog()
            fileDialog.InitialDirectory = directory
            fileDialog.ShowDialog()
        End If
    End If
Next
End Sub

 

     ' ต.ย. คำสั่งแสดงค่า ต่ำสุด และ สูงสุดของข้อมูลชนิดพื้นฐานใน VB.NET ที่สามารถเก็บได้

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

      MsgBox("Max Int16 = " & Int16.MaxValue & vbCrLf & _
      "Min Int16 = " & Int16.MinValue & vbCrLf & _
      "Max Int32 = " & Int32.MaxValue & vbCrLf & _
      "Min Int32 = " & Int32.MinValue & vbCrLf & _
      "Max Int64 = " & Int64.MaxValue & vbCrLf & _
      "Min Int64 = " & Int64.MinValue & vbCrLf & _
      "Max Decimal = " & Decimal.MaxValue & vbCrLf & _
      "Min Decimal = " & Decimal.MinValue & vbCrLf & _
      "Max Single = " & Single.MaxValue & vbCrLf & _
      "Min Single = " & Single.MinValue & vbCrLf & _
      "Max Double = " & Double.MaxValue & vbCrLf & _
      "Min Double = " & Double.MinValue, , "Min Max Value Of PDT")

End Sub

ผลลัพธ์ ::

 

     บทความเรื่อง การใช้ Crystal Report + MySql + VB.NET ภาษาไทย
       เป็นบทความที่ใช้ในการสร้าง CrystalReports โดยใช้ ADO.NET DataSet + กับดึงข้อมูลจาก MySQL มาโชว์ด้วย VB.NET ก็พยายามเขียนอยู่ อาทิตย์นึงก็คลอดออกมาจนได้ครับ (ถ้าว่าง ๆ น่าจะเร็วกว่านี้)

ผมพยายามอธิบายแบบ Step by Step สำหรับผู้ที่เริ่มใช้งาน น่ะครับ
ผิดพลาดประการใดก็ขออภัยไว้ ณ ที่นี้ด้วยครับ

ไปดาวน์โหลดมาดูกันได้ที่นี่ ครับ
ตัวบทความ
http://www.filelodge.com/files/hdd2/17512/MySql%20Call%20Crystal%20Reports%20with%20.Net.rar
SourceCode ของ บทความ
http://www.filelodge.com/files/hdd2/17512/StockManagement.zip
Utility ที่ใช้ในบทความ
http://www.filelodge.com/files/hdd2/17512/XSDGenerator1.0.zip

 

     การเขียนโปรแกรม VB.NET 2005 ติดต่อ RFID อ่านได้ที่นี่ครับ
         [  http://www.rfidbasic.com/main.php?topic_id=31 ]

     ลองของใหม่กับ Visual Studio 2008 Express Edition

     แจก ... โปรแกรมพิมพ์รหัสบาร์โค้ดฟรี (Barcode Printing)

      โปรแกรมพิมพ์รหัสบาร์โค้ด (Barcode Printing) ตัว (เล็กๆ) นี้ของผมซึ่งเป็นเวอร์ชั่นแจกฟรี ก็หวังว่าคงจะโดนใจพี่น้องบ้างน่ะครับ สำหรับเวอร์ชั่นเสียตังค์ (ให้ผม) ส่วนใหญ่ก็แทบจะทั้งนั้นครับ คือ การอ่านข้อมูลจาก DataBase เข้ามาเพื่อทำการเลือกพิมพ์รหัสบาร์โค้ด (ดูตัวอย่างส่วนหนึ่งของเวอร์ชั่นเสียตังค์) ... แต่จะเวอร์ชั่นไหนๆก็แล้วแต่ สิ่งที่ผู้ใช้งาน (User) ต้องการมากที่สุด คือ อะไรก็ได้ที่มันง่ายๆ เปิดโปรแกรมปุ๊บ ขอให้อิฉันพิมพ์ออกมาได้ทันทีเป็นพอ จะมาตั้งค่าโน่น ค่านี่ อิฉันน่ะรำค๊าญ รำคาญฮ้า ... 55555 ส่วนรายละเอียดต่างๆของบาร์โค้ดก็คงขอไว้ในโอกาสต่อไป แล้วผมจะมาสาธยายให้ฟังครับ อ่านรายละเอียดเพิ่มเติม ... ที่นี่ แล้วคุณจะได้รู้จักกับพวกจับฉ่ายฟรีแลนซ์ ... 55555 [ คลิกที่นี่]

 

     การเลือกภาษา : In the eyes of the beholder

     เรื่องของการเลือกใช้ภาษาคอมพิวเตอร์ ผมว่ามันเหมือนกับศาสนานะ  ทะเลาะกัน รบกันแทบประดาตาย สุดท้ายก็ไม่ได้คำตอบหรอกครับ ว่าศาสนาไหนดีกว่า หรือเป็นจริงกว่ากัน ภาษาคอมพิวเตอร์ก็เช่นกันครับ ลงว่าคุณเริ่มใช้ภาษาอะไรแล้ว คุณคงต้องบอกว่าภาษานั้นดีที่สุด มันเป็นธรรมชาติของมนุษย์อยู่แล้วครับ ที่พออะไรแล้ว ก็จะถือว่าสิ่งที่ตัวเองเลือกเป็นสิ่งที่ดีสุด ถ้าใครมาพูดแย้งกับความเชื่อของตัวเอง ก็ต้องมีการปกป้องกันเต็มที่ ดังนั้น ผมจึงคิดแล้วคิดอีกว่าจะเขียนบทความนี้ดีหรือไม่ มาตัดสินใจวินาทีสุดท้าย เขียนดีกว่า เพราะมีคนเขียนถามผมมาเยอะ  ถ้าไม่แสดงความคิดเห็นเสียเลย ก็จะดูไม่ดี เอาเป็นว่าผมพยายามเขียนให้เป็นกลางที่สุดก็แล้วกัน ถ้าใครไม่เห็นด้วย ก็ให้คิดว่า มองกันคนละมุมก็แล้วกัน

อ่านต่อที่นี่ >>

     สถาปัตยกรรมของ Multitier Client Server