vb.net 怎么实现多个控件共同使用一个变量

把变量定义时增加Shared关键字即可.如:

创新互联公司主营蒲江县网站建设的网络公司,主营网站建设方案,成都App制作,蒲江县h5小程序开发搭建,蒲江县网站营销推广欢迎蒲江县等地区企业咨询

Private

Shared

AAA

As

String

Public

Shared

AAA

As

String

......

这样AAA在一个应用程序里就是公用的.

------------------------------------------------------

补充:

不可能没用,我都是这样做的.

该控件使用中,自己看吧:

Public

Class

CMB_MemoryTextBox

Inherits

TextBox

#Region

"

变量定义

"

Private

Shared

p_HisData

As

STRU_DATA

'用数据表保存所有控件的历史记录

Private

Shared

p_FileName

As

String

'保存历史记录的文件名

......

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

思路：

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

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

添加1个PicTureBox1，作为容器

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

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

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

要设置PicTureBox2的AutoRedraw 属性为True。

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

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

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

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

名称栏目：vb.net多页控件,vb多窗体设计实例
转载来于：http://cdweb.net/article/heehge.html