แปลงตัวเลขเป็นตัวหนังสือ คำอ่านสำหรับจำนวนเงิน

#Region "--แสดงตัวเลขเป็นตัวหนังสือ--"

    Public Function NumberToThaiWord(ByVal InputNumber As Double) As String

        If InputNumber = 0 Then

            NumberToThaiWord = "ศูนย์บาทถ้วน"

            Return NumberToThaiWord

        End If

        Dim NewInputNumber As String

        NewInputNumber = InputNumber.ToString("###0.00")

        If CDbl(NewInputNumber) >= 10000000000000 Then

            NumberToThaiWord = ""

            Return NumberToThaiWord

        End If

        Dim tmpNumber(2) As String

        Dim FirstNumber As String

        Dim LastNumber As String

        tmpNumber = NewInputNumber.Split(CChar("."))

        FirstNumber = tmpNumber(0)

        LastNumber = tmpNumber(1)

        Dim nLength As Integer = 0

        nLength = CInt(FirstNumber.Length)

        Dim i As Integer

        Dim CNumber As Integer = 0

        Dim CNumberBak As Integer = 0

        Dim strNumber As String = ""

        Dim strPosition As String = ""

        Dim FinalWord As String = ""

        Dim CountPos As Integer = 0

        For i = nLength To 1 Step -1

            CNumberBak = CNumber

            CNumber = CInt(FirstNumber.Substring(CountPos, 1))

            If CNumber = 0 AndAlso i = 7 Then

                strPosition = "ล้าน"

            ElseIf CNumber = 0 Then

                strPosition = ""

            Else

                strPosition = PositionToText(i)

            End If

            If CNumber = 2 AndAlso strPosition = "สิบ" Then

                strNumber = "ยี่"

            ElseIf CNumber = 1 AndAlso strPosition = "สิบ" Then

                strNumber = ""

            ElseIf CNumber = 1 AndAlso strPosition = "ล้าน" AndAlso nLength >= 8 Then

                If CNumberBak = 0 Then

                    strNumber = "หนึ่ง"

                Else

                    strNumber = "เอ็ด"

                End If

            ElseIf CNumber = 1 AndAlso strPosition = "" AndAlso nLength > 1 Then

                strNumber = "เอ็ด"

            Else

                strNumber = NumberToText(CNumber)

            End If

            CountPos = CountPos + 1

            FinalWord = FinalWord & strNumber & strPosition

        Next

        CountPos = 0

        CNumberBak = 0

        nLength = CInt(LastNumber.Length)

        Dim Stang As String = ""

        Dim FinalStang As String = ""

        If CDbl(LastNumber) > 0.0 Then

            For i = nLength To 1 Step -1

                CNumberBak = CNumber

                CNumber = CInt(LastNumber.Substring(CountPos, 1))

                If CNumber = 1 AndAlso i = 2 Then

                    strPosition = "สิบ"

                ElseIf CNumber = 0 Then

                    strPosition = ""

                Else

                    strPosition = PositionToText(i)

                End If

                If CNumber = 2 AndAlso strPosition = "สิบ" Then

                    Stang = "ยี่"

                ElseIf CNumber = 1 AndAlso i = 2 Then

                    Stang = ""

                ElseIf CNumber = 1 AndAlso strPosition = "" AndAlso nLength > 1 Then

                    If CNumberBak = 0 Then

                        Stang = "หนึ่ง"

                    Else

                        Stang = "เอ็ด"

                    End If

                Else

                    Stang = NumberToText(CNumber)

                End If

                CountPos = CountPos + 1

                FinalStang = FinalStang & Stang & strPosition

            Next

            FinalStang = FinalStang & "สตางค์"

        Else

            FinalStang = ""

        End If

        Dim SubUnit As String

        If FinalStang = "" Then

            SubUnit = "บาทถ้วน"

        Else

            If CDbl(FirstNumber) <> 0 Then

                SubUnit = "บาท"

            Else

                SubUnit = ""

            End If

        End If

        NumberToThaiWord = FinalWord & SubUnit & FinalStang

    End Function

    Private Function NumberToText(ByVal CurrentNum As Integer) As String

        Dim _nText As String = ""

        Select Case CurrentNum

            Case 0

                _nText = ""

            Case 1

                _nText = "หนึ่ง"

            Case 2

                _nText = "สอง"

            Case 3

                _nText = "สาม"

            Case 4

                _nText = "สี่"

            Case 5

                _nText = "ห้า"

            Case 6

                _nText = "หก"

            Case 7

                _nText = "เจ็ด"

            Case 8

                _nText = "แปด"

            Case 9

                _nText = "เก้า"

        End Select

        NumberToText = _nText

    End Function

    Private Function PositionToText(ByVal CurrentPos As Integer) As String

        Dim _nPos As String = ""

        Select Case CurrentPos

            Case 0

                _nPos = ""

            Case 1

                _nPos = ""

            Case 2

                _nPos = "สิบ"

            Case 3

                _nPos = "ร้อย"

            Case 4

                _nPos = "พัน"

            Case 5

                _nPos = "หมื่น"

            Case 6

                _nPos = "แสน"

            Case 7

                _nPos = "ล้าน"

            Case 8

                _nPos = "สิบ"

            Case 9

                _nPos = "ร้อย"

            Case 10

                _nPos = "พัน"

            Case 11

                _nPos = "หมื่น"

            Case 12

                _nPos = "แสน"

            Case 13

                _nPos = "ล้าน"

        End Select

        PositionToText = _nPos

    End Function

#End Region

วนรอบหาค่าใน Object ที่ส่งมาจาก Stored Procedure

Dim objMail As New DataClassesHomeDataContext

Dim mail As String

Dim result = objMail.mod_getEditor_Mail().ToList.FindAll(Function(p) Not p.regEmail = "")

For Each p In result

   mail += p.regEmail.ToString & ";"

Next

Repeater1_ItemCommand และ Repeater1_ItemDataBound

<asp:Repeater ID="Repeater1"  runat="server" DataSourceID="LinqDataSource1"  >

            <ItemTemplate>

                <asp:HiddenField ID="hddA" runat="server" Value ='999' />

            </ItemTemplate>

            <FooterTemplate>

                   

            </FooterTemplate>

</asp:Repeater>

Private Sub Repeater1_ItemCommand(source As Object, e As RepeaterCommandEventArgs) Handles Repeater1.ItemCommand

End Sub

Private Sub Repeater1_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles Repeater1.ItemDataBound

        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then

            Dim hddA As HiddenField = e.Item.FindControl("hddA ")

        End If

        If e.Item.ItemType = ListItemType.Footer Then

        End If

End Sub

javascript: How to upload a file on the click of a button.

<script type="text/javascript">

function loadCommand(btn) {

document.getElementById("fiUpload").click();

}

function AlertFilesize(ClientID) {

if (window.ActiveXObject) {

var fso = new ActiveXObject("Scripting.FileSystemObject");

var filepath = ClientID.value;

var thefile = fso.getFile(filepath);

var sizeinbytes = thefile.size;

} else {

var sizeinbytes = ClientID.files[0].size;

}

var fSExt = new Array('Bytes', 'KB', 'MB', 'GB');

fSize = sizeinbytes / 1024; i = 0;

if (Math.round(fSize * 100) / 100 >= 7168) {

ClientID.value = null;

alert("ขนาดเกิน:" + fSize);

}

document.getElementById("btnLoad").innerHTML = '<i class="fa fa-spinner fa-spin fa-lg"></i> Please Wait';

document.getElementById("btnUpload").click();

}

</script>

<asp:FileUpload ID="fiUpload" runat="server" Width="455px"   style ="display:none" onchange="AlertFilesize(this);" />

<asp:LinkButton ID="btnUpload" runat="server"  style ="display:none"   ></asp:LinkButton>                                      

<input id ="btnLoad" type ="button" onclick="loadCommand(this); return;" value ="Upload File" />

************** VB.net ****************

    Protected Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click

        fiUpload.SaveAs(Server.MapPath(fiUpload.FileName))

    End Sub

wait for button click javascript

<script type="text/javascript">

     function loadCommand(btn) {

         /*document.getElementById("btnUpload").innerHTML = '<i class="fa fa-spinner fa-spin fa-lg"></i> Please Wait';*/

         btn.innerHTML = '<i class="fa fa-spinner fa-spin fa-lg"></i> Please Wait';

     }

</script>

***********************

<asp:LinkButton ID="btnUpload" runat="server" CssClass="btn-u btn-u-orange btn-u-lg" OnClientClick ="loadCommand(this);" > upload file</asp:LinkButton>

***********************

http://fortawesome.github.io/Font-Awesome/examples/

GridView1_RowCommand

    Private Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.RowCommand

        Select Case e.CommandName

            Case "btnOk"

                Dim row As GridViewRow = DirectCast(DirectCast(e.CommandSource, Control).NamingContainer, GridViewRow)

                Dim projectID As HiddenField = DirectCast(row.FindControl("projectID"), HiddenField)

                Dim txtNote As TextBox = DirectCast(row.FindControl("txtNote"), TextBox)

                Dim obj As New DataClassesProjectViewDataContext

                obj.ProjectCancelUpdateComment(projectID.Value, txtNote.Text)

        End Select

    End Sub