以文本方式查看主题

-  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=121551)

--  作者:yangwenghd
--  发布时间:2018/7/9 13:38:00
--  如何让控件字体横着显示啊
怎么让控件横着显示。
感谢 感谢

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180709133554.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/7/9 16:48:00
--  

1、不要旋转label;

 

2、把label的属性->自动大小->设置成false;

 

3、控制label的宽度,设置成一个字符的大小。


--  作者:yangwenghd
--  发布时间:2018/7/10 14:35:00
--  
感谢 感谢,如果打印标签,标签要求是横着的有没什么办法啊?感谢 感谢 
--  作者:有点甜
--  发布时间:2018/7/10 14:43:00
--  
没看懂你什么意思。实例发上来,说明要做的功能。
--  作者:yangwenghd
--  发布时间:2018/7/10 15:36:00
--  
比如现在从弧表打印一个标签,标签的样子,

图片点击可在新窗口打开查看此主题相关图片如下:ddb795a991bc462420ecb4057609698a.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/7/10 15:39:00
--  
你要打印什么,就在窗口上放入什么。你可以放两个标签控件啊。
--  作者:yangwenghd
--  发布时间:2018/7/10 17:43:00
--  
红色方框的内容,然后有个是竖着,有个是横着, 不知道怎么办,感谢 感谢 
--  作者:有点甜
--  发布时间:2018/7/10 18:26:00
--  
以下是引用yangwenghd在2018/7/10 17:43:00的发言:
红色方框的内容,然后有个是竖着,有个是横着, 不知道怎么办,感谢 感谢 

 

你是想问:如何让label旋转90度?

 

这种情况,可以用painter来画 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=120482&skin=0

 

http://www.foxtable.com/webhelp/scr/1482.htm

 


--  作者:yangwenghd
--  发布时间:2018/7/19 11:13: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 = 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吗?
可以设置居中吗? 感谢 感谢 


--  作者:有点甜
--  发布时间:2018/7/19 12:03: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 = "123456"
g.DrawString(msg,fnt,Brushes.Black,10,20)
msg = "abcdefg"
g.DrawString(msg,fnt,Brushes.Black,10,50)
p.Repaint()