奇怪！怎么不能创建新的窗体了？

yysf 2003-10-21 12:58:31

在主窗口中有个主菜单，大部分菜单项已和子窗体正确的联接，其中有一个却出了问题，当我写完代码编译后，运行的时候，点那个菜单项却没有弹出窗口。检查代码无误，我又试着加了几个菜单项，并新建了窗体，试图使新建的菜单项能弹出新建的窗体，可是没有成功，我这时发现再新建的窗体不能在运行的时候被弹出来了。百思不得其解，后来我想起我曾经删过这个工程中的文件，当时由于有个窗体做的不好，我把它删了，是直接从‘我的电脑’找到那个工程的所在的文件夹，然后选中删除的，也没把握没误删文件。我不知道还能不能再回头做好这个工程？
谢谢您来，也许您能给我答案，先谢谢您了。

...全文

72 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

cjfzy 2003-10-21

打赏
举报

回复

新建一个工程，把各个模块加进来！

FSU 2003-10-21

打赏
举报

回复

你直接把关联弹出你删除的窗体代码删除，重新编译，应该就行了

目录（1）如何通过代码获得应用程序主窗口的指针? 5 （2）确定应用程序的路径 6 （3）如何在程序中获得其他程序的图标? 6 （4）获得各种目录信息 7 （5）如何自定义消息 8 （6）如何改变窗口的图标? 8 （7）如何改变窗口的缺省风格? 8 （8）如何将窗口居中显示? 9 （9）如何让窗口和 MDI窗口一启动就最大化和最小化? 10 （10）如何限制窗口的大小? 10 （11）如何使窗口不可见？ 10 （12）如何创建一个字回绕的CEditView 10 （13）如何使程序保持极小状态? 11 （14）移动窗口 11 （15）通用控件的显示窗口 12 （16）重置窗口的大小 12 （17）如何单击除了窗口标题栏以外的区域使窗口移动 12 （18）如何改变视窗的背景颜色 14 （19）如何改变窗口标题 15 （20）如何防止主框窗口在其说明中显示活动的文档名 17 （21）如何获取有关窗口正在处理的当前消息的信息 17 （22）如何在代码中获取工具条和状态条的指针 18 （23）如何使能和禁止工具条的工具提示 18 （24）如何创建一个不规则形状的窗口 19 （25）如何获取应用程序的实例句柄? 23 （26）如何编程结束应用程序? 23 （27）如何创建和使用无模式对话框 24 （28）如何防止主框窗口在其说明中显示活动的文档名 26 （29）如何在代码中获取工具条和状态条的指针 27 （30）怎样加载其他的应用程序? 27 （31）如何在代码中获取工具条和状态条的指针 28 （33）如何设置工具条标题 29 （34）如何使窗口始终在最前方? 30 （35）如何在对话框中显示一个位图 30 （36）如何改变对话或窗体视窗的背景颜色 30 （37）如何获取一个对话控件的指针 32 （38）如何禁止和使能控件 33 （39）如何改变控件的字体 33 （40）如何在OLE控件中使用OLE_COLOR数据类型 35 （41）在不使用通用文件打开对话的情况下如何显示一个文件列表 35 （42）为什么旋转按钮控件看起来倒转 36 （43）为什么旋转按钮控件不能自动地更新它下面的编辑控件 37 （44）如何用位图显示下压按钮 37 （45）如何一个创建三态下压按钮 38 （46）如何动态创建控件 38 （47）如何限制编辑框中的准许字符 38 （48）如何改变控件的颜色 40 （49）当向列表框中添加多个项时如何防止闪烁 43 （50）如何向编辑控件中添加文本 43 （51）如何访问预定义的GDI对象 44 （52）如何获取GDI对象的属性信息 45 （53）如何实现一个橡皮区矩形 46 （54）如何更新翻转背景颜色的文本 49 （55）如何创建一个具有特定点大小的字体 50 （56）如何计算一个串的大小 51 （57）如何显示旋转文本 52 （58）如何正确显示包含标签字符的串 54 （59）如何快速地格式化一个CString对象 55 （60）串太长时如何在其末尾显示一个省略号 55 （61）为什么即使调用EnableMenuItem菜单项后，菜单项还处于禁止状态 56 （62）如何给系统菜单添加一个菜单项 56 （63）如何确定顶层菜单所占据的菜单行数 58 （64）在用户环境中如何确定系统显示元素的颜色 59 （65）如何查询和设置系统参数 59 （66）如何确定当前屏幕分辨率 60 （67）如何使用一个预定义的Windows光标 60 （68）如何检索原先的Task Manager应用程序使用的任务列表 61 （70）在哪儿创建临文件 63 （71）我怎样才能建立一个等待光标? 64 （73）如何访问桌面窗口 65 （74）什么是COLORREF? 我该怎样用它? 66 （75） AppWizard所产生的STDAFX文件是干什么用的? 66 （76）我在我的程序中是了CDWordArray。我向它添加了约10,000个整数，这使得它变得非常非常慢。为什么会这么糟? 67 （77）我该如何改变MDI框架窗口的子窗口的大小以使在窗口以一定的大小打开? 67 （78）在我的程序的某些部分，我可以调用 MessageBox 函数来建立一个信息对话框，例如在视类中。 67 （79）我需要在我的程序中设置全局变量，以使文档中的所有类都能访问。我应该吧它放到哪儿? 68 （80）我听说MFC可以发现内存漏洞，我怎样使用该特性? 68 （81）我怎样才能在我的应用程序中循环浏览已经打开的文档? 68 （82）才能在我的应用程序中循环浏览已经打开的视? 68 （83）数PreCreateWindow是干什么用的? 69 （84）该怎样防止MFC在窗口标题栏上把文档名预置成应用程序名? 69 （85）我应该怎样防止MFC在窗口标题栏上添加文档名? 69 （86）我应该如何改变视窗口的大小? 69 （87）我有一无模式对话框。我怎样才能在窗口退出时删除CDialog对象? 69 （88）为什么把“delete this”放在PostNcDestroy中而不是OnNcDestroy? 69 （89） File菜单中的MRU列表是从哪儿来的？列表中的名字放在哪儿了？我怎样才能改变列表中项目的最大值？ 70 （90）我在菜单中添加了新的项。但是，当我选该项时，在状态栏上没有出现任何提示信息。为什么? 70 （91）我怎样才能在应用程序的缺省系统菜单中加上一些东西? 70 （92）我建立了一个对话框。但是当我显示该对话框时，第一个编辑框总是不能获得焦点，我必须单击它来使它获得焦点。我怎样才能使第一个编辑框在对话框打开时就获得焦点? 71 （93）我怎样才能使一个窗口具有“always on top”特性? 71 (94) 我要为我的form view添加文档模板。我先建立了对话框模板，然后使用ClassWizard建立了基于CFormView的新类，它也是从CDocument继承来的。我还建立了相应的资源并在InitInstance中添加了新的文档模板。但是，当我试图运行该程序时，出现了Assertion信息。为什么? 71 (95) 我在一对话框中有一列表框，我需要tabbed列表框中的项目。但是，当我处理含有tab字符(用AddString添加的)的列表项时，tab被显示成小黑块而没有展开。哪儿出错了? 72 (96) 我建立了一个应用程序，并使用了CRecordset类。但是，当我运行该程序时，它试图要访问数据库，并给出“Internal Application Error”对话框。我应该怎样做? 72 (97) 我用ClassWizard建立了一个类。但是，我把名字取错了，我想把它从项目中删除，应该如何做? 73 (98) 当我打开应用程序中的窗口时，我要传递该窗口的矩形尺寸。该矩形指定了窗口的外围大小，但是当我调用GetClientRect时，所得到的尺寸要比所希望的值要小(因为工具栏和窗口边框的缘故)。有其它方法来计算窗口的尺寸吗? 73 (99) 我在文档类中设置了一个整型变量。但是，当我试图把该变量写入Serialize函数中的archive文件中时，出现了类型错误。而文档中的其它变量没有问题。为什么? 73 (100) 如何控制菜单的大小? 74 (101) 改变LVIS_SELECTED的状态颜色? 75 (102) 如何只存储文档的某一部分? 76 (103) 保存工具条菜单有bug吗? 76 (104) Tip of the day的bug 76 (105) 如何可以让我的程序可以显示在其它的窗口上面? 77 (106) 如何控制窗口框架的最大最小尺寸? 79 (107) 如何改变窗口框架的颜色? 81 (108) 如何将应用程序窗口置于屏幕正中? 82 (1)当文档被修改时,如何在标题上加上标志'*'? 82 (2)VC6.0对VC5.0的兼容性? 83 (3)打印和打印机的问题? 83 (4)CRichEditCtrl滚动条的问题? 84 (5)从数据库中读大于32k的内容? 84 (6)如何获得CRichEditCtrl中字符的位置? 86 (7)如何限制mdi子框架最大化时的大小? 86 (8)如何切换视口而不破坏它们? 87 (9)改变列表控制时发生闪烁现象? 91 (10)处理列表控件可见项的问题? 91 (11)产生线程的问题? 91 (12)CFile使用了缓冲区吗? 94 (13)DAO的密码? 94 (15)视口的不活动性如何处理? 96 (16)如何使用COleClientItem的IDispatch接口? 97 (17)关于用户自定义的消息使用? 98 (18)在打开一个文档时退出? 99 (19)在CListCtrl控件中多选择项的删除? 99 (20)工作线程的登录状态? 99 (21)如何增加视图中ActiveX控件的事件处理函数? 101 (22)如何创建一个动态的Tree控件? 102 (23)SDI程序开始时不打开文档? 102 (24)List控件中整栏选择? 103 (25)如何重载MRU文件? 104 (26)CImageList控件中图象橙色被显示为黄色? 106 (27)无法正确改变应用程序的图标? 110 (28)工具条状态的问题? 110 (29)在SDI应用程序中使用Active控件? 112 (30)有RichEdit控件的对话框无法正常显示? 112 (31)DLL中的模板成员函数? 112 (32)CFormView中的上下文帮助? 114 (33)CArchive类的WriteObject函数问题? 115 (34)RegisterWindowMessage中的BroadcastSystemMessage如何处理? 115 (35)CListCtrl中选择变化时如何获得通知? 117 (36)如何向ATL-COM对象传送一个数组? 118 (37)如何选择CTreeCtrl中的节点文本进行编辑? 119 (38)如何改变默认的光标形状? 120 (39)如何用键盘滚动分割的视口? 121 (40)如何在线程中处理状态条? 123 (41)如何阻止WINDOWS关闭? 124 (42)如何使一个按钮Disable? 124 (43)怎样从MFC扩展动态链结库(DLL)中显示一个对话框？ 125 (44)想隐藏用户界面怎么办？ 127 (45)如何实现SDI与MDI的转换？ 128 (46) CDC中的竖排文本? 130 (47)如何激活变灰的弹出菜单? 131 (48)线程消息? 132 (49)TreeCtrl控制的显示速度太慢? 133 (50)关于工具条? 135 (51)关于线程消息? 136 (52)关于控件的焦点? 136 (53)如何捕获键盘按键? 138 (54)怎样实现3D效果？ 138 (55)怎样建立客户CSocket? 138 (56)Disable一个非模态对话框的客户区？ 140 (57)关于使用SetClassLong和SetCapture问题 140 (58)动画控件? 142 (59)错误声明的消息? 143 (59)怎样模拟鼠标动作? 144 (60)改变对话框标题字体? 145 (61)怎样知道CWinThread对象的状态？ 146 (62)如何调整控件对话框条的大小? 146 (63)如何顶端显示CStatic类文字? 147 (64)消息句柄出了什么事? 147 (65)树形控件为何闪烁? 148 (66)怎样才能关闭树形控件中的滚动条? 149 (67)如何建立一个带滚动条的窗口? 149 (68)如何实现对话框的拖放? 150 (69)TrackMouseEvent()怎么了 151 (70)奇怪的组合框控件 152 (71)关于使用MS SANS SERIF字体 152 (72)为什么DLL在字符串表中找不到字符串 157 (73)关于复选框的文本颜色 158 (74)系列化与版本的问题 159 (75)在一个控件内检测并使用ON_COMMAND消息 162 (76)为何MDI程序中有子窗口打开时主应用程序不能关. 163 (77)滚动视中LPtoDP失败 165 (78)ODBC许可问题 166 (79)怪异的字体 167 (80)自画列表框样例 170 (81)CWnd::GetMenu()的问题 173 (82)用MFC制作弹出窗口 174 (83)怎样取消一个弹出式菜单 175

VB6.0动态加载ActiveX控件漫谈深圳罗汉军罗德昌熟悉VB的朋友对使用ActiveX控件一定不会陌生，众多控件极大地方便了编程，但唯一的缺陷是不能动态加载控件，必须在设计时通过引用，将控件放置在窗体上。 VB6.0已能够解决该问题，只是帮助中没有明确说明，并且没有描述到一些关键功能，由于以前的版本中可以动态创建进程外服务：如果对象是外部可创建的，可在 Set 语句中用 New 关键字、CreateObject 或 GetObject 从部件外面将对象引用赋予变量。如果对象是从属对象，则需使用高层对象的方法，在 Set 语句中指定一个对象引用： Dim xlApp1 As Excel.Application Set xlApp1 = New Excel.Application 或 Dim xlApp As Object '定义存放引用对象的变量。 Set xlApp = CreateObject("excel.application") xlApp.Visible = True ---- 这些语法很容易造成误导，以为动态加载ActiveX控件也是此方法，可能有朋友也象我一样利用CreateObject尝试了无数次，却无功而返，不知微软公司是出于何种考虑，动态加载ActiveX控件是扩展控件集合的方式实现，通过实际摸索，终于就如何实现动态ActiveX控件找出了一条切实可行的方法，下面以一个具体的实例来详细说明。一、ActiveX控件 ---- ActiveX 控件是 Visual Basic 工具箱的扩充部分。使用 ActiveX 控件的方法与使用其它标准内装的控件，如 CheckBox 控件，完全一样。在程序中加入 ActiveX 控件后，它将成为开发和运行环境的一部分，并为应用程序提供新的功能。 ---- ActiveX 部件通过客户端/服务器关系与应用程序— 及与部件相互之间— 交互作用。客户端是使用部件功能的应用程序代码或部件。服务器是部件及其关联的对象。例如，假设应用程序使用 ActiveX 控件来提供一个标准的雇员窗体，供公司的多种应用程序使用。提供雇员窗体的 ActiveX 控件就是服务器，使用这个控件的应用程序就是服务器的客户端。二、加载方法 ---- VB6.0中对Controls 集合进行了扩展，以前版本中Controls 集合在窗体上列举出已加载的控件，这在迭代过程中是很有用的。Controls 集合标识一个叫做 Controls的内在窗体级变量。如果忽略可选的 object 所在处的整数，则关键字 Controls 必须包括在内。我们通常在窗口中使用如下代码： Text1.Text="Hello, world" 其实也可以使用如下代码达到同一目的： Controls(1).Text="Hello, world" ---- 在VB6.0中除了原来的Clear、Remove 方法外(很奇怪，为什么微软在VB5.0中只提供这两种方法，而没有提供Add方法，因为没有Add，这两种方法也就没什么用处)，增加了Add方法，该方法就是用于动态加载控件的： Controls.Add(progid as String, Name as String); progid： ActiveX部件的ProgID，如："VB.CheckBox"； Name：ActiveX部件加载后的名称，如： "MyCheckBox"；若要在窗体上添加一个名为MyButton的按钮，可以使用： dim oControl as Object '窗体级变量注意：这里声明为Object对象类型 Private Sub LoadControl() Set oControl = Controls.Add ("VB.CommandButton", "MyButton") oControl.Left = 10 oControl.Top = 10 oControl.Visible = True '使控件可见 End Sub ---- 这是VB6.0的标准语法，它在例程中也是如此演示的，不过该方法虽然现实了控件的动态加载，按钮显示在窗体上，可以象普通按钮一样按下去，但加载的控件不能预先设计响应事件代码，如：事件Sub MyButton_Click()将是非法的，当然，可以将要响应的事件封装在控件内部。就编程的观点来看该方法没什么大的用处，开发ActiveX 控件的目的是为了资源共享，为了被其他开发人员利用，所以要提供必要的事件接口，显然利用该方法不行，通过分析VBControls等相关对象，找出VBControlExtender对象与EventInfo相结合能提供事件陷井捕捉，VBControlExtender对象对动态添加控件特别有用，它提供了一套通用的属性、方法、事件给开发人员，它的一个突出特点是能编程设计控件的事件，熟习类编程的朋友对带事件的对象声明一定不会陌生： ---- Dim WithEvents objElemt as CElemtVBControlExtender也不例外，声明的语法一样，只不过它有个特殊的事件ObjectEvent(Info As EventInfo)，它能捕捉到对象使用RaiseEvent产生的所有事件，EventInfo数据结构映射了事件的名称、参数个数和参数的值。VBControlExtender和 EventInfo相结合，采用Select Case 就可以预先将不同类对象的事件放置一起，各自独立运作。将上面的代码改写一下就能提供Click 事件了： ---- Dim WithEvents oControl As VBControlExtender '带事件声明声明之后您就可以在代码窗口的左上角的对象下拉框中发现该对象出现了，也就是说，该对象有了事件或方法了，它的事件有DragDrop，DragOver ，LostFocus ，GotFocus ， ObjectEvent和Validate，其中ObjectEvent是通用的事件捕捉。 Private Sub LoadControl() Set oControl = Controls.Add ("VB. CommandButton", "MyButton") oControl.Visible = True End Sub Private Sub oControl_ObjectEvent(Info As EventInfo) Select Case Info.Name Case "Click" 'Click事件 '您可以添加处理Click事件代码 MsgBox "您按了MyButton!" Case Else ' 其他事件 ' Handle unknown events here. End Select End Sub ---- 当然对微软提供的标准控件能采用该方法添加，大家都不会怀疑，但自己开发的控件也能吗？答案是肯定的，我们可以用一个实际的例子进行说明。三、实例描述 ---- 假设一个本地网络的监控系统，需要在原理图与实物示意图间切换，原理图包括组网结构、传输资源、监控主机等，而实物示意图包括路由器、设备、采集器等，当然两种图的事件要一致，如双击某个设备图形将显示给设备的实时数据等，为了简化维护，将原理图与实物示意图封装成ActiveX控件，由于每种图需要加载许多图形控件，消耗资源较大，不能同时加载，需要将其分解为两个控件，在切换时首先卸载一个控件，然后加载另一个控件，所以要实现动态加载ActiveX控件。 ---- 原理图控件为--Theory.ocx ，对应工程为CTheory； ---- 实物图控件为---Fact.ocx ，对应工程为CFact； ---- 注意：为了简化，在设计控件时不设置许可证关键字。 ---- 实物图控件上的图形对象可以被拖动，拖动后的位置信息通过事件 ChangePosition来通知拥有该控件的窗体，以便下次加载能显示在最后位置，实物图和原理图控件都有双击事件完成的工作相同，其他事件此处忽略。 ---- 四、具体示例 ---- 1、准备工作 ---- 对控件Theory.ocx 、Fact.ocx 进行注册(利用Regsvr32.exe注册)； ---- 建立窗体frmTest.frm ，在窗体上放置按钮cmdLoadOcx—“原理图” ---- 2、声明窗体级变量与加载函数LoadControl Dim WithEvents oControl As VBControlExtender '地图仿真控件对象 Dim mblnTheory As Boolean '是否显示原理图 Private Function LoadControl(intType As Integer) If Not oControl Is Nothing Then '首先判断对象是否存在，若存在则卸载 Controls.Remove("MapView") '卸载控件，此操作非常重要 End If If intType = 0 Then Set oControl = Controls.Add ("CTheory. Theory", "MapView") Else Set oControl = Controls.Add ("CFact.Fact", "MapView") End If oControl.Height = 3500 oControl.Width = 6500 oControl.Top = 100 oControl.Visible = True End Function Private Sub Form_Load() mblnTheory = True End Sub ---- 3、为按钮cmdLoadOcx编写代码 Private Sub cmdLoadOCX_Click() If mblnTheory Then Call LoadControl(0) mblnTheory = False cmdLoadOCX.Caption = "实物图" Else Call LoadControl(1) mblnTheory = True cmdLoadOCX.Caption = "原理图" End If End Sub ---- 4、为事件ChangePosition编写代码 Private Sub oControl_ObjectEvent (Info As EventInfo) Select Case Info.Name Case "ChangePosition" MsgBox CStr(Info.EventParamters.Item( 1).Value) + ":" + _ CStr(Info.EventParamters.Item(2).Value) Case "DbClick" '双击处理代码 Case Else ' End Select End Sub ---- 注意： EventInfo的参数EventParamters集合中是以1开始的，一般来说，微软新的集合一般是以1开始的，而旧的是以0开始的，如RdoErrors.Item(0)。 ---- 5、关闭窗口前卸载控件 Private Sub Form_Unload(Cancel As Integer) Controls.Remove("MapView") Set oControl = Nothing End Sub ---- 6、特别注意 ---- 通过Controls.Add方法添加的ActiveX控件一定不能在该工程中有该控件的任何引用，否则系统将出错。四、小结 ---- 通过使用动态加载ActiveX控件使用庞大的应用程序变得很小，将不同的 ActiveX控件进行各种组合，使应用程序更加灵活多变，如您的应用系统要处理三十种门禁，而某个具体的用户可能只有一种或两种门禁，根本没必要首先将所有门禁包含到应用中，可将各个门禁独立封装，只安装注册需要的组件，就象Windows的自定义安装一样。微软的未来技术基础是分布式的组件技术(DCOM)，将会把代码的重用发挥得淋漓尽致。您不妨试一试动态加载，也许会产生令您惊喜的效果！ ---- 本代码在Win98、VB6.0(英文版)上编译、运行。

??????????????????? Henry的VB.NET之旅（一）—失踪的窗体??????????????????????????????????? 韩睿很久没有新作，架不住朋友们的询问与追问，只得拿些旧作来补上近日没空写作的不足。惭愧ing!这一系列与Henry手记系列不同，是一个角色形式的情景故事，最初发表于《计算机世界》，适用于VB.net初学者，老鸟们就不用在我这一系列的

前言大家好！我是????同学！今天也希望大家多多支持我！哈哈桃子为了感谢每一个关注我的小可爱：????每篇文章的项目源码都是无偿分享滴????。很多csdn的功能桃子还在研究中，还有桃子的文笔不好勿怪，会慢慢进步跟大家一起学习的最后——如果文章有帮助到你，记得“关注”、“点赞”、“评论”三连哦~ 我在这里，有兴趣的小可爱跟我一起学习，开启编程之旅叭！ ...

WPF使用Prism新开窗体regionManager处理

5,388

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章