A. VB的工具栏能否自行定义标准工具栏中有哪些按钮
你是说的控件工具箱么?一般都是21个啊,包含文本框、按钮、标签等,可以自定义添加你所需要的控件,在工具箱右键单击—部件——勾选你所要添加的控件,但是你退出程序,再次重新建立新的工程又要重新添加。
B. vb6.0怎么添加标签控件
1)运行VB6.0,新建一个标准EXE工程,将鼠标移到下图左侧工具箱的A按钮处。
3)可对它进行属性设置,并移动到窗体需要的位置。接着可继续按前方法添加Label控件。
4)Label 控件, Label 控件是图形控件,可以显示用户不能直接改变的文本。
C. VB中工具栏中的按钮的使用方法
工具栏中的按钮是一个数组!
你在添加按钮的时候,会看到一个索引值,那个就是的数组下标!
或者在添加按钮的时候,每个按钮都有自己的名字,你在使用的时候也可以通过判断名字来判断点击的是哪个按钮。
双击工具栏会有这个事件:
Private Sub tlbOnly_ButtonClick
(ByVal Button As MSComctlLib.Button)
End Sub
其中tlbOnly为控件名称。Button为按钮,使用方法为:
Button.key 返回的是按钮名称
Button.index 返回的是按钮的索引值
D. VB中怎么加入一个标签
1、首先我们新建一个工程,并新建一个标准Exe工程。
E. VB双击工具箱中的控件按钮,即可在窗体的什么位置放置控件
这是VB默认设定的,你可以通过单击并在窗体中绘制控件达到自定义尺寸的目的
F. vb中怎么实现点击按钮时,标签里显示该按钮的名称
'楼主您好!
'不知道您说的是按钮的名称(Name),还是标题(Caption),其中标题是在控件上显示出来的,而名称是代码中用到的名称。
'控件名称如下:
'按钮A:A
'按钮B:B
'按钮C:C
'按钮D:D
'标签:Label1
'若为名称(Name),代码如下:
OptionExplicit
PrivateSubA_Click()
Me.Label1.Caption=Me.A.Name
EndSub
PrivateSubB_Click()
Me.Label1.Caption=Me.B.Name
EndSub
PrivateSubC_Click()
Me.Label1.Caption=Me.C.Name
EndSub
PrivateSubD_Click()
Me.Label1.Caption=Me.D.Name
EndSub
PrivateSubForm_Load()
Me.Label1.Caption=""
EndSub
'若为标题(Caption),代码如下:
OptionExplicit
PrivateSubA_Click()
Me.Label1.Caption=Me.A.Caption
EndSub
PrivateSubB_Click()
Me.Label1.Caption=Me.B.Caption
EndSub
PrivateSubC_Click()
Me.Label1.Caption=Me.C.Caption
EndSub
PrivateSubD_Click()
Me.Label1.Caption=Me.D.Caption
EndSub
PrivateSubForm_Load()
Me.Label1.Caption=""
EndSub
G. VB工具箱中的图标名称
picturebox
label
textbox
frame
commandbutton
checkbox
optionbutton
combobox
listbox
hscrollbox
vscrollbox
timer
drivelistbox
dirlistbox
filelistbox
shape
line
image
date
OLE
H. 在VB中,添加一个标签,在工具箱中要单击的控件是哪一个
这应该是个选择题吧?工具箱中会出现的有Label标签控件、PictureBox图片框控件版、TextBox文本框控件、Frame框架控件、CommandButton按钮控件、CheckBox复选框权控件、OptionButton单选框控件、ListBox列表框控件、...
I. 想问一下1234这个选项卡是VB工具箱的哪个按钮
没有这个控件,使用别的东西可以实现
J. vb怎样做才能当点击标签时有按钮的效果
Label在正常情况下显示底色,当鼠标移动到Label控件时变色,鼠标按下时再显示另外一种颜色。
先拉出三个Label,并定义它们的属性:
名称:LblBtn
Alignment:2 - Center
Appearance:0 - Flat
BorderStyle:1 - Fixed Single
下面是程序:
Option Explicit
Private Const LBL_BACK_COLOR = &HE0E0E0 '正常时Label控件的背景色
Private Const LBL_WHEN_MOUSE_MOVE = &HC0C0C0 '鼠标移动时Label的背景色
Private Const LBL_WHEN_MOUSE_DOWN = &H808080 '鼠标按下时Label的背景色
Private Const LBL_BTN_NUM = 3 '按键数量
Private Sub Form_Load()
Dim Count As Integer
For Count = 0 To LBL_BTN_NUM - 1
LblBtn(Count).BackColor = LBL_BACK_COLOR '初始化LblBtn的背景
Next Count
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Count As Integer
DoEvents
For Count = 0 To LBL_BTN_NUM - 1
LblBtn(Count).BackColor = LBL_BACK_COLOR '恢复背景
Next Count
End Sub
Private Sub LblBtn_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) '当鼠标按在LblBtn上时
LblBtn(Index).BackColor = LBL_WHEN_MOUSE_DOWN '临时改变LblBtn背景颜色
End Sub
Private Sub LblBtn_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) '鼠标在LblBtn上面移动时触发该事件
Dim Count As Integer
DoEvents '暂时将系统控制权教给系统
If Button Then Exit Sub '如果按钮被按下就退出该过程
LblBtn(Index).BackColor = LBL_WHEN_MOUSE_MOVE '将背景设为鼠标移动的背景
End Sub