- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 【已解决】（动态创建多个字符串并放在指定容器内？）[求助]窗口动态创建多个字符串并移到某个字符串显示备注信息，怎么做？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129526)
-- 发布时间：2018/12/30 15:31:00
-- 【已解决】（动态创建多个字符串并放在指定容器内？）[求助]窗口动态创建多个字符串并移到某个字符串显示备注信息，怎么做？
我用遍历代码获取一段字符串，我的鼠标需要移动到其中的某一个字符串，需要显示与该字符串相对应的代码？能做吗？怎么写代码？
我看过窗口控件不能通过代码增加排位置。
没想出来怎么做
[此贴子已经被作者于2019/3/20 16:39:02编辑过]
-- 发布时间：2018/12/30 17:31:00
--
请上传具体实例或者截图说明你的问题。
-- 发布时间：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
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
然后想让代码解析出来的文字显示在窗口上，并且鼠标移到网点、派送员显示出电话号码
-- 发布时间：2018/12/31 0:32:00
--
如图所示
-- 发布时间：2018/12/31 0:34:00
--
此主题相关图片如下：tim截图20181231003010.jpg
-- 发布时间：2019/1/2 9:57:00
--
像这样应该怎么做？
-- 发布时间：2019/1/2 11:36:00
--
1、用多个label分别显示各个部分的内容。
2、在mouseenter事件，弹出显示信息 http://www.foxtable.com/webhelp/scr/2686.htm
-- 发布时间：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
-- 发布时间：2019/1/11 15:28:00
--
1、记录值，如 lbl.basecontrol.tag = o("scanSitePhone").Tostring
2、窗口mouseenter、mouseleave事件，写代码，如 http://www.foxtable.com/webhelp/scr/2686.htm
把 e.sender.basecontrol.tag 的值显示出来即可
-- 发布时间：2019/1/11 16:21:00
--
我这个控件是动态增加上去的，一直提示没有改控件怎么办呢？