PB中一些技巧
PB中一些技巧
1.RGB函數計算公式: 顏色值 = (65536 * Blue) + (256 * Green) + (Red)
2.控件可拖動:
send(handle(this),274,61458,0)
3.如何用程序控制下拉子數據窗口的下拉和收起
用modify或者直接用dw_1.object.col1.dddw.showlist = true
4.檢索參數有些不需要傳入則傳%.
5.如何屏蔽鼠標滾輪觸發
在控件的other事件寫
if message.number = 522 then return 1
6.得到數據窗口的語法:
string ls_dwsyntax
ls_dwsyntax=dw_1.describe("datawindow.syntax")
7.得到數據窗口中各列及標題:
long ll_count,i
string ls_value,ls_colname
ll_colnum = Long(dw_1.object.datawindow.column.count)
for i = 1 to ll_colnum
//得到標題頭的名字
ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t"
ls_value = dw_1.describe(ls_colname + ".text")
next
8.在程序中動態設置初始值:
ex:dw_contro.object.columnName.initial = 'xxxx'
9.如何在DataWindow的SQL語法中不使用SELECT DISTINCT實現刪除重複的行
---- 起先對你要顯示唯一值的列進行排序:"city A",然後增加如下過濾字符串:" city < > city [-1] or GetRow () = 1"
10.如何改變列的字體顏色,提醒用戶此列已做修改
---- 在列的Color屬性中,輸入如下表達式IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。在這個條件中,如果此列已改變,則顯示紅色字體,否則顯示黑色字體。這個表達式主要用column_name < > column_name.Original比較當前列的值和原始列的值是否相同來達到判斷的目的。
11.在數據窗口的clicked或doubleclicked事件中寫上註釋//可解決一些意外的bug!
12.如何屏蔽上下鍵觸發
新建一個事件:id爲pbm_dwnkey
IF KeyDown(KeyDownArrow!) OR KeyDown(KeyUpArrow!) Then
Return 1
End IF
13.你注意到沒有,數據窗口畫板裏面,在寫表達式的時候,試着用一些用戶自定義的全局變量和全局函數,你會發現在某些特殊的場合,這個小竅門還是很有用的。
14.有些程序員在窗口的右鍵pop菜單裏面寫了很多代碼,在菜單裏面有很多w_windowname.controlname等等引用,如果這個窗口被繼承,很容易就會出毛病,別忘了在菜單裏面可以引用parentwindow哦,有了它我的pop菜單裏面的代碼和具體窗口無關,隨便繼承。當然強烈建議最好還是把所有和窗口相關的邏輯都轉移到窗口的函數和事件中去,在pop菜單中觸發調用。
15.whichdw.describe("evaluate('lookupdisplay("+colname+")',"+string(row)+")")
這個表達式可以得到指定列的顯示值。(這個知識點有濫竽充數之嫌,但是一時間我真是想不起來太多的東西)
16.在數據窗口畫板裏面我們如果想要比較當前行和上一行或者下一行的值,怎麼比較呢,哈哈,看這個就知道了
if ( yw_bc_circuit_dlcode = yw_bc_circuit_dlcode [-1] and yw_bc_circuit_dlname = yw_bc_circuit_dlname [-1] and yw_bc_circuit_xtno = yw_bc_circuit_xtno [-1] ,0,1)
這個表達式就是比較當前行和上一行是否相同的。其他的依此類推就行了。
17.兩個結構相同的數據窗口之間快速複製數據
dw_1.object.data = dw_2.object.data
18.根據條件改變記錄顏色
if ( Mod(getrow(),2)=0,rgb(0,255,255),rgb(255,255,255)) //奇偶行不同色
if (currentRow()=getrow(),rgb(0,255,255),rgb(255,255,255)) //當前行不同色
19.使窗口總位於所有打開窗口的最上面
w_main.SetPosition(Topmost!)
20.取數據窗口中列的總數
string ls_count
ls_count = dw_1.describe("datawindow.column.count")
21.取數據窗口中可列新的表名。
string ls_table
ls_table = dw_1.describe("datawindow.updatetable.table")
22.取數據窗口對象中列的名稱及類型
string ls_cols[],ls_types[]
int li_count,i
li_count = integer(ls_count)
for i = 1 to li_count
ls_cols[i] = dw_1.describe("#"+string(i)+".name")
ls_types[i] = dw_1.describe("#"+string(i)+".coltype")
next
23.Case( dealintype WHEN 0 THEN RGB(254,251,235) WHEN 2 THEN rgb(254,251,235) ELSE RGB(0,0,255))
寫道字段的protect中不僅僅是顏色改變的問題看看
24.dw.Object.col[n] : 直接獲得數據窗口的col列第n 行的數據。
25.在做數據窗口時,我們有時候希望能夠多一些字段來作一些特殊的用處,但是在數據窗口中又不能亂加字段,因爲已有的字段必須是數據庫中有的或者是他們的組合,呵呵,大家不妨看看這個sql用產生什麼樣的數據窗口
select colname1,colname2,1,''
from tablename
是不是多出了兩個字段阿,一個是字符串字段,一個是數字字段
別忘了要convert syntax 哦
26.清空數組
string a[],b[]
a[1] = '1';a[1] = '2';a[1] = '3'
a = b//即可以清空a
27.只允許修改第n行的name列:
dw_1.modify("name.protect = '1 ~t if((getrow()=n),0,1)'")
28.讓run程序和主程序一起關閉:
function ulong findwindowA(...).."user32.dll"
function long setparent(..."user32.dll"
handle = findwindowA(nul,win_title)
setparent(handle,handle(w_main))
29.取得某一天以前或以後n天的函數RelativeDate(date, n)
例:
取得當天前10天的日期
RelativeDate(Today(),10)
取得當天后10天的日期
RelativeDate(Today(),-10)
30.不想做排序窗口?調用PB自身的好了。
string ls_null
SetNull(ls_null)
dw_1.SetSort(ls_null)
dw_1.Sort()
31.調用PB自身的過濾窗口:
dw_1.SetFilter(ls_null)
dw_1.Filter()
32.增量輸入定位代碼或名稱記錄位置:
定義一個窗口,放一個SLE_1,在它的MODIFY程序中寫:
long ll_find
string value0
value0=sle_1.text
if not (isnull(sle_1.text) or sle_1.text='') then
if left(sle_1.text,1)='0' or integer(sle_1.text)<>0 then //輸入的爲代碼
ll_find=jwl_dmxz.dw_1.find('dm like "'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//jwl_dmxz爲主窗口,dm爲查詢的字段名,這裏是代碼。
else //輸入的爲名稱
ll_find=jwl_dmxz.dw_1.find('mc like "'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//
end if
if ll_find>0 then
jwl_dmxz.dw_1.scrolltorow(ll_find)
//爲了避免首次目標記錄爲第一條,無法選中。
if ll_find=ll_find0 then
jwl_dmxz.dw_1.selectrow(ll_find,true)
elseif ll_find<>ll_find0 then
jwl_dmxz.dw_1.selectrow(ll_find,true)
jwl_dmxz.dw_1.selectrow(ll_find0,false)
ll_find0=ll_find
end if
end if
end if
33.然後在查詢窗口中的TIMER事件中寫:
timer(0.05)
sle_1.triggerevent(modified!)
34.判斷計算器是否存在:
string is_fileExists
boolean is_Exists
is_fileExists='c:\windows\calc.exe'
is_Exists=fileExists(is_fileExists)
if is_Exists then
run("c:\windows\calc.exe")
else
messagebox("提示信息","本機的WINDOWS沒有計算器!",stopsign!)
end if
35.得到硬盤序例號
String ls_Rootpath, ls_volumnename ,ls_return,softpath
GetCurrentDirectoryA(256,softpath)
softpath=left(softpath,2)
if softpath='C:' then
ls_Rootpath = 'D:' // 指定要得到序列號的硬盤,
// 一般情況都是C盤,除非你能保證用戶存在其它邏輯盤或物理盤
else
ls_Rootpath = 'C:'
end if
ls_volumnename = Space(256) // 分配足夠的空間,下同
Ulong lul_VolumeNameSize
lul_VolumeNameSize = 256
Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags
lul_MaximumComponentLength = 256
String ls_FileSystemNameBuffer
ls_FileSystemNameBuffer = space(256)
Ulong lul_FileSystemNameSize
lul_FileSystemNameSize = 256
int i
long ls_num,ls_gnum,ls_dnum
i=GetVolumeInformation(ls_Rootpath, ls_volumnename, lul_VolumeNameSize, lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags, ls_FileSystemNameBuffer, lul_FileSystemNameSize)
ls_return=string(lul_VolumeSerialNumber)
return ls_return
1.pb9應用xp風格
將PB9升級到7119後,編譯時有一個 New Visual Style Controls 選項,選中後,編譯出來的文件在XP下就可以應用XP風格了
2.Yield()函數的作用
Yield()是一個不常用到的PowerBuilder函數。可是,在一個大的循環過程中,如果用戶想在執行到一半時通過單擊按鈕或菜單來退出的話,就一定要用到Yield()函數了,否則程序只會在執行完成整個循環後纔會響應按鈕或菜單的Click事件。將Yield()函數放在循環體的中間。那麼在循環執行的過程中發現有新的事件消息在消息隊列中就回立即去響應。
Yield()
功能將控制權轉移給其它圖形對象,包括非PowerBuilder對象。該函數檢測消息隊列,如果有消息,就把消息取出。利用該函數可以在執行耗時較長的操作時把控制權轉讓給其它應用。
語法Yield()
返回值Boolean。如果在消息隊列中提取到了消息,那麼函數返回TRUE,否則返回FALSE。用法正常情況下,PowerBuilder應用程序在執行一段代碼(比如函數或事件處理程序)的過程中不響應用戶的操作。對耗時短暫的代碼段來說,這種處理方式沒有什麼不妥的地方,但是,如果某個代碼段的執行耗時較長,應用程序又希望爲用戶提供更多的控制權,那麼需要在這段代碼中插入Yield()函數,讓用戶能夠進行其它操作,特別在循環執行的代碼中更應該如此。應用程序執行Yield()函數後,如果發現消息隊列中存在消息,它將允許對象處理這些消息,處理之後,繼續Yield()函數後面代碼的執行。因此,代碼中插入Yield()函數將降低應用程序的運行效率。
3.sqlca.SQLCode 與update()
在利用Embedded SQL 的時候,每運行一次SQL指令就應該檢查一次交易對象中的屬性SQLCode,而不是等到
所有的SQL指令運行完畢後再去運行檢查交易對象中的SQLCode屬性.當我們使用數據窗口所提供的函數時,
要記住不要檢查SQLCode來判斷是否運行成功.而是要依照每一個函數運行後所返回的值來判斷是否運行
成功.
update tab_test set col1 = 'test'
if sqlca.sqlCode = -1 then
rollback using sqlca;
if sqlca.sqlCode = -1 then
messageBox('錯誤','連接失敗!')
end if
messageBox('錯誤','連接失敗!')
else
commit using sqlca;
end if
//確保數據保存的成功
if dw_1.update() = -1 then
RollBack Using SQLCA;
MessageBox("警告!","數據保存失敗!")
else
Commit Using SQLCA;
End if
4.讀取網頁內容:
sle_1.text=ole_1.object.Document.body.outertext
ole_1.object.Document.body.scroll="no"
mle_1.text=ole_1.object.document.body.outerhtml
5. tab_1.createondemand 在需要時創建:
tab_1.createondemand:在需要時創建。提高在open事件時的效率,tab_1的某一tabpage裏的內容在open時不創建,僅當選擇該頁時或selecttab才創建,不過,在未創建時,不能對其中的控件及屬性引用。
6.如何在程序中對BLOB數據庫進行寫入
和後臺數據庫有關:以SQLANYWAY爲例:
一般用 UPDATEBLOB 和 SELECTBLOB 兩個SQL語句來實現。
建一個表TABLE1,一個字段是ID,另一個是BLOB,
SELECTBLOB BLOB FROM TABLE1 WHERE ID='xx';
UPDATEBLOB SET BLOB = :BLB_X FROM TABLE1 WHERE ID='yy';
刪除時刪除ID爲'mm'的記錄即可,新增是先插入一條ID爲'mm'的記錄,然後 用UPDATEBLOB將數據寫入
表內。 其他的數據庫可參照手冊進行,其命令與上述差別不大!
7.API、系統消息及其它dll調用
1.控件可拖動:
send(handle(this),274,61458,0)
2.如何屏蔽鼠標滾輪觸發
在控件的other事件寫
if message.number = 522 then return 1
3.隱藏任務欄的方法,
在OnCreate事件裏利用Window API函數SetWindowLong:SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
PB使用時首先聲明函數FUNCTION long SetWindowLong(ulong hWnd, integer nIndex, ulong dwNewLong) library "user32.dll" ALIAS FOR "SetWindowLongA",
然後調用:SetWindowLong(Handle(this),-20,128);
4.在PB中調用屏幕保護的方法:
send(handle(This),274,61760,0)
5.得到一個應用程序如Outlook的路徑
RegistryGet("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionApp PathsMSIMN.EXE", &
"Path",ls_outlook_path)
//Outlook的路徑將保存在string型變量ls_outlook_path中。
6.得到程序運行時的路徑
//在global external functions聲明:
Function uLong GetModuleFileNameA(long hinstModule, Ref String lpszPath, uLong cchPath) Library ″kernel32.dll″
//程序路徑保存在變量ls_AppPath中
string ls_AppPath
int li_ret
ls_AppPath = Space(128)
li_ret = GetModuleFileNameA(Handle(GetApplication()),ls_apppath,128)
//要編譯成可執行文件.exe纔可用,否則得到的是Powerbuilder的pb60.exe或PB050.exe的路徑。
7.屏蔽窗口的ALT+F4鍵
//方法一:
1.在窗口的systemkey事件中增加以下代碼:
IF KeyDown(KeyF4!) THEN
Message.Processed = TRUE
END IF
2.在窗口的closequery事件中增加如下代碼:
Long ll_ret
IF KeyDown(keyF4!) THEN
ll_ret = 1
END IF
return ll_ret
//方法二:
建一實例變量,在你的關閉程序上賦一個True然後在closequery中判斷該值, 如爲False則Return 1
8.當程序中用到了動態加入的對象,如BMP資源文件、數據窗口對象,PB編譯時是掃描不到的,解決方法:
1.將此對象寫入到資源文件中:
用記事本創建資源文件dw_object.pbr,寫入:c:myprogram.pbl(dw_sj)
編譯時將此文件選入Resource File Name處。
2.將應用編譯成PBD、DLL文件。
9.如何在PB中實現延時:
subroutine Sleep(long dwMilliseconds) library "kernel32.dll"
延時1秒則調用: Sleep(1000) //單位是毫秒。
10.調用API函數步驟:
1、在適當的位置聲明函數,如窗口內,Application內,UserObject內,
定義在Local External Function或Global External Function中,如播放聲音的:
Function boolean sndPlaySoundA(string SoundName, uint Flags) Library "WINMM.DLL"
Function uint waveOutGetNumDevs() Library "WINMM.DLL"
也可以創建一個UserObject,集中聲明常用的API及函數本地化,如定義用戶對象 u_external_function:
Declare Local External Function(定義外部函數):
Function boolean sndPlaySoundA(string SoundName, uint Flags) Library "WINMM.DLL"
Function uint waveOutGetNumDevs() Library "WINMM.DLL"
Declare User Object Function(定義用戶對象函數):
uf_play_sound(string as_wave_name, integer ai_option)
函數內容如下:
//參數:as_wave_name :wav文件名 ai_option :同步或異步(1/0)
uint lui_numdevs
lui_numdevs = WaveOutGetNumDevs()
If lui_numdevs > 0 Then
sndPlaySoundA(as_wave_name,ai_option)
return 1
Else
return -1
End If
2、調用時在程序中定義一個實體並調用其函數:
u_external_function iu_external_function
iu_external_function = create u_external_function
iu_external_function.uf_play_sound('c:windowsmediading.wav',1)
試試看,如果有聲卡,就會聽到"叮”的一聲。其它API函數也是如此處理。
11.顯示一個與Windows操作系統風格一致的About對話框。
首先聲明如下外部函數:
function int ShellAboutA(ulong al_hWnd, string as_szApp, string as_szOtherStuff, ulong hIcon) library "shell32"
ShellAboutA(handle(parent),"關於... ","歡迎",0)
12.send用法:Send(handle,message#,lowword,long)
數據窗口中按enter鍵實現tab功能(在數據窗口的Enter事件中)
自定義事件ID:pbm_dwnprocessenter裏寫如下代碼:
Send(Handle(This),256,9,Long(0,0))
說明:This代表DW;Handle代表DW的句柄;256代表TAB鍵;9代表不加入shift鍵,7代表加入;Long(0,0)代表預留空位.
send(handle(this),256,9,long(0,0))
return 1
//This statement scrolls the window w_emp up one page:
Send(Handle(w_emp), 277, 2, 0)
//Both of the following statements click the CommandButton cb_OK:
Send(Handle(Parent), 273, 0, Handle(cb_OK))
cb_OK.TriggerEvent(Clicked!)
//minimizes the DataWindow:
Send(Handle(dw_1), 274, 61472, 0)
//maximizes the DataWindow:
Send(Handle(dw_1), 274, 61488, 0)
//returns the DataWindow to its normal, defined size:
Send(Handle(dw_1), 274, 61728, 0)
13.如何使PB窗口總在最上層(Always On Top)
通過SetWindowPos函數把窗口的顯示層次修改爲HWND—TOPMOST,就可使指定窗口永遠不會被其它窗口覆
蓋,該函數聲明爲:
Function Long SetWindowPos(Long hwnd,Long ord,Long x,Long y,Long dx,Long dy,Long uflag) Library ″user32″
參數1爲要頂層顯示的窗口句柄,參數2指定顯示的層次,參數7爲附加選項,其餘參數指定窗口位置和
大小,均可忽略。在窗口的Open或Activate事件中加入如下函數調用:
SetWindowPos(Handle(This),-1,0,0,0,0,3)
參數2取-1表示在最頂層顯示窗口,取1表示在最底層顯示;最後一個參數若取1,表示窗口大小保持不
變,取2表示保持位置不變,因此,取3(=1+2)表示大小和位置均保持不變,取0表示將窗口的大小和
位置改變爲指定值。
14.在PB中如何獲得光盤盤符
通過GetDriveType函數可以獲取驅動器(如:軟驅、硬盤、光驅、網絡映射驅動器等)的信息,該函數
聲明爲:
Function Uint GetDriveTypeA(String drive) Library ″kernel32.dll″
參數爲一個盤符(如"C:"),返回值:1表示未知,2表示軟驅,3表示本地硬盤,4表示網絡驅動器,
5表示光驅。因此如下代碼可以獲得光盤的盤符:
For i=Asc(′D′) to Asc(′Z′)
//列舉所有可能的CDROM驅動器
If GetDriveTypeA(Char(i)+″:″)=5 Then
//若找到CDROM
MessageBox(″CDROM″,Char(i)+″:″)
//顯示光盤盤符
Exit //退出列舉
End If
Next
15.在PB中如何獲取目錄信息
⑴獲取當前目錄。通過GetCurrentDirectory函數可以獲取當前目錄,該函數聲明爲:
Function Ulong GetCurrentDirectoryA(Ulong buflen, ref String dir) Library ″kernel32.dll″
參數2爲接收當前目錄的字符緩衝區,前面必須加ref表示地址引用;參數1用來指定字符緩衝區的長度。
調用過程爲:
String curdir
curdir=Space(256)
//爲字符緩衝區開闢內存空間
GetCurrentDirectoryA(256,curdir)
MessageBox(″Current Directory″,curdir)
⑵獲取Windows及系統目錄。要用到GetWindowsDirectory和GetSystemDirectory兩個函數,須作如下聲明:
Function Uint GetWindowsDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″
Function Uint GetSystemDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″
16.在PB中如何註銷當前用戶、關閉計算機、重啓計算機
通過ExitWindowsEx函數可實現這三個功能,首先作如下聲明:
Function Long ExitWindowsEx(Long uflag,Long nouse) Library ″user32.dll″
參數2保留不用,可取0;參數1取0可以註銷當前用戶,取1可以關閉計算機,取2可以重啓計算機,其值
再加4表示強制結束"未響應"的進程。
17.控制由Run運行的程序(簡稱Run程序)
在PB程序設計中,可以用Run()來運行一些程序。比如用戶按了F1,就運行一個chm文件。但Run程序無法
與PB主程序協調工作,若用戶按了多次F1,就會啓動Run程序的多個實例,主程序退出時,Run程序依然
運行。可以用如下函數來使它們協調工作:
Function Ulong FindWindowA(Ulong classname, String windowname) Library ″user32.dll″
Function Long SetParent(Long childwin,Long parentwin) Library ″user32.dll″
⑴使Run程序只運行一個實例
handle=FindWindowA(nul,wtitle)
//查找Run程序是否已經運行,wtitle爲Run程序的標題
IF handle〉0 Then Return
//若已經在運行就返回
Run(″C:Program FilesJointJoint.chm″)
//否則運行Run程序
⑵PB主程序退出時,Run程序也關閉
handle=FindWindowA(nul,wtitle)
SetParent(handle,Handle(w—main))
//使Run程序窗口成爲PB主程序的子窗口
18.映射網絡驅動器
若要在程序中把遠程主機的資源映射到本地驅動器,可以用如下函數:
Function long WNetAddConnectionA(String path,string pwd,String drv) Library ″mpr.dll″
19.在PB中如何打開一個文件(如.txt,.doc),就像在資源管理器中雙擊打開文件一樣?
答:可以通過API函數來實現。
在應用程序的Global External Functions中定義:
Function long ShellExecuteA(ulong hwnd, string lpOperation, string lpFile, & string
lpParameters, string lpDirectory, long nShowCmd) library "shell32.dll”
調用如下:
String ls_null
SetNull(ls_null)
ShellExecuteA(Handle(Parent), ls_null, "c:dochello.txt”, ls_null, ls_null, 1)
20.PB中實現淡入淡出效果
聲明API:
function Boolean AnimateWindow( ulong hwnd, long dwTime, long dwFlags) library 'user32.dll'
窗口 open事件:
////---------------------------------------------------------------
long ll_handle
ll_handle = Handle ( this )
AnimateWindow ( ll_handle , 1000, 524288+16)//淡進
//////-------------------------------- ------------------------
窗口close事件
AnimateWindow ( Handle ( This ) , 300, 524288+ 65536 + 16)//淡隱
21.SendMessage API函數在PowerBuilder中應用
一、引言
在Powerbulider巧妙地調用API函數SendMessage,可以完成Pb中的一些用常規的方法而很難實
現的功能,特將對該api函數在Powerbuilder中的使用,例舉幾個方面的運用,以期起到拋磚引玉的效果(以下代碼完全可以使用PowerBuilder中的Send函數替代SendMessage 這個Api函數,因起稿比較匆忙,代碼未經測試)
二、函數說明
SendMessage函數說明:
說明
調用一個窗口的窗口函數,將一條消息發給那個窗口。除非消息處理完畢,否則該函數不會返回。SendMessageBynum, SendMessageByString是該函數的"類型安全"聲明形式
返回值
Long,由具體的消息決定
參數表
參數 類型及說明
hwnd Long,要接收消息的那個窗口的句柄
wMsg Long,消息的標識符
wParam Long,具體取決於消息
lParam Any,具體取決於消息
Powerbuilder中已使用函數Send函數對其進行了封裝
函數原形:Send ( handle, message#, lowword, long )
Send函數說明:
說明
調用一個窗口的窗口函數,將一條消息發給那個窗口。除非消息處理完畢,否則該函數不會返回。
返回值
Long,由具體的消息決定
參數表
參數 類型及說明
handle Long,要接收消息的那個窗口的句柄
message# Long,消息的標識符
lowword Long,具體取決於消息
long long,具體取決於消息
3、 應用舉例
定義外部函數引用聲明:
funcation long SendMessage (long hwnd As Long,long wMsg , long wParam,long lParam) Library "user32.dll" Alias for "SendMessageA"
funcation long ReleaseCapture() Library "user32.dll"
定義實例變量:
Constant long LB_ITEMFROMPOINT = 425
Constant long HTCAPTION = 2
Constant long WM_NCLBUTTONDOWN = 161
Constant long EM_GETLINE = 404
Constant long EM_GETLINECOUNT = 399
Constant long EM_GETLINECOUNT = 186
Constant long EM_GETLINE = 196
Constant long TVM_SETITEMHEIGHT = 4379
Constant long EM_LINESCROLL = 182
Constant long EM_LIMITTEXT=197
1、列表框中鼠標移動時檢測位置項
Powerscript:
在列表框的自定義事件ue_mousemove(pbm_mousemove)中寫入如下代碼:
pos = unitstopixels(parent.pointerx(),XUnitsToPixels!)+ unitstopixels(parent.pointery(),yUnitsToPixels!) * 65536
idx = SendMessage(handle(this), LB_ITEMFROMPOINT, 0, pos) If idx < 65536 Then sle_1.Text = lb_1.text(idx)
2、在列表框中查找匹配的項目
Powerscript:
窗口的open事件:
lb_1.AddItem ("軟件")
lb_1.AddItem("電腦遊戲")
lb_1.AddItem("電視機")
lb_1.AddItem("電視臺")
lb_1.AddItem("電腦")
lb_1.AddItem("電腦遊戲軟件")
singlelineedit控件的modified事件:
long li_index
li_index= SendMessage(handle(this), EM_GETLINECOUNT, -1, sle_1.text)
lb_1.selectitem(li_index)
3、爲ListBox添加水平滾動條
Powerscript:
窗口的open事件:
lb_1.AddItem("軟件")
lb_1.AddItem("電腦遊戲")
lb_1.AddItem("電視機")
lb_1.AddItem("電視臺")
lb_1.AddItem("電腦")
lb_1.AddItem("電腦遊戲軟件")
SendMessage (handle(this), EM_GETLINE, 250, 0)
4、實現拖動無標題欄窗體
Powerscript:
在窗口的自定義事件ue_lbuttondown(pbm_lbuttondown)
long ReturnVal
x = ReleaseCapture()
ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
5、獲取多行文本框行數
Powerscript:
Commandbutton的clicked事件
Messagebox("", SendMessage(handle(mle_1), EM_GETLINECOUNT, 0, 0))
6、設置樹型列表控件標題行高度
Powerscript:
tv_1的constructor事件:
SendMessage(handle(tv_1), TVM_SETITEMHEIGHT, 60, 0)
7、突破Powerbuilder中的多行文本框32k的限制
Powerscript:
SendMessage(handle(mle_1), EM_LIMITTEXT, 65534, 0)
8、用程序代碼控制文本框的滾行與滾列
Powerscript:
SendMessage(handle(sle_1), EM_LINESCROLL, 0, 1)//下卷一行
SendMessage(handle(sle_1), EM_LINESCROLL, 0, -1)//上卷一行
SendMessage(handle(sle_1), EM_LINESCROLL, 1, 0)//右卷一列
SendMessage(handle(sle_1), EM_LINESCROLL, -1, 0)//左卷一列
三、結束語
在編寫Powerbuilder應用時,應該充分調用相關的api函數來擴充pb的一些不足。
1.RGB函數計算公式: 顏色值 = (65536 * Blue) + (256 * Green) + (Red)
2.控件可拖動:
send(handle(this),274,61458,0)
3.如何用程序控制下拉子數據窗口的下拉和收起
用modify或者直接用dw_1.object.col1.dddw.showlist = true
4.檢索參數有些不需要傳入則傳%.
5.如何屏蔽鼠標滾輪觸發
在控件的other事件寫
if message.number = 522 then return 1
6.得到數據窗口的語法:
string ls_dwsyntax
ls_dwsyntax=dw_1.describe("datawindow.syntax")
7.得到數據窗口中各列及標題:
long ll_count,i
string ls_value,ls_colname
ll_colnum = Long(dw_1.object.datawindow.column.count)
for i = 1 to ll_colnum
//得到標題頭的名字
ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t"
ls_value = dw_1.describe(ls_colname + ".text")
next
8.在程序中動態設置初始值:
ex:dw_contro.object.columnName.initial = 'xxxx'
9.如何在DataWindow的SQL語法中不使用SELECT DISTINCT實現刪除重複的行
---- 起先對你要顯示唯一值的列進行排序:"city A",然後增加如下過濾字符串:" city < > city [-1] or GetRow () = 1"
10.如何改變列的字體顏色,提醒用戶此列已做修改
---- 在列的Color屬性中,輸入如下表達式IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。在這個條件中,如果此列已改變,則顯示紅色字體,否則顯示黑色字體。這個表達式主要用column_name < > column_name.Original比較當前列的值和原始列的值是否相同來達到判斷的目的。
11.在數據窗口的clicked或doubleclicked事件中寫上註釋//可解決一些意外的bug!
12.如何屏蔽上下鍵觸發
新建一個事件:id爲pbm_dwnkey
IF KeyDown(KeyDownArrow!) OR KeyDown(KeyUpArrow!) Then
Return 1
End IF
13.你注意到沒有,數據窗口畫板裏面,在寫表達式的時候,試着用一些用戶自定義的全局變量和全局函數,你會發現在某些特殊的場合,這個小竅門還是很有用的。
14.有些程序員在窗口的右鍵pop菜單裏面寫了很多代碼,在菜單裏面有很多w_windowname.controlname等等引用,如果這個窗口被繼承,很容易就會出毛病,別忘了在菜單裏面可以引用parentwindow哦,有了它我的pop菜單裏面的代碼和具體窗口無關,隨便繼承。當然強烈建議最好還是把所有和窗口相關的邏輯都轉移到窗口的函數和事件中去,在pop菜單中觸發調用。
15.whichdw.describe("evaluate('lookupdisplay("+colname+")',"+string(row)+")")
這個表達式可以得到指定列的顯示值。(這個知識點有濫竽充數之嫌,但是一時間我真是想不起來太多的東西)
16.在數據窗口畫板裏面我們如果想要比較當前行和上一行或者下一行的值,怎麼比較呢,哈哈,看這個就知道了
if ( yw_bc_circuit_dlcode = yw_bc_circuit_dlcode [-1] and yw_bc_circuit_dlname = yw_bc_circuit_dlname [-1] and yw_bc_circuit_xtno = yw_bc_circuit_xtno [-1] ,0,1)
這個表達式就是比較當前行和上一行是否相同的。其他的依此類推就行了。
17.兩個結構相同的數據窗口之間快速複製數據
dw_1.object.data = dw_2.object.data
18.根據條件改變記錄顏色
if ( Mod(getrow(),2)=0,rgb(0,255,255),rgb(255,255,255)) //奇偶行不同色
if (currentRow()=getrow(),rgb(0,255,255),rgb(255,255,255)) //當前行不同色
19.使窗口總位於所有打開窗口的最上面
w_main.SetPosition(Topmost!)
20.取數據窗口中列的總數
string ls_count
ls_count = dw_1.describe("datawindow.column.count")
21.取數據窗口中可列新的表名。
string ls_table
ls_table = dw_1.describe("datawindow.updatetable.table")
22.取數據窗口對象中列的名稱及類型
string ls_cols[],ls_types[]
int li_count,i
li_count = integer(ls_count)
for i = 1 to li_count
ls_cols[i] = dw_1.describe("#"+string(i)+".name")
ls_types[i] = dw_1.describe("#"+string(i)+".coltype")
next
23.Case( dealintype WHEN 0 THEN RGB(254,251,235) WHEN 2 THEN rgb(254,251,235) ELSE RGB(0,0,255))
寫道字段的protect中不僅僅是顏色改變的問題看看
24.dw.Object.col[n] : 直接獲得數據窗口的col列第n 行的數據。
25.在做數據窗口時,我們有時候希望能夠多一些字段來作一些特殊的用處,但是在數據窗口中又不能亂加字段,因爲已有的字段必須是數據庫中有的或者是他們的組合,呵呵,大家不妨看看這個sql用產生什麼樣的數據窗口
select colname1,colname2,1,''
from tablename
是不是多出了兩個字段阿,一個是字符串字段,一個是數字字段
別忘了要convert syntax 哦
26.清空數組
string a[],b[]
a[1] = '1';a[1] = '2';a[1] = '3'
a = b//即可以清空a
27.只允許修改第n行的name列:
dw_1.modify("name.protect = '1 ~t if((getrow()=n),0,1)'")
28.讓run程序和主程序一起關閉:
function ulong findwindowA(...).."user32.dll"
function long setparent(..."user32.dll"
handle = findwindowA(nul,win_title)
setparent(handle,handle(w_main))
29.取得某一天以前或以後n天的函數RelativeDate(date, n)
例:
取得當天前10天的日期
RelativeDate(Today(),10)
取得當天后10天的日期
RelativeDate(Today(),-10)
30.不想做排序窗口?調用PB自身的好了。
string ls_null
SetNull(ls_null)
dw_1.SetSort(ls_null)
dw_1.Sort()
31.調用PB自身的過濾窗口:
dw_1.SetFilter(ls_null)
dw_1.Filter()
32.增量輸入定位代碼或名稱記錄位置:
定義一個窗口,放一個SLE_1,在它的MODIFY程序中寫:
long ll_find
string value0
value0=sle_1.text
if not (isnull(sle_1.text) or sle_1.text='') then
if left(sle_1.text,1)='0' or integer(sle_1.text)<>0 then //輸入的爲代碼
ll_find=jwl_dmxz.dw_1.find('dm like "'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//jwl_dmxz爲主窗口,dm爲查詢的字段名,這裏是代碼。
else //輸入的爲名稱
ll_find=jwl_dmxz.dw_1.find('mc like "'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//
end if
if ll_find>0 then
jwl_dmxz.dw_1.scrolltorow(ll_find)
//爲了避免首次目標記錄爲第一條,無法選中。
if ll_find=ll_find0 then
jwl_dmxz.dw_1.selectrow(ll_find,true)
elseif ll_find<>ll_find0 then
jwl_dmxz.dw_1.selectrow(ll_find,true)
jwl_dmxz.dw_1.selectrow(ll_find0,false)
ll_find0=ll_find
end if
end if
end if
33.然後在查詢窗口中的TIMER事件中寫:
timer(0.05)
sle_1.triggerevent(modified!)
34.判斷計算器是否存在:
string is_fileExists
boolean is_Exists
is_fileExists='c:\windows\calc.exe'
is_Exists=fileExists(is_fileExists)
if is_Exists then
run("c:\windows\calc.exe")
else
messagebox("提示信息","本機的WINDOWS沒有計算器!",stopsign!)
end if
35.得到硬盤序例號
String ls_Rootpath, ls_volumnename ,ls_return,softpath
GetCurrentDirectoryA(256,softpath)
softpath=left(softpath,2)
if softpath='C:' then
ls_Rootpath = 'D:' // 指定要得到序列號的硬盤,
// 一般情況都是C盤,除非你能保證用戶存在其它邏輯盤或物理盤
else
ls_Rootpath = 'C:'
end if
ls_volumnename = Space(256) // 分配足夠的空間,下同
Ulong lul_VolumeNameSize
lul_VolumeNameSize = 256
Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags
lul_MaximumComponentLength = 256
String ls_FileSystemNameBuffer
ls_FileSystemNameBuffer = space(256)
Ulong lul_FileSystemNameSize
lul_FileSystemNameSize = 256
int i
long ls_num,ls_gnum,ls_dnum
i=GetVolumeInformation(ls_Rootpath, ls_volumnename, lul_VolumeNameSize, lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags, ls_FileSystemNameBuffer, lul_FileSystemNameSize)
ls_return=string(lul_VolumeSerialNumber)
return ls_return
1.pb9應用xp風格
將PB9升級到7119後,編譯時有一個 New Visual Style Controls 選項,選中後,編譯出來的文件在XP下就可以應用XP風格了
2.Yield()函數的作用
Yield()是一個不常用到的PowerBuilder函數。可是,在一個大的循環過程中,如果用戶想在執行到一半時通過單擊按鈕或菜單來退出的話,就一定要用到Yield()函數了,否則程序只會在執行完成整個循環後纔會響應按鈕或菜單的Click事件。將Yield()函數放在循環體的中間。那麼在循環執行的過程中發現有新的事件消息在消息隊列中就回立即去響應。
Yield()
功能將控制權轉移給其它圖形對象,包括非PowerBuilder對象。該函數檢測消息隊列,如果有消息,就把消息取出。利用該函數可以在執行耗時較長的操作時把控制權轉讓給其它應用。
語法Yield()
返回值Boolean。如果在消息隊列中提取到了消息,那麼函數返回TRUE,否則返回FALSE。用法正常情況下,PowerBuilder應用程序在執行一段代碼(比如函數或事件處理程序)的過程中不響應用戶的操作。對耗時短暫的代碼段來說,這種處理方式沒有什麼不妥的地方,但是,如果某個代碼段的執行耗時較長,應用程序又希望爲用戶提供更多的控制權,那麼需要在這段代碼中插入Yield()函數,讓用戶能夠進行其它操作,特別在循環執行的代碼中更應該如此。應用程序執行Yield()函數後,如果發現消息隊列中存在消息,它將允許對象處理這些消息,處理之後,繼續Yield()函數後面代碼的執行。因此,代碼中插入Yield()函數將降低應用程序的運行效率。
3.sqlca.SQLCode 與update()
在利用Embedded SQL 的時候,每運行一次SQL指令就應該檢查一次交易對象中的屬性SQLCode,而不是等到
所有的SQL指令運行完畢後再去運行檢查交易對象中的SQLCode屬性.當我們使用數據窗口所提供的函數時,
要記住不要檢查SQLCode來判斷是否運行成功.而是要依照每一個函數運行後所返回的值來判斷是否運行
成功.
update tab_test set col1 = 'test'
if sqlca.sqlCode = -1 then
rollback using sqlca;
if sqlca.sqlCode = -1 then
messageBox('錯誤','連接失敗!')
end if
messageBox('錯誤','連接失敗!')
else
commit using sqlca;
end if
//確保數據保存的成功
if dw_1.update() = -1 then
RollBack Using SQLCA;
MessageBox("警告!","數據保存失敗!")
else
Commit Using SQLCA;
End if
4.讀取網頁內容:
sle_1.text=ole_1.object.Document.body.outertext
ole_1.object.Document.body.scroll="no"
mle_1.text=ole_1.object.document.body.outerhtml
5. tab_1.createondemand 在需要時創建:
tab_1.createondemand:在需要時創建。提高在open事件時的效率,tab_1的某一tabpage裏的內容在open時不創建,僅當選擇該頁時或selecttab才創建,不過,在未創建時,不能對其中的控件及屬性引用。
6.如何在程序中對BLOB數據庫進行寫入
和後臺數據庫有關:以SQLANYWAY爲例:
一般用 UPDATEBLOB 和 SELECTBLOB 兩個SQL語句來實現。
建一個表TABLE1,一個字段是ID,另一個是BLOB,
SELECTBLOB BLOB FROM TABLE1 WHERE ID='xx';
UPDATEBLOB SET BLOB = :BLB_X FROM TABLE1 WHERE ID='yy';
刪除時刪除ID爲'mm'的記錄即可,新增是先插入一條ID爲'mm'的記錄,然後 用UPDATEBLOB將數據寫入
表內。 其他的數據庫可參照手冊進行,其命令與上述差別不大!
7.API、系統消息及其它dll調用
1.控件可拖動:
send(handle(this),274,61458,0)
2.如何屏蔽鼠標滾輪觸發
在控件的other事件寫
if message.number = 522 then return 1
3.隱藏任務欄的方法,
在OnCreate事件裏利用Window API函數SetWindowLong:SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
PB使用時首先聲明函數FUNCTION long SetWindowLong(ulong hWnd, integer nIndex, ulong dwNewLong) library "user32.dll" ALIAS FOR "SetWindowLongA",
然後調用:SetWindowLong(Handle(this),-20,128);
4.在PB中調用屏幕保護的方法:
send(handle(This),274,61760,0)
5.得到一個應用程序如Outlook的路徑
RegistryGet("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionApp PathsMSIMN.EXE", &
"Path",ls_outlook_path)
//Outlook的路徑將保存在string型變量ls_outlook_path中。
6.得到程序運行時的路徑
//在global external functions聲明:
Function uLong GetModuleFileNameA(long hinstModule, Ref String lpszPath, uLong cchPath) Library ″kernel32.dll″
//程序路徑保存在變量ls_AppPath中
string ls_AppPath
int li_ret
ls_AppPath = Space(128)
li_ret = GetModuleFileNameA(Handle(GetApplication()),ls_apppath,128)
//要編譯成可執行文件.exe纔可用,否則得到的是Powerbuilder的pb60.exe或PB050.exe的路徑。
7.屏蔽窗口的ALT+F4鍵
//方法一:
1.在窗口的systemkey事件中增加以下代碼:
IF KeyDown(KeyF4!) THEN
Message.Processed = TRUE
END IF
2.在窗口的closequery事件中增加如下代碼:
Long ll_ret
IF KeyDown(keyF4!) THEN
ll_ret = 1
END IF
return ll_ret
//方法二:
建一實例變量,在你的關閉程序上賦一個True然後在closequery中判斷該值, 如爲False則Return 1
8.當程序中用到了動態加入的對象,如BMP資源文件、數據窗口對象,PB編譯時是掃描不到的,解決方法:
1.將此對象寫入到資源文件中:
用記事本創建資源文件dw_object.pbr,寫入:c:myprogram.pbl(dw_sj)
編譯時將此文件選入Resource File Name處。
2.將應用編譯成PBD、DLL文件。
9.如何在PB中實現延時:
subroutine Sleep(long dwMilliseconds) library "kernel32.dll"
延時1秒則調用: Sleep(1000) //單位是毫秒。
10.調用API函數步驟:
1、在適當的位置聲明函數,如窗口內,Application內,UserObject內,
定義在Local External Function或Global External Function中,如播放聲音的:
Function boolean sndPlaySoundA(string SoundName, uint Flags) Library "WINMM.DLL"
Function uint waveOutGetNumDevs() Library "WINMM.DLL"
也可以創建一個UserObject,集中聲明常用的API及函數本地化,如定義用戶對象 u_external_function:
Declare Local External Function(定義外部函數):
Function boolean sndPlaySoundA(string SoundName, uint Flags) Library "WINMM.DLL"
Function uint waveOutGetNumDevs() Library "WINMM.DLL"
Declare User Object Function(定義用戶對象函數):
uf_play_sound(string as_wave_name, integer ai_option)
函數內容如下:
//參數:as_wave_name :wav文件名 ai_option :同步或異步(1/0)
uint lui_numdevs
lui_numdevs = WaveOutGetNumDevs()
If lui_numdevs > 0 Then
sndPlaySoundA(as_wave_name,ai_option)
return 1
Else
return -1
End If
2、調用時在程序中定義一個實體並調用其函數:
u_external_function iu_external_function
iu_external_function = create u_external_function
iu_external_function.uf_play_sound('c:windowsmediading.wav',1)
試試看,如果有聲卡,就會聽到"叮”的一聲。其它API函數也是如此處理。
11.顯示一個與Windows操作系統風格一致的About對話框。
首先聲明如下外部函數:
function int ShellAboutA(ulong al_hWnd, string as_szApp, string as_szOtherStuff, ulong hIcon) library "shell32"
ShellAboutA(handle(parent),"關於... ","歡迎",0)
12.send用法:Send(handle,message#,lowword,long)
數據窗口中按enter鍵實現tab功能(在數據窗口的Enter事件中)
自定義事件ID:pbm_dwnprocessenter裏寫如下代碼:
Send(Handle(This),256,9,Long(0,0))
說明:This代表DW;Handle代表DW的句柄;256代表TAB鍵;9代表不加入shift鍵,7代表加入;Long(0,0)代表預留空位.
send(handle(this),256,9,long(0,0))
return 1
//This statement scrolls the window w_emp up one page:
Send(Handle(w_emp), 277, 2, 0)
//Both of the following statements click the CommandButton cb_OK:
Send(Handle(Parent), 273, 0, Handle(cb_OK))
cb_OK.TriggerEvent(Clicked!)
//minimizes the DataWindow:
Send(Handle(dw_1), 274, 61472, 0)
//maximizes the DataWindow:
Send(Handle(dw_1), 274, 61488, 0)
//returns the DataWindow to its normal, defined size:
Send(Handle(dw_1), 274, 61728, 0)
13.如何使PB窗口總在最上層(Always On Top)
通過SetWindowPos函數把窗口的顯示層次修改爲HWND—TOPMOST,就可使指定窗口永遠不會被其它窗口覆
蓋,該函數聲明爲:
Function Long SetWindowPos(Long hwnd,Long ord,Long x,Long y,Long dx,Long dy,Long uflag) Library ″user32″
參數1爲要頂層顯示的窗口句柄,參數2指定顯示的層次,參數7爲附加選項,其餘參數指定窗口位置和
大小,均可忽略。在窗口的Open或Activate事件中加入如下函數調用:
SetWindowPos(Handle(This),-1,0,0,0,0,3)
參數2取-1表示在最頂層顯示窗口,取1表示在最底層顯示;最後一個參數若取1,表示窗口大小保持不
變,取2表示保持位置不變,因此,取3(=1+2)表示大小和位置均保持不變,取0表示將窗口的大小和
位置改變爲指定值。
14.在PB中如何獲得光盤盤符
通過GetDriveType函數可以獲取驅動器(如:軟驅、硬盤、光驅、網絡映射驅動器等)的信息,該函數
聲明爲:
Function Uint GetDriveTypeA(String drive) Library ″kernel32.dll″
參數爲一個盤符(如"C:"),返回值:1表示未知,2表示軟驅,3表示本地硬盤,4表示網絡驅動器,
5表示光驅。因此如下代碼可以獲得光盤的盤符:
For i=Asc(′D′) to Asc(′Z′)
//列舉所有可能的CDROM驅動器
If GetDriveTypeA(Char(i)+″:″)=5 Then
//若找到CDROM
MessageBox(″CDROM″,Char(i)+″:″)
//顯示光盤盤符
Exit //退出列舉
End If
Next
15.在PB中如何獲取目錄信息
⑴獲取當前目錄。通過GetCurrentDirectory函數可以獲取當前目錄,該函數聲明爲:
Function Ulong GetCurrentDirectoryA(Ulong buflen, ref String dir) Library ″kernel32.dll″
參數2爲接收當前目錄的字符緩衝區,前面必須加ref表示地址引用;參數1用來指定字符緩衝區的長度。
調用過程爲:
String curdir
curdir=Space(256)
//爲字符緩衝區開闢內存空間
GetCurrentDirectoryA(256,curdir)
MessageBox(″Current Directory″,curdir)
⑵獲取Windows及系統目錄。要用到GetWindowsDirectory和GetSystemDirectory兩個函數,須作如下聲明:
Function Uint GetWindowsDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″
Function Uint GetSystemDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″
16.在PB中如何註銷當前用戶、關閉計算機、重啓計算機
通過ExitWindowsEx函數可實現這三個功能,首先作如下聲明:
Function Long ExitWindowsEx(Long uflag,Long nouse) Library ″user32.dll″
參數2保留不用,可取0;參數1取0可以註銷當前用戶,取1可以關閉計算機,取2可以重啓計算機,其值
再加4表示強制結束"未響應"的進程。
17.控制由Run運行的程序(簡稱Run程序)
在PB程序設計中,可以用Run()來運行一些程序。比如用戶按了F1,就運行一個chm文件。但Run程序無法
與PB主程序協調工作,若用戶按了多次F1,就會啓動Run程序的多個實例,主程序退出時,Run程序依然
運行。可以用如下函數來使它們協調工作:
Function Ulong FindWindowA(Ulong classname, String windowname) Library ″user32.dll″
Function Long SetParent(Long childwin,Long parentwin) Library ″user32.dll″
⑴使Run程序只運行一個實例
handle=FindWindowA(nul,wtitle)
//查找Run程序是否已經運行,wtitle爲Run程序的標題
IF handle〉0 Then Return
//若已經在運行就返回
Run(″C:Program FilesJointJoint.chm″)
//否則運行Run程序
⑵PB主程序退出時,Run程序也關閉
handle=FindWindowA(nul,wtitle)
SetParent(handle,Handle(w—main))
//使Run程序窗口成爲PB主程序的子窗口
18.映射網絡驅動器
若要在程序中把遠程主機的資源映射到本地驅動器,可以用如下函數:
Function long WNetAddConnectionA(String path,string pwd,String drv) Library ″mpr.dll″
19.在PB中如何打開一個文件(如.txt,.doc),就像在資源管理器中雙擊打開文件一樣?
答:可以通過API函數來實現。
在應用程序的Global External Functions中定義:
Function long ShellExecuteA(ulong hwnd, string lpOperation, string lpFile, & string
lpParameters, string lpDirectory, long nShowCmd) library "shell32.dll”
調用如下:
String ls_null
SetNull(ls_null)
ShellExecuteA(Handle(Parent), ls_null, "c:dochello.txt”, ls_null, ls_null, 1)
20.PB中實現淡入淡出效果
聲明API:
function Boolean AnimateWindow( ulong hwnd, long dwTime, long dwFlags) library 'user32.dll'
窗口 open事件:
////---------------------------------------------------------------
long ll_handle
ll_handle = Handle ( this )
AnimateWindow ( ll_handle , 1000, 524288+16)//淡進
//////-------------------------------- ------------------------
窗口close事件
AnimateWindow ( Handle ( This ) , 300, 524288+ 65536 + 16)//淡隱
21.SendMessage API函數在PowerBuilder中應用
一、引言
在Powerbulider巧妙地調用API函數SendMessage,可以完成Pb中的一些用常規的方法而很難實
現的功能,特將對該api函數在Powerbuilder中的使用,例舉幾個方面的運用,以期起到拋磚引玉的效果(以下代碼完全可以使用PowerBuilder中的Send函數替代SendMessage 這個Api函數,因起稿比較匆忙,代碼未經測試)
二、函數說明
SendMessage函數說明:
說明
調用一個窗口的窗口函數,將一條消息發給那個窗口。除非消息處理完畢,否則該函數不會返回。SendMessageBynum, SendMessageByString是該函數的"類型安全"聲明形式
返回值
Long,由具體的消息決定
參數表
參數 類型及說明
hwnd Long,要接收消息的那個窗口的句柄
wMsg Long,消息的標識符
wParam Long,具體取決於消息
lParam Any,具體取決於消息
Powerbuilder中已使用函數Send函數對其進行了封裝
函數原形:Send ( handle, message#, lowword, long )
Send函數說明:
說明
調用一個窗口的窗口函數,將一條消息發給那個窗口。除非消息處理完畢,否則該函數不會返回。
返回值
Long,由具體的消息決定
參數表
參數 類型及說明
handle Long,要接收消息的那個窗口的句柄
message# Long,消息的標識符
lowword Long,具體取決於消息
long long,具體取決於消息
3、 應用舉例
定義外部函數引用聲明:
funcation long SendMessage (long hwnd As Long,long wMsg , long wParam,long lParam) Library "user32.dll" Alias for "SendMessageA"
funcation long ReleaseCapture() Library "user32.dll"
定義實例變量:
Constant long LB_ITEMFROMPOINT = 425
Constant long HTCAPTION = 2
Constant long WM_NCLBUTTONDOWN = 161
Constant long EM_GETLINE = 404
Constant long EM_GETLINECOUNT = 399
Constant long EM_GETLINECOUNT = 186
Constant long EM_GETLINE = 196
Constant long TVM_SETITEMHEIGHT = 4379
Constant long EM_LINESCROLL = 182
Constant long EM_LIMITTEXT=197
1、列表框中鼠標移動時檢測位置項
Powerscript:
在列表框的自定義事件ue_mousemove(pbm_mousemove)中寫入如下代碼:
pos = unitstopixels(parent.pointerx(),XUnitsToPixels!)+ unitstopixels(parent.pointery(),yUnitsToPixels!) * 65536
idx = SendMessage(handle(this), LB_ITEMFROMPOINT, 0, pos) If idx < 65536 Then sle_1.Text = lb_1.text(idx)
2、在列表框中查找匹配的項目
Powerscript:
窗口的open事件:
lb_1.AddItem ("軟件")
lb_1.AddItem("電腦遊戲")
lb_1.AddItem("電視機")
lb_1.AddItem("電視臺")
lb_1.AddItem("電腦")
lb_1.AddItem("電腦遊戲軟件")
singlelineedit控件的modified事件:
long li_index
li_index= SendMessage(handle(this), EM_GETLINECOUNT, -1, sle_1.text)
lb_1.selectitem(li_index)
3、爲ListBox添加水平滾動條
Powerscript:
窗口的open事件:
lb_1.AddItem("軟件")
lb_1.AddItem("電腦遊戲")
lb_1.AddItem("電視機")
lb_1.AddItem("電視臺")
lb_1.AddItem("電腦")
lb_1.AddItem("電腦遊戲軟件")
SendMessage (handle(this), EM_GETLINE, 250, 0)
4、實現拖動無標題欄窗體
Powerscript:
在窗口的自定義事件ue_lbuttondown(pbm_lbuttondown)
long ReturnVal
x = ReleaseCapture()
ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
5、獲取多行文本框行數
Powerscript:
Commandbutton的clicked事件
Messagebox("", SendMessage(handle(mle_1), EM_GETLINECOUNT, 0, 0))
6、設置樹型列表控件標題行高度
Powerscript:
tv_1的constructor事件:
SendMessage(handle(tv_1), TVM_SETITEMHEIGHT, 60, 0)
7、突破Powerbuilder中的多行文本框32k的限制
Powerscript:
SendMessage(handle(mle_1), EM_LIMITTEXT, 65534, 0)
8、用程序代碼控制文本框的滾行與滾列
Powerscript:
SendMessage(handle(sle_1), EM_LINESCROLL, 0, 1)//下卷一行
SendMessage(handle(sle_1), EM_LINESCROLL, 0, -1)//上卷一行
SendMessage(handle(sle_1), EM_LINESCROLL, 1, 0)//右卷一列
SendMessage(handle(sle_1), EM_LINESCROLL, -1, 0)//左卷一列
三、結束語
在編寫Powerbuilder應用時,應該充分調用相關的api函數來擴充pb的一些不足。
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.