代码搜索：activeform
找到约 192 项符合「activeform」的源代码
代码结果 192
www.eeworm.com/read/445305/7596702
bas mdlmdimenus.bas
Attribute VB_Name = "MdlMDIMenus"
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
www.eeworm.com/read/445305/7596714
frm frmfindreplace.frm
VERSION 5.00
Begin VB.Form frmFindReplace
BorderStyle = 3 'Fixed Dialog
Caption = "Find and Replace"
ClientHeight = 2040
ClientLeft = 45
ClientTop
www.eeworm.com/read/445305/7596715
frm dlgchangecase.frm
VERSION 5.00
Begin VB.Form DlgChangeCase
BorderStyle = 3 'Fixed Dialog
Caption = "Change Case"
ClientHeight = 2520
ClientLeft = 45
ClientTop =
www.eeworm.com/read/434589/7857249
frm frmmain.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm frmMain
AutoShowChildren= 0 'False
BackColor = &H8000000C&
Caption
www.eeworm.com/read/398908/7911267
frm frmmain.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm frmMain
AutoShowChildren= 0 'False
BackColor = &H8000000C&
Caption
www.eeworm.com/read/245351/12803358
mpr lt.mpr
* *********************************************************
* *
* * 01/21/00 LT.MPR 11:16:43
www.eeworm.com/read/244196/12878535
frm findform.frm
VERSION 5.00
Begin VB.Form frmFindForm
BorderStyle = 3 'Fixed Dialog
Caption = "查找"
ClientHeight = 2025
ClientLeft = 45
ClientTop = 330
C
www.eeworm.com/read/244196/12878580
frm dockfind.frm
VERSION 5.00
Begin VB.Form frmDockFind
BorderStyle = 0 'None
Caption = "Find"
ClientHeight = 645
ClientLeft = 0
ClientTop = 0
ClientWidth
www.eeworm.com/read/141570/12999534
txt 71.txt
关闭MDI窗体中所有的子窗体
如果用户在一个MDI窗体中打开了许多子窗体，要一个个关闭确实是件麻烦事。当
然你可以将MDI窗体卸载掉来解决这个问题，但如果用户此时还不想退出程序呢？
下面这个小程序可帮你这个忙。
首先在MDI窗体的菜单中加入mnuCloseAll这个菜单项，然后在其Click事件中加入
下面的代码：
Screen.MousePointer = vbHourg ...