25 สิงหาคม 2553

มาสร้าง PDF Viewer ด้วย VB.Net กัน

เวลาที่ผู้เขียนทำระบบงาน ก็จะมีหน้าจอสำหรับใช้ดูไฟล์ประเภท PDF ซึ่งจริง ๆ แล้วเราก็สามารถดู PDF File โดยอาศัยโปรแกรม Acrobat Reader หรือ FoxIt Reader ได้อยู่แล้ว
แต่ถ้าเราต้องการทำระบบงานของเราให้สามารถพิมพ์เอกสารเก็บไว้ในรูปของ PDF File แล้วให้ผู้ใช้เปิดงาน เช่น สืบค้นเอกสารเก่าที่พิมพ์ไว้ หรือนำเอกสารเหล่านั้นมาพิมพ์ ถ้าเราให้ผู้ใช้ดูผ่านโปรแกรม Acrobat Reader หรือ FoxIT คงไม่สะดวก ดังนั้นเราก็ควรสร้าง PDF View มาให้ผู้ใช้งานไม่ต้องออกจากระบบงานไม่ดีกว่าหรือ (สำหรับการใช้งาน ก็ยังอาศัย Acrobat Reader และ FoxIT Reader ซึ่งจะต้องติดตั้งไว้ในเครื่องด้วย) มาเริ่มสร้างกันเลย

1. เปิดโปรแกรม Visual Studio 2008 (2005 หรือ 2010 ก็ได้) จากนั้น เลือกเมนู File ---> New Project ที่หน้าต่าง New Project เลือก Visual Basic เลือก Windows เลือก Windows Forms Application จากนั้นที่ช่อง Name ตั้งชื่อตามต้องการ สำหรับตัวอย่างนี้จะตั้งเป็น PDFViewer แล้วคลิกปุ่ม OK ดังภาพ














2. ไปที่ Toolbox ลากปุ่ม Button มาวางไว้ที่ฟอร์ม จากนั้นกำหนด Properties ของปุ่ม Button1 ในส่วนของ Text เป็น Open File
















3. ไปที่เมนู Tools เลือกรายการ Choose Toolbox Items... รอสักครู่(หลายอึดใจเหมือนกัน)จะขึ้น หน้าต่าง Choose Toolbox Items จากนั้นคลิกเลือกแทป COM Components แล้วคลิกเลือกรายการ Microsoft Web Browser จากนั้นคลิกปุ่ม OK ดังภาพ
















4. เมื่อเลือก Microsoft Web Browser เรียบร้อย ก็จะกลับมาที่ฟอร์ม ให้คลิกเมาส์ที่ฟอร์มแล้วลากเพื่อกำหนดขนาดของ Microsoft Web Browser ตามต้องการ ดังภาพ
















5. ไปที่ ToolBox เลือก OpenFileDialog แล้วลากมาวางไว้ที่ฟอร์ม ดังภาพ



















6. ให้ Double Click ที่ปุ่ม Open File แล้วป้อนคำสั่ง ดังนี้










โค้ด ตามรูปด้านบน


Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim Response As DialogResult
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "PDF Files(*.pdf)|*.pdf|All Files(*.*)|*.*"
Response = OpenFileDialog1.ShowDialog()
If Response <> Windows.Forms.DialogResult.Cancel Then
If OpenFileDialog1.FileName <> "" Then
AxWebBrowser1.Navigate(OpenFileDialog1.FileName)
End If
End If
End Sub
End Class


จากนั้นให้ทำการเรียกใช้งานโปรแกรมโดยกดปุ่ม F5

เราก็จะได้ ฟอร์ม PDF Viewer ที่เขียนด้วย Visual Basic .Net

24 สิงหาคม 2553

กำหนด SplashScreen ให้กับระบบงานด้วย VB.Net

เวลาเราเรียกใช้งานโปรแกรมต่าง ๆ เช่น Word, PowerPoint, Excel หรือ Application อื่น ๆ เวลาเรียกโปรแกรมจะปรากฎหน้าจอเล็ก ๆ แสดงรายละเอียดของโปรแกรม ระหว่างที่กำลังโหลดโปรแกรมขึ้นมาใช้งาน ซึ่งหน้าจอที่เราเห็นนั้นจะปรากฎมาแค่ชั่วขณะ แล้วก็หายไป หน้าจอเหล่านี้เราเรียกว่า Splash Screen

บทความนี้จะนำท่านสู่การเขียนคำสั่งเพื่อทำ Splash Screen สำหรับระบบงานของเรา ด้วยภาษา Visual Basic 2008 หรือถ้าท่านใดถนัด รุ่น Visual Basic 2010 ก็ใช้ได้เช่นเดียวกัน

1. เปิดโปรแกรม Visual Studio 2008 จากนั้น เลือกเมนู File ---> New Project ที่หน้าต่าง New Project เลือก Visual Basic เลือก Windows เลือก Windows Forms Application จากนั้นที่ช่อง Name ตั้งชื่อตามต้องการ แล้วคลิกปุ่ม OK ดังภาพ













2. สร้างฟอร์ม splash screen โดยทำการคลิกเมาส์ปุ่มขวาที่ ชื่อ โปรเจกต์ ในส่วนของ Solution Explorer เลือก รายการ Add จากนั้นคลิกที่รายการ New Item ดังภาพ





















3. ที่หน้าต่าง Add New Item ให้เลือก Windows Forms แล้วคลิกเลือกที่ Splash Screen จากนั้นที่ช่อง Name ตั้งชื่อตามต้องการ สำหรับตัวอย่างจะตั้งชือในช่อง Name ว่า SplashScreen1.vb แล้วทำการคลิกที่ปุ่ม Add ดังภาพ














4. เราก็จะได้ฟอร์ม Splash Screen ฉบับด่วนจี๋ ดังภาพ
















5. จากนั้นทำการคลิกเมาส์ปุ่มขวาที่ ชื่อโปรเจกต์ ในส่วนของ Solution Explorer เลือก รายการ Properties ดังภาพ





















6. ที่หน้าต่าง Properties ตรงส่วนของ Splash Screen ให้เลือกฟอร์ม SplashScree1 ที่เราได้ทำการสร้างไว้ในข้อ 3 หลังจากเลือกแล้วให้คลิกเมาส์ที่ปุ่ม View Application Events ดังภาพ

















7. ทำการป้อนคำสั่งในส่วนของ Application Events ดังนี้ (อ้างอิงจาก http://www.sourcecodester.com/tutorials/net/how-create-a-splash-screen-vbnet.html)



Namespace My
Partial Friend Class MyApplication

Protected Overrides Function OnInitialize( _
ByVal commandLineArgs As _
System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
' Set the display time to 5000 milliseconds (5 seconds).
Me.MinimumSplashScreenDisplayTime = 5000
Return MyBase.OnInitialize(commandLineArgs)
End Function
End Class
End Namespace


จากนั้นคลิกปุ่ม F5 เพื่อทำการเรียกโปรแกรม ก็จะปรากฎ SplashScreen ก่อนที่จะเข้าสู่ระบบงานของเรา

21 สิงหาคม 2553

.NET development environment for Linux

เอาไว้ศึกษาเกี่ยวกับ Table (elbaT) ใน vb.net

http://vb.net-informations.com/datagridview/vb.net_datagridview_database.htm

http://www.codeproject.com/KB/grid/practicalguidedatagrids1.aspx#_Toc56951001


ศึกษาเกี่ยวกับ .Net & Linux

http://mono-project.com/Main_Page

VB.Net Example
vb2005
http://msdn.microsoft.com/en-us/vbasic/ms789075.aspx#winforms
vb2008
http://code.msdn.microsoft.com/vb2008samples
vb2010
http://code.msdn.microsoft.com/vb2010samples

VB.Net connect to vfp data
'TODO: This line of code loads data into the 'DataSet1.table1' table. You can move, or remove it, as needed.
''Me.Table1TableAdapter.Fill(Me.DataSet1.table1)
'' http://msdn.microsoft.com/query/dev10.query?appId=Dev10IDEF1&l=EN-US&k=k%28EHINDEXOUTOFRANGE%29;k%28TargetFrameworkMoniker-%22.NETFRAMEWORK%2cVERSION%3dV4.0%22%29;k%28DevLang-VB%29&rd=true

Dim ConnectionString As String

ConnectionString = "Provider = VFPOLEDB;Data Source=D:\;Mode=Read;Collating Sequence=MACHINE;"

''"Provider=Microsoft.Jet.OLEDB.4.0;" & _
'' "Data Source=D:\;Extended Properties=dBase IV"
Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)
dBaseConnection.Open()

Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("SELECT * FROM TABLE1", dBaseConnection)
Dim dBaseDataReader As System.Data.OleDb.OleDbDataReader = dBaseCommand.ExecuteReader(CommandBehavior.SequentialAccess)

While dBaseDataReader.Read
'MessageBox.Show(dBaseDataReader.FieldCount.ToString)
Console.WriteLine(dBaseDataReader.Item(0).ToString)
Console.WriteLine(dBaseDataReader.Item(1).ToString)
Console.WriteLine(dBaseDataReader.Item(2).ToString)
Console.WriteLine(dBaseDataReader.Item(3).ToString)
'Console.WriteLine(dBaseDataReader("Column1").ToString)
'Console.WriteLine(dBaseDataReader("Column2").ToString)
'Console.WriteLine(dBaseDataReader("Column3").ToString)
End While

dBaseConnection.Close()

19 สิงหาคม 2553

สร้างโปรแกรมดูทีวีออนไลน์ ฟังวิทยุออนไลน์ ด้วย VB.Net

หลายท่านคงเคยได้ดูทีวี หรือฟังวิทยุ ผ่านทางเว็บเบราว์เซอร์ กันมาบ้าง แล้วถ้าเราจะทำใช้เองด้วย VB.Net ล่ะ โอย ง่ายมาก ๆ เรามาดูขั้นตอนการทำเลย ถ้าใครมี Visual Studio .Net รุ่นใหนก็ใช้ได้หมด หรือ ถ้าท่านใดมี Visual Basic รุ่น Express ก็ใช้ได้ไม่มีปัญหา
สำหรับตัวอย่าง จะใช้ Visual Basic 2008 Express Edition (ของฟรีดาวน์โหลดมาใช้ได้เลย ไม่ต้องกลัวเรื่องลิขสิทธิ์)

1. เปิดโปรแกรม VB 2008
2. คลิกทีเมนู File เลือก New Project
3. เลือก Windows From Application จากนั้น ตรงช่อง Name ป้อนชื่อว่า myTV แล้วคลิกปุ่ม OK









4. ที่ form1 ให้ลาก MenuStrip จาก Toolbox มาวางไว้ที่ฟอร์ม จากนั้นก็กำหนดหัวข้อเมนูดังภาพ
















5. หลังจากกำหนดรายการในเมนูเป็นที่เรียบร้อย ให้เอาเมาส์มาคลิกทีฟอร์มในตำแหน่งว่าง ๆ สักครั้ง จากนั้นไปที่เมนู Tools เลือกรายการ Choose Toolbox Items.... รอสักพัก
จะปรากฎหน้าต่าง Choose Toolbox Items ให้คลิกที่แทปชื่อ COM Components จากนั้นให้เลือกรายการ Windows Media Player โดยคลิกด้านหน้าให้มีเครื่องหมายถูก จากนั้นก็ไปคลิกปุ่ม OK
















จากนั้นก็นำเมาส์ไปคลิกที่ฟอร์ม ก็จะได้ Control ของ Windows Media Player มาปรากฎที่ฟอร์ม









** คอนโทรล ตามตัวอย่างของผู้เขียนจะมีชื่อ AxWindowsMediaPlayer1

6. ย้อนมาที่เมู ที่เราสร้างไว้ เราจะมาทำการเขียนคำสั่งกัน โดยไปคลิกที่เมนูที่ต้องการเช่น ดูทีวี จะเห็นรายการย่อย ให้ double click ที่รายการย่อย เช่นTPBS จะเข้าสู่หน้าเขียนคำสั่ง ของเมนูรายการ TPBS โดยเขียนคำสั่งดังนี้ (ตามภาพด้านล่าง)






** จากนั้นก็ทำทุก ๆ ช่อง เราสามารถหา link สำหรับดูทีวีช่องต่าง ๆ ได้ตาม เว็บไซต์ทั่วไป
** ถ้าจะฟังวิทยุ ก็ทำลักษณะเดียวกัน

ทำการ build project หรือลองทดสอบ โดยกดปุ่ม F5 เพื่อสั่ง ให้ฟอร์มเปิดทำงาน
ผลที่ได้ดังภาพ



















ปล. สำหรับการหาช่องทีวีต่าง ๆ ให้ไปเปิดดูที่เว็บเจ้าของช่องรายการนั้น ๆ เช่น Thai PBS
ให้เข้าที่เว็บไซต์ http://www.thaipbs.or.th/Live/
จะขึ้นหน้าจอทีวี ให้คลิกขวาที่หน้าจอทีวี ดังภาพ























จะปรากฎหน้าต่าบ Option เราจะเห็น Link สำหรับนำไปอ้างในโปรแกรมของเรา ดังภาพ

























สำหรับช่อง อื่น ๆ ก็ทำลักษณะเดียวกัน


สวัสดี มีทีวีดูทั้งปี
"I Believe in You"

Copyright(c) 2007 - 2022 by Kasem Kamolchaipisit.