<火山程序 类型 = "通常" 版本 = 1 />
包 火山.程序
类 启动类 <公开 基础类 = 窗口程序类>
{
变量 主窗口对象 <类型 = 主窗口>
方法 启动方法 <公开 类型 = 整数>
{
主窗口对象.创建主窗口 ()
返回 (1)
}
方法 主窗口_首次激活 <接收事件 类型 = 整数 注释 = "当窗口创建完毕后被首次激活显示时发送此事件,在接收到此事件后用户可以开始在窗口内的画板组件上写出内容.">
参数 来源对象 <类型 = 主窗口 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
如果 (来源对象 == 主窗口对象)
{
主窗口对象.表格1.置数据 (1, 1, 1, "1\r\n2\r\n3")
主窗口对象.表格1.置行高 (1, 100)
主窗口对象.表格1.置自动换行 (1, 1, 1, 1, 真)
}
返回 (0)
}
}
# ===
类 主窗口 <基础类 = 窗口 注释 = "样例主窗口" @视窗.布局 = "client_size = \"453, 378\"" 标题 = "应用程序" Esc键关闭 = 假 窗口边框 = 普通可调边框
最大化按钮 = 真 最小化按钮 = 真 控制按钮 = 真 位置 = 通常 可否移动 = 真 外形 = 矩形 底色 = 0xFF000000 禁止系统主题 = 假>
{
变量 超级列表框1 <公开 类型 = 超级列表框 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"4, 6, 160, 160\"" "类型" = 报表列表框
报表列 = "0\n-1\n0\n50\n # \n0\n-1\n0\n50\n列1\n0\n-1\n0\n50\n列2" 字体 = "微软雅黑, 9, 0, 0, 0, 0, 0">
变量 表格1 <公开 类型 = 表格 隐藏值属性 = "0" @视窗.布局 = "id = 102\r\npos = \"4, 172, 307, 166\"">
}