| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 765 人关注过本帖
标题:VB中的问题
只看楼主 加入收藏
cuipidantong
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2011-8-27
结帖率:0
收藏
已结贴  问题点数:20 回复次数:6 
VB中的问题
VB中如何把系统的控制权锁定在当前的窗口中     
也就是不能选择除此窗口以外的别的任何窗口
咱是新手    还不大懂  
求助啊啊啊!!!!
搜索更多相关主题的帖子: 系统 如何 
2012-07-09 15:31
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
收藏
得分:7 
显示 CoffeeMonitor 类的窗体


进程外部件既可以显示模式窗体,也可以显示无模式窗体。CoffeeMonitor 将首先演示这一点,因为结果也许会与期待的不同。

本主题的过程是往 CoffeeMonitor 类中添加 ShowForm 方法,加上使用该方法时需要的公共常数。

注意 本主题是逐步创建 ActiveX EXE 示例过程的一部分。选择“创建 ActiveX EXE 部件”,开始本主题。

要显示 CoffeeMonitor 类的窗体,请按照以下步骤执行:

在“工程资源管理器”窗口,双击“CoffeeMonitor”(或选中它,然后在“工程资源管理器”窗口的工具栏上单击“代码”按钮)来打开其代码窗口。


在声明段添加下述 Public Enum:
Option Explicit
Public Enum cfeModality
cfeModal = vbModal
cfeModeless = vbModeless
End Enum

在类模块中被声明成 Public 的枚举型被添加到部件的类型库中。它与在其中定义它的类没有联系,但会成为全局名空间的一部分。

当 Visual Basic 包含 vbModal 和 vbModeless 时,为什么还要提供自己的常数呢?这些部件也许和不提供这些常数的开发工具一起使用。提供与 Visual Basic 兼容的常数是灵活的解决方案。

注意 在常数名前放置前缀“cfe”表示该常数属于 Coffee 部件,并减少了与其它部件的命名冲突。一些部件作者在前缀后采用两到三个大写字母来表示 Enum 型;在这则显得有些冗余。请参阅“部件设计的一般准则”中的“给部件提供命名的常数”。

在“工具”菜单上,单击“添加过程”打开“添加过程”对话框。在“名称”框中键入 ShowForm,单击“子程序”和“公共的”,然后单击“确定”。
在公共属性过程定义属性的同时,类模块中的公共子过程或函数过程定义类的方法。请参阅“部件设计的一般准则”中的“给类添加属性和方法”。

往子过程中添加下列代码:
Public Sub ShowForm(Optional Modality As _
cfeModality = cfeModal)
Dim frm As New TestForm
If Modality = cfeModeless Then
frm.Caption = "TestForm-Modeless"
Else
frm.Caption = "TestForm-Modeless"
End If
frm.Show Modality
End Sub

如果键入的选项参数 Modality 被省略,则表示是模式窗体。键入的选项参数在《Visual Basic 程序员指南》的“编程基础”中的“给过程传递参数”中讨论。

因为 cfeModality 中的常数与 Visual Basic 提供的 vbModal 和 vbModeless 常数兼容,所以可以简单地把 Modality 参数传递给窗体的 Show 方法。如果提供了无效值,则 Show 方法会自动引发一个错误。

在“文件”菜单上,单击“生成 Coffee.exe”创建引用执行程序。
引用执行程序只需生成一次,它会帮助测试应用程序与本工程保持连接。请参阅“调试、测试和部署部件”中的“为进程外部件创建测试工程”。

按 CTRL+F5 键运行工程。
注意 如果选中“选项”对话框的“通用”选项卡上的“请求时编译”(“选项”对话框可从“工具”菜单上得到),就应当用 Ctrl+F5(或选中“运行”菜单上的“全编译执行”)来确保部件在测试前已被完全编译。部件给测试程序提供对象之后发生的编译错误是很难处理的。默认选中请求时编译。

重点 在编辑或运行测试程序前必须把工程置成运行模式,这一点在的“调试、测试和部署部件”中的“为进程外部件创建测试工程”中讨论。


心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2012-07-09 15:44
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
收藏
得分:0 
你想要做到的是和 挂机锁 差不多的效果哦。


楼主可以找一些挂机锁编程方面的文章看一看。

[ 本帖最后由 yuma 于 2012-7-13 16:34 编辑 ]

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2012-07-09 23:14
apple0072011
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:9
帖 子:249
专家分:989
注 册:2011-8-17
收藏
得分:7 
win操作系统本来是多任务的,你这样法和win操作系统相悖啊,没有必要这样吧

天道酬勤
2012-07-10 14:09
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
收藏
得分:0 
你想要的效果,下面是程序的工程文件。

下载下来你慢慢看。

警告:该程序会修改注册表限制任务管理器的使用,来达到不能进行任何操作的目的。重启后,如果系统任务管理器还是被限制着,你可以手动修改过来。
或者把下面的文字保存为bat格式,运行解限任务管理器


reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system" /f /v "DisableTaskmgr" /t REG_DWORD /d 0
reg add "HKU\S-1-5-21-1454471165-1500820517-725345543-500\Software\Microsoft\Windows\CurrentVersion\Policies\system" /f /v "DisableTaskmgr" /t REG_DWORD /d 0

挂机锁.rar (1.31 KB)


[ 本帖最后由 yuma 于 2012-7-13 19:05 编辑 ]

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2012-07-13 18:02
netlin
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:24
帖 子:544
专家分:4308
注 册:2012-4-9
收藏
得分:7 
设定窗口模式就可以了!

做自己喜欢的事!
2012-07-17 20:05
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
收藏
得分:0 
回复 6楼 netlin
个用show()方法我也试过,不可以的。

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2012-07-17 20:09
快速回复:VB中的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020083 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved