line 23 in open event of object *** 代碼如下(紅色):
if sqlca.sqlcode <> 0 then
beep(1)
messagebox("連接錯誤","無法連接資料庫~r~n~r~n錯誤資訊:"+sqlca.sqlerrtext)
halt close
else
open(w_login)
open(w_main)
luo_toolbarfont.of_settoolbarfont( w_main, "宋體", -10, "123456")//設定工具列字體
end if
---------------------------------------------
其中用戶物件的自定義函式of_settoolbarfont(window aw_frame,string as_fontname,integer ai_fontsize,string as extent return none)代碼如下:
long ll_hwndtoolbar,ll_unknown
ll_hwndtoolbar = of_gettoolbarhandle(aw_frame)
if ll_hwndtoolbar > 0 then
ll_unknown = getwindowlonga(ll_hwndtoolbar,0)
fn_toolbarsetfont(ll_unknown,as_fontname,ai_fontsize,0,as_extent)
end if
----------------------------------------------
其中fn_toolbarsetfont為區域外部函式:
function long fn_toolbarsetfont(long unknow,string fontname,long fontsize,long unknow1,string str) library "pbvm90.dll"
----------------------------------------------
兄弟我摳破了腦袋,運行程式時還是報這個錯誤。咋回事呢?
uj5u.com熱心網友回復:
luo_toolbarfont.of_settoolbarfont( w_main, "宋體", -10, "123456")//設定工具列字體這句無非2個物件,luo_toolbarfont和w_main,估計是其中一個損壞,請仔細檢查!!!
uj5u.com熱心網友回復:
luo_toolbarfont是否有實體化?uj5u.com熱心網友回復:
luo_toolbarfont,宣告一下吧轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/60708.html
標籤:腳本語言
