Foxtable(狐表)用户栏目专家坐堂 → 我想设rx的字体为隶书,怎么设?


  共有2154人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
zgjmost
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:498 积分:4611 威望:0 精华:0 注册:2013/4/25 8:02:00
我想设rx的字体为隶书,怎么设?  发帖心情 Post By:2015/6/17 21:40:00 [只看该作者]

  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的字体为隶书,怎么设?


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/18 0:31:00 [只看该作者]


 回到顶部