แหล่งรวบรวม VIDEO สอนการใช้งานโปรแกรมต่างๆ ดีที่สุดในตอนนี้

http://www.learn-with-video-tutorials.com/category/free-video-tutorials

ดูตัวอย่างการใช้งาน Crystal Report.Net
http://www.youtube.com/watch?v=X9Ib5TMqDBI

การส่งค่าแท็บเมื่อกด Enter ใน VB.NET

'ส่วน Combobox ไม่สามารถใช้งานรูปแบบนี้ได้จาก Keypress ก็ใช้วิธี Set Focus แทน ดังนี้

    Private Sub Combobox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Combobox1.KeyUp
        If e.KeyCode = Keys.Enter  Then
            Textbox4.Focus()
        End If
    End Sub

ฟังก์ชั่น StrReplace และInArray ใน vb.net

'หลายคนอยากให้มีสองฟังก์ชั่นนี้ใน VB.NET จัดไปครับ บล็อกนี้ผมอาศัยว่าเอามาเก็บไว้เผื่อผมลืมเหมือนกัน


Public Function StrReplace(ByVal FullString As String, ByVal SearchString As String, ByVal ReplaceString As String) As String
        StrReplace = FullString.Replace(SearchString, ReplaceString)
        Return (StrReplace)
End Function

Function InArray(ByVal Item_To_Check, ByVal Array_To_Check)
        Dim i
        For i = 0 To UBound(Array_To_Check) Step 1
            If LCase(Array_To_Check(i)) = LCase(Item_To_Check) Then
                InArray = True
                Exit Function
            End If
        Next
        InArray = False
End Function

เปลี่ยนวันที่เป็นพุทธศักราชใน Crystal Report dot Net

วิธีทำ AutoComplete Combobox ใน VB.net

การทำ AutoComplete คือการทำโฟกัสให้โปรแกรมเลือกข้อความที่เราใส่ไว้ในรายการของ Combobox โดยอัตโนมัตินั่นเอง
มีวิธีการดังนี้ครับ
ผมนำเสนอทั้งแบบเขียน Source Code และแบบกำหนดค่าเองครับ

'เพิ่มเติมอีกนิดโค้ดสำหรับตรวจสอบหากค่านั้นไม่ได้อยู่ในรายการของ Combobox นั้นๆ


    Private Sub Combobox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Combobox1.LostFocus
        CheckComboList(Combobox1, "MONTH")
    End Sub

    Private Function CheckComboList(ByVal ComboBox_To_Check As ComboBox, ByVal Description As String) As Boolean
        Dim checkCbo As Boolean = False

        For Each item In ComboBox_To_Check.Items()
            If ComboBox_To_Check.Text = item.ToString Then
                checkCbo = True
            End If
        Next
        If checkCbo = False Then
            MsgBox("ERR: Please Check item in " & Description)
        End If
    End Function