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


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

主题：有没有办法在窗体设计中 实现命令窗口中 使用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


加好友 发短信
等级：超级版主 帖子：111471 积分：567443 威望：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


加好友 发短信
等级：超级版主 帖子：111471 积分：567443 威望：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


加好友 发短信
等级：超级版主 帖子：111471 积分：567443 威望：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


加好友 发短信
等级：超级版主 帖子：111471 积分：567443 威望：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


加好友 发短信
等级：超级版主 帖子：111471 积分：567443 威望：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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 4 次数据查询