- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- AddInputGroup能否自适应 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175829)
-- 发布时间：2022/3/21 9:50:00
-- AddInputGroup能否自适应
With wb.AddInputGroup("form1","ipg1","基本信息")
.AddInput("终端客户编码","终端客户编码","Text") \'前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("终端名称","*终端名称","text")
.AddInput("详细地址","*详细地址","text")
.AddInput("我司业务人员","*我司业务人员","text")
end with
此主题相关图片如下：qq图片20220321094804.png
能让文字不换行显示啊
-- 发布时间：2022/3/21 10:10:00
--
此主题相关图片如下：1.png
打开浏览器开发者工具，找到文字所在的地方，更改样式到合适的值，然后搬到代码里，比如
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AppendHTML("<style>.weui_label{width:auto}</style>",true)
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","登录")
.AddInput("xm","户名户名户名户名","text")
.AddInput("pw","密码","password")
End With
……