顯示具有 VB6 標籤的文章。 顯示所有文章
顯示具有 VB6 標籤的文章。 顯示所有文章

2020年4月9日 星期四

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 )

2013年5月14日 星期二

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

2013年4月11日 星期四

VB6 Clipboard 剪貼簿

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

vbCFText
vbCFRTF
vbCFBitmap
vbCFDIB
vbCFEMetafile
vbCFFiles
vbCFLink
vbCFMetafile
vbCFPalette
Clipboard.GetText '取得剪貼簿的文字資料
Clipboard.SetText '複製文字資料到剪貼簿
Clipboard.GetData '取得剪貼簿的圖片資料
Clipboard.SetData '複製圖片資料到剪貼簿
Clipboard.Clear '清空剪貼簿

2012年11月9日 星期五

2012年8月15日 星期三

VB6 SSTab 隱藏頁籤

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

2011年12月14日 星期三

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

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

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

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

2011年10月19日 星期三

Blogger 使用 VB CODE格式

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

Private Sub cmdEND_Click()
  Unload Me
End Sub

2007年10月24日 星期三

你今天樂透了嗎?

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

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

下載

2007年10月15日 星期一

VB6使用VBA的語法

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

2007年9月21日 星期五

中國象棋連線版

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

2007年9月19日 星期三

中國象棋

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

2007年9月12日 星期三

用VB畫XY座標

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

XY.rar