Dim x As Integer
Private Sub Button1_Click()
If x < 0 Then x = 0
Label1(x).Visible = True
x = x - 1
End Sub
Private Sub Button2_Click()
If x > Label1(Index).Index Then x = Label1(Index).Index
Label1(x).Visible = True
x = x + 1
End Sub
Private Sub Form_Load()
Button1.Caption = "下一条"
Button2.Caption = "上一条"
x = 0
End Sub
在BUTTON的CLICK函数里面
定义n=0
LABEL(N).VISIBALE=TRUE
N=N+1
呵呵，说了个大概，不知道LZ是不是这个意思。点一次按钮显示一个LABEL
VB中如何用控件实现多个文本框的顺序出现
将Label标签设计为数组控件，即：Label1(0)、Label1(1)、Label1(2)...Dim x As Integer Private Sub Button1_Click()If x < 0 Then x = 0 Label1(x).Visible = True x = x - 1 End Sub Private Sub Button2_Click()If x > Label1(Index).Index Then x = Label1(Index).Index...
vb如何用循环控制多个文本框输出内容~~~
1、新建一个窗体（表单），名称为Form1；2、在Form1中放置100个文本框，名称分别为TextBoxa1~~TextBoxa100；（其实最好用控件数组）3、程序如下：Private Sub Form_Load()Dim i As Integer For i = 0 To Me.Count - 1 If TypeOf Me.Controls(i) Is TextBox Then Me.Controls(i).Text =...
vb里面点击一个按钮怎么同时播放两个文本框的数字?
打开窗体设计器，在窗体上添加两个文本框控件，并设置它们的 Name 属性分别为 TextBox1 和 TextBox2。添加一个按钮控件，并设置它的 Name 属性为 Button1。双击按钮控件，在按钮的 Click 事件处理程序中添加以下代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System....
vb再窗体上添加5个文本框组控件数组,以及一个命令按钮,向文本框输入...
第一种适用于文本框较少的情况 Private Sub Command1_Click() Dim s As String s = Text1(0).Text Text1(0).Text = Text1(4).Text Text1(4).Text = s s = Text1(1).Text Text1(1).Text = Text1(3).Text Text1(3).Text = sEnd Sub效果图 第二种适用...
vb里面添加文本框,让文本框可以多行显示,满了换行,有一个竖直的滚动条...
当键入文本超出文本框时多行 TextBox 控件将使正文卷绕。使用 ScrollBars 属性也能够在 TextBox 控件中加入滚动条来加大 TextBox 控件的显示范围。如果没有指定水平滚动条，那么在多行 TextBox 中文本将自动地卷绕。注意 在一个没有缺省按钮的窗体上，在多行 TextBox 控件中按下 ENTER 将把焦点移动...
如何用vba循环读取多个文本框控件中的内容,比如TB1,TB2,TB3
建议使用控件数组。举个例子:判断这些文本框中的数字是否大于10，若是的话则将这些文本框中的内容改成红色的字体 将TB1、TB2、TB3...创建为一个名为Text1的控件数组 For i=0 to ListCount-1 If Val(Text1(i).Text)>10 Then Text1(i).ForeColor=VbRed Next i ...
VB中textbox如何多行显示?
1、添加TextBox控件。2、设置TextBox属性。3、编写代码。4、运行效果。5、常见代码:BorderColor 获取或设置 Web 控件的边框颜色。BorderStyle 获取或设置 Web 服务器控件的边框样式。BorderWidth 获取或设置 Web 服务器控件的边框宽度。Columns 获取或设置文本框的显示宽度 Enabled 获取或...
vb中怎么改变控件的层序,比如几个image,想让他们按照想要的顺序层叠出现...
可以设置zorder属性：如：Image3.ZOrder Image2.ZOrder Image1.ZOrder 则从上到下的显示顺序为：1、2、3
VB中多个按钮,点击后然后在窗体固定位置显示不同的内容
用容器控件（PictureBox或Frame控件）可以实现。比如先放一个PictureBox控件，在上面再放上其他控件；然后再在窗体放入一个PictureBox控件，再在上面放上另一批按钮、文本框之类的控件，依此类推。然后点第一个按钮时，把第一个PictureBox的Visible属性设为True，其他PictureBox的Visible属性设为False；同理...
在VB中如何用循环语句给多个连续文本框赋值
Me.Controls '枚举窗体所有控件 Debug.Print TypeName(obj)If TypeName(obj) = "TextBox" Then '判读是否为文本框 i = i + 1 objName = obj.Name '获取文本控件名称,这里可以根据名称来判读赋值，也可以根据其他属性复制 obj.Text = "文本" & i '文本框赋值 End If Next ...
