php数据库复习方法,php数据库教程

VB多页控件问题

正确的：

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

相关问答

Q1: VB怎样调出"多页控件"？

在控件栏点右键,点"添加选项卡",输入个名称,确定,然后就增加了一个页,将你要用的控件按住不放,拖动到新建的选项卡里就OK了.

Q2: vb.net 动态添加多个控件只能显示第一个？

你只有一个catcon，所以不行，你必须定义数组catcon()才可以显示多个

Q3: VB.NET中使用AspNetPager控件的详细用法

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

Q4: VB.net中窗体上控件太多，运行时在桌面上显示不全，怎样用滚动条来解决？请详细说明，最好给个小例子。

思路：

利用几个可以作为容器的控件，添加滚动条就可以了：

我举个例子：（这个问题我记得回答过的！）

添加1个PicTureBox1，作为容器

在PicTureBox1里添加PicTureBox2，在窗体上添加一个垂直滚动条。

把你所谓的许多控件放到PicTureBox2里，滚动条改变的是PicTureBox2在PicTureBox1里的Top属性，我想你通过一定的空间想象力，可以想到效果了吧？

注意：默认状态设置PicTureBox2的Top属性为0，当该属性为负值的时候，PicTureBox2显示的效果是向上移动，即下面原来隐藏的内容为可见了。

要设置PicTureBox2的AutoRedraw 属性为True。

若要左右移动效果，那么改变其 Left 属性，原理不再赘述了。