pb学习心得.docVIP

tangxin991的博客 PB编程实例点滴(4)- -| 回首页 | 2005年索引 | - -PB编程实例点滴(6) 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 static text??foreground color change to red. When the mouse quit the static text, the foreground 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 （43）查询临时目录变量 如果在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都没有定义，则返回当前目录。 （44）列出可以使用的ODBC数据源 定义如下的外部函数 FUNCTION integer SQLAllocEnv(ref long henv) LIBRARY