[浏览完整版]
标题：控件功能意见
1楼
qtcks 发表于：2009/6/17 11:36:00Textbox1 增加背景图片,背景透明
PictureBox 增加text
button 增加背景透明
还有,背景透明,透明部分是现实最低层form的背景,
如果有控件叠加,就会出问题.
比下图,2个透明的图片控件,交叉叠加,顶层的透明部分是按form背景来补偿的.不是按下一层的图片来进行补偿的
此主题相关图片如下：qq截图未命名.jpg
PictureBox 增加text
button 增加背景透明
还有,背景透明,透明部分是现实最低层form的背景,
如果有控件叠加,就会出问题.
比下图,2个透明的图片控件,交叉叠加,顶层的透明部分是按form背景来补偿的.不是按下一层的图片来进行补偿的
此主题相关图片如下：qq截图未命名.jpg2楼
狐狸爸爸 发表于：2009/6/17 11:44:00呵呵，这个我不会呢。
3楼
qtcks 发表于：2009/6/17 11:50:00
不要啊.控件做起来很难看的呢.哎```郁闷哦.
4楼
狐狸爸爸 发表于：2009/6/17 11:53:00呵呵，其实作为数据管理软件，没有必要太在意这个的。
整个windows和office，不都是这样的界面吗?
整个windows和office，不都是这样的界面吗?
5楼
qtcks 发表于：2009/6/17 11:53:00如何在PictureBox实现这样显示文字??
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Picture1.Font = Text1.Font
Picture1.FontBold = Text1.FontBold
Picture1.FontItalic = Text1.FontItalic
Picture1.FontName = Text1.FontName
Picture1.FontSize = Text1.FontSize
'''你把字体属性全部写上，我偷懒了
Picture1.ForeColor = Text1.ForeColor
Picture1.CurrentX = X
Picture1.CurrentY = Y
Picture1.Print Text1.Text
End If
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Picture1.Font = Text1.Font
Picture1.FontBold = Text1.FontBold
Picture1.FontItalic = Text1.FontItalic
Picture1.FontName = Text1.FontName
Picture1.FontSize = Text1.FontSize
'''你把字体属性全部写上，我偷懒了
Picture1.ForeColor = Text1.ForeColor
Picture1.CurrentX = X
Picture1.CurrentY = Y
Picture1.Print Text1.Text
End If
End Sub
6楼
狐狸爸爸 发表于：2009/6/17 11:54:00picturebox用来显示图片的，不是用来显示文字的呢
你可以看看Painter。
你可以看看Painter。
[此贴子已经被作者于2009-6-17 11:54:20编辑过]
7楼
yangming 发表于：2009/6/17 11:57:00贺老师,是不能给标签加一个透明背景的选项?
8楼
qtcks 发表于：2009/6/17 11:58:00简介： 为Textbox文本框添加背景图，酷！！！请运行regsvr32.exe 路径\SSubTmr6.dll为之注册才可正常使用 下载地址 点这里下载
9楼
狐狸爸爸 发表于：2009/6/17 11:58:00以下是引用yangming在2009-6-17 11:57:00的发言：
贺老师,是不能给标签加一个透明背景的选项?
贺老师,是不能给标签加一个透明背景的选项?
本来就是透明的啊，不过针对的是窗口。
10楼
qtcks 发表于：2009/6/17 12:03:00贺老师,开发工具你是使用什么的?