以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]遍历所有窗体，并把窗体名称另载到Combox控件里  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97183)
--  作者：2900819580
--  发布时间：2017/3/7 16:37:00
--  [求助]遍历所有窗体，并把窗体名称另载到Combox控件里
[求助]遍历所有窗体，并把窗体名称另载到Combox控件里
--  作者：有点色
--  发布时间：2017/3/7 18:42:00
--  

 Dim str As String = ""
For Each frm As WinForm.Form In forms
    str &= frm.Name & "|"
Next
forms("窗口1").Controls("ComboBox1").ComboList = str.trim("|")