คำสั่งหารปัดเศษ in vb.net

คำสั่งหารปัดทศนิยมใน vb.net มีหลายตัว มาดูกันเลยว่าแต่ละ funtion ผลลัพธ์ของการปัดเศษจะเป็นอย่างไร

1. ปรับตัวเลขทศนิยมให้เป็นจำนวนเต็ม มากกว่า 0.5 ปัดขึ้น  น้อยกว่าหรือเท่ากับ 0.5 ปัดลง

Dim number As Double  
number = Math.Round(1.5)    ' ค่าที่ได้คือ  2
number = Math.Round(1.4)    ' ค่าที่ได้คือ  1 

2. ปรับตัวเลขทศนิยมเป็นจำนวนเต็ม ปรับเศษขึ้นอย่างเดียว
Dim number As Double
number = Math.Ceiling(1.5)    ' ค่าที่ได้คือ  2
number = Math.Ceiling(1.4)    ' ค่าที่ได้คือ  2

3. ปรับตัวเลขทศนิยมเป็นจำนวนเต็ม ปรับเศษลงอย่างเดียว
Dim number As Double
number = Math.Floor(1.5)    ' ค่าที่ได้คือ  1
number = Math.Floor(1.4)    ' ค่าที่ได้คือ  1

4. Mod หารเอาเศษ
Dim number As Double
number = 5 Mod 3                ' ค่าที่ได้คือ  2
number = 5 Mod 5                ' ค่าที่ได้คือ  0

5. / หารธรรมดา
Dim num2 As Double
num2 = 11 / 4                      ' ค่าที่ได้คือ  2.75
num2 = 10 / 4                      ' ค่าที่ได้คือ  2.5

6. \ หารตัดเศษทิ้ง หรือไม่เอาเศษ
Dim num2 As Double
num2 = 11 \ 4                      ' ค่าที่ได้คือ  2
num2 = 10 \ 4                      ' ค่าที่ได้คือ  2
num2 = 9 \ 4                        ' ค่าที่ได้คือ  2


7.  หารเอาจำนวนเต็ม ใน vb.net  ให้ประกาศตัวแปรเป็น Integer ทศนิยมมากกว่า 0.5 ปัดขึ้น น้อยกว่าหรือเท่ากับ 0.5 ปัดลง vb.net จะทำให้เอง
Dim num2 As Integer
num2 = 2.6              ' ค่าที่ได้คือ 3
num2 = 2.4              ' ค่าที่ได้คือ 2

Read More

Count Pages MS Word.doc in vb.net

Public Function GetNoOfPagesDOC(ByVal FileName__1 As String) As Integer
        Dim num As Integer = 0
        Dim fileName__2 As Object = FileName__1
        Dim [readOnly] As Object = False
        Dim isVisible As Object = True
        Dim objDNS As Object = Word.WdSaveOptions.wdDoNotSaveChanges
        Try
            Dim WordApp As New Word.Application

            ' give any file name of your choice.


            '  the way to handle parameters you don't care about in .NET
            Dim missing As Object = System.Reflection.Missing.Value

            '   Make word visible, so you can see what's happening
            'WordApp.Visible = true;
            '   Open the document that was chosen by the dialog

            Dim aDoc As Word.Document = WordApp.Documents.Open(fileName__2, missing, [readOnly], missing, missing, missing, _
             missing, missing, missing, missing, missing, isVisible, _
             missing, missing, missing, missing)
            Dim stat As Word.WdStatistic = Word.WdStatistic.wdStatisticPages
            num = aDoc.ComputeStatistics(stat, missing)
            WordApp.Quit(objDNS, missing, missing)
            aDoc = Nothing
            WordApp = Nothing
            GC.Collect()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        Return num

End Function

Read More

Count Pages PDF in vb.net

Public Function GetNoOfPagesPDF(ByVal FileName As String) As Integer
        Dim Count As Integer = 0
        If FileName <> "" Then
            'Open the file
            Dim fstream As New IO.FileStream(FileName, IO.FileMode.Open, IO.FileAccess.Read)
            Dim stream As New IO.StreamReader(fstream)        'Read the contents
            Dim strContents As String = stream.ReadToEnd()        'Count the Total page cound
            Dim reg As System.Text.RegularExpressions.Regex = _
            New System.Text.RegularExpressions.Regex("/Type\s*/Page[^s]")

            Dim mat As System.Text.RegularExpressions.MatchCollection = reg.Matches(strContents)
            Count = mat.Count
        End If

        Return Count
End Function

Read More

Open File Dialog in vb.net

 ' Open File ShowDialog
    Public Function OpenFile(ByVal TypeFile As String)
        Dim _FileFull As String = ""
        Dim _typefile As String = ""

        If TypeFile = "pic" Then
            _typefile = "Picture Files (*.JPG)|*.JPG;"

        ElseIf TypeFile = "word" Then
            _typefile = "Office Documents (*.doc)|*.doc; "

        ElseIf TypeFile = "txt" Then
            _typefile = "text Documents (*.txt)|*.txt; "

        Else
            _typefile = "PDF File (*.pdf)|*.pdf"
        End If
        Try
            Dim dlg As OpenFileDialog = New OpenFileDialog()
            dlg.Filter = _typefile
            dlg.Title = "Open"
            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                _FileFull = dlg.FileName

                '=============================================
                If TypeFile = "pic" Then
                    Dim a As IO.FileInfo = New IO.FileInfo(_FileFull)
                    If a.Length > 20000 Then
                        Dim aaa = a.Length
                        MessageBox.Show("กรุณาเลือกไฟล์ขนาดไม่เกิน 200 KB")
                        OpenFile("pic")
                    End If
                End If

                '=============================================

            End If


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return _FileFull
    End Function

Read More

Code Connection Access

Private _StrConnAccess As String
    Private cConn As New clsConnection

    Public ReadOnly Property ConnectionStringAccess() As String
        Get
            Dim _StrConnAccess As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\Excel1.mdb;"
            Return _StrConnAccess
        End Get
    End Property
    Private _OrclConnectionAccess As OleDbConnection
    Public ReadOnly Property OrclConnectionAccess() As OleDbConnection
        Get
            OrclConnectionAccess = New OleDbConnection(ConnectionStringAccess)
            Return OrclConnectionAccess
        End Get
    End Property

    Public connAcc As OleDbConnection
    Public Function ConnectionAccess_Open() As Boolean
        Dim Y As Boolean = True
        If connAcc Is Nothing Then
            connAcc = New OleDbConnection(ConnectionStringAccess)
        End If
        If connAcc.State = ConnectionState.Closed Then
            Try
                connAcc.Open()
            Catch ex As Exception
                MsgBox("Cannot open database Access connection")
                Y = False
            End Try
        End If
        Return Y
    End Function

    Public Sub ConnectionAccess_Close()
        If connAcc IsNot Nothing Then
            If connAcc.State <> ConnectionState.Closed Then
                Try
                    connAcc.Close()
                    connAcc.Dispose()
                Catch ex As Exception

                End Try
            End If
        End If
        connAcc = Nothing
    End Sub

Read More

Read Microsoft Office Word in vb.net

การอ่าน Microsoft Office Word จากตำแหน่งใน เอกสาร

1. Create New Project  ตามนี้

2. Create Form1 => Add Reference... ดังนี้

3. เลือก  Interop.Microsoft.office Interop.Word ดังนี้

4. เตรียมเอกสารใ้ห้พร้อม ตัวอย่างได้สร้างไว้ที่  D:\Test_Word.docx

5. เขียน Code ตามนี้

Imports Microsoft.Office.Interop.Word
Imports Microsoft.Office.Interop

Public Class Form1
    Private WdApp As New Application
    Private WdDoc As Word.Document

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim dt_Word As DataTable
        Dim pathWord As String = "D:\Test_Word.docx"
        Dim word As String
        WdDoc = WdApp.Documents.Open(pathWord)
        'WdApp.Visible = False
        Threading.Thread.Sleep(1000)

        word = GetWord(pathWord) 'Send file name process in getword
        ' Close process WinWord.exe
        WdDoc.Close()
        WdApp.Quit()

        TextBox1.Text = word
        MsgBox(word)
    End Sub

    Function GetWord(ByVal pathWord As String) As String
        Dim allPage As Integer
        Dim startPage As Integer
        startPage = WdApp.Selection.Range.Start
        allPage = WdApp.Selection.Range.StoryLength
        Dim word As String
        word = Character(startPage, allPage)
        Return word
    End Function

    Function Character(ByVal s As Integer, ByVal e As Integer) As String
        Dim _word As String = ""
        Dim range As Word.Range

        If s < e And s > -1 Then
            range = WdDoc.Range(Start:=s, End:=e)
            _word = range.Text
        End If
        Return _word
    End Function

    'Find location Word
    Function findWord_location() As Integer
        'กรณีต้องการหาตำแหน่ง ของตัวอักษร แทน startPage ก้อได้
        ' ตัวอักขระพิเศษของ MS Word ดูได้จาก http://support.microsoft.com/kb/214204
        ' ถ้ายังสงสัยลองกด Ctrl+F ใน MS Word Find what: ^t จะเจอ แต่ต้องมีเอกสารที่มี TAB ด้วยน่ะไม่งั้นไม่เจอน่ะ 555+
        ' ^t = TAB
        ' ^p = Enter

        WdDoc.Select()
        WdApp.Selection.Find.ClearFormatting()
        Dim wh As String = "^t" & "ข้อที่ 1"       'ต้องการหาคำที่ประกอบด้วย 1TAB ข้อที่ 1
        'Dim wh As String = "^t^t" & "ข้อที่ 2"    'ต้องการหาคำที่ประกอบด้วย 2TAB ข้อที่ 2

        With WdApp
            With .Selection.Find
                .Text = wh
                .Replacement.Text = ""
                .Forward = True
                .Format = True
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
        End With

        Dim location As Integer
        If WdApp.Selection.Find.Execute = True Then
            location = WdApp.Selection.Range.Start
        End If

        Return location
    End Function
End Class

6. เมื่อ Run Program(F5) จะอ่านได้ดังนี้

7. ศึกษาเพิ่มเติมเรื่อง อักขระพิเศษใน MS Word ตาม Link นี้ค่ะ
    http://support.microsoft.com/kb/214204

Read More

cmd Insert Data in vb.net

 ' code Insert ,Update, Delete
' Code connect Oracle

Connection Oracle Link
ConnectionOpen()
Dim custsInsCmd As OracleCommand
custsInsCmd = _Conn.CreateCommand() 
Dim sql = " update TBL_TABLE set " & _
                " NAME = 'abc' " & _
                " where ID = 1 "

custsInsCmd.CommandText = sql
custsInsCmd.ExecuteNonQuery()
ConnectionClose()

Read More

Select Data Reader in vb.net

ConnectionOpen()
Dim cmd As New OracleCommand
Dim dr As OracleDataReader
dim str as String 
Dim sql= "SELECT * FROM TBL_TABLE where ID = '1'"
cmd = New OracleCommand(sql, conn)
dr = cmd.ExecuteReader
If dr.HasRows Then
       dr.Read()
       str = dr("NAME").tostring
End If
ConnectionClose()

Read More

DataTable Update Data in vb.net

Connection Oracle Link

Dim da As OracleDataAdapter
Dim dt As New Data.DataTable("dt")
Dim strSQL As String = ""
strSQL = "SELECT * FROM TBL_TABLE where ID = '1'"
ConnectionOpen()
da = New OracleDataAdapter(strSQL, conn)
Dim SqldtSearch As OracleCommandBuilder = New OracleCommandBuilder(da)
dt.Columns.Clear()
dt.Rows.Clear()
da.Fill(dt)

' Edit Datatble Update  " Braaaaaa......."
da.Update(dt)

MsgBox("Save Complete !!!")
ConnectionClose()

Read More

Connection Oracle

' Code Connection Oracle 

Private _StrConn As String
Dim _Host As String = "192.000.0.000"
Dim _Port As String = "1521"
Dim _SID As String = "databaseName"
Dim _Username As String = "admin"
Dim _Password As String = "password"


'=========== DataBase Oracle ===============
Public ReadOnly Property ConnectionString() As String
Get
        _StrConn = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & _Host & ")(PORT=" & _Port & ")))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _SID & ")));User Id=" & _Username & ";Password=" & _Password & ";"
            Return _StrConn
End Get
End Property

Private _OrclConnection As OracleConnection
Public ReadOnly Property OrclConnection() As OracleConnection
    Get
        _OrclConnection = New OracleConnection(ConnectionString)
        Return _OrclConnection
    End Get
End Property

Public conn As OracleConnection
Public Function ConnectionOpen() As Boolean
    Dim Y As Boolean = True
    If conn Is Nothing Then
        conn = New OracleConnection(ConnectionString)
    End If
    If conn.State = ConnectionState.Closed Then
        Try
            conn.Open()
        Catch ex As Exception
            MsgBox("Cannot open database connection")
            Y = False
        End Try
    End If
        Return Y
End Function

Public Sub ConnectionClose()
    If conn IsNot Nothing Then
        If conn.State <> ConnectionState.Closed Then
            Try
                conn.Close()
                conn.Dispose()
            Catch ex As Exception

            End Try
        End If
    End If
    conn = Nothing
End Sub

Read More

Loop DataTable in vb.net

Dim dt As New DataTable("dt1")

'------------------------- Add Columns DataTable -------------------------------
dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("NAME", GetType(String))
dt.Columns.Add("SURNAME", GetType(String))

'------------------------- Add Data DataTable -------------------------------
Dim dr As DataRow
dr = dt.NewRow
dr("ID") = 1
dr("NAME") = "Jenny"
dr("SURNAME") = "MAC"
dt.Rows.Add(dr)

dr = dt.NewRow
dr("ID") = 2
dr("NAME") = "Jenny"
dr("SURNAME") = "Blogger"
dt.Rows.Add(dr)

'------------------------- Loop DataTable -------------------------------
Dim str1 As String
Dim FRow1 As DataRow()
FRow1 = dt.Select("", "", DataViewRowState.CurrentRows)
For Each r1 In FRow1
    str1 = r1("name").ToString
Next

'------------------------- Where Loop DataTable -------------------------------
'              กรณีมีเงื่อนไขในการ วน Loop DataTable
Dim str2 As String
Dim wh As String = "id = 1 and SURNAME = 'Blogger' "
Dim sort As String = "id"              'หรือ "id DESC"
Dim FRow2 As DataRow()

FRow2 = dt.Select(wh, sort, DataViewRowState.CurrentRows)
For Each r1 In FRow2
    str2 = r1("name").ToString
Next

'------------------------- Group DataTable -------------------------------
'                   กรณีมีเงื่อนไขในรวม Group DataTable

Dim dv As New DataView(dt)
Dim dt_Group As DataTable
dt_Group = dv.ToTable(True, New String() {"NAME", "SURNAME"})

Read More

WebBrowser in VB.NET

          WebBrowser  เป็นคอนโทรลที่เราจะใช้ทำงานในส่วน Internet Explorer ซึ่งปกติแล้วมีผู้สร้างเบราเซอร์ให้เรามากมายเช่น IE, Firefox, Chrome, Safari ,Opera เป็นต้น เบราเซอร์เหล่านี้สามารถเปิดดูเวปไซต์ต่างๆ เป็นหลัก
          WebBroweser ใน .Net สามารถทำให้ เวปไซต์ต่างๆ เข้ามาเปิดดูใน Program application ได้ และไม่เพียงแสดงผลของเวปไซต์อย่างเดียวเท่านั้น  ยังสามารถเปิดดูเอกสารต่างๆ เช่น
          Microsoft Office Word (.doc, .docx)
          Microsoft Office Excel (.xlx, xlsx)
          Nodepad (.txt)
          (.PDF)
เป็นต้น

          บทความจะนำเสนอขั้นตอนการเขียน Coding ในส่วนของ WebBrowser เพื่อแสดง Program application ที่สามารถเปิดดูเอกสารต่างๆ ได้ดังนี้

ขั้นตอนการทำ WebBrowser ให้แสดงข้อมูล  Microsoft Office Word 2007
1. สร้าง Form1 ขึ้นมา
2. Toolbox เลือก WebBrowser เข้ามาใน From1

2. เขียน code ตามนี้
    Me.WebBrowser1.Navigate("D:\Blog\TEST.docx")

 สามารถแสดงได้ ทั้ง File doc,docx, PDF, WebSite ต่าง


3. Run project จะได้ดังนี้

4. กรณีที่ MS Word ไม่สามารถแสดงใน WebBrowser  ได้ให้แก้ไขดังนี้
    1. Open 'My Computer"
    2. Tools -> Folder and Options
    3. "File Type" Tab
    4. Select DOC or DOCX Extentions and Click on "Advanced"
    5. "Confirm open after download" will be checked, now un check it and
    6. Check "Browser in same window"
    หมายเหตุ สามารถทำใน Windows XP เท่านั้น

         บทความนี้หวังว่าจะมีประโยชน์กับผู้อ่าน และผู้ที่ต้องการศึกษาเรื่อง  WebBrowser นะค่ะ

Read More

Create Setup In VB.NET

           Application ต่างๆ ที่สร้างขึ้นมาแล้ว เมื่อสร้างเสร็จและทดสอบเสร็จเรียบร้อยแล้ว ควรจะทำการสร้างตัวติดตั้ง หรือที่เรียกว่า Setup Program และแจกจ่ายโปรแกรม ให้กับผู้ใช้คนอื่นๆ ได้
          ใน VB.NET มีเครื่องมือในการสร้าง Setup Program ที่มีประสิทธิภาพ และมีขั้นตอนไม่ยุ่งยาก สามารถดูขั้นตอนดังนี้

ขั้นตอนการสร้าง Setup Program ใน VB.NET
1. New Project
2. Name: Winapp_SetupProject => OK

3. คลิ๊กขวาที่ โปรเจค เลือก Add => New Project

4.  เลือก Visual Studio Installer => Setup Project => OK

5. จะเห็นว่ามีโปรเจค Setup1 เพิ่มขึ้นมาอีกตัวหนึ่ง
6. เลือก Appllcation Folder
7. คลิ๊กขวาที่ว่างเลือก Add => Project Output

8. เลือก Primary output => OK

9. คลิ๊กขวาที่ว่างเลือก Add => File เพื่อจะนำ File ที่ต้องใช้เข้ามาในตัว Setup เช่น icon , remark.txt

10. ถ้าต้องการให้แสดง Shortcut Desktop ให้เลือก
      10.1  Primaty output.. => Create Shortcut to Primaty Output.. 
      10.2  Rename : Winapp_Nuying

11. เลือกใส่ icon ให้โปรแกรม คลิ๊กขวา ที่ Winapp_Nuying => Properties Window => Icon

12. เลือก Browes... => Application Folder(ที่ได้เลือก Icon ไว้ก่อนหน้าที่แล้ว) => icon => OK

13. แสดงโปรแกรมหน้า Desktop ให้เลือกคลิ๊กขวาที่ Winapp_Nuying  => Cut

 14. เลือก User's Desktop => Paste

15. เลือก Application Folder => Properties แล้ว Set DefaultLocation ที่เราต้องการจะ Setup ลง Folder ที่กำหนดไว้

 16 เสร็จแล้วทำการ Build

 17. เปิดดูตัว Setup ใน Folder

18. เข้าไปใน Folder Debug จะเจอ File Setup.exe  และสามารถ Install ได้ เป็นอันเสร็จสิ้นการทำ Setup In VB.NET ค่ะ

เมื่อทำตัวติดตั้งเสร็จเรียบร้อยแล้ว นักพัฒนาสามารถนำ Setup.exe ไปติดตั้งให้กับ ผู้ใช้คนอื่นๆ ได้

หวังว่าคงมีประโยชน์ต่อผู้ที่ต้องการศึกษาเรื่อง Create Setup ไ่ม่มากก็น้อยนะค่ะ

Read More

Code Version Deploy in VB.NET

Dim AD As ApplicationDeployment = ApplicationDeployment.CurrentDeployment
 Me.txtVersionDeploy.Text = AD.CurrentVersion.ToString()

Read More

วิธีใส่ Version Project in VB.NET

          Version in Project มีความสำคัญในการพัฒนาโปรแกรม เพื่อให้โปรแกรมเมอร์รู้ว่าพัฒนาโปรแกรมไปถึงไหนแล้ว

วิธีใส่ Version Project ใน VB.NET

1. New Project ขึ้นมาใหม่
2. Name : Winapp_VersionProject => OK

3. เปิด My Project ขึ้นมา

4. เลือก Assembly Information
5. แก้ไข Version ที่ต้องการเพิ่มใน Version Project ได้ที่ Assembly version => OK

6. สร้าง Textbox ใน From1 ดังนี้

7. ใส่ Code เพื่อแสดง Version Project ดังนี้
    Me.txtVersionApp.Text = My.Application.Info.Version.ToString

8. สั่ง Run Program(F5) จะแสดงผล Version Project ดังนี้

        บทความนี้ได้นำเสนอการ เพิ่ม Version in Project เพื่อที่ นักพัฒนาโปรแกรมไม่จำเป็นจะต้องเขียนโค้ดเอง เพียงกำหนดไว้ในโปรแกรมได้ สะดวก และสบาย
       

Read More

Clickonce step by step In VB.NET

          บทความนี้จะนำเสนอการสร้างตัวติดตั้ง Application แบบ Clickonce
         Clickonce คือ การนำเอา Application ที่พัฒนาเสร็จเรียบร้อยและทำการทดสอบแล้ว Public Program ขึ้น Server เพื่อให้ ผู้ใช้ทำการติดตั้งลงที่เครื่อง ผู้ใช้

         ถ้าถามว่ามันดีตรงไหน บอกได้เรยว่าดี ตรงที่ เวลาเราแก้ไข program แล้ว Public Program ขึ้น Server อีกครั้ง เราไม่จำเป็นต้องไป  Update ที่เครื่องของ user อีก โปรแกรมจะตรวจสอบ  Public Version  ถ้าไม่ใช่ Version ล่าสุด โปรแกรมจะโหลด Version ล่าสุดมากให้ สบายใจไม่ต้องทำอีก 555+  (อธิบายตามความรู้สึกของเจ้าของ Blog อิอิ)


ขั้นตอนการทำ Clickonce ที่ละขั้นตอน
1. New project
2. Name: Winapp_ClickOnce => OK
3. Form1: สร้าง textbox และตั้งชื่อเหมือนกันรูป

4. เขียน Code เพื่อแสดง Version Project and Version Deploy ดังนี้

     Dim AD As ApplicationDeployment = ApplicationDeployment.CurrentDeployment
     Me.txtVersionDeploy.Text = AD.CurrentVersion.ToString()
     Me.txtVersionApp.Text = My.Application.Info.Version.ToString

5. เพิ่ม File ที่เกี่ยวข้องกับงาน เพื่อ Add file to Clickonce

6. Set Properties File ที่ Add เข้ามาเป็น Content

7. เลือก My Project

8. click : Assembly Information กำหนด Assembly version (Version Windows application)

9. เลือก Publish เืพื่อทำ Clickonce กำหนดตำแหน่งของ File ที่จะ upload ขึ้นไปใน Server
    กำหนด 1, 2 เหมือนกัน

10. Application Files แสดง File ที่ต้องการ Publish ขึ้นที่ Clickonce

 11. Prerequisites จะแสดง .NET Framework ตัวที่เราพัฒนา

12. Updates ให้เลือกดังนี้

 13. Options ให้เลือกดังนี้

14. เลือก Publish Wizard

15. เมื่อกด Finish แล้ว โปรแกรมจะทำการ Upload File เข้าไปยัง Server ที่ได้เตรียมไว้ ประกอบด้วย File ดังนี้

16. เมื่อ upload File เสร็จเรียบร้อยแล้ว จะมีหน้าให้ Install ผ่านตัว browser IE ดังนี้

17.  กด Install ดังนี้

18. จะพบ Program อยู่ที่ Start Manu และ Desktop เสร็จสิ้นการทำ Clickonce ค่ะ

19. เมื่อมีการแก้ไข program และต้องการ Publish to Clickonce ให้ Click ที่ Publish Now


หวังว่าเพื่อนๆ คงได้รับประโยชน์ของการทำ ClickOnce ลองทำกันได้น่ะค่ะ  ขั้นตอนง่ายๆ ใครติดเรื่อง ClickOnce  ถามได้นะค่ะ

Read More