浅显基础教程
电脑操作教程
电脑怎样拨号上网
怎么做个人网页
怎样做局域网
Word教程(文字处理)
图形图象处理入门
经典进步教程
怎样运用代理服务器
怎么做无盘工作站
Photoshop教程
Dreamweaver3教程
Flash4&5教程
Firework3教程
Frontpage2000教程
Authware教程
Office2000教程
怎么制造动画图片
OICQ&ICQ运用办法

高手学习攻略

硬件晋级技巧
CGI教程
ASP教程

PHP教程

注册表运用技巧
路由器的设置
vwin建造攻略
vwin :首页 SQL
最近更新:
VB
相关内容

用VB6完成动态增减控件
周涛 (07/07/1999)


    用过Internet Explorer收藏夹的朋友都知道,运用鼠标单击时收藏夹会呈现,再次单击则收藏夹消失。从编程视点讲,这是个在程序运转阶段动态增减控件的问题。曾经,这仅仅是C++之类编程言语的专利。现在,微软在Visual Basic6.0中也新增了这个功用,下面就此举例进行介绍:
  1.新建一个工程,窗体Form1为缺省窗体,Form1的特点项Caption=″动态增减控件的比如″。
  2.参加两个指令按钮(CommandButton),其间:
  Command1的特点项Caption=″增加控件″;
  Command2的特点项Caption=″删去控件″。
  3.参加如下代码,运转该工程,单击″增加控件″则呈现新增按钮。若单击″新增按钮″时会呈现对话框,标明你触发的是动态增加控件的单击事情。
  Option Explicit
  ′经过运用WithEvents关键字声明一个目标变量为新的指令按钮
  Private WithEvents NewButton As CommandButton
  ′增加控件
  Private Sub Command1_Click()
  If NewButton Is Nothing Then
  ′增加新的按钮cmdNew
  Set NewButton =Controls.Add(″VB.Command?Button″,″cmdNew″, Me)
  ′确认新增按钮cmdNew的方位
  NewButton.Move Command1.Left+Command1.Width+240, Command1.Top
  NewButton.Caption =″新增的按钮″
  NewButton.Visible = True
  End If
  End Sub
  ′删去控件(注:只能删去动态增加的控件)
  Private Sub Command2_Click()
  If NewButton Is Nothing Then
  Else
  Controls.Remove NewButton
  Set NewButton = Nothing
  End If
  End Sub
  ′新增控件的单击事情
  Private Sub NewButton_Click()
  MsgBox″您选中的是动态增加的按钮!″
  End Sub
  留意:假如你期望增加一个用户控件或任何ActiveX控件到您的窗体,有必要把这个控件增加到“东西箱”,或许把控件的License关键字增加到Licenses调集中。并且,你不能选定“工程特点”对话框的“生成”选项卡上的“删去有关未运用的ActiveX控件”选项,不然controls.Add办法将失利,由于必需的信息现已被丢掉。

用VB完成多文件查找与替换功用
用VB 5.0 规划Browser及FTP程序
用Visual Basic 5.0规划E-mail程序
谈谈WIN API在VB中的运用
在VB中运用Word的“艺术字”东西
获取Win95特别目录精确途径
配置文件.ini在VB5中的运用
操控结构VB5程序规划
用VB切换三个特别键
用VB5对Windows 95任务栏提示区编程
用API改善ListView显现作用
VB中Grid控件的打印办法
在VB中完成文件上载
用Microsoft Agent 控件与电脑攀谈
用VB5直接操控Excel 97
在Developer/2000中调用VB
在VB顶用API完成多媒体
VB6制造Win98风格的东西栏
VB6六问答
运用VB编写屏幕维护程序
VB中Winsock操控的UDP协议的运用
用VB规划一个守时闹钟程序
用VB6完成动态增减控件
 
 
 
教程站
收集整理