Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【已解决】（动态创建多个字符串并放在指定容器内？）[求助]窗口动态创建多个字符串并移到某个字符串显示备注信息，怎么做？


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

主题：【已解决】（动态创建多个字符串并放在指定容器内？）[求助]窗口动态创建多个字符串并移到某个字符串显示备注信息，怎么做？
帅哥哟，离线，有人找我吗？
zto001
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		【已解决】（动态创建多个字符串并放在指定容器内？）[求助]窗口动态创建多个字符串并移到某个字符串显示备注信息，怎么做？  发帖心情 Post By：2018/12/30 15:31:00 [显示全部帖子]

我用遍历代码获取一段字符串，我的鼠标需要移动到其中的某一个字符串，需要显示与该字符串相对应的代码？能做吗？怎么写代码？
我看过窗口控件不能通过代码增加排位置。
没想出来怎么做
[此贴子已经被作者于2019/3/20 16:39:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		[求助]  发帖心情 Post By：2018/12/31 0:32:00 [显示全部帖子]

我想做出如图所示的样式


遍历之后的物流状态代码
Dim properties As new zopsdk.ZopProperties("a27daa5603d342bd8021c90a8c497d7f","dc3f587db1e1")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceNewTraces"
request.addParam("company_id", "a27daa5603d342bd8021c90a8c497d7f")
request.addParam("msg_type", "NEW_TRACES")
request.addParam("data", "[""680000000000""]") '查询两个单号
Dim str = client.execute(request)
msgbox(str)
Dim jo As JObject = JObject.Parse(str)
'output.show(jo.Tostring)
For Each o As object In jo("data")(0)("traces")
    output.show(o("scanDate").Tostring & "|" & o("desc").tostring)
Next

然后想让代码解析出来的文字显示在窗口上，并且鼠标移到网点、派送员显示出电话号码
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2018/12/31 0:32:00 [显示全部帖子]

如图所示

 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2018/12/31 0:34:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：tim截图20181231003010.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/1/2 9:57:00 [显示全部帖子]

像这样应该怎么做？

 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/1/11 13:05:00 [显示全部帖子]

我做了类似的，但是没有移到对应控件显示对应提示，需要怎么写呢？
Dim properties As new zopsdk.ZopProperties("a27daa5603d342bd8021c90a8c497d7f","dc3f587db1e1")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceNewTraces"
request.addParam("company_id", "a27daa5603d342bd8021c90a8c497d7f")
request.addParam("msg_type", "NEW_TRACES")
request.addParam("data", "[""75122432667316""]") '查询两个单号
Dim str = client.execute(request)
Dim jo As JObject = JObject.Parse(str)
Dim gd As Integer=0
Dim bl As Integer=0

For Each o As object In jo("data")(0)("traces")

Dim lbl1 As WinForm.Label
lbl1 = e.Form.CreateControl("Label", ControlTypeEnum.Label)
lbl1.Text =o("scanDate").Tostring
lbl1.Left = 0
lbl1.Top = gd+30
lbl1.AutoSize=True
e.Form.AddControl(lbl1)

Dim lbl As WinForm.Label
lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text =  o("desc").tostring
lbl.Left = 200
lbl.Top = gd+30
lbl.AutoSize=True
'移动到该控件需要显示对应信息（o("scanSitePhone").Tostring）
e.Form.AddControl(lbl)

Next
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/1/11 16:21:00 [显示全部帖子]

我这个控件是动态增加上去的，一直提示没有改控件怎么办呢？

 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/1/12 11:18:00 [显示全部帖子]

Dim properties As new zopsdk.ZopProperties("a27daa5603d342bd8021c90a8c497d7f","dc3f587db1e1")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceNewTraces"
request.addParam("company_id", "a27daa5603d342bd8021c90a8c497d7f")
request.addParam("msg_type", "NEW_TRACES")
request.addParam("data", "[""75121980508084""]") '查询两个单号
Dim str = client.execute(request)
Dim jo As JObject = JObject.Parse(str)
Dim gd As Integer=0
For Each o As object In jo("data")(0)("traces")

    Dim lbl1 As WinForm.Label
    lbl1 = e.Form.CreateControl("Label", ControlTypeEnum.Label)
    lbl1.Text =o("scanDate").Tostring
    lbl1.Left = 0
    lbl1.Top = gd+30
    lbl1.AutoSize=True
    e.Form.AddControl(lbl1)


    Dim lbl As WinForm.Label
    lbl = e.Form.CreateControl("label1", ControlTypeEnum.Label)
    lbl.Text =  o("desc").tostring
    lbl.Left = 200
    lbl.Top = gd+30
    lbl.AutoSize=True
    lbl.basecontrol.tag = o("scanSitePhone").Tostring
    e.Form.AddControl(lbl)
    gd=gd+30
    
Next

可以了，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/3/20 16:01:00 [显示全部帖子]

【新问题】（动态创建多个字符串如何设置放在指定的Panel内？）
我需要把他们放在窗口的Panel1内，应该如何更改？
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/3/20 16:39:00 [显示全部帖子]


将    e.Form.AddControl(lbl)

改成e.Form.Controls("Panel1").AddControl(lbl)

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