Foxtable(狐表)用户栏目专家坐堂 → 有没有办法在窗体设计中 实现命令窗口中 使用output.show()后的输出效果内容显示呢?


  共有1988人关注过本帖树形打印复制链接

主题:有没有办法在窗体设计中 实现命令窗口中 使用output.show()后的输出效果内容显示呢?

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
有没有办法在窗体设计中 实现命令窗口中 使用output.show()后的输出效果内容显示呢?  发帖心情 Post By:2020/1/17 17:42:00 [只看该作者]

有没有办法在窗体设计中 实现命令窗口中 使用output.show()后的输出效果内容显示呢?

想在一个窗体中,显示运行状态结果输出  便于用户直观看见数据的流动情况

图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/17 20:22:00 [只看该作者]

窗口添加一个文本框,设置为多行,然后显示需要的字符即可,字符换行使用vbcrlf

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)窗口添加一个文本框,设置为多行,然...  发帖心情 Post By:2020/1/17 20:33:00 [只看该作者]

设置文本框的文本等于output内容
但是怎么滚动刷新显示呢?

If Forms("案件信息").Opened Then
    Dim lsts As New List(Of String())
    lsts= DataTables("案件基本信息").SQLGetValues("承办人|部门受案号|审结处理结果|是否关联" ,"操作单位='" & _usergroup & "'")
    For Each lst As String() In lsts
        Output.Show( lst(0) & "--" & lst(1) & "--" & lst(2) & "--" & lst(3))
        If lst(3)="" Then
            Output.Show("无关联人信息")
            If lst(2)="" Then
                Output.Show("审理中")
                Dim lsts1 As New List(Of String())
                lsts1= DataTables("职务").SQLGetValues("职务人员|职务类型" ,"操作单位='" & _usergroup & "'and 制单人='" & lst(0) &"' ")
                For Each lst1 As String() In lsts1
                    'Output.Show( lst1(0) & "--" & lst1(1))
                    Dim r1 As DataRow = DataTables("案件基本信息").sqlfind("承办人 = '" & lst(0) & "'and 操作单位='" & _usergroup & "'  and  部门受案号 = '" & lst(1) & "' ")
                    Output.Show(r1("嫌疑人姓名"))
                    Dim dr21 As DataRow = DataTables("告知内容").sqlfind("姓名 = '" & lst1(0) & "'and 操作单位='" & _usergroup & "'  and  部门受案号 = '" & lst(1) & "' ")
                    If dr21 Is Nothing Then '如果不存在同编号的订单
                        Output.Show("我没有数据哦")
                        
                    End If
                Next
                
            Else
                
            End If
        End If
        
        Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
        t.Text=lst(0) & "--" & lst(1)
    Next
    
End If

这个代码只显示了最后一行的数据  

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/17 21:22:00 [只看该作者]

Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
        t.Text= t.Text & lst(0) & "--" & lst(1)
……
        t.Text= t.Text & 其它人1
……
        t.Text= t.Text & 其它人2
……
        t.Text= t.Text & 其它人3

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)Dim t As WinForm.TextBox = e.Form....  发帖心情 Post By:2020/1/19 11:01:00 [只看该作者]

Dim lsts As New List(Of String())
lsts= DataTables("案件基本信息").SQLGetValues("承办人|部门受案号|审结处理结果|是否关联" ,"操作单位='" & _usergroup & "'")
For Each lst As String() In lsts
    Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
    t.Text= t.Text & lst(0) & "--" & lst(1) & Chr(13) & Chr(10)
Next

修改为上述代码之后   居然不回车 不换行

同样
图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看
代码运行时候 ,为什么是空白呢?
代码运行结束后才会有数据显示出来

图片点击可在新窗口打开查看此主题相关图片如下:22.jpg
图片点击可在新窗口打开查看


有没有办法纠正  让数据实时显示出来,当数据为最后数据的时候  增加一个提示  比如“当前数据已经导入完毕!”

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/19 11:19:00 [只看该作者]

回车换行要放到拼字符串的中间:

Dim t As WinForm.TextBox = e.Form.Controls("TextBox1") ‘这一句代码不应该放到循环里面
For Each lst As String() In lsts 
    t.Text= t.Text & vbcrlf & lst(0) & "--" & lst(1) 
Next

Dim sbu As new StringBuilder
For Each lst As String() In lsts
    sbu.AppendLine(lst(0) & "--" & lst(1) )
Next
Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")
t.Text= sbu.ToString

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)回车换行要放到拼字符串的中间:Dim ...  发帖心情 Post By:2020/1/19 11:37:00 [只看该作者]

谢谢有点蓝老师 
换行问题完美了
 
代码运行时不显示实时数据   运行完毕才显示数据
这个有没有办法修正为 代码运行时也会实时显示数据呢?

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/19 11:40:00 [只看该作者]

Dim t As WinForm.TextBox = e.Form.Controls("TextBox1") ‘这一句代码不应该放到循环里面
For Each lst As String() In lsts 
    t.Text= t.Text & vbcrlf & lst(0) & "--" & lst(1) 
Application.DoEvents
Next

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)Dim t As WinForm.TextBox = e.Form....  发帖心情 Post By:2020/1/19 14:41:00 [只看该作者]

OK 谢谢有点蓝老师   现在实现了数据的即时刷新显示  能不能直接在定位到末尾数据呢?也就是滚动条直接被拉到底端的效果,这样的话就和命令窗口显示的效果一样啦

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/19 14:52:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/0761.htm

t.SelectionStart = t.text.Length

 回到顶部