強力鎯頭 の VB 部落

《逆引導式》商業應用程式開發指南

作者：王啟源
出版社：碁峰資訊
出版日：2009/10/20
ISBN：978986181792

新書簽名會 贈書活動
http://blog.xuite.net/keigen/books/27268981 (內有作者精彩介紹短片)
http://www.blueshop.com.tw/board/show.asp?subcde=BRD200910140843552JK&fumcde=FUM200410061532262QU


內容簡介
軟體組裝工廠的模組化組裝手冊

使用Visual Studio 2008、SQL Server 2008 Express、CSLA .NET Application Framework
‧本書將商業應用程式的特徵歸納出11種模式，並針對該些模式設計出實作練習，每一個練習都可以視為一個獨立的執行單元，可以單獨演練並自行設定場景反復學習，以求達到技藝純熟，舉一反三之成效。
‧練習、練習、再練習，是學習程式設計的不二法門。本書最後以一個實際的『人事薪資管理系統』串聯先前所學到的11種模式，期望讀者能再度由練習中，驗收學習成果。
‧配合作者精心設計的專案範本、項目範本、程式碼片段，讓程式設計就像組裝積木一樣。
‧標準化程式設計流程，簡化繁瑣的程式碼輸入動作，可將心力集中於構思應用程式的功能面上。
‧使用者介面層、商業邏輯層、資料存取層完全分離的程式開發技巧，增加程式碼重複再利用。
‧逆引導教學法：由案例需求出發，由上而下先確認學習目標，再由下而上逐步建構出所需的技巧。

本書適合讀者：
‧初學者，想從一開始就立下良好程式設計習慣的人
‧學習完基礎程式設計，卻無法完整地設計出應用系統的人
‧從不同的職場，想快速進入程式設計領域的人
‧想為團隊找出一個協同程式開發模式，增進生產力的人

讀者服務網址：http://blog.xuite.net/keigen/books

目錄
第一部分 做好準備立即出發
第01章 導讀
第02章 整備開發環境
第03章 程式碼撰寫標準
第04章 商業物件概述
第二部分 商業物件設計範例
第05章 使用者身份識別
第06章 名稱鍵值清單
第07章 可編輯根物件
第08章 可編輯根物件清單
第09章 動態根物件清單
第10章 可編輯根父物件
第11章 可切換物件
第12章 唯讀根物件
第13章 唯讀根物件清單
第14章 唯讀根父物件
第15章 命令物件
第三部分 人事薪資管理系統實作
第16章 使用者介面架構
第17章 應用程式組裝
第四部分 回首過去展望未來
第18章 協同作業分工合作
第19章 邁向系統分析、專案經理之路
附錄 基礎操作

VB.Net 效能監視器運用 (數位儀表板)

可運用於 Win Form , 或 Web Form 監視 Web Server 或 IIS 

' 匯入名稱空間 Imports System.Diagnostics Imports System.Management Public Class Form1 ' Processor Private Shared CPU_Core1 As PerformanceCounter = Nothing Private Shared CPU_Core2 As PerformanceCounter = Nothing ' Page File Private Shared PageFile_Usage As PerformanceCounter = Nothing Private Shared PageFile_UsagePeak As PerformanceCounter = Nothing ' My.Computer.Info Private Shared cptInfo As Devices.ComputerInfo = Nothing ' 查詢擷取管理物件 Private Shared Searcher As ManagementObjectSearcher = Nothing Private Shared TotPhyMem As UInt64 = 0 ' Total Physical Memory Private WithEvents tmr As New Timer ' Timer Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load ' 宣告並建立 "效能計數器元件" 類別 ' New PerformanceCounter(CategoryName,CounterName,InstanceName) ' CategoryName : 取得或設定這個效能計數器的效能計數器分類的名稱。 ' CounterName : 取得或設定與這個 PerformanceCounter 執行個體相關的效能計數器的名稱。 ' InstanceName : 取得或設定這個效能計數器的執行個體名稱。 ' 可用 Environment.ProcessorCount 取得 CPU Core 核心數量 ' Processor Core#0 核心1 CPU_Core1 = New PerformanceCounter("Processor", "% Processor Time", "0") ' Processor Core#1 核心2 CPU_Core2 = New PerformanceCounter("Processor", "% Processor Time", "1") ' 分頁檔 PageFile_Usage = New PerformanceCounter("Paging File", "% Usage", "_Total") ' 尖峰分頁檔 PageFile_UsagePeak = New PerformanceCounter("Paging File", "% Usage Peak", "_Total") cptInfo = New Devices.ComputerInfo() ' 取電腦資訊 tmr.Interval = 999 ' Timer.Interval 屬性 : 取得或設定引發 Elapsed 事件的間隔。 tmr.Start() ' 啟動 Timer ' 取得 CPU 名稱 (WMI) For Each MngObj As ManagementObject In New ManagementObjectSearcher(New SelectQuery("Win32_Processor")).Get() ' Get Processor Name imgLstBoxCPU.Items.Add(String.Format(" CPU : {0}", MngObj.GetPropertyValue("Name")), 1) Next GetProcessorInfo() ' 取得 CPU 資訊 (WMI) ' My.Computer.Info.TotalPhysicalMemory TotPhyMem = cptInfo.TotalPhysicalMemory ' 取得全部實體記憶體 lbl實體記憶體.Text = KB2MB(TotPhyMem) ' 顯示到 Label End Sub Private Sub GetProcessorInfo() ' 取得 CPU 資訊 (WMI) '使用 SelectQuery 物件可下 SELECT 陳述式查詢 'Select * From Win32_Processor 語法可省略 , 直接寫 WMI 類別名稱即可 Dim SelQry As New SelectQuery("Win32_Processor") '使用 ManagementObjectSearcher 物件取回一個 WMI 物件基底之查詢的 集合物件(Collection) Using MngObjSch As New ManagementObjectSearcher(SelQry) ' 使用 ManagementObjectSearcher.Get 方法, 叫用指定的 WMI 查詢，並傳回產生的集合。 ' 列舉出 Win32_Processor WMI 類別中每一個處理器 (成員) For Each MngObj As ManagementObject In MngObjSch.Get() ' 顯示 CPU 資訊 lstBox.Items.Add(String.Format("Caption : {0}", MngObj!Caption)) lstBox.Items.Add(String.Format("Manufacturer : {0}", MngObj!Manufacturer)) lstBox.Items.Add(String.Format("Number Of Logical Processors : {0}", MngObj!NumberOfLogicalProcessors)) lstBox.Items.Add(String.Format("L2 Cache Size : {0} KB", MngObj!L2CacheSize)) lstBox.Items.Add(String.Format("Current Clock Speed : {0} MHz", MngObj!CurrentClockSpeed)) lstBox.Items.Add(String.Format("Clock frequency : {0} MHz", MngObj!MaxClockSpeed)) lstBox.Items.Add(String.Format("CurrentVoltage : {0} V", MngObj!CurrentVoltage)) lstBox.Items.Add(String.Format("Number Of Cores : {0}", MngObj!NumberOfCores)) lstBox.Items.Add(String.Format("Address Width : {0}", MngObj!AddressWidth)) lstBox.Items.Add(String.Format("External Clock : {0} MHz", MngObj!ExtClock)) lstBox.Items.Add(String.Format("Data Width : {0}", MngObj!DataWidth)) lstBox.Items.Add(String.Format("Socket Designation : {0}", MngObj!SocketDesignation)) Next End Using End Sub ' Timer Tick 事件 Private Sub tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmr.Tick Dim Core1 As Int32 = dgt2(CPU_Core1.NextValue) ' 取得 CPU 核心1 使用率 Dim Core2 As Int32 = dgt2(CPU_Core2.NextValue) ' 取得 CPU 核心2 使用率 lblCore1Usage.Text = String.Format("Core #0 {0} % ", Core1) ' 取得 CPU 核心1 使用率 lblCore2Usage.Text = String.Format("Core #1 {0} % ", Core2) ' 取得 CPU 核心2 使用率 Dim AvPhyMem As UInt64 = cptInfo.AvailablePhysicalMemory ' 取得可用實體記憶體 Dim TotVtMem As UInt64 = cptInfo.TotalVirtualMemory ' 取得全部虛擬記憶體 Dim AvVtNen As UInt64 = cptInfo.AvailableVirtualMemory ' 取得可用虛擬記憶體 lblAvPhyMem.Text = KB2MB(AvPhyMem) ' 顯示可用實體記憶體 lblTotVtMem.Text = KB2MB(TotVtMem) ' 顯示全部虛擬記憶體 lblAvVtNen.Text = KB2MB(AvVtNen) ' 顯示可用虛擬記憶體 lblRAMusage.Text = KB2MB(TotPhyMem - AvPhyMem) ' 顯示 RAM 已用 ' 顯示分頁檔使用 lblPageFileUsage.Text = String.Format(" Page File {0:##0.00} %", PageFile_Usage.NextValue) ' 顯示分頁檔尖峰使用 lblPageFileUsagePeak.Text = String.Format(" Page File Peak {0:##0.00} %", PageFile_UsagePeak.NextValue) ' 顯示本程式使用記憶體 ' Process.GetCurrentProcess.WorkingSet ' Process.GetCurrentProcess.WorkingSet64 bsi.Caption = String.Format("本程式記憶體 : {0} MB", KB2MB(Environment.WorkingSet)) End Sub Private Shared Function KB2MB(ByVal kb As Long) As String ' 講 KB 轉 MB ( / 1024 / 1024 ) 並指定格式 ' 四捨五入將值捨入至指定的小數點兩位。 Return Math.Round(kb / 2 ^ 20, 2).ToString("#,##0.00") End Function Private Shared Function dgt2(ByVal value As Single) As String ' 四捨五入將值捨入至指定的小數點兩位。 Return Math.Round(value, 2).ToString() End Function End Class

關於 3rd Party Gauge 元件可參考
http://www.devexpress.com/
http://www.componentart.com/

關於 CPU 溫度的取得可參考 < VB.Net 使用 WMI 取得 CPU 溫度 >
http://blog.blueshop.com.tw/hammerchou/archive/2007/10/11/52873.aspx

由於 Windows 本身並無提供各項硬體溫度的監控方式，
因此 WMI 雖然是 Windows 提供的管理服務，
但仍然需要硬體支援才能得到所需的資訊。
MSAcpi_ThermalZoneTemperature 顧名思義是透過 Acpi 這個共同管理介面來查詢，
因此您的系統必須具備 ACPI Thermal Zone 才有辦法問到，
而 ACPI Thermal Zone 其實是 Notebook 設計下的產品
在 PC 系統下並無 ACPI Thermal Zone 的設計。
一般在 PC 上是使用 Win32_TemperatureProbe 進行查詢，
但由於 Win32_TemperatureProbe 是直接問 SMBIOS，由 SMBIOS 裡面挖出資料，
但 SMBIOS 是否有支援 WMI 是由主機板廠商決定。
也就是說，若主機板廠商有支援 WMI ，便可以使用
Win32_TemperatureProbe 的 CurrentReading 讀到 CPU 溫度。
但很不幸的，大多數(幾乎可說是全部)的主機板廠商都沒有支援這項功能。

PC若要知道 CPU 溫度，必須要以 C 語言自行實作 Monitor Chip Driver
可參考 http://temperature.myweb.hinet.net/index_en.htm

VB.Net 拆解多頁的 Tiff 的並存檔

一些數位證件或電腦接收的傳真亦或是掃瞄器掃出的多頁 TIFF 檔
該如何透過程式,逐一取出單張Tiff圖檔
(TIFF ; Tagged Image File Format) http://zh.wikipedia.org/wiki/TIFF

Sample 參考如下: 

Imports System Imports System.IO Imports System.Drawing Imports System.Drawing.Imaging Imports System.Runtime.InteropServices Public Class Form1 Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim f() As String = {"C:\某資料夾\欲處理之Tiff圖檔.tif"} SplitTiff(f) ' 開始 End Sub Private Shared Sub SplitTiff(ByVal tifFiles() As String) Using encParas As New EncoderParameters(1) Dim Codec As ImageCodecInfo = GetTiffCodec() encParas.Param(0) = New EncoderParameter _ (Encoder.Compression, EncoderValue.CompressionCCITT4) For Each tif As String In tifFiles Dim p As String = Path.GetDirectoryName(tif) Dim f As String = Path.GetFileNameWithoutExtension(tif) Dim img As Image = Image.FromFile(tif) For l = 0 To img.GetFrameCount(FrameDimension.Page) - 1 img.SelectActiveFrame(FrameDimension.Page, l) Dim bmp As New Bitmap(img) bmp = cvt(bmp) bmp.Save(String.Format("{0}\{1}_{2}.tif", p, f, l), Codec, encParas) bmp.Dispose() Next img.Dispose() Next End Using End Sub Private Shared Function cvt(ByVal oriBmp As Bitmap) As Bitmap Dim srcBmp As Bitmap = Nothing If oriBmp.PixelFormat <> PixelFormat.Format32bppArgb Then srcBmp = New Bitmap(oriBmp.Width, oriBmp.Height, PixelFormat.Format32bppArgb) srcBmp.SetResolution(oriBmp.HorizontalResolution, oriBmp.VerticalResolution) Dim g As Graphics = Graphics.FromImage(srcBmp) g.DrawImageUnscaled(oriBmp, 0, 0) Else srcBmp = oriBmp End If Dim bmpData As BitmapData = srcBmp.LockBits(New Rectangle _ (0, 0, srcBmp.Width, srcBmp.Height), ImageLockMode.ReadOnly, PixelFormat.Format32bppArgb) Dim imgSize As Int32 = bmpData.Stride * bmpData.Height Dim srcBuf(imgSize - 1) As Byte Marshal.Copy(bmpData.Scan0, srcBuf, 0, imgSize) srcBmp.UnlockBits(bmpData) Dim dstBmp As Bitmap = New Bitmap(srcBmp.Width, srcBmp.Height, PixelFormat.Format1bppIndexed) Dim dstData As BitmapData = dstBmp.LockBits(New Rectangle _ (0, 0, dstBmp.Width, dstBmp.Height), ImageLockMode.WriteOnly, PixelFormat.Format1bppIndexed) imgSize = dstData.Stride * dstData.Height Dim dstBuf(imgSize - 1) As Byte Dim srcIdx As Int32 = 0, dstIdx As Int32 = 0 Dim pxlTtl As Int32 = 0, dstVal As Byte = 0 Dim pxlVal As Int32 = 128 Dim ht As Int32 = srcBmp.Height, wd As Int32 = srcBmp.Width For y As Int32 = 0 To ht - 1 srcIdx = y * bmpData.Stride : dstIdx = y * dstData.Stride dstVal = 0 : pxlVal = 128 For x As Int32 = 0 To wd - 1 pxlTtl = Int32.Parse(srcBuf(srcIdx + 1)) + _ Int32.Parse(srcBuf(srcIdx + 2)) + _ Int32.Parse(srcBuf(srcIdx + 3)) If pxlTtl > 500 Then dstVal += CType(pxlVal, Byte) If pxlVal = 1 Then dstBuf(dstIdx) = dstVal dstIdx += 1 dstVal = 0 pxlVal = 128 Else pxlVal >>= 1 End If srcIdx += 4 Next If pxlVal <> 128 Then dstBuf(dstIdx) = dstVal Next Marshal.Copy(dstBuf, 0, dstData.Scan0, imgSize) dstBmp.UnlockBits(dstData) Return dstBmp End Function Private Shared Function GetTiffCodec() As ImageCodecInfo GetTiffCodec = Nothing For Each enc As ImageCodecInfo In ImageCodecInfo.GetImageEncoders If enc.FormatDescription.Equals("TIFF") Then Return enc Next End Function End Class

OpenFileDialog 時檢視縮圖

Call API 

Public Class Form1 ' 宣告 API Private Declare Function GetActiveWindow Lib "user32" () As Int32 Private Declare Function FindWindowExA Lib "user32" _ (ByVal hWnd1 As Int32, ByVal hWnd2 As Int32, _ ByVal lpsz1 As String, ByVal lpsz2 As String) As Int32 Private Declare Function SendMessageA Lib "user32" _ (ByVal hwnd As Int32, ByVal wMsg As Int32, _ ByVal wParam As Int32, ByVal lParam As Int32) As Int32 Private WithEvents tmr As Timer ' 宣告 Timer Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Using ofd As New OpenFileDialog ofd.InitialDirectory = "D:\Photo\Gif" tmr = New Timer With {.Interval = 99} ' 建購物件並初始化 If chkThumbnail.Checked Then tmr.Start() ' 勾選檢視縮圖則啟動 Timer ofd.ShowDialog() End Using End Sub ' Timer 事件 Private Sub tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmr.Tick ' 取得 Dialog 視窗 handle Dim hwnd As Int32 = FindWindowExA(GetActiveWindow, 0, "SHELLDLL_DefView", vbNullString) If hwnd > 0 Then SendMessageA(hwnd, &H111, 28717, 0) ' 傳訊息 VIEW_THUMBNAIL tmr.Stop() ' 停止 Timer End If End Sub End Class

截取 Web Cam CCD 影像存成圖

Call API  capCreateCaptureWindowA 處理

Imports System Imports System.Drawing.Imaging Imports System.Windows.Forms Public Class Form1 ' 宣告 API Private Declare Function SendMessageA Lib "user32" _ (ByVal hwnd As Int32, ByVal wMsg As Int32, _ ByVal wParam As Int32, ByVal lParam As Int32) As Int32 Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _ (ByVal lpszWindowName As String, ByVal dwStyle As Int32, _ ByVal X As Int32, ByVal Y As Int32, _ ByVal nWidth As Int32, ByVal nHeight As Int32, _ ByVal hwndParent As Int32, ByVal nID As Int32) As Int32 '設定 Timer 1/4 秒抓一張圖 Private WithEvents tmr As New Timer With {.Interval = 250} Private pic As New PictureBox With {.Top = 0, .left = 0, .Width = 0, .Height = 0, .Visible = False} Private hWnd As Int32 = 0 Private Sub Form1_Load(ByVal s As Object, ByVal e As EventArgs) Handles MyBase.Load WindowState = FormWindowState.Minimized ' 表單最小化 crtCapWin() ' 建立並設定影像抓取 tmr.Start() ' 啟動 Timer End Sub Private Sub crtCapWin() '設定截取影像 hWnd = capCreateCaptureWindowA("Capture", 1342177280, 0, 0, 640, 480, pic.Handle.ToInt32, 0) SendMessageA(hWnd, 1034, 0, 0) SendMessageA(hWnd, 1038, 44, 0) SendMessageA(hWnd, 1974, 1, 0) SendMessageA(hWnd, 1976, 66, 0) End Sub ' Timer tick 事件 Private Sub tmr_Tick(ByVal s As Object, ByVal e As EventArgs) Handles tmr.Tick SendMessageA(hWnd, 1084, 0, 0) SendMessageA(hWnd, 1054, 0, 0) '存圖於 C:\... Clipboard.GetImage.Save(String.Format("C:\{0}.{1}", Now.ToString("yyyyMMddhhmmss"), "jpg"), ImageFormat.Jpeg) End Sub '結束 Private Sub Form1_FormClosed(ByVal s As Object, ByVal e As FormClosedEventArgs) Handles Me.FormClosed tmr.Stop() SendMessageA(hWnd, 1035, 0, 0) End Sub End Class

全域鍵盤欄截 Keyboard Hook (Block Key)

Call API 
 

Imports System.Runtime.InteropServices Public Class Form1 Private Sub Form1_Load(ByVal s As Object, ByVal e As EventArgs) Handles MyBase.Load KbHook.BlockKey = Keys.F1 ' 阻斷 F1 按鈕 KbHook.StartHook() ' 開始 Hook End Sub Private Sub Form1_FormClosing(ByVal s As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing KbHook.StopHook() ' 停止 Hook End Sub End Class Public Class KbHook ' Keyboard Hook Class ' 宣告 API Private Delegate Function HookProc _ (ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr Private Declare Auto Function SetWindowsHookEx Lib "user32.dll" _ (ByVal idHook As Integer, ByVal lpfn As HookProc, _ ByVal hMod As IntPtr, ByVal dwThreadId As Integer) As IntPtr Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hhk As IntPtr) As Boolean Private Declare Function CallNextHookEx Lib "user32.dll" _ (ByVal hhk As IntPtr, ByVal nCode As Integer, _ ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr Shared hk As IntPtr Public Shared BlockKey As Keys = 0 Public Shared Function KbProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr If Marshal.ReadInt32(lParam) = BlockKey Then Return True Return CallNextHookEx(hk, nCode, wParam, lParam) End Function Public Shared Sub StartHook() hk = SetWindowsHookEx(13, AddressOf KbProc, Marshal.GetHINSTANCE(GetType(KbHook).Module), 0) End Sub Public Shared Sub StopHook() UnhookWindowsHookEx(hk) End Sub End Class

VB.Net執行期拖拉移動控制項範例

方法1:Public Class Form1 Dim pos As MouseEventArgs = Nothing '用來記錄滑鼠點下起始位置 Private Sub Form1_Load(ByVal s As Object, ByVal e As EventArgs) Handles MyBase.Load ' Loop 表單中控制項 For Each ctl As Control In Me.Controls 'AddHandler 陳述式 : 執行階段使事件與事件處理常式產生關聯。 AddHandler ctl.MouseMove, AddressOf Ctl_MouseMove AddHandler ctl.MouseDown, AddressOf Ctl_MouseDown Next End Sub Private Sub Ctl_MouseMove(ByVal s As Object, ByVal e As MouseEventArgs) Dim c As Control = DirectCast(s, Control) ' 型別轉換作業 If c.Capture Then ' 控制項是否 Capture Mouse ' 指定控制項新位置 c.Location = New Point(e.X + c.Location.X - pos.X, e.Y + c.Location.Y - pos.Y) End If End Sub Private Sub Ctl_MouseDown(ByVal s As Object, ByVal e As MouseEventArgs) pos = e ' 記錄控制項舊位置 End Sub End Class

如何動態連線 / 斷線UNC路徑 (不建立網路磁碟機)

UNC ( Universal Naming Conversion )

Imports System Public Class Form1 ' 結構 Private Structure NetResrc Dim dwScope As Int32 Dim dwType As Int32 Dim dwDisplayType As Int32 Dim dwUsage As Int32 Dim lpLocalName As String Dim lpRemoteName As String Dim lpComment As String Dim lpProvider As String End Structure ' API 宣告 Private Declare Function WNetAddConnection2A Lib "mpr.dll" _ (ByVal lpNetResource As NetResrc, _ ByVal lpPswd As String, ByVal lpUser As String, _ ByVal dwFlags As Int32) As Int32 Private Declare Function WNetCancelConnection2A Lib "mpr.dll" _ (ByVal lpName As String, _ ByVal dwFlags As Int32, _ ByVal fForce As Int32) As Int32 Private Sub btnConnect_Click(ByVal s As Object, ByVal e As EventArgs) Handles btnConnect.Click Dim UNC As String = "\\192.168.10.XX\ShareFolder" ' UNC Path Dim User As String = "LoginUser" ' Login User Dim Pswd As String = "LoginPassword" ' Password If ConnectUNC(UNC, User, Pswd) Then MessageBox.Show("UNC 連線成功 OK !") End Sub Private Sub btnDisconnect_Click(ByVal s As Object, ByVal e As EventArgs) Handles btnDisconnect.Click Dim UNC As String = "\\192.168.10.XX\ShareFolder" ' UNC Path If DisconnectUNC(UNC) Then MessageBox.Show("UNC 斷線成功 !") End Sub ' UNC連線 Private Shared Function ConnectUNC _ (ByVal Unc As String, ByVal User As String, ByVal Pwd As String) As Boolean Dim NetStruc As New NetResrc If Unc.EndsWith("\") Then Unc = Unc.Substring(0, Unc.Length - 1) NetStruc.dwType = 0 NetStruc.lpLocalName = "" NetStruc.lpRemoteName = Unc NetStruc.lpProvider = "" ConnectUNC = WNetAddConnection2A(NetStruc, Pwd, User, 0) = 0 End Function ' UNC斷線 Private Shared Function DisconnectUNC(ByVal Unc As String) As Boolean If Unc.EndsWith("\") Then Unc = Unc.Substring(0, Unc.Length - 1) DisconnectUNC = WNetCancelConnection2A(Unc, 1, 0) = 0 ' 如果需要要斷 \\Server\IPC$ 如下 'Dim ipc As String = String.Format("\\{0}\IPC$", UNC.Split("\")(2)) 'WNetCancelConnection2A(ipc, 1, 1) End Function End Class

關於 HTML Unicode 轉換

在網頁原碼中常會見到 &#XXXXX 格式的字元 , 稱為 Unicode HTML 碼
由於編碼之故 , 非 Big5 字元集中的文字 , 如 GB2312 碼或日文字元等,
無法正常的顯示,而這些對應不到的文字,就需編碼轉換成 Unicode HTML,
就如同在文字檔中使用簡體字或日文字,需存成UTF-8或Unicode等編碼格式,
對於這種 Unicode HTML 格式的字 , IE 等瀏覽器會自行解析成對應的字元
但若由程式抓取網頁內容存檔,亦或存入資料庫,則需轉換還原成正確的文字

<< VB.Net >> 

Imports System.Text Public Class Form1 Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click Dim htm As String = "" ' HTML Code htm = "&#34013;&#33394;&#37096;&#33853;&#20013;&#30340;" & _ "&#24378;&#21147;&#37807;&#22836;&#30340;" & _ "&#86;&#66;&#37096;&#33853;" MessageBox.Show(HTML2Unicode(htm)) htm = "&#12354;&#12356;&#12375;&#12390;&#12427;" MessageBox.Show(HTML2Unicode(htm)) htm = "&#x3069;&#x3046;&#x305e;&#x0020;&#x3088;&#x308d;&#x3057;&#x304f;" MessageBox.Show(HTML2Unicode(htm)) ' Unicode Text Dim unc As String = "" unc = "蓝色部落中的强力鎯头的VB部落" MessageBox.Show(Unicode2HTML(unc)) unc = "あいしてる" MessageBox.Show(Unicode2HTML(unc)) End Sub Private Function HTML2Unicode(ByVal htm As String) As String Dim sb As New StringBuilder htm = htm.Replace(" ", "").Replace("&#", "") For Each s As String In htm.Split(";") If s.Length > 0 Then If s.StartsWith("x") Then sb.Append(ChrW(Int("&H" & s.Substring(1)))) Else sb.Append(ChrW(Int(s))) End If End If Next Return sb.ToString End Function Private Function Unicode2HTML(ByVal unc As String) As String Dim sb As New StringBuilder For Each c As Char In unc.ToCharArray() sb.Append("&#" & AscW(c) & ";") Next Return sb.ToString End Function End Class

<< C# .Net >> 

private void button1_Click(object sender, EventArgs e) { String htm = "&#24378;&#21147;&#37807;&#22836;"; MessageBox.Show(HTML2Unicode(htm)); htm="&#x3069;&#x3046;&#x305e;&#x0020;&#x3088;&#x308d;&#x3057;&#x304f"; MessageBox.Show(HTML2Unicode(htm)); string unc = ""; unc = "蓝色部落中的强力鎯头的VB部落"; MessageBox.Show(Unicode2HTML(unc)); unc = "あいしてる"; MessageBox.Show(Unicode2HTML(unc)); } private string HTML2Unicode(string htm) { StringBuilder sb = new StringBuilder(); htm = htm.Replace(" ", "").Replace("&#", ""); foreach (string s in htm.Split(";".ToCharArray())) { if ((s.Length > 0)) { if (s.StartsWith("x")) { sb.Append(((char)Convert.ToInt32(s.Substring(1), 16)).ToString()); } else { sb.Append(Convert.ToChar(Convert.ToInt32(s))); } } } return sb.ToString(); } private string Unicode2HTML(string unc) { StringBuilder sb = new StringBuilder(); foreach (char c in unc.ToCharArray()) { sb.Append(("&#" + (Int32)c + ";")); } return sb.ToString(); }

編碼器參考:

http://timc.idv.tw/classic/timc.idv.tw/scripts/unicode.htm 

http://www.csie.ntu.edu.tw/~piaip/unihtml/ 

http://www.unicodetools.com/unicode/convert-to-html.php 

VB.Net 播放 MP3 或 MIDI 音樂

一般 WAV 可用 My.Computer.Audio.Play(location) 播放 

Public Class Form1 ' 宣告 API Private Declare Function mciSendStringA Lib "winmm.dll" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click PlayMidiFile("C:\死了都要愛.mp3") ' 播放 MP3 音樂 '或 'PlayMidiFile("C:\頑皮豹.mid") ' 播放 MIDI 音樂 End Sub Private Sub Button2_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button2.Click StopMidi() ' 停止播放 End Sub Private Sub Button3_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button3.Click PauseMidi() ' 暫停播放 End Sub Private Sub Button4_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button4.Click ContinueMidi() ' 繼續播放 End Sub Private Function PlayMidiFile(ByVal MusicFile As String) As Boolean If System.IO.File.Exists(MusicFile) Then mciSendStringA("stop music", "", 0, 0) mciSendStringA("close music", "", 0, 0) mciSendStringA("open " & MusicFile & " alias music", "", 0, 0) PlayMidiFile = mciSendStringA("play music", "", 0, 0) = 0 End If End Function Private Function StopMidi() As Boolean StopMidi = mciSendStringA("stop music", "", 0, 0) = 0 mciSendStringA("close music", "", 0, 0) End Function Private Function PauseMidi() As Boolean Return mciSendStringA("pause music", "", 0, 0) = 0 End Function Private Function ContinueMidi() As Boolean Return mciSendStringA("play music", "", 0, 0) = 0 End Function End Class

關於 RGB Color 轉 Hex Color

<< VB.Net >> 

Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click ' RGB Color 轉 Hex Color MessageBox.Show(RGB_2_HEX(195, 20, 0)) MessageBox.Show(RGB2HEX(195, 20, 0)) End Sub ' 方法1 Private Function RGB_2_HEX(ByVal R As Byte, ByVal G As Byte, ByVal B As Byte) As String Return "#" & Hex(Color.FromArgb(R, G, B).ToArgb).Substring(2) End Function ' 方法2 Private Function RGB2HEX(ByVal R As Byte, ByVal G As Byte, ByVal B As Byte) As String Return "#" & Convert.ToString(Color.FromArgb(R, G, B).ToArgb, 16).Substring(2) End Function

<< C# .Net >> 

private void button1_Click(object sender, EventArgs e) { // RGB Color 轉 16 進位 Hex Color MessageBox.Show(RGB_2_HEX(195, 20, 0)); MessageBox.Show(RGB2HEX(195, 20, 0)); } // 方法1 private string RGB_2_HEX(byte R, byte G, byte B) { return "#" + String.Format("{0:X}",Color.FromArgb(R, G, B).ToArgb()).Substring(2); } // 方法2 private string RGB2HEX(byte R, byte G, byte B) { return "#" + Convert.ToString(Color.FromArgb(R, G, B).ToArgb(), 16).Substring(2); }

如何過濾重複的陣列元素

<< VB.Net 2005 >> 

Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click ' 一整數陣列 Dim ary() As Integer = {1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3} ary = DistinctArray(ary) ' 過濾重複的陣列元素 For Each i As Integer In ary ' 底下顯示過濾後的陣列 MessageBox.Show(i) Next End Sub Private Function DistinctArray(ByRef Ary() As Integer) As Integer() ' 使用 List 泛型類別 Dim lst As New List(Of Integer) ' 用 Contains 方法,判斷某元素是否在 List 中,不存在則新增進 List 中。 For Each i As Integer In Ary If Not lst.Contains(i) Then lst.Add(i) Next Return lst.ToArray ' 將 List 的元素複製到新的陣列並回傳 End Function

<< VB.Net 2008 >> 

' 方法 1 Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click Dim ary() As Integer = {1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3} ' 使用預設的相等比較子來比較值，以便從序列傳回獨特的項目。 For Each i As Integer In ary.Distinct.ToArray() MessageBox.Show(i) Next End Sub ' 方法 2 Private Sub Button2_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button2.Click Dim ary() As Integer = {1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3} 'IEnumerable 泛型介面 Dim ienum As IEnumerable(Of Integer) = ary ' Enumerable類別.Distinct 方法移除重複項目的序列 For Each i As Integer In ienum.Distinct MessageBox.Show(i) Next End Sub

VB.Net 如何互轉 System.Drawing.Image 與 OLE StdPicture 

方法 1 : Call OleCreatePictureIndirect API 

Imports System.Drawing Imports System.Runtime.InteropServices Public Class Form1 ' 宣告引用 API <DllImport("OLEPRO32.DLL", PreserveSig:=False)> _ Private Shared Function OleCreatePictureIndirect _ (ByRef pPictDesc As PicDesc, ByRef riid As Guid, ByVal fOwn As Boolean) As _ <MarshalAs(UnmanagedType.IUnknown)> Object End Function ' 宣告結構 Private Structure PicDesc Friend SizeOfStruct As Integer Friend PicType As Integer Friend Hbitmap As IntPtr Friend Hpal As IntPtr Friend Padding As Integer Friend Sub New(ByVal hBmp As IntPtr) Hbitmap = hBmp SizeOfStruct = Marshal.SizeOf(Me.GetType) PicType = 1 Hpal = IntPtr.Zero Padding = 0 End Sub End Structure ' 取得 StdPicture Private Function GetStdPic(ByRef img As Image) _ As <MarshalAs(UnmanagedType.IUnknown)> Object ' 呼叫 API OleCreatePictureIndirect 轉 IPicture Return OleCreatePictureIndirect( _ New PicDesc(New Bitmap(img).GetHbitmap), _ New Guid("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), True) End Function Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click Dim img As Image = Image.FromFile("C:\Genius.jpg") ' 讀入 JPG 圖檔 PictureBox1.Image = img MessageBox.Show(img.GetType.ToString) Dim pic As Object = GetStdPic(img) ' StdPicture MessageBox.Show(TypeName(pic) & " (" & pic.GetType.ToString & ")") End Sub

方法 2 : 引用 Microsoft.VisualBasic.Compatibility

請先加入參考 Microsoft.VisualBasic.Compatibility

Imports Microsoft.VisualBasic.Compatibility Public Class Form1 Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click Dim img As Image = Image.FromFile("C:\Genius.jpg") ' 讀 JPG 圖檔進 Image 物件 MessageBox.Show(img.GetType.ToString) ' 將 Image 物件 轉 OLE IPicture 物件 Dim pic As Object = VB6.ImageToIPicture(img) ' StdPicture MessageBox.Show(TypeName(pic) & " (" & pic.GetType.ToString & ")") ' 將 OLE IPicture 物件 轉 Image 物件 PictureBox1.Image = VB6.IPictureToImage(pic) End Sub End Class

VB.Net 如何鎖定鍵盤及滑鼠

Sample 中, 按下 Button 後 , 鍵盤及滑鼠將被鎖住10秒  

Public Class Form1 Private Declare Function BlockInput Lib "user32" _ (ByVal fBlock As Integer) As Integer Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click BlockInput(True) ' 鎖 System.Threading.Thread.Sleep(10000) ' 等10秒 BlockInput(False) ' 開 End Sub End Class

VB 如何取得硬碟序號

'自訂型態 Private Type IDEREGS bFeaturesReg As Byte bSectorCountReg As Byte bSectorNumberReg As Byte bCylLowReg As Byte bCylHighReg As Byte bDriveHeadReg As Byte bCommandReg As Byte bReserved As Byte End Type Private Type DRIVERSTATUS bDriveError As Byte bIDEStatus As Byte bReserved(1 To 2) As Byte dwReserved(1 To 2) As Long End Type Private Type SENDCMDOUTPARAMS cBufferSize As Long DStatus As DRIVERSTATUS bBuffer(1 To 512) As Byte End Type Private Type SENDCMDINPARAMS cBufferSize As Long irDriveRegs As IDEREGS bDriveNumber As Byte bReserved(1 To 3) As Byte dwReserved(1 To 4) As Long End Type 'API宣告 Private Declare Function CreateFileA Lib "Kernel32" _ (ByVal lpFileName As String, _ ByVal dwDesiredAccess As Long, _ ByVal dwShareMode As Long, _ ByVal lpSecurityAttributes As Long, _ ByVal dwCreationDisposition As Long, _ ByVal dwFlagsAndAttributes As Long, _ ByVal hTemplateFile As Long) As Long Private Declare Sub RtlZeroMemory Lib "Kernel32" _ (dest As Any, ByVal numBytes As Long) Private Declare Function DeviceIoControl Lib "Kernel32" _ (ByVal hDevice As Long, _ ByVal dwIoControlCode As Long, _ lpInBuffer As Any, _ ByVal nInBufferSize As Long, _ lpOutBuffer As Any, _ ByVal nOutBufferSize As Long, _ lpBytesReturned As Long, _ ByVal lpOverlapped As Long) As Long Private Declare Function CloseHandle Lib "Kernel32" _ (ByVal hObject As Long) As Long Private Declare Sub RtlMoveMemory Lib "Kernel32" _ (Destination As Any, Source As Any, ByVal Length As Long) Private Sub Command1_Click() MsgBox "硬碟序號 : " & Get_HD_SNo(0) ' 第一顆硬碟 MsgBox "硬碟序號 : " & Get_HD_SNo(1) ' 第二顆硬碟 MsgBox "硬碟序號 : " & Get_HD_SNo(2) ' 第三顆硬碟 .. End Sub ' 取得硬碟序號 Private Function Get_HD_SNo(DrvIdx As Byte) As String Dim ParaIn As SENDCMDINPARAMS Dim ParaOut As SENDCMDOUTPARAMS Dim Sno As String Dim h As Long Dim intLp As Integer If Len(Environ("OS")) > 0 Then h = CreateFileA("\\.\PhysicalDrive" & DrvIdx, -1073741824, 3, 0, 3, 0, 0) Else h = CreateFileA("\\.\Smartvsd", 0, 0, 0, 1, 0, 0) End If If h = 0 Then Exit Function RtlZeroMemory ParaIn, Len(ParaIn) RtlZeroMemory ParaOut, Len(ParaOut) With ParaIn .bDriveNumber = DrvIdx .cBufferSize = 512 With .irDriveRegs .bDriveHeadReg = IIf(DrvIdx And 1, 176, 160) .bCommandReg = 236 .bSectorCountReg = 1 .bSectorNumberReg = 1 End With End With DeviceIoControl h, 508040, ParaIn, Len(ParaIn), ParaOut, Len(ParaOut), 0, 0 For intLp = 21 To 40 Step 2 If ParaOut.bBuffer(intLp + 1) = 0 Then Exit For Sno = Sno & Chr(ParaOut.bBuffer(intLp + 1)) If ParaOut.bBuffer(intLp) > 0 Then Sno = Sno & Chr(ParaOut.bBuffer(intLp)) Next CloseHandle h Get_HD_SNo = Trim(Sno) End Function

以上為 VB6 語法 , VB.Net 則需改寫

其他相關參考 :

如何取得 硬碟 及 主機板 序號

C# 取得 硬碟機 序號 ( 物理 / 邏輯 磁碟)

使用 VB 或 Script 設定 IE 網頁檢查更新版本

前段時間朋友問到的問題 , 他們開發的網頁系統遇到IE中網頁更新設定被改掉問題

希望透過 Script 的來調整 IE網頁檢查更新版本設定, 底下整理供網友參考

參數設定說明:

每次造訪網頁時	3
每次啟動 Internet Explorer 時	2
自動	4
無	0

 << VB.Net >>

先引用 Imports Microsoft.Win32 

Dim key As String key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings" Dim RegKey As RegistryKey RegKey = Registry.CurrentUser.OpenSubKey(key, True) RegKey.SetValue("SyncMode5", 3) ' 設定每次造訪網頁時更新

 << VB6 >> 

Dim WshShell As Object Dim strKey As String Set WshShell = CreateObject("WScript.Shell") strKey = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\SyncMode5" WshShell.RegWrite strKey, 4 ' 設定自動更新

  << VBScript >> *.VBS 

Dim wmi, reg, p, k Set wmi = GetObject("winmgmts:") ' 關掉正開啟中的 IE For Each p In wmi.InstancesOf("Win32_Process") If p.Name = "iexplore.exe" Then p.Terminate Next Set reg = GetObject("winmgmts:\\.\root\default:StdRegProv") k = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings" reg.SetDWORDValue &H80000001, k, "SyncMode5", 2 ' 設定每次啟動 Internet Explorer 時更新

另外也可存成 Reg 檔 , 再用 Shell 函數呼叫執行 , 如 Shell ”RegEdit /s SyncMode.reg”

Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings] "SyncMode5"="4"

  PS : 程式執行後需重新開啟 IE

新書介紹 - Microsoft LINQ 最佳實務講座

書籍介紹

開發思維 • 專家角度 • 務實本質

專為開發人員打造的重量級鉅獻，探觸Visual Studio 2008最完整的技術。

LINQ是.NET Framework 3.5不容忽視的新成員，它將資料查詢技術提升至更高的層次。

Microsoft LINQ 最佳實務講座 最將帶領你以嶄新的眼光，學習如何使用LINQ存取資料庫與物件。

本書共分四大篇，涵蓋瞭解LINQ所需的知識與相關討論，且提供完整的LINQ技術全方位學習導引，

從LINQ的核心精神、發展軌跡、類別庫的運用，直到各種異質資料來源的查詢維護操作，

逐步探索LINQ的面貌。

內容特色

■ LINQ全方位剖析

引領讀者探索LINQ技術的輪廓，從基礎概念進入LINQ實際的範例操作，

完整說明C#語法新增功能與LINQ的關係，以及LINQ查詢運算式。

■ LINQ to Objects

LINQ的核心在於整合程式語言的查詢方法子句與標準資料查詢方法成員，這些成員的數量不多，

只要掌握它們，便可輕易跨越LINQ門檻，將其運用於應用程式的開發。

■ LINQ to XML

XML已是被廣泛採用的標準文件格式，當今開發工具均提供XML完整支援。更進一步的，

LINQ發展了一組專門用來對應XML文件的API－LINQ to XML，

以統一的語法提供存取XML文件所需的功能，

讓C#與VB.NET操作XML文件變得更簡單。

■ LINQ to ADO.NET

將分別從SQL與ADO.NET兩個方向來探討LINQ與關聯式資料庫查詢的整合應用，

開發人員可根據需求，針對各種異質資料來源進行混合查詢等應用，以簡化資料存取功能的設計工作。

目錄

第1章         LINQ概況

1-1　LINQ與IEnumerable<T>

1-2　IEnumerable<T>介面與Enumerable類別

1-3　查詢運算子與運算式

1-4　LINQ的幾個部分

1-5　LINQ與程式語言的整合

1-6　物件化的資料查詢模型

1-7　LINQ的另外一個重點－集合物件資料存取

第2章         LINQ查詢與C# 3.0

2-1　列舉集合與泛型

2-2　IEnumerable<T>與System.Linq命名空間

2-3　LINQ查詢運算式

2-4　C# 3.0新增功能

2-5　Lambda運算式

2-6　擴充方法

2-7　型別推論

2-8　物件初始化與匿名型別

第3章         LINQ查詢運算式與Enumerable擴充方法 I

3-1　Enumerable擴充方法

3-2　投影作業

3-3　資料篩選運算

3-4　排序運算

3-5　群組與關聯

3-6　篩選檔案系統搜尋應用

第4章         LINQ查詢運算式與Enumerable擴充方法 II

4-1　彙總運算

4-2　設定作業

4-3　產生作業

4-4　計量運算

4-5　分割運算

4-6　項目作業

4-7　DefaultIfEmpty

4-8　轉換運算

第5章         LINQ to XML

5-1　關於LINQ to XML

5-2　LINQ to XML API架構

5-3　XML文件載入與輸出

5-4　XML元素操作

5-5　屬性

5-6　XML節點與LINQ查詢運算式

5-7　XML擴充方法

第6章         LINQ to ADO.NET – LINQ to SQL篇

6-1　LINQ to SQL

6-2　關於實體類別

6-3　System.Data.Linq命名空間

6-4　資料查詢維護

6-5　實體類別與物件關聯設計師

6-6　LINQ to SQL與資料繫結

6-7　運用預存程序

6-8　關聯實體類別

6-9　LINQ to SQL與LINQ標準查詢運算式

6-10　XML與關聯式資料的整合運用

第7章         LINQ to ADO.NET - LINQ to DataSet篇

7-1　LINQ to DataSet

7-2　DataRowExtensions與延伸方法

7-3　DataView與DataTable轉換

7-4　資料查詢

【ASP.NET 商業級資料庫網站開發實務-與ADO.NET共舞】封面介紹

以下為【ASP.NET 商業級資料庫網站開發實務-與ADO.NET共舞】封面與介紹文案，

此書正舉辦贈書活動，欲參加者，請按 這裏。

本書寫給具備入門基礎的ASP.NET網站開發設計人員，

學習如何透過多層式的架構設計，

從ADO.NET的開始，建立動態資料庫網站系統。

課程內容的主要目標，在於提供一個完整的學習藍圖，

讓讀者瞭解如何從無到有，建構一個可以真正上線運作的商業網站雛形。

本書特色

• ADO.NET類別與離線資料集DataSet剖析
• ADO.NET與ASP.NET網頁整合應用實例
• 多層式架構組成探討
• 資料存取層與強型別資料集設計說明
• 商務邏輯層類別設計
• 類別圖表的建立與設計說明
• ObjectDataSource資料控制項與類別繫結設計
• 主版頁、HTML元素、CSS與展示層建構設計
• 資料控制項運用、樣板設計使用時機探討
• 會員管理機制與驗證授權管理實作討論
• 會員資料表與現有資料庫整合運用
• 透過完整範例探討多層架構系統與會員管理機制的整合應用
• 效能、快取類別與網頁快取設計
• SqlCacheDependency與SQL Server資料快取技術
• 事件記錄檔與效能監視器運用