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() MsgBox...

以下代码 单击窗体后在鼠标位置创建一个新的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变得简单的一个优势,就是直接从工具箱中选择空间,添加到窗体中,还可以选中控件,设置各种属性,设置好后,就无需再用代码进行设置。 第二种,比较复杂,就是直接用代码添加控件。需要用代码指...

一般常用的控件在工具箱中就有。 只要把工具箱调出来就行了。 方法是:视图——工具箱不常用的控件可以在通过右击工具箱——部件——找到自己需要的控件添加即可。

使用数组方式,前提是已经初始化一个控件 示例: 存在一个text1(0)控件 Private Sub Command1_Click() Load Text1(1) Text1(1).Top = Text1(0).Top + 500 Text1(1).Visible = True Load Text1(2) Text1(2).Top = Text1(1).Top + 500 Text1(2).Vi...

编写示例代码如下: 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()...

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