主题：【已解决】（动态创建多个字符串并放在指定容器内？）[求助]窗口动态创建多个字符串并移到某个字符串显示备注信息，怎么做？

1、用多个label分别显示各个部分的内容。

2、在mouseenter事件，弹出显示信息 http://www.foxtable.com/webhelp/scr/2686.htm

1、记录值，如 lbl.basecontrol.tag = o("scanSitePhone").Tostring

2、窗口mouseenter、mouseleave事件，写代码，如  http://www.foxtable.com/webhelp/scr/2686.htm

把 e.sender.basecontrol.tag 的值显示出来即可

1、

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("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)
   
   
Next

2、mouseEnter事件

If e.sender.name = "Label1" Then
    e.sender.ShowToolTip(e.sender.basecontrol.tag, 2000)
End If

http://www.foxtable.com/webhelp/scr/1912.htm