pb学习心得分析和总结.docx

PB 编程实例点滴(4)- -| 回首页 | 2005 年索引 | - -PB 编程实例点滴(6) PB PB 编程实例点滴(5)- - （41）把键盘中断送给控件 [Function declaration] SUBROUTINE keybd_event( int bVk, int bScan, int dwFlags, int dwExtraInfo) LIBRARY \user32.dll\ [powerscript] li_vkey = 65 // the character \A\ sle_1.setfocus() // the target control keybd_event( li_vkey, 1, 0, 0 ) 下面代码把BACKSPACE 送给SingleLineEdit 控件，并删除了上一个字符。[powerscript] integer li_vkey integer ll_pos ll_pos = len(sle_1.Text) + 1 sle_1.selectText(ll_pos,0) // set the cursor at the end li_vkey = asc(\~b\) // backspace keybd_event( li_vkey, 1, 0, 0 ) （42）在一个控件使用“MOUSE-OVER” 在本例中，使用一个静态文本控件。当鼠标移在文本控件上时，控件的前景色为红色； 当鼠 标离开时，控件的前景色为黑色。 Suppose you have a static text on a Window. When the mouse is over it, the s tatic text foreground color change to red. When the mouse quit the static text, the for eground color is black. [window mousemove event] // just to display something st_1.text = string(xpos) + \, \ + string(ypos) IF xpos = st_1.X AND (xpos = st_1.x + st_1.Width) AND ypos = st_1.y AND (ypos = st_1.y + st_1.Height) THEN st_1.textcolor = 255 ELSE st_1.textcolor = 0 END IF 查询临时目录变量 如果在PB6 以上，调用环境变量TEMP 的值。ContextKeyword lcxk_base string ls_temp[] this.GetContextService(\Keyword\, lcxk_base) lcxk_base.getContextKeywords(\TEMP\, ls_temp) RETURN ls_temp[1] 否则，可以使用API 函数[External function declaration] FUNCTION ulong GetTempPath(ulong nBufferLength, ref string lpBuffer) LIBRARY \kernel32\ ALIAS FOR GetTempPathA [powerscript] long ll_bufferlength = 256 string ls_tempDir ls_tempDir = SPACE(ll_bufferLength) IF GetTempPath(ll_bufferLength, ls_tempDir) = 0 THEN MessageBox(\Temp dir\, \not defined\) ELSE MessageBox(\Temp dir\, ls_tempDir) END IF 关于 GetTempPath 函数，在获得临时目录时按照以下的规则： 1、 如果定义了TMP 变量，则返回TMP。 2、 如果没有定义TMP 变量，而定义了TEMP 变量，返回TEMP。 3、 如果TMP 和 TEMP 都没有定义，则返回当前目录。 列出可以使用的ODBC 数据源定义如下的外部函数 FUNCTION integer SQLAllocEnv(ref long henv) LIBRARY \odbc32.dll\ FUNCTION integer SQLFreeEnv(long henv) LIBRARY \odbc32.dll\ FUNCTION integer SQLDataSources (long henv, integer idi