以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何设置图片 居中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138023)
--  作者：智友软件工作室
--  发布时间：2019/7/21 1:43:00
--  [求助]如何设置图片 居中
        wb.AddPageTitle("","ph1","微信收款","请客户扫描下面二维码付款")
        With wb.AddArticle("","ar1")
            Dim openid As String = "" \'设置用户标识
            Dim product_id As String = "GDBH20190001" \'设置商品ID
            Dim trade_type As String = "NATIVE" \'设置交易类型
            Dim total_fee As Integer = 1 \'设置标价金额
            \'统一下单
            Dim xmlres = Functions.Execute("api_UnifiedOrder",openid,product_id,trade_type,total_fee)
            If xmlres  Then
                Dim dr As DataRow = DataTables("微信支付").Find("product_id=\'" & product_id & "\'")
                If dr IsNot Nothing Then
.AddImage(Functions.Execute("MakeQRCode",dr("code_url")),"style=\'width:200px;height:200px\'")
                Else
                    .AddTitle("h1","不存在此订单,无法生成二维码")
                End If
            Else
                .AddTitle("h1","扫码支付模式二统一下单失败,无法生成二维码")
            End If
        End With
--  作者：智友软件工作室
--  发布时间：2019/7/21 17:29:00
--  
自己顶一下
--  作者：有点蓝
--  发布时间：2019/7/21 21:21:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127441&skin=0