強力鎯頭 の VB 部落

《HTML5 精要剖析》這本書我會持續在線上直接連載完畢，紙本書會不會出，就看狀況再說，不過內容是後續課程中，入門教案的一部份，現在內容東一塊西一塊的，每天都會逐步整理一些，甚至有些是我以前寫的東西，就直接整合進來，包含舊書沒有版權問題的部份，調整之後便拿來用。

無論如何，希望最後整理出一本可以循序帶領讀者從沒有基礎，到順利入門 HTML5 ，當然，如果你有時間&預算的話，選擇來上我們後續的課程可以縮短摸索時間，甚至最後有能力建立自己的作品示範網站。

以下列舉《HTML5 精要剖析》的目錄，大致上讓讀者瞭解，接下來可以從這本書上獲得那些知識。

1. Hello HTML5
2. 網頁介面結構設計
3. 描繪圖形
4. 影音播放
5. 與使用者互動
6. 資料輸出與輸入
7. 資料傳遞
8. 背景執行
9. 資料暫存處理
10. 檔案系統作業

《HTML5 完美風暴》這本即將出版的電腦書中，附了一本輕小說 《有一種愛叫作遺憾》，討論基於 HTML5 技術實作的概念電子書，搶先於線上發表囉，按一下這裏，畫面如下（請不要用 IE ，這支程式完全沒測試 IE ，包含IE9）：

           

Ref : http://www.dotblogs.com.tw/kangting/archive/2012/04/23/html5-novel-book.aspx

《HTML5 完美風暴》是我投入HTML5 技術領域之後的第一本完整技術圖書，也是早年個人完成C# 技術圖書的出版之後，多年以後再次撰寫格局超過1000 頁的全新著作，從開始整理資料、撰寫到後製出版，前後超過一年的時間，而在這段期間，全球科技產業的面貌早已發生翻天覆地的變化。

當賈伯斯在其Apple 公司的行動裝置平台上拒絕了Flash 並全力擁抱HTML5 ，全球Web 應用開發技術的發展終於走到了十字路口，而今賈伯斯已逝， Adobe 放棄了行動版Flash 的開發，加速轉向HTML5 設計工具的整合，另外一方面，微軟在其最新版的Windows 8 作業系統開發平台，更直接支援HTML5 的開發，網路上各種免費資源與相關函式庫的質量，則是以超乎想像的速度快速成長，一種跨平台，從視窗到瀏覽器、智慧型手機到筆記型電腦、電視到各種數位裝置通用的技術於焉誕生。

無論標準組織或是各種營利商業公司，全球正攜手推動HTML5 技術平台向前邁進，儘管實作有一些細節上的差異，然而因為遵循共同標準，使得跨平台的Web 應用開發成本得以降到最低，也因為瀏覽器的實作，讓各種先進的網路服務發展不再受特定廠商的制肘，HTML5 的出現， Web 應用程式跨越網路觸及使用者的最後一哩路，終於從特定廠商手裏完全被釋放出來。

網路科技經過幾個世代的發展終於成熟，瀏覽器的進化、行動科技的崛起、雲端時代的來臨、全球科技巨擘的共同力挺，還有被所有人接受的開放式標準，這些關鍵要素同時出現，正在全球形成一場完美的科技風暴，《HTML5 完美風暴》直擊HTML5 技術核心，從HTML 標籤的進化與擴充、CSS3 的設計整合到各種API ，全方位剖析這門新時代技術。

http://www.dotblogs.com.tw/kangting/archive/2012/04/24/html5-book-again.aspx

Visual C# 2010 精要剖析

作者：呂高旭、周殷德

出版社：松崗

出版日期：2011年07月08日

語言：繁體中文 ISBN：9789572239223

PART I 基礎篇

l   CH01 概觀

C# 是物件導向語言，支援 .NET 平台的應用程式開發，整個C# 語言架構於 .NET Framework 之上，本章將從 C# 程式語言以及 .NET Framework 概念開始，逐步探討相關的技術細節。

l   CH02 C# 程式設計入門

從一支最簡單的應用程式開始，本章將陸續介紹C# 程式的組成架構以及各種語法元素，包含型別與運算子。

l   CH03 流程控制與迴圈

本章討論程式執行流程控制的語法敘述，其中包含了決策與迭代敘述，決策敘述依據特定的條件決定所要執行的程式區塊，迭代則是一種重複執行特定程式區塊的迴圈敘述，除此之外，與流程控制有關的關鍵字，例如 continue、return 等等，本章亦一併討論。

l   CH04 陣列

陣列是一種使用頻率相當高的資料結構，它是最簡單的集合，陣列有幾種不同的種類，本章將從一維陣列開始，陸續說明多維陣列、矩型陣列等不同類型的陣列，同時示範如何使用C# 操作陣列。

PART II 類別與物件導向程式設計篇

l   CH05 方法、類別與物件

類別是C# 最重要的核心，亦是建構應用程式最主要的元素，.NET 類別庫提供了大量的功能類別，以支援各種類型的應用程式設計工作。本章針對類別的建立、組成與物件關係，進行詳細的說明，包含類別實作與內容成員的介紹，同時討論如何建構一個以上的類別。

l   CH06 物件導向程式設計－繼承

物件導向程式設計是 C# 最重要的基石，亦是相當複雜的議題，本章為讀者作了最精闢完整的入門介紹，建立運用相關技術所需的基礎。

l   CH07 物件導向程式設計－抽象類別與介面

這一章的內容繼續討論兩種與類別有關的特殊型別，抽象類別與介面，抽象類別是一種只實作部份內容的類別，它主要的功能在於提供未來新類別設計所需的共同樣版，而介面則是只包含定義，沒有任何實作內容，它本身提供新類別的設計架構。

l   CH08 程式錯誤與例外處理機制

本章針對 C# 錯誤處理機制的語法進行了詳細的說明，同時討論了幾個重要的例外類別，相信讀者經過本章課程的洗禮，將可以具備運用例外處理機制的基礎能力。

PART III 視窗程式設計篇

l   CH09 Windows 程式設計

本章討論視窗介面設計主題，針對 Windows Form 應用程式專案進行討論，包含表單物件的建立與相關的運用，同時一併說明建立互動式圖形介面最重要的關鍵議題－事件。

l   CH10 控制項

控制項用來建構 Windows 應用程式視覺化介面內容的可視元件，例如按鈕、文字方塊以及下拉式選單等等，命名空間 System.Windows.Forms 提供了大量的控制項類別，定義支援各種特定功能的控制項，本章針對常見的控制項逐一作介紹。

PART IV .NET 平台應用程式開發篇

l   CH11 應用程式常用類別庫

這一章介紹了幾組重要的類別與結構，讀者經由課程的講解可以體驗 .NET 平台內建類別庫的威力。

l   CH12 檔案系統作業

本章首先介紹類別庫的 I/O 類別，依功能與其在繼承架構裡的位置，巡覽整個I/O 系統架構，除此之外同時說明如何透過 C# 引用這些類別，建構具 I/O 功能的應用程式。

l   CH13 集合與資料處理　

本章將從其中最基礎的 ICollection 介面開始，陸續介紹這些集合類別與介面的實際運用與操作。

l   CH14 繪圖

本章討論 .NET 所提供的繪圖服務 GDI+，從最簡單的圖形開始，說明如何引用相關類別所提供的方法成員，繪製各種圖形，例如線條、曲線或是矩形等等，同時介紹色彩的運用與配置。

l   CH15 網路程式設計

System.Net.Sockets 主要提供實作Socket 應用程式的相關類別，Sytem.Net 則包含開發網際網路功能所需的應用程式介面，本章討論這兩個命名空間所提供的相關類別功能，同時示範具備網路存取功能的應用程式實作。

l   CH16 ADO.NET 與資料庫程式設計

這一章的內容主要提供最基本的概念，討論利用 C# 存取資料庫的基礎實作，未來當讀者想要成為一名真正的資料庫應用程式開發工程師，本章的課程將是一個很好的起點。

Entity Framework與LINQ開發實戰 預購

專為需要入門LINQ並進一步熟悉Entity Framework的開發人員所設計。

由於Entity Framework是透過LINQ來進行資料模型的存取，

為了協助開發人員擁有駕馭Entity Framework的能力，本書以系統化的解說方式，

從LINQ基礎開始，逐一檢視Entity Framework的各項技術細節。

　　■ 認識Entity Framework與LINQ

　　概要描述Entity Framework與LINQ技術的整體技術輪廓，以建立學習觀念。

　　首先聚焦於LINQ的討論，以便確認你能具備使用LINQ搜尋擷取資料物件的能力，

　　為將來運用Entity Framework打下良好的基礎。

　　■ LINQ to ADO .NET

　　儘管LINQ是以集合物件為基礎而發展出來的一種查詢技術，它同時針對ADO.NET提供相關的支援。

　　透過實體類別轉換資料庫架構，可避免資料庫開發人員撰寫存取底層資料來源的程式碼，

　　此種作法與 Entity Framework 類似，但比較單純，可做為進入Entity Framework之前的暖身。

　　■ Entity Framework的基礎

　　從資料模型的建立開始，逐步進入Entity Framework基礎的資料運算，

　　介紹LINQ與Entity Framework的整合，實作資料的搜尋及異動等相關功能。

　　■ 與Visual Studio的整合

　　介紹Visual Studio支援的Entity Framework 視覺化介面設計功能，

　　如資料繫結控制項等，同時涵蓋Windows Form與Web Form相關討論。

　　最後討論WCF與Entity Framework的整合應用，為將來發展大型應用程式奠定良好基礎。

作者簡介

呂高旭 Kao-Hsu

　　榮獲程式設計俱樂部網站《2007程式開發技術－網路影響力達人》，且獲得連續三屆微軟 MVP ，

　　擅長 C#、ASP.NET 等微軟 .NET 平台技術。

著作：

　　■ LINQ最佳實務講座

　　■ Silverlight：ASP.NET與AJAX開發實務

　　■ ASP.NET 商業級資料庫網站開發實務

　　■ ASP.NET應用程式開發－與AJAX共舞

　　■ .NET網路與I/O技術手冊

　　■ C# 2005精要剖析

　　康廷數位Blog : http://www.kangting.tw/

目錄

CH01 Entity Framework 與 LINQ 概觀

Part 1 LINQ to object

CH02 LINQ 與 C#

CH03 LINQ 與擴充方法

Part 2 LINQ to ADO.NET

CH04 LINQ to SQL

CH05 LINQ to DataSet

Part 3 Entity Framework

CH06 探索 Entity Framework

CH07 資料物件搜尋

CH08 資料物件編輯

CH09 視覺化介面設計整合

CH10 WCF服務與實體資料模型

附錄A Entity Framework 中英詞彙

附錄B Entity Framework命名空間與類別

附錄C切割實體資料模型專案

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

作者：王啟源
出版社：碁峰資訊
出版日：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