代码搜索:activeform
找到约 192 项符合「activeform」的源代码
代码结果 192
www.eeworm.com/read/137180/13341399
frm frmreplace.frm
VERSION 5.00
Begin VB.Form frmReplace
BorderStyle = 3 'Fixed Dialog
Caption = "替换"
ClientHeight = 2160
ClientLeft = 45
ClientTop = 330
Cl
www.eeworm.com/read/137180/13341441
frm mdiform1.frm
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm MDIForm1
BackColor
www.eeworm.com/read/318051/13489056
bas cjb2.bas
Attribute VB_Name = "Module2"
'***** 丹青阁电脑工作室 杨富城 编写代码 *****
'***** *****
'***** 学生成绩管理系统文件读写模块 *****
'*****
www.eeworm.com/read/315166/13549885
bas cjb2.bas
Attribute VB_Name = "Module2"
'***** 丹青阁电脑工作室 杨富城 编写代码 *****
'***** *****
'***** 学生成绩管理系统文件读写模块 *****
'*****
www.eeworm.com/read/265260/11271800
bas cjb2.bas
Attribute VB_Name = "Module2"
'***** 丹青阁电脑工作室 杨富城 编写代码 *****
'***** *****
'***** 学生成绩管理系统文件读写模块 *****
'*****
www.eeworm.com/read/404368/11486760
frm frmmnu.frm
VERSION 5.00
Begin VB.Form frmmnu
Caption = "Form1"
ClientHeight = -285
ClientLeft = 60
ClientTop = 345
ClientWidth = 1560
Icon
www.eeworm.com/read/157225/11727840
frm frmmain.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain
BackColor
www.eeworm.com/read/157225/11727874
frm frmmain.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain
BackColor
www.eeworm.com/read/344518/11875468
frm frmmain.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain
BackColor
www.eeworm.com/read/151211/12227964
txt 71.txt
关闭MDI窗体中所有的子窗体
如果用户在一个MDI窗体中打开了许多子窗体,要一个个关闭确实是件麻烦事。当
然你可以将MDI窗体卸载掉来解决这个问题,但如果用户此时还不想退出程序呢?
下面这个小程序可帮你这个忙。
首先在MDI窗体的菜单中加入mnuCloseAll这个菜单项,然后在其Click事件中加入
下面的代码:
Screen.MousePointer = vbHourg ...