vb.net多页控件,vb多窗体设计实例
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://myzitong.com/article/heehge.html