以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我想设rx的字体为隶书,怎么设?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70256)

--  作者:zgjmost
--  发布时间:2015/6/17 21:40:00
--  我想设rx的字体为隶书,怎么设?

  If getConfigValue("启用水印",True) = True
            s = Nothing
            Dim wra As new prt.RenderArea
            rx = New prt.RenderText \'设置文本对象的内容
            For i As Integer = 1 To e.Form.Controls("水印数").Text
                s = s & getConfigValue("水印文字","请先选择学校名称!") & vbcrlf & vbcrlf & vbcrlf
            Next
           
            s = s & "&&"
            s = s .Replace(vbcrlf & vbcrlf & vbcrlf & "&&","")
            rx.Text = s \'设置文本内容
            rx.Style.TextAngle = 20 \'旋转45度
            rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中对齐
            rx.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中对齐
                      rx.Style.FontSize = 25\'字体大小为8磅
            rx.Style.TextColor = Color.Gray \'文本颜色为灰色
            wra.y = 10
            wra.x = 0
            wra.Children.Add(rx)
            ra.Children.add(wra) \'作为水印使用
        End If

 

我想设rx的字体为隶书,怎么设?


--  作者:大红袍
--  发布时间:2015/6/18 0:31:00
--  

 参考 http://www.foxtable.com/help/topics/1179.htm