- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- AddSelect列表输入框，在Chrome浏览器上显示的字体和间距异常大 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116560)
-- 发布时间：2018/3/26 22:42:00
-- AddSelect列表输入框，在Chrome浏览器上显示的字体和间距异常大
AddSelect列表输入框，在Chrome浏览器上显示的字体和间距异常大，请教怎样能代码调整或设置呢？谢谢
此主题相关图片如下：select.jpg
。
-- 发布时间：2018/3/26 22:44:00
--
是手机上的Chrome，几个选项列表就占满屏幕了，显示很难看。
-- 发布时间：2018/3/26 23:05:00
--
AddRadioGroup吧
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AppendHTML("<style>.weui_cells_radio .weui_check_label{padding: 5px 15px;}</style>",True)
wb.AddForm("","form1","test.htm")
With wb.AddRadioGroup("form1","rdg1","浏览器")
.Add("bw1","Intenet Explorer").Attribute = "style=\'padding:0 15px\'"
.Add("bw2","Google Chorme", True) \'默认勾选
.Add("bm3","FireFox")
.Add("bm4","Safari").Enabled = False \'此项不可选
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
End Select
-- 发布时间：2018/3/27 9:00:00
--
以下是引用Exon_Liang在2018/3/26 22:44:00的发言：
是手机上的Chrome，几个选项列表就占满屏幕了，显示很难看。
是手机上的Chrome，几个选项列表就占满屏幕了，显示很难看。
这个是浏览器本身的问题，是无法处理的。因为这个窗口是浏览器弹出的，无法控制。