+++++++++++++++
delphi 源**
+++++++++++++++
// 將下面這兩個變數宣告為全域性變數
myhwnd:array[1..200] of hwnd;
myhwndcount:integer=1;
// 這個過程便能夠獲得主窗體下的全部子窗體控制代碼
procedure tmainform.gethwnd(dad:hwnd);
var
bakh:hwnd;
begin
bakh:=getwindow(dad,gw_child);
while bakh<>0 do
begin
myhwnd[myhwndcount]:=bakh;
myhwndcount:=myhwndcount+1;
gethwnd(myhwnd[myhwndcount-1]);
bakh:=getwindow(bakh,gw_hwndnext);
end;
end;
++++++++++++
vb 源**
++++++++++++
』函式、常數、變數宣告
private declare function getwindow lib "user32" (byval hwnd as long, byval wcmd
as long) as long
private const gw_child = 5
private const gw_hwndnext = 2
private myhwnd(200) as long
private myhwndcount as integer
』----------------------------
』----------------------------
private declare function sendmessage lib "user32" alias "sendmessagea" (byval
hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
private const wm_settext = &hc
private sub gethwnd(dad as long)
dim bakh as long
bakh = getwindow(dad, gw_child)
while bakh <> 0
myhwnd(myhwndcount) = bakh
myhwndcount = myhwndcount + 1
gethwnd (myhwnd(myhwndcount - 1))
bakh = getwindow(bakh, gw_hwndnext)
wend
end sub
取得庫中所有的外來鍵
select a.外來鍵,b.tbl nme as 主表,b.col nme as 主列,c.tbl nme as 參照表,c.col nme as 參照列 from select a.name as 外來鍵,a.parent object id,b.parent column id,a.refer...
jbmp取得所有任務
擴充套件jbpm取得我的任務 jbpm4提供兩個介面可以獲取該使用者的待處理任務，乙個是個人的任務 taskservice.findpersonaltasks userid 另乙個是取得該使用者對應的候選任務 taskservice.findgrouptasks userid 有時我們需要在乙個列表...
C 中所有的符號
算術運算子 加 x y z 減 x y z 乘 x y z 除 x y z 賦值運算子 賦值 x 10 賦值與和 x 10 等於x x 10 賦值與減 x 10 賦值與乘 x 10 賦值與除 x 10 賦值位與 x 0x02 賦值位或 x 0x02 邏輯操作符 邏輯與 if x 0xff 邏輯或 i...