可以在设计时,全选需要排列的按钮,然后点击vb菜单的“格式”--“对齐”还可以使用代码,以下代码供参考,假如有5个按钮凌乱的在form上,使用下面的代码会以第一个按钮为标准排列:Private Sub Form_Click()Dim i For i = 2 To 5 Me.Controls("command" & i).Left = Me.Controls("command" &...
如果是用Alt组合健,最简单的方法就是,在按钮的Text属性里加个&符合,比如想用Alt+A来控制Button1的话,就在Button1的Text属性上加一个&A即可。比如Text属性是“我是按钮(&A)”,如图所示,那么在按下Alt+A就可以执行Button1_Click命令了,呵呵 ...
如果用按钮的话,不好实现,因为如果窗体中间有按钮的话,窗体不接受方向键的事件,可以用标签来代替按钮。给窗体两个标签,分别是label1,label2,输入如下代码看看:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 38 Then Label1_Click If KeyCode = 40 Then Label2_...
设置VB窗体中按扭快捷键的操作可以采用下面两种方法来实现:1、在按扭的Capion 属性设置标题的时候,前面增加 "&K"字符就可以,K代表的是你准备使用的Alt+键盘字符,如“&O.退出”,程序运行的时候按下 Alt+O 即执行该按扭的操作了 2、你可以利用该按扭所在的Form 窗体优先权获得键盘操作功能来激发你...
1、创建控件组的方法首先创建一个命令按钮,调整其大小(觉得合适就行),名称为Command1,Caption 属性为数字 0 ;然后进行“复制”和“粘贴”,当选择“粘贴”时,出现对话框提示已有一个同名控件,询问是否创建控件组,选择“是”后,即创建了一个名为“Command”的控件组。这时,第一个按钮的Index...
比如先放一个PictureBox控件,在上面再放上其他控件;然后再在窗体放入一个PictureBox控件,再在上面放上另一批按钮、文本框之类的控件,依此类推。然后点第一个按钮时,把第一个PictureBox的Visible属性设为True,其他PictureBox的Visible属性设为False;同理点第二个按钮时,把第二个PictureBox的Visible...
在表单上建立 Command1 数组,Command1(0 - 9)在表单上建立 Text1 用于显示 Option Explicit Private Sub Form_Load()Dim a(10) As Byte Dim i As Byte, r As Byte, t As Byte For i = 0 To 9 a(i) = i Next Randomize For i = 0 To 9 r = Int(Rnd * 10)t = a(r)a(...
Private Sub Command1_Click()Timer1.Enabled = True Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False End Sub ...其余按钮事件类推 Private Sub Timer1_Timer()Text1.Top = Text1.Top + 10 End Sub ...其余计时器事件类推,分别是.top - 10;.left +10和.left -...
在使用VB控制时,要使用到单选或复选按钮,但同一界面的单选只能选中一个。这里就要对单选按键分组就进行解决。错误示范一 假如有三道单选题。我们把它分布排列好。按理是每一行只有一个被选上。但运行时,6个选项只能选择一个。错误示范二 用容器将它们分组。结果和示范一是一样。无法实现单行单选。...
If xuanze = vbCancel Then Command3.Visible = True Else Command2.Visible = True dierci = False End If Command1.Visible = False End Sub Private Sub Command2_Click()If dierci Then Command2.Visible = False '被点第二次时会消失,这时界面空了,怎么办?代码加在这里。Else MsgBox ...