电话控件 - 精易论坛 - Powered by Discuz!

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

变量名	类型	静态	数组	备注
线路编号	整数型

电话控制1.初始化 ()

计次循环首 (电话控制1.线路总数, 线路编号)

电话控制1.线路号＝线路编号

列表框1.加入项目 (电话控制1.线路名称, )

计次循环尾 ()
' 电话控制1.线路类型＝ #线路类型.电话

子程序名	返回值类型	公开	备注
_按钮2_被单击

如果真 (编辑框2.内容＝ “”)

信息框 (“请输入：电话号码，IP，主机名”, 0, , )

编辑框2.获取焦点 ()

返回 ()

如果 (电话控制1.呼叫 (编辑框2.内容, 60) ＝假)

信息框 (电话控制1.错误信息, #确认钮＋ #错误图标, “原因”, )

标签4.标题＝ “状态：正在呼叫”

子程序名	返回值类型	公开	备注
_按钮1_被单击

电话控制1.断开 ()
编辑框2.内容＝ “已挂断--没有电话”

子程序名	返回值类型	公开	备注
_电话控制1_接通

_启动窗口.标题＝ “电话控件-电话已经接通”
标签4.标题＝ “状态：电话已经接通”

子程序名	返回值类型	公开	备注
_电话控制1_来电显示
参数名	类型	参考	可空	数组	备注
来电号码	文本型

编辑框2.内容＝来电号码

子程序名	返回值类型	公开	备注
_电话控制1_振铃
参数名	类型	参考	可空	数组	备注
次数	整数型

编辑框2.内容＝ “有电话呼叫！呼叫次数：” ＋到文本 (次数)

子程序名	返回值类型	公开	备注
_按钮3_被单击

电话控制1.应答 ()

子程序名	返回值类型	公开	备注
_电话控制1_断开

_启动窗口.标题＝ “电话控件--已断开”

子程序名	返回值类型	公开	备注
_单选框1_被单击

电话控制1.线路类型＝ #线路类型 .电话

子程序名	返回值类型	公开	备注
_单选框2_被单击

电话控制1.线路类型＝ #线路类型 .主机

子程序名	返回值类型	公开	备注
_单选框3_被单击

电话控制1.线路类型＝ #线路类型 .IP

子程序名	返回值类型	公开	备注
__启动窗口_将被销毁

电话控制1.清除 ()

子程序名	返回值类型	公开	备注
__启动窗口_可否被关闭	逻辑型

如果 (信息框 (“确定要关闭吗？” ＋ #换行符＋ “后果自负哦!”, 1 ＋ 32 ＋ 256, , ) ＝ 0)

返回 (真)

返回 (假)

i支持库列表	支持库注释
PhoneCortrol	电话语音支持库

.版本 2<br />
.支持库 PhoneCortrol<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 线路编号, 整数型<br />
<br />
电话控制1.初始化 ()<br />
.计次循环首 (电话控制1.线路总数, 线路编号)<br />
    电话控制1.线路号 ＝ 线路编号<br />
    列表框1.加入项目 (电话控制1.线路名称, )<br />
<br />
.计次循环尾 ()<br />
' 电话控制1.线路类型 ＝ #线路类型.电话<br />
<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
.如果真 (编辑框2.内容 ＝ “”)<br />
    信息框 (“请输入：电话号码，IP，主机名”, 0, , )<br />
    编辑框2.获取焦点 ()<br />
    返回 ()<br />
<br />
.如果真结束<br />
.如果 (电话控制1.呼叫 (编辑框2.内容, 60) ＝ 假)<br />
    信息框 (电话控制1.错误信息, #确认钮 ＋ #错误图标, “原因”, )<br />
<br />
.否则<br />
    标签4.标题 ＝ “状态：正在呼叫”<br />
<br />
.如果结束<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
电话控制1.断开 ()<br />
编辑框2.内容 ＝ “已挂断--没有电话”<br />
<br />
<br />
.子程序 _电话控制1_接通<br />
<br />
_启动窗口.标题 ＝ “电话控件-电话已经接通”<br />
标签4.标题 ＝ “状态：电话已经接通”<br />
<br />
<br />
.子程序 _电话控制1_来电显示<br />
.参数 来电号码, 文本型<br />
<br />
编辑框2.内容 ＝ 来电号码<br />
<br />
.子程序 _电话控制1_振铃<br />
.参数 次数, 整数型<br />
<br />
编辑框2.内容 ＝ “有电话呼叫！呼叫次数：” ＋ 到文本 (次数)<br />
<br />
<br />
.子程序 _按钮3_被单击<br />
<br />
电话控制1.应答 ()<br />
<br />
<br />
.子程序 _电话控制1_断开<br />
<br />
_启动窗口.标题 ＝ “电话控件--已断开”<br />
<br />
<br />
.子程序 _单选框1_被单击<br />
<br />
电话控制1.线路类型 ＝ #线路类型.电话<br />
<br />
<br />
.子程序 _单选框2_被单击<br />
<br />
电话控制1.线路类型 ＝ #线路类型.主机<br />
<br />
<br />
.子程序 _单选框3_被单击<br />
<br />
电话控制1.线路类型 ＝ #线路类型.IP<br />
<br />
<br />
.子程序 __启动窗口_将被销毁<br />
<br />
电话控制1.清除 ()<br />
<br />
<br />
.子程序 __启动窗口_可否被关闭, 逻辑型<br />
<br />
<br />
.如果 (信息框 (“确定要关闭吗？” ＋ #换行符 ＋ “后果自负哦!”, 1 ＋ 32 ＋ 256, , ) ＝ 0)<br />
    返回 (真)<br />
.否则<br />
    返回 (假)<br />
<br />
.如果结束