vb动态添加删除控件汇总

VB 动态添加删除控件汇总

1. 概述在使用Visual Basic 进行程序设计的过程中，如果能在运行时刻动态地创建和删除控件，可以极大地丰富界面的处理和变化。本人在设计网络监控系统时，需要在原理图与实物示意图间切换。切换的过程采用本文介绍控件的动态创建和删除来实现，有效地节省了系统资源，同时也有利于简化界面的维护。下面将就Visual Basic 6.0 中的控件在运行时刻的创建和删除的两种方法——控件数组

和控件集合作详细的阐述。2. 基于控件数组的动态控件的创建与删除vb 中的控件数组实际上也是一种数组，其中的每个控件具有相同的Name 属性，但具有不同的Index 属性，在这里Name 属性类似于数组的名字，而Index 属性类似于数组的下标同时，控件数组也支持普通VBA 数组的LBound 、UBound 和Count 方法，控件数组中的控件可以共享一个事件过程，便于代码的编写和集中处理，这正是使用控件数组的最大的理由。但是控件数组与普通的数组并非完全一样，它不需要定义大小，只有这样我们才可以动态的扩展[kuo zhan]它。下面给出利用Load 命令动态添加控件和Unload 命令动态删除控件的一般方法：（1）

首先在窗体上放置一个TextBox ，其Name 属性设置为Text1 ，Index 属性设置为0 ，这样我们就创建了一个

TextBox 控件数组，其中有一个成员。（2）在窗体上放置一个命令按钮Command1 ，在其Click 事件中添加如下的代码：Load

Text1(1)Text1(1).left=0Text1(1).visible=true（3）

在窗体上放置一个命令按钮Command2 ，在其Click 事件中添加如下的代码：Unload Text1(1)（4）运行。单击命令按钮Command1 ，窗体上会出现一个新的文本框；单击命令按钮Command2 ，窗体上刚出现的新的文本框就被删除。需要注意的是：Load 命令创建的控件Text1(1) 与设计时已经放在窗体上的控件Text1(0) 有完全相同的属性，也包括大小和位置等属性，例外的就是Index 属性不一样，Visible 属性默认为False, 所以必须在Load 方法执行之后，执行调整控件位置的语句[yu ju]，并把其Visible 属性设置为True ，以便在窗体上可见。Unload 命令只能删除动态加载的控件，若删除设计时创建的控件会产生错误[cuo wu]。另外，利用上面提到的数组的一些方法，可以有效的简化代码的编写。以下的代码可以删除所有动态创建的Text1 控件数组中的控件: Do While

Text1.Count>1Unload Text1(Text1.Ubound)Loop需要说明[shuo ming]的是，菜单数组是控件数组的一种特殊的形式，只是它是在菜单编辑器[bian ji qi]中设置相应的Name 和Index 属性，而且要求一个菜单控件数组中的菜单项必须是

同一级菜单，但是不能创建新的顶级菜单。而动态创建和删除菜单项的方法也使用Load 和Unload 方法，只是默认情况下其Visible 属性是True, 而且不用重新设置相应的位置。 3. 基于控件集合的动态控件的创建与删除VB 中提供一个Controls 集合，用以包含当前窗体中的所有的控件，这对于实现一些功能相对复杂的操作相当有好处。而且Controls 集合也是集合的一种，它支持一般集合的Count 等方法和相应的检索[jian suo]机制[ji zhi]。以下两例就是利用这个控件集合的巧妙实现。要清空当前窗体上的所有的文本框，可以如下实现：Dim Ctl as ControlFor Each Ctl in ControlsIf Typeof Ctl is Textbox thenCtl.Text= ””EndifNext Ctl也可以利用集合的Count 方法如下实现：For i=0 To Controls.Count-1If Typeof Ctl is TextBoxControls(i).Text= ””EndifNext i当然，控件集合毕竟是一种特殊的集合，下面给出利用Add 方法动态添加控件，Remove 方法动态删除控件的一般方法：（1）Controls 集合的Add 方法其语法[yu fa]格式为：Set mycontrol =

controld.Add(ProgId, Name, [Container])在这里，mycontrol 是一个自定义的控件对象，若需要新创建的控件对事件做出反应，还要再定义该对象时增加WithEvents 关键字ProgId 是库名. 控件名形式的控件类的名字，ToolBox 中的控件一般具有类似于https://www.sodocs.net/doc/697699524.html,mandButton 这样的形式。而

Active X 控件的形式则有所差别，比如若使用Windowless 控件库中的控件一般具有类似于MsWless.WlText 的形式。Name 参数是想赋给控件的名字，与控件的Name 属性相对应。Container 参数是可选的，它代表欲放置控件的容器，默认情况下是放置在窗体上。下例是在窗体上动态创建一个命令按钮，然后单击命令按钮时，执行相应的动作：Dim WithEvents mycontrol As CommandButtonPrivate Sub

Form_Load()Set mycontrol =

Controls.Add("https://www.sodocs.net/doc/697699524.html,mandbutton",

"mycontrol")mycontrol.Left = 0mycontrol.Caption = "my"mycontrol.Visible = TrueEnd SubPrivate Sub

mycontrol_click()MsgBox "You click me!", vbExclamationEnd Sub需要注意，动态创建的控件必须指定相应的属性，而且在默认情况下，其Visible 属性是False 。（2）

Controls 集合的Remove 方法利用Controls 集合的Remove 方法可以删除用Add 方法动态创建的控件。其语法[yu fa]格式为：Controls.Remove “控件名”比如以上创建的mycontrol 要删除可以使用如下的命令：Controls.Remove "mycontrol"同样应该注意，不能删除一个不存在或者在设计时创建的控件。4. Active X 控件的动态创建和删除以上论述的方法适合于控件在应用程序[ying yong cheng xu]工具箱（TOOLBOX ）中的情况，而Active

X 控件一般在应用程序[ying yong cheng xu]运行机器上，但没有在工具箱中，这种情况则需要先进行注册，方法是利用Regsvr32 在Windows 环境中注册，或者在VB 代码中进行注册，方法如下：Shell(Systempath ＆“regsvr32.exe /s /I" ＆MyControlName, vbHide) 其中Systempath 是Regsvr32.exe 所在的路径，MyControlName 是控件名字（包括路径）若要撤销，可以如下操作：Shell(Systempath ＆“regsvr32.exe /s /U" ＆MyControlName, vbHide) 下面讨论注册但是未出现在工具箱（TOOLBOX ）中的Active X 控件的情况，这其中也包括VB 自带的一些Active X 控件的使用。具体的方法就是利用VBControlExtender 对象。VBControlExtender 对象与EventInfo 相结合能提供事件陷井捕捉，它提供了一套通用的属性、方法、事件给开发人员，它的一个突出特点是能编程设计控件的事件，声明时若使用WithEvents 关键字，则会有个特殊的事件ObjectEvent(Info As EventInfo) ，它能捕捉到对象使用RaiseEvent 产生的所有事件，EventInfo 数据结构[jie gou][shu ju jie gou]映射[ying she]了事件的名称、参数个数和参数的值。VBControlExtender 和EventInfo 相结合，采用Select Case 就可以预先将不同类对象的事件放置一起，各自独立[du li]运作。下面的例子是使用未在工具箱（TOOLBOX ）中出现的RichTextBox 的方法，其他

的Active X 控件的使用方法与此类似：Dim WithEvents myControl As VBControlExtenderPrivate Sub

Form_Load()Licenses.Add "RichText.RichTextctrl.1"Set myControl = Controls.Add("RichText.RichTextctrl.1", "mycontrol")myControl.Left = 0myControl.Visible = TrueEnd SubPrivate Sub myControl_ObjectEvent(Info As

EventInfo)Select Case https://www.sodocs.net/doc/697699524.html,Case "MouseDown"MsgBox "mousedown"Case Else‘其他事件End SelectEnd Sub需要注意，Licenses.Add "RichText.RichTextctrl.1" 是响应[xiang ying]控件的对象编号在VB 中的注册，若此控件已经出现在工具箱（TOOLBOX ）中，则会出错。另外，若Active X 控件已经出现在TOOLBOX 中，需要动态建立控件，则应该作如下的处理：首先去掉Licenses.Add

"RichText.RichTextctrl.1" 这一句，然后，在“工程属性窗口[chuang kou]”的“Make ”页面下，确保[que bao]“remove information about unused ActiveX controls ”不被选中即可。还有，若Active X 控件已经出现在TOOLBOX 中，需要动态建立控件，还可以用类似于前面介绍的控件集合的方法，比如上面示范的RichTextBox 的例子还可以如下实现（只是这种方法不再支持ObjectEvent 事件）：Dim WithEvents myControl As RichTextLib.RichTextBoxPrivate Sub

Form_Load()Set myControl =

Controls.Add("RichText.RichTextctrl.1",

"mycontrol")myControl.Left = 0myControl.Visible = TrueEnd SubPrivate Sub myControl_Click()MsgBox "click"End Sub５. 结束语通过以上对Visual Basic 中的控件动态建立和删除进行了讨论，我们了解到控件数组适合于应用程序[ying yong cheng xu]中需要该控件，但需要控件实例的具体数量不定的情况；而控件集合则适合于为了完成不同的任务[ren wu]，制作了多个不同功能的控件，在特定条件[tiao jian]下只需要一个或几个控件的情况对于Active X 控件，若没有添加到VB 工具箱中，当应用程序[ying yong cheng xu]执行时，可以根据需要由程序自动加载或者删除。总之，合理地选择[xuan ze]使用以上的各种方法，对于提高编程的效率和代码的运行效率都是大有裨益的。以上有关的代码都已在Windows 2000 Professional 和Visual Basic 6.0 企业版环境下测试通过。

'//oooooooooooooooooooooooooooooooooooooooooooooooooo oooo' 以下是完整的测试代码--------------2011-1-21 BY

ZHJ'//oooooooooooooooooooooooooooooooooooooooooooooo ooooooooOption ExplicitDim WithEvents mycontrol As CommandButton '这句要放在全局定义Dim x1, y1Private Sub Command1_Click() If isControlExists("mycontrol") = True Then: Exit Sub Set mycontrol =

Controls.Add("https://www.sodocs.net/doc/697699524.html,mandButton", "mycontrol") With mycontrol .Caption = "可以拖动我看看！

" .Left = 100 .Width = 3000 .Visible = True End WithEnd SubPrivate Sub Command2_Click() If isControlExists("mycontrol") = False Then: Exit Sub Controls.Remove "mycontrol"End SubPrivate Sub Command3_Click() mycontrol_ClickEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Caption = X & "," & YEnd SubPrivate Sub mycontrol_Click() Dim obj As Object Dim str For Each obj In Controls str = str & vbCrLf & https://www.sodocs.net/doc/697699524.html, Next If isControlExists("mycontrol") = True Then MsgBox str, , "你点击了我！" Else MsgBox str, , "控件已删除！" End IfEnd Sub'//自定义函数，判断控件是否存在Function isControlExists(ctlName As String) As Boolean

Dim obj As Object For Each obj In Controls If https://www.sodocs.net/doc/697699524.html, = ctlName Then isControlExists = True Exit Function End If Next isControlExists = FalseEnd FunctionPrivate Sub mycontrol_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

'Me.Caption = X & "," & Y If x1 > 0 And y1

> 0 Then With mycontrol .Left

= .Left + (X - x1) .Top = .Top + (Y - y1)

End With End IfEnd SubPrivate Sub

mycontrol_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) x1 = X: y1 = YEnd SubPrivate Sub mycontrol_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) x1 = IIf(x1 > 0, 0, x1) y1 =

IIf(y1 > 0, 0, y1)End Sub

俄罗斯方块C语言代码

【转载】88行代码实现俄罗斯方块游戏（含讲解） 来源：https://www.sodocs.net/doc/697699524.html,/p/8 在正式阅读本文之前，请你记得你应该用娱乐的心态来看， 本代码所使用到的技巧，在工作了的人眼里会觉得很纠结，很蛋疼，很不可理喻，很丑， 注意，是你蛋疼，不关我的事 通常，写一个俄罗斯方块，往往动不动就几百行，甚至上千行，而这里只有88行 正所谓头脑风暴，打破常规。这里将使用很多不平常的手段来减少代码 以下是Win-TC可以成功编译并执行的代码（代码保证单行长度不超过80字符，如果你是Win7系统，那请看后文）： 程序代码： #include"graphics.h" #include #include int gcW = 20, gcColor[] = {DARKGRAY, LIGHTBLUE, LIGHTGREEN, LIGHTCYAN, LIGHTRED, LIGHTMAGENTA,MAGENTA, YELLOW}; struct tetris { int _pool[16][32], (*pool)[32], tmap[8][4][16]; int x, y, s, st, t; }gt; void trsInit() { int sp[8][4] = {{15,4369},{23,785,116,547},{71,275,113,802}, {39,305,114,562},{54,561},{99,306},{51,51},{-1}}; int *p, i, j, b; for (p = sp[0]; *p >= 0; ++p) if ( *p == 0 ) *p = p[-2]; gt.pool = >._pool[4]; for (j = 0; j < 7; ++j) for (i = 0; i < 4; ++i) for (b = 0; b < 16; ++b) gt.tmap[j+1][i][b] = (sp[j][i] & 1) * (j + 1), sp[j][i] >>= 1; memset(gt._pool, -1, sizeof(gt._pool));

MFC中如何动态创建控件并响应其消息

原理： 利用窗体上的消息都会经OnCmdMsg进行路由处理的原理，在这里截获自己动态生成的那些控件，然后通过自定义消息发送出去(带上控件id)，经自己的消息处理函数处理即可。 1、定义起始控件ID号，和自定义消息 UINT Start_CtlID = 1980; #define DynamicBtnMessage WM_USER+200 后面动态创建的控件id号会基于Start_CtlID自增； 2、在OnInitDialog中动态创建控件 窗体类中定义：CArray btnArray 以保存动态创建的按钮 int btnw=120;int btnh = 50;//创建*3个button，顺序排列 for (int i=0;i<5;i++) { for (int j=0;j<5;j++) { CString str; str.Format(_T("Cam%d"),Start_CtlID-1980); r.left =100 + (j*btnw); r.top =250 + (i*btnh); r.bottom = r.top + btnh; r.right =r.left + btnw; CButton *btn = CreateButton(Start_CtlID,str,r, BS_FLAT); btn->ShowWindow(SW_SHOW); btnArray.Add(btn); } }

3 在OnCmdMsg中处理控件点击消息 BOOL CFormDlg::OnCmdMsg(UINT nID, int nCode, void* pExtra, AFX_CMDHANDLERINFO* pHandlerInfo) { // 判断传进来的控件id位于动态创建button的id之间，并且命令nCode是控件命令(比如点击事件消息)，注：其它系统事件也会走到这个函数里进行分发的。 if (nID>=1980 && nID<=Start_CtlID-1 && CN_COMMAND==nCode) { //发送自定义消息，并附上控件ID PostMessage(DynamicBtnMessage,nID,NULL); } return CDialog::OnCmdMsg(nID, nCode, pExtra, pHandlerInfo); } 4、在自定义消息处理函数中处理点击事件 在BEGIN_MESSAGEMAP和END_MESSAGE_MAP之间加入以下消息映射： ON_MESSAGE(DynamicBtnMessage, &CpngFormDlg::OnDynamicBtnMessage) 在头文件中定义消息响应函数： afx_msg LRESULT OnDynamicBtnMessage(WPARAM wParam, LPARAM lParam); LRESULT CpngFormDlg::OnDynamicBtnMessage(WPARAM wParam, LPARAM lParam) { g_ClickBtnID = (UINT)wParam-1980; if (g_ClickBtnID>=0 && g_ClickBtnID<=100) { CString str; str.Format(_T("button %d is clicked!"),g_ClickBtnID);//获取到点击的是谁 AfxMessageBox(str); } return TRUE; }

俄罗斯方块C语言程序设计报告

C语言课程设计报告 俄罗斯方块程序设计报告 一、问题描述 俄罗斯方块（Tetris，俄文：Тетрис）是一款电视游戏机和掌上游戏机游戏，它由俄罗斯人阿列克谢·帕基特诺夫发明，故得此名。俄罗斯方块的基本规则是移动、旋转和摆放游戏自动输出的各种方块，使之排列成完整的一行或多行并且消除得分。 在本次设计中，要求支持键盘操作和若干种不同类型方块的旋转变换，并且界面上显示下一个方块的提示以及当前的玩家的得分，随着游戏的进行，等级越高，游戏难度越大，即方块的下落速度越快，相应的等级，等级越高，为玩家提供了不同的选择。 二、功能分析 I、俄罗斯方块游戏需要解决的问题包括： ⑴、随机产生方块并自动下移 ⑵、用Esc键退出游戏 ⑶、用键变体 ⑷、用键和键左右移动方块 ⑸、用空格键使游戏暂停

⑹、能正确判断满行并消行、计分、定级别 ⑺、设定游戏为不同级别，级别越高难度越大 II、俄罗斯方块游戏需要设计的功能函数包括： ⑴、声明俄罗斯方块的结构体 ⑵、函数原型声明 ⑶、制作游戏窗口 ⑷、制作俄罗斯方块 ⑸、判断是否可动 ⑹、随机产生俄罗斯方块类型的序号 ⑺、打印俄罗斯方块 ⑻、清除俄罗斯方块的痕迹 ⑼、判断是否满行并删除满行的俄罗斯方块 三、程序设计 1、程序总体结构设计 （1）、游戏方块预览功能。在游戏过程中，游戏界面右侧会有预览区。由于在此游戏中存在多种不同的游戏方块，所以在游戏方块预览区域中显示随机生成的游戏方块有利于游戏玩家控制游戏的策略。 （2）、游戏方块控制功能。通过各种条件的判断，实现对游戏方块的左移、右移、自由下落、旋转功能，以及行满消除行的功能。 （3）、游戏数据显示功能。在游戏玩家进行游戏过程中，需要按照一定的游戏规则给玩家计算游戏分数。例如，消除一行加100分，游戏分数达到一定数量

用vb编写图形

来个房子的吧： Private Sub Command1_Click() Dim i As Integer, n As Integer Cls n = 5 For i = 1 To 3 Print String(4 - i, " ") & String(2 * i - 1, "*") & String(10, "*") Next For i = 1 To 4 Print " * *" & String(9, " ") & "*" Next Print " " & String(15, "*") End Sub VB 填充封闭区间 Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Sub Command1_Click() Dim hBrush As Long Dim OldhBrush As Long hBrush = CreateSolidBrush(RGB(0, 0, 255))'要填充的颜色 OldhBrush = SelectObject(Me.hdc, hBrush) Me.Line (10, 10)-(100, 100), RGB(255, 0, 0), B FloodFill Me.hdc, 20, 20, RGB(255, 0, 0)'区间边界颜色 SelectObject Me.hdc, OldhBrush DeleteObject hBrush End Sub

俄罗斯方块完整源代码

//不多说，直接可以拷贝下面的东西，就可以运行。 package day04; import java.awt.*; import java.awt.event.*; import javax.swing.*; import java.applet.*; import https://www.sodocs.net/doc/697699524.html,ng.String.*; import https://www.sodocs.net/doc/697699524.html,ng.*; import java.io.*; public class ERSBlock extends JPanel implements ActionListener,KeyListener//应该是继承JPanel { static Button but[] = new Button[6]; static Button noStop = new Button("取消暂停"); static Label scoreLab = new Label("分数:"); static Label infoLab = new Label("提示:"); static Label speedLab = new Label("级数:"); static Label scoreTex = new Label("0"); static Label infoTex = new Label(" "); static Label speedTex = new Label("1");

static JFrame jf = new JFrame(); static MyTimer timer; static ImageIcon icon=new ImageIcon("resource/Block.jpg"); static JMenuBar mb = new JMenuBar(); static JMenu menu0 = new JMenu("游戏 "); static JMenu menu1 = new JMenu("帮助 "); static JMenuItem mi0 = new JMenuItem("新游戏"); static JMenuItem mi1 = new JMenuItem("退出"); static JMenuItem mi1_0 = new JMenuItem("关于"); static JDialog dlg_1; static JTextArea dlg_1_text = new JTextArea(); static int startSign= 0;//游戏开始标志 0 未开始 1 开始 2 暂停 static String butLab[] = {"开始游戏","重新开始","降低级数","提高级数","游戏暂停","退出游戏"}; static int game_body[][] = new int[19][10]; static int game_sign_x[] = new int[4];//用于记录4个方格的水平位置 static int game_sign_y[] = new int[4];//用于记录4个方格的垂直位置

VC++ 6.0 MFC 俄罗斯方块 自动求解 代码 源程序

#include #include #include #include #define tDown 1 //方块下落定时器的标识(编号) #define tPaint 2 //重绘定时器的标识(编号) #define tDownTime 500 //方块下落一行位置的时间间隔 #define tPaintTime 50 //窗口重绘的时间间隔 #define ROW 24 //地图的行数目(第23行不用) #define COL 14 //地图的列数目(第0列和第13列不用) #define MAX_CLASS 7 //方块形状数目 #define LEN 20 //每个方格大小为20×20像素 #define StartY -1 * LEN + 5 //-15,绘制俄罗斯方块地图时的边界起始位置#define StartX -1 * LEN + 5 //-15 int iDeleteRows = 0; //总共清除的行 int iTotalNum = 0; //总得分 char WindowTxt[100] = "俄罗斯方块游戏自动求解已关闭"; //窗口标题 char s1[] = "关闭", s2[] = "启动"; //用于启动/关闭自动求解功能时显示不同的标题

bool bAuto; //是否自动求解的标志 bool Pause; //是否暂停的标志 int Map[ROW][COL]; //俄罗斯方块的地图(被占据的方格为1，否则为0) int CurrentBox[4][4]; //当前落下的方块 int CurrentY, CurrentX; //当前落下方块的当前位置(指左上角位置) int NextBox[4][4]; //下一个将落下的方块 int Box[MAX_CLASS][4][4] = //7种方块形状 { { {0,0,0,0}, {1,1,1,1}, {0,0,0,0}, {0,0,0,0} }, { {0,0,0,0}, {0,1,0,0}, {1,1,1,0}, {0,0,0,0} }, { {0,0,0,0}, {1,1,0,0}, {0,1,1,0}, {0,0,0,0} }, { {0,0,0,0}, {0,1,1,0}, {1,1,0,0}, {0,0,0,0} }, { {0,1,1,0}, {0,0,1,0}, {0,0,1,0}, {0,0,0,0} }, { {0,1,1,0}, {0,1,0,0}, {0,1,0,0}, {0,0,0,0}

C#.NET中动态添加与删除控件

C#.NET中动态添加与删除控件 数组为共享公用功能的一组控件一起工作提供了便捷的途径。例如，一组控件可能用于显示相关的数据，或者在被点击时提供相关的行为。C#本身并不支持控件数组的建立，但是你可以通过编程复制控件数组的所有功能。本文介绍复制控件数组功能的简单组件的建立。 控件数组的主要用处有： 1，使用相同的名称与索引访问一组控件，允许用编号检索和设置数据项并且在整个数组中重复。这个功能可以使用下面的代码实现。 伪代码 myControl[myIndex].MyProperty = myValue; myControl[myIndex + 1].MyMethod 2，多个对象使用同一个事件处理程序（event handler）处理事件，在这些事件中检索和使用索引，代码如下： 伪代码 private void myControl_Click(System.Object sender, System.EventArgs e) { Messagebox.Show("You have clicked MyControl number " + myControl.Index); } 3，在运行时动态添加或者删除控件，代码如下： 伪代码 for (int i = 1; i < 6; i++) { //插入代码来建立控件并给属性赋值 } C#允许你复制与控件数组相关的一些功能。例如，你能使用委托把多个对象的事件绑定到一个事件处理程序。但是，如果把这些功能合并到一个动态的、容易管理的组件中更加简便。本文将建立有下面特性的组件： ·建立索引和排序控件的集合。将使用按钮集合来演示。 ·一个事件处理程序来处理衍生的按钮的点击事件。 ·使用索引引用控件和成员的代码。 ·给窗体动态添加和删除控件的代码。 建立项目 在本节中将建立并命名一个项目，并给该项目添加一个类。该类将封装实现控件数组的代码。 1、选择File-> New-> Project菜单打开New Project对话框。

VB中动态创建控件

VB中动态创建控件 VB相关技术：https://www.sodocs.net/doc/697699524.html,/s/blog_5ccce2820100lof8.html 创建数据驱动窗体 所谓数据驱动窗体就是根据所请求的数据的不同生成相应的窗体。举例来讲，假设你现在有一个数据库，其中有些字段必须根据登录者的身份加以显示，授权级别高的用户可以浏览并修改这些字段的内容；授权级别一般的用户只能浏览这些字段中的数据；授权级别低的用户则不能浏览这些字段中的内容。要做到这一点就得利用VB动态添加控件的功能。 动态创建控件 无论你想要创建何种类型的数据驱动窗体，你必须知道如何在运行时动态地创建控件。你可以通过控件数组做到这一点，但VB6的Controls集合所提供的Add 方法，功能更强大，灵活性更高。使用该方法，你不需要在设计时将控件的实例放在窗体上。实际上，用Add方法你甚至可以创建程序在编译时根本不存在的控件。这种方法的用法也很简单： ' 声明一个窗体级的变量 Dim WithEvents txtTotal As TextBox Sub CreateTextbox() ' 创建新的Textbox控件 Set txtTotal = Controls.Add("VB.TextBox", "txtTotal") ' 将控件移动到你所需要的地方 txtTotal.Move 1000, 800, 1200, 300 ' 创建时，所有的控件都是不可见的 txtTotal.Visible = True End Sub 请注意Add方法的第二个参数：分配给控件的名称。从代码可读性出发，这个名称一般都与变量名相同。你可以用这个名称从Controls集合中获取相应的控件或移除该控件。例如： Controls.Remove "txtTotal" 在变量声明时加上WithEvents关键字，即使在设计时窗体不存在该控件，你也可以为该控件的事件编写代码。

VB 俄罗斯方块的设计

一、课程设计的目的与要求 (2) 1.1、俄罗斯方块的要求 (2) 1.2、俄罗斯方块设计的目的 (3) 二、题目分析 (4) 2.1、概要设计 (4) 2.2、详细设计 (4) 游戏区模块的设计 (5) 控制区模块的设计 (5) 三、设计思路 (6) 3.1、系统流程的总设计 (6) 3.2、游戏区模块的设计 (7) 3.2.1、Bitblt函数参数的意义与用法 (7) 3.2.2、俄罗斯方块的旋转 (8) 3.2.3、如何实现方自动消除满行的方块 (9) 3.2.4、随机从 7 个方块中选择一个 (10) 3.2.5、设置每个模块的测试计 (11) 3.3、整体游戏程序的结构设计 (11) 3.4、程序设计 (13) 四、调试过程 (14) 4.1、设计游戏界面 (14) 4.2、完善与改善游戏界面 (15) 五、运行结果 (18) 六、课程设计总结 (20) 附录 (22)

一、课程设计的目的与要求 1.1、俄罗斯方块的要求 俄罗斯方块的基本规则是移动、旋转和摆放游戏自动输出的各种方块，使之排列成完整的一行或多行并且消除得分，俄罗斯方块游戏是一款适合大众的游戏软件，它适合不同年龄的人玩。本软件要实现的功能如下： （1）游戏区：玩家可以在游戏区中堆积方块，并能够在游戏过程中随时了解得分情况。 （2）游戏控制：玩家可以通过游戏控制功能来选择开始新的一局游戏，暂停或退出游戏。 （3）级别设置：玩家可以根据自己的需要自行设定游戏的开始级别，级别越高，游戏的速度越快，难度越大。 游戏规则如下： （1）电脑随机产生4个小方块组成的不同形状的游戏块，从上往下降落。 （2）游戏面板的宽度为12(以小方块的宽度为单位)，高度为22，当一行被12个小方块填满时，此行便会被自动消除。 （3）利用键盘上的左右箭头键可以控制游戏块的左移与右移。 （4）利用键盘上的向上箭头键可以控制游戏块的旋转。

C语言程序设计-俄罗斯方块源程序

其中的主要逻辑有： （1）由于c的随机性函数不好，所以每次游戏开始根据bios时间设置种子。 （2）得分越高，方块下降速度越快（每200分为单位）。 （3）每下落一个方块加1分，每消除一行加10分，两行加30分，三行加70分，四行加150分。初试分数为100分。 游戏控制： up-旋转；空格-下落到底；左右下方向键-控制方向。P-开始或暂停游戏。ESC-退出。 特点： （1）由于tc不支持中文，所以基本都是英文注释。 （2）函数命名尽可能规范的表达其内部处理目的和过程。 （3）代码加上注释仅有577行。（我下载过的两个俄罗斯方块代码一个在1087行，一个在993行，我的比它们代码少）。 （4）除了消除空格时算法比较复杂，其他算法都比较简单易读。 （5）绘图效率和局部代码效率扔有待提高。 （6）FrameTime参数可能依据不同硬件环境进行具体设置，InitGame需要正确的TC路径。 俄罗斯方块源于大约9年前上大一时的一个梦，我们在学习c语言时，我的同寝室友邀请我合作一起完成俄罗斯方块（课外作业性质），但是当时限于我们的水平比较菜和学习状态比较懒散，我们没有完成。大一的时候我在机房里无意发现别人留下的俄罗斯方块程序，运行，老师发现后激动的问我是我写的吗，我惭愧的摇摇头。那时看到别人做c的大程序深感羡慕（自己只是写几十行的程序）。数年后我仍然看到有不同样式的实现，但是我一直没有实现它，知道今天忽然有这个想法去做，算是弥补多年前的遗憾和心愿吧。 --------------------------------------------- Q&A： ---------------------------------------------- Q：我编译时出现错误：fatal error C1083: Cannot open include file: 'bios.h': Nosuch file or directory，该如何解决？ A：正文中的代码，是使用Borland公司的TC2.0编译的，编译结果运行在Windows的16位虚拟机上。bi os.h是属于TC的头文件，在VC或者其他编译器中可能没有这个头文件。因此会产生这个错误。 解决办法： （1）可以下载附件中的压缩包，是使用VC6.0进行编译的版本，编译结果是Windows程序，运行在wind ows 32系统上。两者之间的算法完全一致，区别仅仅是绘图时采用的接口不同，TC下采用BGI（进入图形模式），VC下采用的是GDI（使用DC进行绘图）。 （2）下载TC2.0进行编译。 Q：使用TC3.0进行编译时，提示未能初始化图形模式，请使用initgraph函数。 A：这是因为TC3.0的BGI文件的路径和TC2.0有所不同。TC2.0的BGI文件位于TC路径下。而TC3.0的BGI文件位于BGI文件夹中。请把initgame函数中的initgraph函数中的第三个参数设置为正确的路径。例如：initgraph(&..,&..,"C:\\TC\\BGI"); Q：编译后运行时，弹出错误对话框报告16位虚拟机遇到不可执行的指令，点击确定后退出。 A：该问题在某些环境中出现，可能是基于软件或者硬件环境造成，具体原因暂时未知。为避免该问题，请加载附件中的压缩包VC6.0版本。

VB动态添加控件的简单方法

VB动态添加控件并对其进行拖放操作改变位置 用Controls.Add添加控件 Dim WithEvents mypic As PictureBox Private Sub Command1_Click() Set mypic = Controls.Add("VB.PictureBox", "mypic") mypic.Left = 50 mypic.Top = 50 mypic.Visible = True End Sub 至于拖放操作，在程序中设置好mypic控件的有关属性后，处理mypic的有关事件即可 注意： 如果是控件数组的话，建议采用：load 控件数组名(索引) 的方法添加控件 '可先手工画一个控件，Visable设置为False，Index设置为0 '若需要多个就用load object(index)来加载，并把它们的visable设置为true；不需要多个就真接把原有的那个的visable设成显示就行了。 Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Private Sub Command1_MouseDown(Index As Integer, Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 1 Then ReleaseCapture '移动控件 SendMessage Command1(Index).hwnd, &HA1, 2, 0& End If End Sub

《俄罗斯方块》程序编写超详细解释

Tc2.0 编写俄罗斯方块游戏 很多编程爱好者都编写过俄罗斯方块的游戏程序。很久以前，我用Tc2.0也做过一个；最近有好些朋友看见我以前的俄罗斯方块的程序后， 问我是怎么做的。我一直想把这个程序的整个过程写一份详细的东西，与各位编程爱好者分享，一直没空。正好现在放假了，而且离回家还有几天。于是我就把这个程序重新写了一遍，尽量使程序的结构比较清晰好懂一些。同时写了下面的这份东西。 俄罗斯方块游戏的程序中用到了一些方法。为了比较容易理解这些方法，我在讲述的同时写了些专门针对这些方法的示例程序。这些示例程序力求短小，目的是用最小的代码能够清楚的示例所用的方法。这些示例程序都经过tc2.0测试。最后还附了完整的俄罗斯方块游戏的源代码，和最终的可执行程序。如果你看了这份东东，有什么意见和想法，请发电子邮件告诉我。我将会继续更新这分东东，最新的版本可以在我的个人主页上下载。 下面的问题是有关俄罗斯方块程序的，其中有些是朋友问我的，有些是我认为可能会被问到的。我尽量按问题从易到难排列这些问题。关于俄罗斯方块程序的一些问题： ****************************************************** Tc2.0中怎么样设置图形显示？ Tc2.0中常用图形函数的用法？ 怎样获取鍵盘输入？ 怎样控制方块的移动？ 怎样控制时间间隔(用于游戏中控制形状的下落)？ 游戏中的各种形状及整个游戏空间怎么用数据表示？ 游戏中怎么判断左右及向下移动的可能性？ 游戏中怎么判断某一形状旋转的可能性？ 按向下方向键时加速某一形状下落速度的处理？ 怎么判断某一形状已经到底？ 怎么判断某一已经被填满？ 怎么消去已经被填满的一行？ 怎么消去某一形状落到底后能够消去的所有的行？(如长条最多可以消去四行) 怎样修改游戏板的状态？ 怎样统计分数？ 怎样处理升级后的加速问题？ 怎样判断游戏结束？ 关于计分板设计的问题。 关于“下一个”形状取法的问题。 剩下的问题。 ****************************************************** 新的问题： 我想有一个最高记录的显示，应该怎么做呀？ 我想实现一个进度存储功能，应该怎么做呀？

VB俄罗斯方块游戏课程设计

前言 visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户在繁忙的日程工作中得到放松,于是出现了各种各样的休闲软件,如聊天工具,游戏等等。于是我们小组着手设计开始一个这样的游戏软件。通过这学期来Visual Basic的学习，我初步掌握了Visual Basic语言的最基本的知识，于是在化希耀张兵等老师的指导下动手用Visual Basic编写俄罗斯方块游戏。 无可争议，《俄罗斯方块》是有史以来最伟大的游戏之一。它是永恒的娱乐经典，但它实际上又和那些传统的经典娱乐方式不同，因为它的本质是电子化的，所以它的确属于现代产物。《俄罗斯方块》举世闻名的游戏性，在该游戏新鲜出炉时就显得非常直观。某些与坠落的玩具碎片和它们的形状有关的东西，使得哪怕新手也会很自然地企图把它们排列起来，并加以适当组合，就好似《俄罗斯方块》触动了我们某些内在的感官，使得哪怕是我们当中最杂乱无章的人也要把事情整理妥当。 在曾经发布过的所有游戏中，《俄罗斯方块》还被认为是仅有的一个能够真正吸引广泛人群的作品。某些批评家也许会声称，《俄罗斯方块》要比过去二十年间出现的任何东西都要浪费人们的时间。至于我们，则要欣然提名它为GameSpot评选出的历史上最伟大游戏之一。 为了怀念经典，也为了能够给大多的计算机用户在工作之余找到一个休闲、娱乐的一个方式，我们小组开始着手用VB语言开发一个经典的俄罗斯方块游戏。 前言 (1) 1.1项目名称 (2) 1.2设计平台 (2) 1.3程序设计思想 (2) 1.4运用的控件和主要对象 (3) 1.5主要实现的功能 (3) 1.6开发人员与分工 (3) 正文 (3) 2.1游戏设计的具体实现 (3) 2.1.1游戏界面的设计和背景音乐及特效的实现 (4) 2.1.2俄罗斯方块的造型 (4) 2.1.3俄罗斯方块的旋转 (4) 2.1.4如何实现方块的运动和自动消除满行的方块 (5) 2.1.5游戏速度和游戏级别自由选择 (5) 2.1.6游戏得分的计算和游戏菜单的编辑 (6) 2.2游戏功能的介绍 (6) 有关说明 (7) 3.1游戏设计中的不足之处 (7) 3.2VB与C语言之间的不同之处 (8) 3.2.1局部静态变量 (8)

vb动态添加删除控件汇总

VB 动态添加删除控件汇总 1. 概述在使用Visual Basic 进行程序设计的过程中，如果能在运行时刻动态地创建和删除控件，可以极大地丰富界面的处理和变化。本人在设计网络监控系统时，需要在原理图与实物示意图间切换。切换的过程采用本文介绍控件的动态创建和删除来实现，有效地节省了系统资源，同时也有利于简化界面的维护。下面将就Visual Basic 6.0 中的控件在运行时刻的创建和删除的两种方法——控件数组 和控件集合作详细的阐述。2. 基于控件数组的动态控件的创建与删除vb 中的控件数组实际上也是一种数组，其中的每个控件具有相同的Name 属性，但具有不同的Index 属性，在这里Name 属性类似于数组的名字，而Index 属性类似于数组的下标同时，控件数组也支持普通VBA 数组的LBound 、UBound 和Count 方法，控件数组中的控件可以共享一个事件过程，便于代码的编写和集中处理，这正是使用控件数组的最大的理由。但是控件数组与普通的数组并非完全一样，它不需要定义大小，只有这样我们才可以动态的扩展[kuo zhan]它。下面给出利用Load 命令动态添加控件和Unload 命令动态删除控件的一般方法：（1） 首先在窗体上放置一个TextBox ，其Name 属性设置为Text1 ，Index 属性设置为0 ，这样我们就创建了一个

TextBox 控件数组，其中有一个成员。（2）在窗体上放置一个命令按钮Command1 ，在其Click 事件中添加如下的代码：Load Text1(1)Text1(1).left=0Text1(1).visible=true（3） 在窗体上放置一个命令按钮Command2 ，在其Click 事件中添加如下的代码：Unload Text1(1)（4）运行。单击命令按钮Command1 ，窗体上会出现一个新的文本框；单击命令按钮Command2 ，窗体上刚出现的新的文本框就被删除。需要注意的是：Load 命令创建的控件Text1(1) 与设计时已经放在窗体上的控件Text1(0) 有完全相同的属性，也包括大小和位置等属性，例外的就是Index 属性不一样，Visible 属性默认为False, 所以必须在Load 方法执行之后，执行调整控件位置的语句[yu ju]，并把其Visible 属性设置为True ，以便在窗体上可见。Unload 命令只能删除动态加载的控件，若删除设计时创建的控件会产生错误[cuo wu]。另外，利用上面提到的数组的一些方法，可以有效的简化代码的编写。以下的代码可以删除所有动态创建的Text1 控件数组中的控件: Do While Text1.Count>1Unload Text1(Text1.Ubound)Loop需要说明[shuo ming]的是，菜单数组是控件数组的一种特殊的形式，只是它是在菜单编辑器[bian ji qi]中设置相应的Name 和Index 属性，而且要求一个菜单控件数组中的菜单项必须是

android中利用linearlayout动态添加控件 - androider的专栏 -

Android中利用LinearLayout动态添加控件- Androider的 专栏-... 在androidUI布局中，一般都是利用xml来布局控件，这是比较方便和直观的，但是有时却需要动态生成，下面就举2个简单例子来说明怎么动态添加控件： 1.动态添加2个垂直排列的Button view plaincopy to clipboardprint? 01. @Override 02. public void onCreate(Bundle savedInstanceState) { 03. super.onCreate(savedInstanceState); 04. //setContentView(https://www.sodocs.net/doc/697699524.html,yout.main); 05. final LinearLayout layout2=new LinearLayout(this); 06. layout2.setOrientation(LinearLayout.VERTICAL); 07. Button btn1=new Button(this); 08. setContentView(layout2); 09. Button btn2=new Button(this); 10. btn1.setText("Button1"); 11. btn2.setText("Button2"); 12. layout2.addView(btn1);

13. layout2.addView(btn2); 14. 15. 16. setContentView(layout2); 17.} @Override public void onCreate(Bundle savedInstanceState) { super.onCreate(savedInstanceState); //setContentView(https://www.sodocs.net/doc/697699524.html,yout.main); final LinearLayout layout2=new LinearLayout(this); layout2.setOrientation(LinearLayout.VERTICAL); Button btn1=new Button(this); setContentView(layout2); Button btn2=new Button(this); btn1.setText("Button1"); btn2.setText("Button2"); layout2.addView(btn1); layout2.addView(btn2); setContentView(layout2); }

vb动态添加控件

搞了快一个下午的这个东东, 其实是在搞一个在VB6.0中动态添加控件和时间的一个实现, 没用过VB6.0, IDE也么有VS好用... 好多东东在探索 结果就报了个这个错误.... run-time error '91' object variable or with block variable not set 查了好久, 原来是使用变量的时候, 没有去new它, 因为别人给的sample中, Dim的时候, 有new, 单身我拿过来用的时候, dim后面的new在build的时候不通过, 我就拿掉了, 结果运行的时候一直出这个问题.. 动态添加控件和时间的, 参考如下(等哪天我有空了,再来写) 创建数据驱动窗体 所谓数据驱动窗体就是根据所请求的数据的不同生成相应的窗体。举例来讲，假设你现在有一个数据库，其中有些字段必须根据登录者的身份加以显示，授权级别高的用户可以浏览并修改这些字段的内容；授权级别一般的用户只能浏览这些字段中的数据；授权级别低的用户则不能浏览这些字段中的内容。要做到这一点就得利用VB动态添加控件的功能。 动态创建控件 无论你想要创建何种类型的数据驱动窗体，你必须知道如何在运行时动态地创建控件。你可以通过控件数组做到这一点，但VB6的Controls集合所提供的Add方法，功能更强大，灵活性更高。使用该方法，你不需要在设计时将控件的实例放在窗体上。实际上，用Add方法你甚至可以创建程序在编译时根本不存在的控件。这种方法的用法也很简单： ' 声明一个窗体级的变量 Dim WithEvents txtTotal As TextBox Sub CreateTextbox() ' 创建新的Textbox控件

vb实现动态添加控件

vb实现动态添加控件 VB6有一个新功能，可以动态添加控件，不用控件数组： object.Add (ProgID, name, container) 参数说明 Object 必需的。一个对象表达式，其值是“应用于”列表中的一个对象。 ProgID 必需的。一个标识控件的字符串。大多数控件的ProgID 都可通过查看对象浏览器来决定。控件的ProgID是由控件的库和类组成的。 例如，CommandButton控件的ProgID是 https://www.sodocs.net/doc/697699524.html,mandButton。在ProgID 与对象浏览器中所显示的不一样的情况下，Visual Basic 将显示一个包括正确 ProgId 的错误信息。 name 必要的。一个字符串，用来标识集合的成员。 container 可选的。一个对象引用，它指定控件的容器。如果没有指定或为NULL，缺省值为 Controls 集合所属的容器。通过指定该参数，可以把一个控件放置在任何现存的容器控件（如 Frame控件）中。用户控件或 ActiveX 文档也可以作为一个容器。 举例： //在picture1上面添加一个commandbutton Private Sub Form_Load() Form1.Controls.Add "https://www.sodocs.net/doc/697699524.html,mandButton", "cmdOk", Picture1 With Form1!cmdOk .Visible = True .Width = 500 .Caption = "确认(&Y)" End With End Sub 重点：当您添加一个未引用的需要许可证的控件到一个现存的（已部署好的）应用程序时，在使用Add 方法之前您必须也添加这个控件的许可证关键字。 在运行时添加未引用的控件： 您也可以利 Add 方法来动态添加一个在工程中没有被引用的控件。(“未引用的”控件是不出现在 Toolbox 中的控件)。为此，您必须也把控件的License关键字添加到 Licenses 集合中。下面的示例中在添加控件本身之前添加了控件的许可证关键字： Option Explicit Private WithEvents extCtl As VBControlExtender Private Sub Form_Load() Licenses.Add "prjWeeks.WeeksCtl", "xydsfasfjewfe" Set extCtl = Form1.Controls.Add("prjWeeks.WeeksCtl", "ctl1") extCtl.Visible = True The control is invisible by default. End Sub 但是，为了编程这样一个未引用控件的事件，您必须使用WithEvents关键字声明一个对象变量为VBControlExtender 对象(如上)，并且设置该对象变量到Add 方法返回的引用上。然后，利用VBControlExtender 对象的ObjectEvent事件来编程该控件的事件。下面是一个简单的例子。 Option Explicit Dim WithEvents objExt As VBControlExtender 声明 Extender 变量

vb俄罗斯方块代码

经典俄罗斯方块演示： 代码如下： Dim Type_Now As Integer '目前方块的类型Dim Type_Next As Integer '下个方块的类型Dim intRotate As Integer '方块旋转的状态 Function Get_X_Value() If GetValue(1, 2) Then 'Get X Value If MaxX - MinX >= 2 Then If MaxX - CurX <= 1 Then Adjust_Left = MaxX - 2 - 1

Else Adjust_Left = CurX - 1 End If Get_X_V alue = True Exit Function End If End If Get_X_Value = False End Function Function GetValue(nType As Integer, nWid As Integer) Call GetCoor On Error Resume Next Dim OKCount, EmptyCount As Integer MinX = Xs(1).cX MaxX = Xs(1).cX MinY = Xs(1).cY MaxY = Xs(1).cY For i = 2 To 4 If MinX > Xs(i).cX Then MinX = Xs(i).cX If MaxX < Xs(i).cX Then MaxX = Xs(i).cX If MinY > Xs(i).cY Then MinY = Xs(i).cY If MaxY < Xs(i).cY Then MaxY = Xs(i).cY Next For i = MinX To MaxX For j = MinY To MaxY If Total(i, j) Then GetValue = False Exit Function End If Next Next If nType = 0 Then 'Get Y Value EmptyCount = 0 'Get MinY OKCount = 0 For i = MinY - 1 To MinY - (nWid - 1) Step -1 For j = MinX To MaxX If Total(j, i) = False Then OKCount = OKCount + 1 Next If OKCount >= picPictureNow.Width And OKCount >= picPictureNow.Height Then EmptyCount = EmptyCount + 1