kwrl.net
当前位置:首页 >> 如何在VB窗体中用代码添加控件 >>

如何在VB窗体中用代码添加控件

给你啊一个样子,你自己看。

比如说添加一个文本框: Dim t As TextBoxSet t = Controls.Add("VB.TextBox", "t1")t.Move 300, 150, 3000, 2400t.Visible = TrueVB.TextBox 是文本框的类名,其他控件也有对应的类名,你可以自己去查。比如按钮就是 VB.CommandButton 。另外,...

按以下步骤实现动态添加命令按钮 (1)新建一个VB6工程 (2)Form1窗体代码 Option Explicit 定义要动态添加的命令按钮变量(带事件处理) Dim WithEvents cmdX As CommandButton 点击动态添加的按钮,弹出对话框 Private Sub cmdX_Click() MsgB...

以下代码 单击窗体后在鼠标位置创建一个新的textbox。 Option Explicit Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim T As Object Static Num As Long '在本窗体内添加(可以是其他 如 pict...

Option Explicit Private WithEvents NewButton As CommandButton '通过使用WithEvents关键字声明一个对象变量为新的命令按钮 Private Sub Command1_Click() If NewButton Is Nothing Then Set NewButton = Controls.Add("VB.CommandButton", "c...

Dim i As Integer Private Sub Form_Load() i = 1 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Load Text1(i) Text1(i).Top = Text1(i).Top + Text1(i).Height * i...

主要有两种方法: 第一种,是最常用的,也是使Vb变得简单的一个优势,就是直接从工具箱中选择空间,添加到窗体中,还可以选中控件,设置各种属性,设置好后,就无需再用代码进行设置。 第二种,比较复杂,就是直接用代码添加控件。需要用代码指...

先定义一个控件(Option1),然后修改index值为0 ,就创建了控件数组,设置你要创建控件数组的其它属性. Private Sub Form_Load() Dim i% For i = 1 To 3 Load Option1(i) ' 这句是关键,,,,, Option1(i).Top = Option1(0).Top Option1(i).Left = Op...

编写示例代码如下: Private Sub TextBox1_Change() Dim oPage iMax = CInt(TextBox1.Text) - UserForm1.MultiPage1.Pages.Count UserForm1.MultiPage1.Pages(0).Controls.Copy For i = 1 To iMax Set oPage = UserForm1.MultiPage1.Pages.Add()...

思路 两种方式: 1、通过动态按钮方式创建, 2:通过控件数组方式创建。 个人倾向于通过控件数组的方式。一般应用都是有规律的创建的,所以用控件数组合适些。 举例 ' 先在窗体上添加一个标准按钮' 在属性窗口中,把它的 Index属性设置成 0' 名...

网站首页 | 网站地图
All rights reserved Powered by www.kwrl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com