主题：文件位置问题

直接写

 

.Add("c1","增加订单", "./images/1.png")

如果绝对路径，这样写

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=101125&skin=0

 

加上代码

 

        wb.AppendHTML("<style>.weui_grid_icon{width: 100px;height: 100px;}</style>")
        wb.AppendHTML("<style>.fox_grid_icon{width: 100px;height: 100px;vertical-align: middle;background-size: 100px 100px;}</style>")

 

Dim dr As DataRow = DataTables("用户").SQLFind("([身份证号] = '" & UserName & "' or [电话号码] = '" & username & "') And [是否可用] = true")

 

登陆页面（或者其他页面），加上下面的代码，获取浏览器的屏幕高度

 

        Dim wb As New WeUI
        wb.AppendHTML("<script>document.cookie='dheight=' + document.body.clientHeight + ';path =/';</script>")
        e.WriteString(wb.Build)

 

跳转到你主页的时候，获取dheight的值

 

msgbox(e.cookies("dheight"))

Dim dheight = e.cookies("dheight")

 

根据你的页面的行数，大致计算出每一个图片的宽高，比如等于50

 

那么修改样式

 

wb.AppendHTML("<style>.weui_grid_icon{width: 100px;height: 50px;}</style>")
wb.AppendHTML("<style>.fox_grid_icon{width: 100px;height: 50px;vertical-align: middle;background-size: 100px 50px;}</style>")

 

认认真真看9楼。