FM20.dll

最近在維護以前 VB6 的程式，安裝在 windows10 上面，執行會出現 out of memory 7 的錯誤。結果是 FM20.dll 的關係。

解決方法:安裝 Microsoft ActiveX Control Pad
https://docs.microsoft.com/en-us/previous-versions/ms968493(v=msdn.10)?redirectedfrom=MSDN

( 參考:https://stackoverflow.com/questions/11177281/vb-6-0-out-of-memory-error )

VB6 利用SendMessage控制音量

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_APPCOMMAND As Long = &H319
Private Const APPCOMMAND_VOLUME_UP As Long = 10
Private Const APPCOMMAND_VOLUME_DOWN As Long = 9
Private Const APPCOMMAND_VOLUME_MUTE As Long = 8

Private Sub Command1_Click()
  '音量增加
  SendMessage Me.hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000
End Sub

Private Sub Command2_Click()
  '音量減少
  SendMessage Me.hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000
End Sub

Private Sub Command3_Click()
  '靜音
  SendMessage Me.hwnd, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000
End Sub

VB6 Clipboard 剪貼簿

Clipboard.GetFormat '檢查剪貼簿的格式

vbCFText
vbCFRTF
vbCFBitmap
vbCFDIB
vbCFEMetafile
vbCFFiles
vbCFLink
vbCFMetafile
vbCFPalette

Clipboard.GetText '取得剪貼簿的文字資料
Clipboard.SetText '複製文字資料到剪貼簿
Clipboard.GetData '取得剪貼簿的圖片資料
Clipboard.SetData '複製圖片資料到剪貼簿
Clipboard.Clear '清空剪貼簿

Visual Basic 6.0 IDE 中使用滑鼠滾輪捲動

下載 VB6 滑鼠 Wheel.exe 檔案
其中包含增益集 DLL 和程式碼用來建立增益集 DLL
微軟外掛:
http://support.microsoft.com/kb/837910/zh-tw

VB6 SSTab 隱藏頁籤

SSTab1.TabVisible(0) = False '隱藏
SSTab1.TabVisible(0) = True '顯示

自製的月曆程式含記事功能

最近寫一個月曆的程式
最大的特色就是可以自己設定多張背景圖
一般的都是內建的
且每天開啟或換月圖都會改變
另外就是有個簡易的記事功能
結束程式時會記錄一些該程式的設定(位置之類的)

執行起來大致上就和下圖右上角這樣

可以任意移動位置並固定在桌面
粉紅色的日期表示為當天日期

Blogger 使用 VB CODE格式

做法: 首先先加入這個CSS stylesheet
然後到 http://www.manoli.net/csharpformat 輸入你的VB CODE
會產生 HTML CODE 再貼回來你的文章
範例如下:

Private Sub cmdEND_Click()
  Unload Me
End Sub

最近用VB6寫一個通訊錄軟體

有人要試用看看嗎

軟體下載（SEEDNET空間）
PS.電腦沒有EXCEL應該是不能用這軟體

你今天樂透了嗎?

這是自己用Visual basic 6寫的
可以自動選號
看你今天的手氣好不好XD

如果要參考亂數或排序的可以看一下

下載

VB6使用VBA的語法

如果要在VB6中利用EXCEL中錄制的巨集
那麼要先在專案->設定引用項目中加入Microsoft Excel 11.0 Object Library這個項目
就可以了
PS. 不過不一定是11.0 ?

中國象棋連線版

ChineseChessConn.rar
這次加入連線功能
輸出對方IP就可以連線對戰
不過請自己說好誰要選紅的XD
(如果都選紅的就不用下了)
另外黑的一定是在上方Orz
經測試無什麼問題
輸入IP->按GO紅(黑)->紅方會出現"遊戲開始"的訊息就可以開始了

中國象棋

ChineseChess.rar
這是我自己用 Visual Basic 6 寫的
只能單機雙人對戰用
應該是沒什麼bug吧

用VB畫XY座標

最近用visual basic 6寫了一個可以自行產生XY軸和點(自己輸入座標會畫出點)
大概我最近太無聊了吧

XY.rar