'code by 魑魅魍魎
'mailto:demonstudio@hotmail.***
private declare function setwindowlong lib "user32" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long
private declare function getwindowlong lib "user32" alias "getwindowlonga" (byval hwnd as long, byval nindex as long) as long
private sub form_load()
op.value = true
ch.value = 1
setwindowlong ***mand1.hwnd, -16, &h50008000
setwindowlong ch.hwnd, -16, getwindowlong(ch.hwnd, -16) + &h1000
setwindowlong list1.hwnd, -20, &h105
setwindowlong text1.hwnd, -20, &h105
setwindowlong op.hwnd, -16, getwindowlong(op.hwnd, -16) + &h1000
setwindowlong op1.hwnd, -16, getwindowlong(op1.hwnd, -16) + &h1000
end sub
效果如下：
再談在VB中呼叫VC 開發的DLL
近日開發一個程式，用到動態連結庫，在vb 中呼叫時遇到了一些問題。我查了一些資料，也看了一下 csdn 上的文章，感覺這些文章對在 vb中呼叫 vc 開發的dll 這一問題闡述得不夠詳細。因此在我的問題得到解決之餘，特為初接觸 dll的朋友們寫下這篇文章。本文中關於呼叫約定的解決方法，也適用於解決其...
15電氣郄慧敏vb作業1在VB中製作計時器
實驗名稱 在 vb中製作計時器 實驗步驟 在桌面中雙擊 vb6.0 開啟程式。在工具箱視窗找到計時器 timer 的圖示，單擊圖示並在窗體中建立計時器。在窗體中雙擊計時器圖示，在彈出的對話方塊中輸入 螢幕 1.caption time 然後關閉視窗。選定計時器 timer 在屬性視窗中找到 inte...
VC中類似VB的DoEvents函式
在一個程式中，如果有一個耗時很長的程式段 比如說一個100萬次的迴圈 程式在執行這段程式時會象死掉一樣。vb中提供doevents函式來解決這個問題。對於vc 來說，除了用多執行緒，還可以用下面的函式，起到類似於doevents的功能 bool checkmessagequeue return tr...
SQLDMO在VB中的應用
sqldmo sql distributed management objects，sql分散式管理物件 封裝 microsoft sql server 2000 資料庫中的物件。sql dmo 允許用支援自動化或 com 的語言編寫應用程式，以管理 sql server 安裝的所有部分。sql d...
在VB中實現多執行緒
功能 建立多執行緒類，用於初始化執行緒。類名 cls thread 呼叫方法 1.宣告執行緒類物件變數 dim mythread as cls thread 2.呼叫形式 with mythread initialize addressof 自定義過程或函式名 初始化執行緒 threadenable...