VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
當前位置:
魔兽世界wow > 編程開發 > vb >
  • vb教程之用VB6實現動態增減控件

  • 2017-09-21 15:53 來源:未知
用過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方法將失敗,因為必需的信息已經被丟失。
相關教程