如何让控件字体横着显示啊 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

怎么让控件横着显示。

感谢感谢

此主题相关图片如下：qq截图20180709133554.jpg

感谢感谢，如果打印标签，标签要求是横着的有没什么办法啊？感谢感谢

比如现在从弧表打印一个标签，标签的样子，

此主题相关图片如下：ddb795a991bc462420ecb4057609698a.png

红色方框的内容，然后有个是竖着，有个是横着，不知道怎么办，感谢感谢

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 = e.form.controls("Label17").text

g.DrawString(msg,fnt,Brushes.Black,1,5)

p.Repaint()

Dim pa As WinForm.Painter = e.Form.Controls("Painter2")

Dim ga As Graphics = pa.Graphics

Dim fnt As New Font("宋体",16)

Dim msg As String = e.form.controls("Label16").text

ga.DrawString(msg,fnt,Brushes.Black,1,5)

pa.Repaint()

能再帮忙看看这个吗？就是可以一个Painter1显示两个Label吗？

可以设置居中吗？感谢感谢

Painter要旋转就是http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=120482&skin=0帮助吗？

感谢感谢，怎么让Painter2 旋转90度呀！感谢感谢或者让里面位置旋转90度，感谢感谢

[此贴子已经被作者于2018/7/19 12:12:55编辑过]

能再帮忙看看吗？我只是有些玩不转了，就是文字旋转，感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:字母旋转.table

[此贴子已经被作者于2018/7/20 15:02:13编辑过]

感谢太感谢了，谢谢

红色代码是用来控制文字在绘图板上的坐标的吗？怎么改都和要的位置对不上呢，感谢感谢

Dim p As WinForm.Painter = e.Form.Controls("Painter1")

Dim g As Graphics = p.Graphics

Dim w As Integer = p.width

Dim h As Integer = p.height

Dim angle As Double = 270

Dim a As Double = angle Mod 360

Dim radian As Double = a * Math.PI / 180.0

Dim cos As Double = Math.Cos(radian)

Dim sin As Double = Math.Sin(radian)

Dim newW As Integer = Math.Max(Math.Abs(w * cos - h * sin), Math.Abs(w * cos + h * sin))

Dim newH As Integer = Math.Max(Math.Abs(w * sin - h * cos), Math.Abs(w * sin + h * cos))

Dim bmpSrc As new Bitmap(newW, newH)

g.TranslateTransform(newW/2, newH/2)

g.RotateTransform(angle)

g.TranslateTransform(-newW/2, -newH/2)

Dim x As Integer = 50'w

Dim y As Integer = 200

Dim fnt As New Font("宋体",10)

Dim msg As String = e.form.controls("Label1").text

g.DrawString(msg,fnt,Brushes.Black,0,0)

msg = e.form.controls("Label2").text

g.DrawString(msg,fnt,Brushes.Black,150,10)

msg = e.form.controls("Label1").text

g.DrawString(msg,fnt,Brushes.Black,10,20)

msg = e.form.controls("Label2").text

g.DrawString(msg,fnt,Brushes.Black,150,30)

p.Repaint()

感谢感谢，我刚才换了一个窗口，结果坐标的位置又变了，这个的基准是什么。麻烦了，感谢感谢

[此贴子已经被作者于2018/7/20 18:09:32编辑过]

主题：如何让控件字体横着显示啊