主题：[求助]微信浏览器弹出键盘输入内容之后不自动下落

加大你底部的高度，如

wb.InsertHTML("<div style='height:100px'></div>") '用于插入最下面固定按钮样式

改成

wb.InsertHTML("<div style='height:1000px'></div>") '用于插入最下面固定按钮样式

我安卓系统测试没问题，苹果系统有这种问题，加入代码，如

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","基本资料")
            .AddInput("xm","姓名","text")
            .AddInput("nl","年龄","number")
            .AddInput("rq","日期","date")
            .AddSwitch("vip","VIP客户")
        End With
        With wb.AddInputGroup("form1","ipg2","备注")
            .AddTextArea("bz",5).Placeholder = "请输入200字以内的备注"
        End With
       
        With wb.AddInputGroup("form1","ipg3","备注")
            .AddTextArea("bz3",5).Placeholder = "请输入200字以内的备注"
        End With
       
        With wb.AddInputGroup("form1","ipg4","备注")
            .AddTextArea("bz4",5).Placeholder = "请输入200字以内的备注"
        End With
       
        With wb.AddInputGroup("form1","ipg5","备注")
            Dim obj = .AddTextArea("bz5",5)
            obj.Placeholder = "请输入200字以内的备注"
            obj.Attribute = "onblur=""document.activeElement.scrollIntoViewIfNeeded(true)"""
        End With
        wb.InsertHTML("<div style='height:100px'></div>") '用于插入最下面固定按钮样式
        wb.AddPage("form1","page1").Attribute = "style='position: fixed;bottom: 0;right: 0;left: 0'"
        With wb.AddButtonGroup("page1","btg1", False)
            .Add("btn1", "确定上报","submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select

这种问题，尽量自行百度，如

https://www.baidu.com/baidu?wd=iphone+%E5%BE%AE%E4%BF%A1%E6%B5%8F%E8%A7%88%E5%99%A8+%E8%BE%93%E5%85%A5%E6%B3%95+%E7%A9%BA%E7%99%BD