代码问题

a1041946110

空间 线程操作
整型 线程句柄
逻辑型 是否暂停

//线程执行方法
功能 整型 线程方法() //这里接收线程开启时传入的参数
//循环(真)      
    //辅助.消息框("这个是一个线程执行方法 ")
    //辅助.等待(100)
//循环结束
字符型 返回值=系统.枚举("Edit",1)//类名枚举
字符型[] 字符句柄集=字符型[1] //需要先初始化一次
逻辑型 是否成功=字符串.分割(返回值,"|",字符句柄集)
整型 c1  , i = 0
数组.大小(字符句柄集,c1)
循环(i<c1)
线程操作.向窗口发送内容(字符句柄集[1])
  i = i + 1
循环结束   
返回 0
功能结束
功能 整型 向窗口发送内容(字符型 字符句柄)
    字符型 返回值=系统.枚举("l字符句柄",3) //父窗口枚举子窗口
    字符型[] 字符句柄集=字符型[1]//需要先初始化一次
逻辑型 是否成功=字符串.分割(返回值,"|",字符句柄集)
整型 c1,i=0,句柄
数组.大小(字符句柄集,c1)
循环(i<c1)
如果(窗口.类名(转换.字符型转整型(字符句柄集[1],0))=="Edit")
句柄=转换.字符型转整型(字符句柄集[1])
跳出
如果结束
i = i + 1
循环结束  
  窗口.提交按键(句柄,13)
窗口.提交字符串(句柄,"你好。。"+转换.整型转字符型(句柄))
窗口.提交按键(句柄,13)
返回 0
功能结束
功能 逻辑型 开始_点击()
    //这里添加你要执行的代码
线程句柄=线程.开启("线程操作.线程方法","")//k开启线程
返回 真
//函数返回语句
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
辅助.退出()
返回 真
//函数返回语句
功能结束


功能 逻辑型 按钮0_点击()
//这里添加你要执行的代码
//实现暂停与恢复的功能方法
如果(!是否暂停)
    线程.暂停(线程句柄)
    是否暂停=真
否则
    线程.恢复(线程句柄)
    是否暂停=假
如果结束
返回 真
功能结束
功能 逻辑型 按钮1_点击()
//这里添加你要执行的代码
线程.关闭(线程句柄)
返回 真
功能结束

空间结束
//空间结束语句
//运行的时候出现了数组调用超过界限，要改那个参数才不会越界啊

cylhb

先下断点,然后调试运行,单步执行,看可能到哪一步出错,注意观察参数的值变化.

尛情哥

你是开一个记事本的时候才提示越界?  开2个以上记事本就不提示越界吧  
字符句柄集[1]改成i定义的时候那里不用改

a1041946110

回复 3楼尛情哥的帖子

开几个都是提示越界的

尛情哥

回复 4楼a1041946110的帖子

刚才没仔细看  ,把你代码测试了下
统.枚举("Edit",1)这个不是记事本的类名   要改成Notepad
  字符型 返回值=系统.枚举("l字符句柄",3) //父窗口枚举子窗口  还有这里  改成这个字符句柄 外面不需要加引号

a1041946110

还是不行，那个("字符句柄",3)引号去掉就找不到句柄了

尛情哥

你是开一个记事本的时候才提示越界?  开2个以上记事本就不提示越界吧  
字符句柄集[1]改成i定义的时候那里不用改
尛情哥 发表于 2012-12-29 19:28:40

把这个也改掉....

尛情哥

回复 6楼a1041946110的帖子

把1改成  i  我前面就说了不然 枚举不出来 edit  这个类名的窗口句柄