189 8069 5689
正确的：
我们提供的服务有：成都网站制作、网站设计、微信公众号开发、网站优化、网站认证、婺城ssl等。为超过千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的婺城网站制作公司
Dim i As Integer
Dim j As Integer
Private Sub CommandButton2_Click()
For i = 0 To MultiPage1.Count - 1 '遍及数组
MsgBox "MultiPage1.Pages(i).Caption = " MyTextBox1.Text
Next i
End Sub
Private Sub UserForm_Initialize()
j = 1
Me.MultiPage1.Pages.Add.Caption = 1
Call tianjia
End Sub
Private Sub CommandButton1_Click()
i = i + 1
j = j + 1
Me.MultiPage1.Pages.Add.Caption = j
Call tianjia
End Sub
Public Sub tianjia()
Set MyTextBox1 = MultiPage1.Pag44(i).Controls.Add("Forms.TextBox.1", "TextBox1")
MyTertBox1.Left = 40
MyTextBox1.Top = 17
MyTextBox1.Width = 148
MyTextBox1.Height = 18
End Sub
在控件栏点右键,点"添加选项卡",输入个名称,确定,然后就增加了一个页,将你要用的控件按住不放,拖动到新建的选项卡里就OK了.
你只有一个catcon，所以不行，你必须定义数组catcon()才可以显示多个
AspNetPager简单使用方法 AspNetPager作为分页工具,常常用于绑定数据控件,如DataGrid , Repeater等
在这里,简单讲解下 绑定 Repeater 控件的方法,其余控件绑定方法类似:
'全局变量 i 用于 读取 数据集记录的条数(注意:读取一次就够了)
Dim i As New Integer
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If i = 0 Then
con = New SqlConnection(ConfigurationManager.ConnectionStrings("NEWS_ConnectionString").ConnectionString)
con.Open()
cmd = New SqlCommand()
cmd.Connection = con
cmd.CommandText = "select count(*) from XWNRB "
'AspNetPager控件 可见
Me.AspNetPager1.Visible = True
'AspNetPager控件 每页显示大小为10条记录
Me.AspNetPager1.PageSize = 10
'AspNetPager控件 记录总的记录条数
Me.AspNetPager1.RecordCount = Convert.ToInt32(cmd.ExecuteScalar())
'AspNetPager控件 数据绑定
Me.SHOW_DATA_LIST()
i = i + 1
con.Close()
End If
End Sub
Protected Sub SHOW_DATA_LIST()
con = New SqlConnection(ConfigurationManager.ConnectionStrings("NEWS_ConnectionString").ConnectionString)
sql_Text = "select * from XWNRB where "
da = New SqlDataAdapter(sql_Text, con)
Dim ds As New Data.DataSet
'第一个参数为存储入的数据集为ds
'第二个参数为存储的起始记录序号
'第三个参数为存储的记录每页条数
'第四个参数为存储入的数据集ds中的具体某个表
da.Fill(ds, Me.AspNetPager1.PageSize * (Me.AspNetPager1.CurrentPageIndex - 1), Me.AspNetPager1.PageSize, "NEWS_LIST")
'真正绑定
Me.Repeater2.DataSource = ds.Tables("NEWS_LIST").DefaultView
Me.Repeater2.DataBind()
End Sub
'即每次点击新的页面,或者点击 Pre,Next,Last.....时候都会触发这个事件
Protected Sub AspNetPager1_PageChanged(ByVal src As Object, ByVal e As Wuqi.Webdiyer.PageChangedEventArgs) Handles AspNetPager1.PageChanged
'更新当前所在的页数序列
Me.AspNetPager1.CurrentPageIndex = e.NewPageIndex
'更新完后绑定
Me.SHOW_DATA_LIST()
End Sub
思路：
利用几个可以作为容器的控件，添加滚动条就可以了：
我举个例子：（这个问题我记得回答过的！）
添加1个PicTureBox1，作为容器
在PicTureBox1里添加PicTureBox2，在窗体上添加一个垂直滚动条。
把你所谓的许多控件放到PicTureBox2里，滚动条改变的是PicTureBox2在PicTureBox1里的Top属性，我想你通过一定的空间想象力，可以想到效果了吧？
注意：默认状态设置PicTureBox2的Top属性为0，当该属性为负值的时候，PicTureBox2显示的效果是向上移动，即下面原来隐藏的内容为可见了。
要设置PicTureBox2的AutoRedraw 属性为True。
若要左右移动效果，那么改变其 Left 属性，原理不再赘述了。