Question

vb里按钮加入图片后怎么添加文字？

只要是一加入文字就显示在图片的下方，有什么简单方法显示在中央部分啊？
一定要有有效解决的办法！！！
求助高手啊！为了这个难题我已经花了300分了！期待……
不要跟我说在图片里加入文字或者加入大一点图片之类的废话，一定要有用啊啊~~~……

Answer 1

我不想拿你的分，不过只想告诉你，在VB里，如果你想只用VB自带的按钮控件，那么是不可能做到你说的效果的，你要是想实现你的效果，只有以下3个方法：

1、在图片中加入中文（虽然你认为这是废话，不过我可以负责任的告诉你，我所读过的VB程序中都是这么实现的，如果你认为是废话我也没办法）

2、自己编写自己的按钮控件，不用VB自带的

3、放弃用VB，改用其他语言

虽然可能对你没什么帮助，不过只是想告诉你你的问题是多么无聊！

所有的程序都是以实现功能为最终目的的，如果你什么都不会，什么都依赖VB程序自己，估计你也就是一辈子问别人的初级程序员罢了！（哦，那不叫程序员，在我们那里，这只能叫“写代码的”）

Answer 2

1、用一个控件 叫GRADBUTTON

2、控件替换正常的Command Button
3、可以实现文字居中的效果 或者图片在左,文字在右之类等很多种效果
简单说 图片 和 文字 在按钮中的位置都可以调整
4、具体代码
//创建控件

Option Explicit

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private
Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As
Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal
wFormat As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

//双击控件，写如下代码

Private Sub Command1_Click()
Dim bbb As RECT
Dim hdc As Long
//距离左边的距离

bbb.Left = 20
//距离上边的距离
bbb.Top = 10
//距离右边的距离
bbb.Right = 100
bbb.Bottom = 100
hdc = GetDC(Command1.hwnd)
//写入文本

Call DrawText(hdc, "文本", -1, bbb, &H800)
Call ReleaseDC(Command1.hwnd, hdc)
End Sub

Answer 3

再添加一个imagelist控件，插入图片。在toolbar上添加按钮的时候，有个图像索引，输入1，就是imagelist控件里的第一张图片。

Answer 4

to:dnyr 语言只是表达逻辑的一种方式，虽然VB 没有提供现成的属性，但楼主需要的功能VB足以实现

Option Explicit

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Command1_Click()
Dim bbb As RECT
Dim hdc As Long
bbb.Left = 20
bbb.Top = 10
bbb.Right = 100
bbb.Bottom = 100
hdc = GetDC(Command1.hwnd)
Call DrawText(hdc, "文本", -1, bbb, &H800)
Call ReleaseDC(Command1.hwnd, hdc)
End Sub

Answer 5

http://www.newasp.net/code/vb/308.html

给你个例子,慢慢看~~我懒得写代码了=.=

记得给我分-0-

给你介绍下 其实要用一个控件 叫GRADBUTTON
上面的地址下载的里面就有
用那个控件替换正常的Command Button
可以实现文字居中的效果
或者图片在左,文字在右之类等很多种效果
简单说 图片 和 文字 在按钮中的位置都可以调整

里面的例子就是那个控件的使用