关于ocx控件

hongyou2003 2003-10-17 02:57:27

我每次插入外部ocx控件pb8.0就执行了非法操作，强制退出？

...全文

56 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

mittee 2003-11-06

打赏
举报

to mrduming(蓝山咖啡) ，你的外部控件注册了吗？
to hongyou2003 (白玫瑰) ，我这里又一个函数从网上载的，你参考一下
//////////////////////////////////////////////////////////////////////////
// 函数名称: f_chnpy //
// 目的用途: 获得一段纯汉字的拼音码；
// （原理是利用操作系统对汉字按照拼音首位进行排序的规则） //
// 作用范围: PUBLIC
// 输入参数: string as_text 指定要获取拼音码的纯汉字字符串
// integer ai_lenth 所返回拼音码的最大长度
// 返回参数: string 返回汉字的拼音码 //
// //////////////////////////////////////////////////////////////////

//as_text :输入的汉字 ai_lenth:截取汉字的个数

string ls_hz[] , ls_py[] , ls_pym , ls_char , ls_char2
int i, li_py , li_len

ls_hz[1] = "吖"
ls_hz[2] = "八"
ls_hz[3] = "擦"
ls_hz[4] = "达"
ls_hz[5] = "屙"
ls_hz[6] = "发"
ls_hz[7] = "旮"
ls_hz[8] = "哈"
ls_hz[9] = "讥"
ls_hz[10] = "咔"
ls_hz[11] = "垃"
ls_hz[12] = "呣"
ls_hz[13] = "拿"
ls_hz[14] = "噢"
ls_hz[15] = "趴"
ls_hz[16] = "七"
ls_hz[17] = "然"
ls_hz[18] = "仨"
ls_hz[19] = "他"
ls_hz[20] = "哇"
ls_hz[21] = "夕"
ls_hz[22] = "丫"
ls_hz[23] = "匝"
ls_py[1] = "A"
ls_py[2] = "B"
ls_py[3] = "C"
ls_py[4] = "D"
ls_py[5] = "E"
ls_py[6] = "F"
ls_py[7] = "G"
ls_py[8] = "H"
ls_py[9] = "J"
ls_py[10] = "K"
ls_py[11] = "L"
ls_py[12] = "M"
ls_py[13] = "N"
ls_py[14] = "O"
ls_py[15] = "P"
ls_py[16] = "Q"
ls_py[17] = "R"
ls_py[18] = "S"
ls_py[19] = "T"
ls_py[20] = "W"
ls_py[21] = "X"
ls_py[22] = "Y"
ls_py[23] = "Z"

//查找每个汉字在哪两个界限以内，由此确定其拼音码
li_len = len(as_text)
for i = 1 to li_len
If Asc(mid(as_text , i , 1))<128 then
ls_pym = ls_pym+mid(as_text , i , 1)
else
ls_char = mid(as_text , i , 2)
choose case ls_char
case "属"
ls_pym = ls_pym + "S"
case "重"
if mid(as_text , i + 2 , 2) = "庆" then
ls_pym = ls_pym + "C"
else
ls_pym = ls_pym + "Z"
end if
case "藏"
if mid(as_text , i - 2 , 2) = "西" or mid(as_text , i + 2 , 2) = "族" then
ls_pym = ls_pym + "Z"
else
ls_pym = ls_pym + "C"
end if
case "秘"
if mid(as_text , i + 2 , 2) = "鲁" then
ls_pym = ls_pym + "B"
else
ls_pym = ls_pym + "M"
end if
case else
if ls_char < "吖" or ls_char > "做" then
ls_pym = ls_pym + mid(as_text , i, 2)
i ++
continue
end if
li_py = 23
do while ls_hz[li_py] > ls_char
li_py --
loop
ls_pym = ls_pym + ls_py[li_py]
end choose
i ++
end if
next

return left(ls_pym,ai_lenth)