29 ธันวาคม 2559

Pass Parameter and Formula to Crystal Report (Vb.net) Without Messagebox Resolve

'Tip: Move   rpt.SetParameterValue("ParamTitle", txtParameterTitle.Text) and rpt.DataDefinition.FormulaFields("Formula Title").Text = "'" & txtFormulaFields.Text & "'" After rpt.SetDataSource(dt)
-------------------------------------------------------------------------------------------




Imports CrystalDecisions.CrystalReports.Engine

Public Class Form1



    '*** TableRows (DataTable) ***'
    Function DataTableRows() As DataTable
        Dim dt As New DataTable
        Dim dr As DataRow

        '*** Column ***'
        dt.Columns.Add("id")
        dt.Columns.Add("ProductName")
        dt.Columns.Add("Units")
        dt.Columns.Add("Prices", GetType(System.Int64))
        'หากลืมใช้ GetType ให้ใช้โค้ดด้านล่างก็ได้
        'dt.Columns("Prices").DataType = System.Type.GetType("System.Int64")

        '*** Rows ***'
        dr = dt.NewRow
        dr("id") = "001"
        dr("ProductName") = "Printer Name 001"
        dr("Units") = "Box"
        dr("Prices") = "115"

        dt.Rows.Add(dr)

        '*** Rows ***'
        dr = dt.NewRow
        dr("id") = "C002"
        dr("ProductName") = "Keyboard "
        dr("Units") = "Box"
        dr("Prices") = "21"
        dt.Rows.Add(dr)

        '*** Rows ***'
        dr = dt.NewRow
        dr("id") = "C003"
        dr("ProductName") = "Mouse"
        dr("Units") = "Box"
        dr("Prices") = "6543"
        dt.Rows.Add(dr)

  

        Return dt '*** Return DataTable ***'




    End Function

    Private Sub btnViewReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewReport.Click
        Dim dt As DataTable
        dt = DataTableRows()

        Dim rpt As New ReportDocument()
        Dim directory As String = My.Application.Info.DirectoryPath
        'rpt.ReuseReportParametersOnRefresh = False
        'rpt.Load(directory & "..\..\myCrystalReport.rpt")
        rpt.Load("..\..\CrystalReport1.rpt")


        rpt.SetDataSource(dt)
        rpt.SetParameterValue("ParamTitle", txtParameterTitle.Text)

        'การส่งค่า Formula Fields ต้องมีเครื่องหมาย   ' ภายในเสมอ (ใน Crystal Report เป็น X+1 Formula Fields)
        rpt.DataDefinition.FormulaFields("Formula Title").Text = "'" & txtFormulaFields.Text & "'"

        Form2.CrystalReportViewer1.ReportSource = rpt
        Form2.CrystalReportViewer1.Refresh()
        Form2.StartPosition = FormStartPosition.CenterScreen
        Form2.WindowState = FormWindowState.Maximized
        Form2.ShowDialog()

    End Sub
End Class

10 กันยายน 2559

แก้ไขปัญหาไม่สามารถเชื่อมต่อ Wifi ได้เครื่องแจ้งว่า pin หรือรหัสผ่านผิดพลาดตลอด

เมื่อวานซื้อWifi Router TP-Link มาปรากฎว่าเจอปัญหาหนึ่งคือ Login ผ่าน wifi ไม่ได้
ให้ทำดังนี้

1. คลิกขวาที่ Wifi icon > Open Network and Sharing Center
2. >Manage Wireless Network
3. คลิกขวาที่ชื่อ Network ที่เราเชื่อมอยู่ > Remove
4. เชื่อมต่ออีกครั้ง

หากยังไม่ได้อีกให้ทำตามขั้นตอนดังนี้
1. Login เข้า Wifi Router
2. Wireless > WPS> Wireless Security กำหนดรหัสผ่าน
3. Wireless > WPS> Disable WPS เพื่อปิดไม่ให้ใช้ pin ในการตรวจสอบ
4. กลับไป Login ที่เครื่องคอมพิวเตอร์ใหม่


04 กรกฎาคม 2559

วิธีหมุนจอภาพโดยใช้คีย์ลัด How to Rotate Monitor by Use Hotkey

กดปุ่ม Ctrl+Alt + <-- p="">กดปุ่ม Ctrl+Alt + <-- p="">กดปุ่ม Ctrl+Alt + <-- p="">

11 เมษายน 2559

วิธีแทรกหมายเลขหน้าใน Microsoft Word กรณีแทรกหมายเลขหน้าจากเมนูปกติไม่ได้

เคยบ้างใหมครับ แทรกหมายเลขหน้าไม่ได้สักที เหมือนเมนูมันถูกปิดไม่ให้ทำงาน
วันนี้ผมมีวิธีแทรกหมายเลขหน้ามาฝากกันครับ เอ้าเริ่มเลย

แทรก >> หัวกระดาษ >> แก้ไขหัวกระดาษ


ออกแบบ >> ส่วนประกอบด่วน >> เขตข้อมูล
 >> ประเภท(ทั้งหมด)  >> Page (นี่ไง Page แปลว่าหน้า) หากไม่ชอบตัวเลขแบบปกติให้เลือกรูปแบบตามใจได้นะครับ(ฝั่งขวามือ) >> เสร็จกด ตกลง

ส่วนใครอยากจัดซ้ายขวาหรือกึ่งกลางได้เลยครับไปที่ >> หน้าแรก >> จัดตำแหน่งตามใจได้เลย ซ้าย ขวา กึ่งกลาง


เมื่อแทรกเสร็จแล้วไม่พอใจรูปแบบเดิมให้ลบหมายเลขหน้าแล้วแทรกใหม่ได้ครับ
อ๊ะๆ แต่หากไม่อยากแทรกใหม่แก้ไขอันเก่าก็ได้ครับ
ไปที่เมนู ออกแบบ >> หมายเลขหน้า >> จัดรูปแบบหมายเลขหน้า

เลือกรูปแบบตัวเลข แล้วกด ตกลงครับ
เสร็จแล้ววววววว

อ้อลืมบออวิธีออกจากหัวกระดาษ ดังนี้ครับ

ไปที่เมนู ออกแบบ >> ปิดหัวกระดาษและ้ายกระดาษ
หรือจะดับเบิลคลิกเข้าไปในกระดาษส่วนพื้นที่ทำงานก็ได้ครับ












08 เมษายน 2559

วิธีปลอกผลไม้ต่างๆ

วิธีปอก ทุเรียน
http://youtu.be/bK1I81JHeKE

แกะเปลือกมังคุด
http://youtu.be/blk2vzSlMIw

วิธีแกะ เมล็ดน้อยหน่า
http://youtu.be/aYbPrvoBs7Q

วิธีปอก มะพร้าว กินได้ทั้งลูก
http://youtu.be/vrXCOXPsXf4

วิธีผ่า แตงโม อย่างง่าย
https://youtu.be/RFzjbu1MQ9Y

วิธีปอก สัปปะรด ให้สวยงาม
http://youtu.be/ALUyj6eCe0M

วิธีการ ปอกสละ อย่างง่ายๆ
https://youtu.be/ynJZoLoen_s

10 มีนาคม 2559

อนุสาวรีย์พระเจ้าบรมวงศ์เธอกรมหลวงประจักษ์ศิลปาคม



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

08 มีนาคม 2559

International women's Day Logo โลโก้วันสตรีสากล

สวัสดีครับ ด้วยวันนี้ 8 มีนาคม  เป็นวันสตรีสากล ผมจึงขอนำเสนอโลโก้วันสตรีสากล
ไฟล์แบบ Windows Media File (WMF) ซึ่งเป็นไฟล์ แบบเว็กเตอร์กราฟฟิคนำไปใช้กับโปรแกรม Microsoft Word ได้ โดนใช้เมนูแทรก > รูปภาพ ครับ ภาพจะชัดมากครับ
Link: Download WMF File

ตัวอย่าง



24 กุมภาพันธ์ 2559

วันเดือนปี ภาษาอังกฤษ (ค.ศ.) และ ภาษาไทย (พ.ศ.) ใน VB.NET แบบใช้ของจริงจากระบบครับ

'สวัสดีครับ วันนี้ผมขอเสนอระบบวันเดือนปี ภาษาไทย (พ.ศ.) และ ภาษาอังกฤษ (ค.ศ.) เอามาโชว์ในฟอร์มเดียวกันได้เลย สามารถทำได้ดังนี้ครับ

Imports System.Globalization 'ต้อง Import เข้าระบบก่อนจึงใช้งานได้

Public Class Form1
    Private EnCulture As System.Globalization.CultureInfo
    Private ThCulture As System.Globalization.CultureInfo

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

        EnCulture = System.Globalization.CultureInfo.GetCultureInfo("en-US") 'ระบบภาษาอังกฤษ
        ThCulture = System.Globalization.CultureInfo.GetCultureInfo("th-TH") 'ระบบภาษาไทย

        Label1.Text = Now.ToString("dd-MM-yyyy", EnCulture) 'วัน เดือน ปี ภาษาอังกฤษ (ค.ศ.)
        Label2.Text = Now.ToString("dd-MM-yyyy", ThCulture) 'วัน เดือน ปี ภาษาไทย (พ.ศ.)  
    End Sub

End Class

11 กุมภาพันธ์ 2559

โปรแกรมที่ใช้ เปิด สร้าง แก้ไข ไฟล์ .SVG

ใช้โปรแกรม InkScape ครับ ตัวนี้เอาไว้สร้างไฟล์กราฟฟิคแบบเว็คเตอร์ได้สวยมากๆและใช้ง่ายด้วย
ที่สำคัญ ฟรี ครับ
https://inkscape.org

10 กุมภาพันธ์ 2559

22 มกราคม 2559

Delete User then Lose File. ลบผู้ใช้งานใน Windows แล้วไฟล์หายไป

1. หากคุณเลือก Keep File หมายถึงเก็บไฟล์ไว้ แสดงว่าไฟล์นั้นไม่ได้หายไปใหนครับ มันไปอยู่ที่ Desktop ของ Admin ครับ
2. หากคุณไม่ได้เลือก Keep File นั่นแสดงว่าไฟล์ของคุณถูกลบไปแล้ว ให้ใช้โปรแกรมเรียกคืนไฟล์ เช่น Recuva ครับ โดยเลือกที่จะเรียกคืนไฟล์จากโฟลเดอร์ C:\users\

06 มกราคม 2559

Calculate Age (VB.NET) ฟังก์ชั่นคำนวณอายุเป็น ปี เดือน ครับ

'ฟังก์ชั่นคำนวณอายุเป็น ปี เดือน ครับ
'How to Calcuate Aeg ....Year....Month

    Function CalculateAge(ByVal YYYYMMYY As String)
        Dim AgeYear As Integer
        AgeYear = Now.Year - CInt(Mid(YYYYMMYY, 1, 4))


        Dim MyMonth As Integer
        Dim AgeMonth As Integer
        MyMonth = CInt(Mid(YYYYMMYY, 5, 2))
        If MyMonth > Now.Month Then
            AgeMonth = (12 - CInt(Mid(YYYYMMYY, 5, 2))) + Now.Month
            AgeYear = AgeYear - 1
        Else
            AgeMonth = Now.Month - CInt(Mid(YYYYMMYY, 5, 2))
        End If
        Return (AgeYear & " Year  " & AgeMonth & " Month")
    End Function