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）運行

啟動後