以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  像EXCEL一样单元格输入方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76336)

--  作者:ljh29206
--  发布时间:2015/10/27 10:08:00
--  像EXCEL一样单元格输入方法

excel

 录入的时候 ,你录入一个字符  单元格 翻查记忆,后边的字符会涂黑,  这个在foxtable 里面怎么做

 

请教下


--  作者:大红袍
--  发布时间:2015/10/27 11:15:00
--  

mark 翻查记录

 

只是做个效果,红色代码自己灵活变通,弄成字典先查询也可以

 

ChangeEdit事件

 

If e.Col.name = "第一列" Then
    vars("text") = e.text
    MyTimers("计划1").Interval = 500
    MyTimers("计划1").Enabled = True
End If

 

计划管理 计划1

 

MyTimers("计划1").Enabled = False
Dim str As String = "我们是中国人"
Dim text As String = vars("text")
If text > "" AndAlso str.StartsWith(text) Then

    systemready = False
    str = str.Replace(text, "")
    Sendkeys.SendWait(str)
    For i As Integer = 1 To str.Length
        Sendkeys.SendWait("{LEFT}")
    Next
    Sendkeys.Send("+{END}")
    systemready = True
End If


--  作者:ljh29206
--  发布时间:2015/10/27 15:40:00
--  

老师问下  这个顺序问题

 

 

MyTimers("计划1").Enabled = False
Dim str As String = "我们是中国人"
Dim text As String = vars("text")
If text > "" AndAlso str.StartsWith(text) Then

    systemready = False
    str = str.Replace(text, "")
    Sendkeys.SendWait(str)
    For i As Integer = 1 To str.Length
        Sendkeys.SendWait("{LEFT}")
    Next
    Sendkeys.Send("+{END}")
    systemready = True
End If

 

计划任务里面 第一条执行的语句是

MyTimers("计划1").Enabled = False

就算开了 应该也会马上关,

 

为什么 可以执行下边的内容,有点不了解!

 


--  作者:大红袍
--  发布时间:2015/10/27 15:58:00
--  
关闭了,只是下次不执行,这次还要执行一下的。