以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]绘图问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66493)

--  作者：pcxjxjhkw --  发布时间：2015/4/8 10:54:00 --  [求助]绘图问题 Dim p As WinForm.Painter = e.Form.Controls("Painter1") Dim g As Graphics = p.Graphics Dim fnt As New Font("宋体",16) Dim msg As String = "I Like Foxtable" g.DrawString(msg,fnt,Brushes.Red,10,10) p.Repaint() 如何将绘制的文字旋转一定角度？谢谢

--  作者：Bin --  发布时间：2015/4/8 10:59:00 --   Dim p As WinForm.Painter = e.Form.Controls("Painter1") Dim g As Graphics = p.Graphics Dim fnt As New Font("宋体",16) Dim msg As String = "I Like Foxtable" g.RotateTransform(45) g.DrawString(msg,fnt,Brushes.Red,10,10) p.Repaint()

--  作者：pcxjxjhkw --  发布时间：2015/4/8 11:03:00 --   谢谢

--  作者：pcxjxjhkw --  发布时间：2015/4/8 11:08:00 --   另：再请教2问题，1.如何调整文字的透明度？2.如何调用字体设置对话框？谢谢 [此贴子已经被作者于2015/4/8 11:13:02编辑过]