VB怎么制作命令按钮

A. vb 中如何自定义命令按钮

窗体变化大小,其所属控件改变主要有控件位置的改变和控件大小的改变

一般来说对于按钮类的,我们只需要改变其位置,而对于Pic控件来说,一般会改变其大小

举个简单的例子吧

在一个form里,加入command1,Text1两个控件

在代码里编辑

PrivateSubForm_Resize()

IfMe.WindowState=1ThenExitSub'防止最小化时出现的属性错误

WithMe.Command1

.Top=Me.Height-.Height-385

.Left=0

EndWith

WithMe.Text1

.Top=0

.Left=0

.Width=Me.Width-120

.Height=Me.Height-Me.Command1.Height-385

EndWith

EndSub

拖动窗体大小,或者最小化看看

你按照上面的代码写了吗?

代码是写在Form_Resize()里吗?如果写在Load里,那可不行

你建立一个新工程试吧,以上的代码是VB6.0的.

这个代码的效果是：Text1随着窗体大小的改变，Text1大小跟着改变；command1随着窗体大小的改变，位置进行改变。

大小和位置的方法都有了啊，你不加代码，只放Text1和Command1在窗体上，拖动窗体大小看看区别,command的位置不会变，text1的大小也不会改变。你再琢磨琢磨下。

在我机器上运行的是,窗体上半部分全部都是Text1,Text1充满了窗体的上半部的大部分,下面比较窄的一行靠左是按钮,右边空

B. VB里面的命令按钮是什么

把鼠标移动到工具箱(VB最坐边的这一栏)的第三行,第二个.
你把鼠标移到它上面的时候就有提示控件名(Commandbutton),这个就是命令按钮.
双击它,就自动在窗体上添加了命令按钮.

C. 如何设计vb中命令按钮的图标

用标准控件是无法改变的。有两种方法可以解决：
(1)采用图片框来代替
(2)搜xp控件，是windows
xp风格的控件（如命令按钮、单选按钮、复选框……）。通常都会有示例说明，颜色很丰富，也很漂亮

D. vb中怎么编写 单击命令按钮，则窗体显示文本框内的内容

1、首先，双击窗体空白处进入代码窗口。

E. 用VB如何做关机的.命令按钮

Private Sub Command1_Click()
Shell "shutdown -s "End Sub可以还在 -s后面加个空格-t 空格秒数可以指定几秒后关机比如Shell "shutdown -s -t 10"10秒后关默认是30秒取消关机是开始 运行 输入shutdown -a

F. 点击一次命令按钮产生一个命令按钮，用vb怎么写谢谢。

Dim a As Integer

Private Sub Command1_Click(Index As Integer)
a = a + 1
Load Command1(a)
Command1(a).Visible = True
Command1(a).Left = 200
Command1(a).Top = a * 300
Command1(a).Width = 1000
Command1(a).Caption = a & "号按钮"
End Sub
与二楼类同，怕你不会定义数组，补充一下下，设定按钮时，先选中````Ctrl+C``````Ctrl+V````点“是”``````删掉刚刚新建的按钮`````在最开始的按钮里写入上面的代码就OK

G. 如何在vb窗体设计中设置单击按钮事件过程

VB中只需在另一窗体的文本框控件名前加上该窗体名做前缀后给与赋值。Option
ExplicitPrivate
Sub
Command1_Click()
Form2.Text1
=
Me.Text1End
SubPrivate
Sub
Command2_Click()
Form2.ShowEnd
SubPrivate
Sub
Form_Load()
Text1
=
"VB中只需在另一窗体的文本框控件名前加上该窗体名做前缀后给与赋值。"End
Sub

H. vb中添加一个命令按钮cmdsep怎么做

按以下步骤实现动态添加命令按钮
（1）新建一个VB6工程
（2）Form1窗体代码
Option Explicit

'定义要动态添加的命令按钮变量（带事件处理）
Dim WithEvents cmdX As CommandButton

'点击动态添加的按钮，弹出对话框
Private Sub cmdX_Click()
MsgBox "动态添加的命令按钮！！！"
End Sub

'鼠标双击窗体，动态添加一个命令按钮
Private Sub Form_DblClick()
If cmdX Is Nothing Then
Set cmdX = Controls.Add("VB.CommandButton", "cmd1")
cmdX.Caption = "点击我呀"
cmdX.Width = 4500
cmdX.Move 150, 150
cmdX.Visible = True
End If
End Sub

I. VB中如何用代码添加命令按钮

按以下步骤实现动态添加命令按钮

（1）新建一个VB6工程

（2）Form1窗体代码

OptionExplicit

'定义要动态添加的命令按钮变量（带事件处理）


'点击动态添加的按钮，弹出对话框
PrivateSubcmdX_Click()
MsgBox"动态添加的命令按钮！！！"
EndSub

'鼠标双击窗体，动态添加一个命令按钮
PrivateSubForm_DblClick()
IfcmdXIsNothingThen
SetcmdX=Controls.Add("VB.CommandButton","cmd1")
cmdX.Caption="点击我呀"
cmdX.Width=4500
cmdX.Move150,150
cmdX.Visible=True
EndIf
EndSub

（3）运行

启动后