程式狂想曲

再表單的鍵盤事件中，最喜歡的是KeyDown事件

因為在Keydown可以呼叫 keyvalue 參數
用就兩個步驟

前一陣子看到這篇，跳了過去，但就是因為這樣讓自己轉了很大的一個彎
喔 應該說是跑到月球又跑了回來 -.-!!

利用矩陣的方式將色彩轉換

這兩天在弄 uEye CCD 終於成功了，但也告訴我必須要放棄

由於用的CCD是黑白的CCD，如果是彩色那還沒問題，但問題是黑白
在VB.net中提供的Bitmap的格式並沒有8 Byte的灰階 只有 8byte 指標的256色
由記體體中取出的資料是沒問題的

最近用到蠻多的 GDI+原件，在網路上找尋清空Bitmap的方法
方法很多，但都是用一個點一個點去清空，很沒有效率
加上開發的的商業程式，這會造成很大的系統負擔
結合了幾種方法後，今天終於成功找到一種方法可以快速清空Bitmap
先在全域變數區設定一個Bitmap 還有畫筆

昨天把本來好好的 Form.Timer 改成 System.Timer.本來想運用多執行緒的優點，來使程式更順暢。沒想到沒有，反而整個系統垮了，根本就動彈不得，設了Flag來保護也沒有用。Inteval又不能設太大，不然就失去意義了。今天才發現當三個System.Timer一起運作時，搶得還是同一個Thread.那用System.Timer就失去用多執行緒的意義。可惜對Thread.Timer不熟，也不打算用，不然之後維護的人可真的辛苦。

在網路上查了很多資料 但偏偏都少了這一句

請先 引用 Micorsoft Excel 11.0 Object Libary
讓我 try 了好久 >_< 後面再加上 把 Northwind.sdf檔讀入 MSHFledGrid 中 在Form 中要建立 button MSHFlefGrid1 ADODC1 Textbox1 and Progress1 Private Sub btntra_Click() '******** '*匯出到 Excel '****************** Call PrintTableToExcel(Me.MSH, "", "", App.Path & "\" & txtOut.Text & ".xls", Me.ProgressBar1) End Sub Public Sub PrintTableToExcel(ByRef myGrid As MSHFlexGrid, ByVal strHeader As String, _ ByVal strInfo As String, ByVal strFileName As String, _ ByRef proBar As ProgressBar) '************* '*執行 匯出的動作 '********************* If myGrid.Rows <= 1 Then Exit Sub Dim ExcelApp As Excel.Application Dim r As Long, c As Long On Error Resume Next Set ExcelApp = GetObject(, "Excel.Application") If Err.Number <> 0 Then
Err.Clear

這兩天快被 Servlet 給搞亂了
昨天是 Compile 時 一直出現 第一行開始會有個 ? 錯誤
今天是在整理 Sample600時 一直不能執行

最後發現 第一個是Micosoft的問題，檔案個開頭會塞個東西在裡面。