cabvb.net的简单介绍

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb打包问题

你好象一共提了3问题cabvb.net，分别简单回答一下:

1、你给别人cabvb.net的安装文件应该包括cabvb.net：setup.exe、CAB文件和lst文件。

2、lst文件是VB6安装制作程序生成cabvb.net的一个安装信息文件，用记事本可以打开。

3、用VB6安装制作程序制作安装包，需要把你程序中用到一些东西也打包进来才能完整安装，比如用VB6做打印程序就需要添加MSDBRPTR.DLL。另外，想要做成只有一个setup.exe程序需要借助第三方工具了。

相关问答

Q1: 如何在.net应用中发现和避免内存和资源泄露

尽管很多人相信在.net应用中谈及内存及资源泄露是件很轻松cabvb.net的事情。但GC(垃圾回收器)并不是魔法师，并不能把cabvb.net你完全从小心翼翼处理内存与资源损耗中解放出来。

本文中我将解释缘何内存泄露依然存在以及如何避免其出现。别担心，本文不涉及GC内部工作机制及其它.net的资源及内存管理等高级特性中。

理解泄露本身及如何避免其出现很重要，尤其因为它无法轻松地自动检测到。单元测试在此方面无能为力。一旦产品中你的程序崩溃cabvb.net了，你需要马上找出解决方案。所以在一切都还不是太晚前，花些时间来学习一下本文吧。

Table of Content

· 介绍

· 泄露？资源？指什么？

· 如何检测泄露并找到泄露的资源

· 常见内存泄露原因

· 常见内存泄露原因演示

· 如何避免泄露

· 相关工具

· 结论

· 资源

介绍

近期，我参与了一个大的.net项目(暂叫它项目X吧)，我在项目中负责追踪内存与资源泄露。大部分时间我都花在与GUI关联的泄露上，更准确地说是一个基于Composite UI Application Block (CAB).的windows窗体应用。接下来我要说的直接应用到winform上的内容，多数见解同样可以适用到其它.net应用中(像WPF,Silverlight,ASP.NET,Windows service,console application 等等)。

我不是个处理泄露方面的专家，所以我不得不深入钻研了一下应用程序，做一些清理工作。本文的目标是与你们分享在我解决问题过程中的所得所悟。希望能够帮助那些需要检测与解决内存、资源泄露问题的朋友。下面的概述部分首先会介绍什么是泄露，之后会看看如何检测到泄露和被泄露资源，以及如何解决与避免类似泄露，最后我会列出一个对此过程有帮助的工具列表及相关资源。

泄露？资源？指什么？

内存泄露

在进一步深入前，让我们先来定义下我所谓的“内存泄露”。简单引用在Wikipedia上找到的定义吧。该定义与我打算通过本文所帮助解决的问题完美的一致cabvb.net：

在计算机科学领域中，内存泄露是指一种特定的内存损耗，该损耗是由一个计算机程序未成功释放不需要的内存引起的。通常是程序中的BUG阻碍了不需要内存的释放。

仍然来自Wikipedia:”以下语言提供了自动的内存管理，但并不能避免内存泄露。像 Java,C#,VB.NET或是LISP等。”

GC只回收那些不再使用的内存。而使用中的内存无法释放。在.net中，只要有一个引用指向的对象均不会被GC所释放。

句柄与资源

内存可不是唯一被视为资源的。当你的.net应用程序在Windows上运行时，消耗着一个完整的系统资源集。微软定义了系统三类对象：用户(user)，图形设备接口(GUI),以及系统内核(kernel)。我不会在此给出完整的分类对象列表，只是指出一些重要的：

· 系统通过使用用户对象(User objects) 来支持windows管理。相关对象包括：提速缓冲表(Accelerator tables),Carets(补字号？),指针(Cursors),钩子(Hooks),图标(Icons),菜单(Menus)和窗体(Windows)。

· GDI对象支持图形绘制：位图(bitmaps),笔刷(Brushes),设备上下文(DC),字体(Fonts),内存设置上下文(Memory DCs),元文件(Metafiles),画笔(Pens),区域(Regions)等。

· 内核对象支持内存管理，进程执行和进程间通讯(IPC)：文件，进程，线程，信号(Semaphores),定时器(Timer)，访问记号(Access tokens),套接字(Sockets)等。

所有系统对象的详细情况都可以在MSDN中找到。

系统对象之外，你还会碰到句柄(handles).据MSDN的陈述，应用程序不能直接访问对象数据或是对象所代表的系统资源。取而代之，应用程序一定都会获得一个对象句柄(Handle)，可以使用它检查或是修改系统资源。在.net中无论如何，多数情况下系统资源的使用都是透明的，因为系统对象与句柄都由.net类直接或间接代表了。

非托管资源

像系统对象(System objects)这样的资源自身都不是个问题，但本文仍涵盖了它们，因为像Windows这样的操作系统对可同时打开的套接字、文件等的数量都有限制。所以关注应用程序所使用系统对象的数量非常重要。

在特定时间段内一个进程所能使用的User与GDI对象数目也是有配额的。缺省值是10000个GDI对象和10000个User对象。如果想知道本机的相关设置值，可以使用如下的注册表键：

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows: GDIProcessHandleQuota 和 USERProcessHandleQuota.

猜到了什么？确实没有这么简单，还有一些你会很快达到的其它限制。比如参照：我的一篇有关桌面堆的博客所述。

假设这些值是可以自定义的，你也许认为一个解决方案就是打破默认值的限制—调高这些配额。但我认为这可不是个好主意，有如下原因：

1．配额存在的原因：系统中不是只有你独自一个应用程序，所有运行在计算机中的其它进程与你的应用应该分享系统资源。

2. 如果你修改配额，使它不同于其它系统了。你不得不确认所有你的应用程序需要运行的机器都完成了这样的修改，而且这样的修改从系统管理员的角度来说是否会有问题也需要确认。

3. 大部分都采用了默认配额值。如果你发现配置值对你应用程序来说不够，那你可能确实有些清理工作要做了。

如何检测泄露及找到泄露的资源

泄露带来的实际问题在MSDN上的一篇文章中有着很好的描述：

哪怕在小的泄露只要它反复出现也会拖垮系统。

这与水的泄露异曲同工。一滴水的落下不是什么大问题。但是一滴一滴如此反复的泄露也会变为一个大问题。

像我稍后解释的，一个无意义的对象可以在内存中维持一整图的重量级对象。

仍然是同一篇文章，你会了解到：

通常三步根除泄露：

1.发现泄露

2.找到被泄露的资源

3.决定在源码中何时何处释放该资源

最直接“发现”泄露的方式是遭受泄露引发的问题

你或许没有见过内存不足。“内存不足”提示信息极少出现。因为操作系统运行中实际内存(RAM)不足时，它会使用硬盘空间来扩展内存。（称为虚拟内存）。

在你的图形应用程序中可能更多出现的是“句柄不足”的异常。准确的异常不是System.ComponentModel.Win32Exception 就是 System.OutOfMemoryException 均包含如下信息：”创建窗体句柄错误”。这两个异常多发于两个资源被同时使用的情况下，通常都因为该释放的对象没有被释放所致。

另外一种你会经常碰到的情况是你的应用程序或是整个系统变更得越来越慢。这种情况的发生是因为你的系统资源即将耗尽。

我来做个生硬的推断：大多数应用程序的泄露在多数时间里都不是个问题，因为由泄露导致出现的问题只在你的应用程序集中使用很长时间的情况下才会出现。

如果你怀疑有些对象在应该被释放后仍逗留在内存中，那需要做的第一件事就是找出这些对象都是什么。

这看起来很明显，但是找起来却不是这样。

建议通过内存工具找到非预期逗留在内存中的高级别对象或是根容器。在项目x中，这些对象可能是类似LayoutView实例一样的对象们(我们使用了MVP(Model View Presentation )模式)。在你的实际项目中，它可能依赖于你的根对象是什么。

下一步就是找出它们该消失却还在的原因。这才是调试器与工具能真正帮忙的。它们可以显示出这些对象是如何链接在一起的。通过查看那些指向“僵尸对象”（the zombie object）的引用你就可以找到引起问题的根本原因了。

你可以选择 ninja方式（译者:间谍方式？）(参照工具介绍章节中有关 SOS.dll 和 WinDbg 的部分)。

我在项目X中用了JetBrains的dotTrace,本文中我将继续使用它来介绍。在后面的工具相关章节中我会向你更多的介绍该工具。

你的目标是找到最终引起问题的那个引用。不要停留在你找到的第一个目标上，但是也要问问自己为什么这个家伙还在内存中。

常见内存泄露的原因

上面提到的泄露情况在.net中较常见。好消息是造成这些泄露的原因并不多。这意味着当你尝试解决一个泄露问题时，不需要在大量可能的原因间搜寻。

我们来回顾一下这些常见的罪魁祸首，我把它们区别开来：

· 静态引用

· 未注销的事件绑定

· 未注销的静态事件绑定

· 未调用Dispose方法

· Dispose方法未正常完成

除了上列典型的原因外，还有些其它情况也可能引发泄露：

· Windows Forms:绑定源滥用

· CAB:未移除对工作项的调用

我只列出了可能在你应用程序中出现的一些原因，但应该清楚你的应用程序依赖的其它.net代码、库实际使用中也可能引发泄露。

我们来举个例子。在项目x中，使用了一套第三方控件来构造界面。其中一个用来显示所有工具栏的控件，它管理着一个工具栏列表。这种方式没什么，但有一点，即使被管理的工具栏自身实现了IDisposable接口，管理类却永远也不会去调用它的Dispose方法。这是一个bug.幸运的是这发生在一个很容易发现的工作区：只能我们自身来调用所有工具样的Dispose方法了。不幸的是这还不够，工具栏类自身问题也不少：它并没有释放自身承载的控件（按钮，标签等等）。所以在解决方案中还要添加对每个工具栏中控件的释放，但是这次可就没那么简单了，因为工具栏中的每个子控件都不同。不管怎么样这只是一个特殊的例子，我要表达的观点是你应用程序中使用的任何第三方库、组件都可能引发泄漏。

最后，还有一种由.net framework造成的泄露，由一些不好的使用习惯引起。即使.net framework自身可能引发泄露,但这是你极少会遭遇到的情况。把责任推到.net身上很容易，但在我们把问题推到别人头上前，还是应该先从自身写的代码出发，看看里面有没有问题。

常见泄露演示

我已经列举出了泄露主要的来源，但我还不想仅限于此。如果每个泄露我都能举个鲜活的例子的话，我想本文会更实用些。好，我们先启动Vs 和 dotTrace ，然后看些示例代码。我会同时演示如何解决或是避免每个泄露情况。

项目X中使用了CAB和MVP模式，这意味着界面由工作空间、视图和呈现者组成。简单起见，我决定使用包含一组窗口的Winform应用。其中使用了与Jossef Goldberg的一篇关于“Wpf应用程序内存泄露”文章中相同的方法。甚至我会直接把相同的例子和事件处理函数应用到我的Winform App中。

Q2: vb.net把dll放到程序的Resources资源里面，能直接调用Resources里面的dll吗？

dll文件可以直接引用进去啊，你打开引用文件，直接引用进去就好了，是在程序引用里面，本身就融合在exe文件里，何必放在Resource目录下，画蛇添足。

一些特定的文件，如DB格式、Cab格式、图片格式直接放在相对目录下不就好了，不然你要开发一个稍微像样点的软件根本没办法打包给别人，资源包和检测安装包你怎么给别人打包安装嘛？Resource目录是针对ASP.NET WebForm程序，MapPath的方法可以直接取得资源目录。WinForm考虑他的项目移植性，你直接做安装包就好了，安装资源文件到哪个位置应该由客户自己来定。

dll本身就是封装好的代码，可以直接引用编译，不属于资源文件行列。

第三方控件也不是什么耻辱的事情，大部分成功的软件都是自己开发第三方控件，你用微软自带的控件根本满足不了市场需求，仅仅维持一个学习层次。

Q3: 五子棋游戏程序设计（VB）

五子棋的AI构想有句话叫“当局者迷，旁观者清。”，但这句话在由AI所控制的计算机玩家上是不成立的，因为计算机必须知道有那些获胜方式，并计算出每下一步棋到棋盘上任一格子的获胜几率，也就是说，一个完整的五子棋的AI构想必须：

1、能够知道所有的获胜组合； 2、建立和使用获胜表； 3、设定获胜的分数； 4、使电脑具有攻击和防守的能力；一、求五子棋的获胜组合在一场五子棋的游戏中，计算机必须要知道有那些的获胜组合，因此我们必须求得获胜组合的总数。我们假定当前的棋盘为10*10。（1）计算水平方向的获胜组合数，每一列的获胜组合是：6，共10列，所以水平方向的获胜组合数为：6*10=60 （2）计算垂直方向的获胜组合总数，每一行的获胜组合是：6，共10行，则垂直方向的获胜组合数为：6*10=60 （3）计算正对角线方向的获胜组合总数，正对角线上的获胜组合总数为6+（5+4+3+2+1）*2=36 （4）计算反对角线方向的获胜组合总数，反对角线上的获胜组合总数为6+（5+4+3+2+1）*2=36 ，这样所有的获胜组合数为：60+60+36+36=192 二、建立和使用获胜表我们已经计算出了一个10*10的五子棋盘会有192种获胜方式，这样我们可以利用数组建立获胜表，获胜表的主要作用是：1，判断当前的获胜方式是否有效；2，判断当前的获胜方式中到底有多少子落入该获胜组合中。详细的使用您将在后面的程序中可以看出。三，分数的设定在游戏中为了让计算机能够决定下一步最佳的走法，必须先计算出计算机下到棋盘上任一空格的分数，而其中最高分数便是计算机下一步的最佳走法。原理：我们判定当前讨论的空格与当前讨论的点有几种获胜的方式，有几种该空格就加几分。这种原理初听起来似乎是无法入手，没关系，当您了解我们后面的程序后您就会明白这种决策原理了。这种决策有一些缺陷，因为如果只根据这个模型设计，就有可能出现电脑或玩家有三个子连成一线的时候，计算机却判断不出，它认为其他某些空格是当前的获胜的最佳位置而不去攻击或防守。没关系我们完全可以通过一个加强算法来改变当前的分值情况，也就是说当电脑或玩家有三个子或四个子连成一线时，我们通过加强算法将当前与三个子或四个子有关的空格的分值提高，从而可以弥补这一缺憾。四、攻击与防守以上的方式，事实上计算机只是计算出了最佳的攻击位置，为了防守我们还应计算当前玩家的最佳的攻击位置。这样有什么用呢？道理很简单，如果玩家最佳攻击位置的分数大于计算机最佳攻击位置上的分数，那么计算机就将下一步的棋子摆在玩家的最佳攻击位上以阻止玩家的进攻，否则计算机便将棋子下在自己的最佳攻击位置上进行攻击。事实上，这个AI构想是很强大的如果你不是很厉害的五子棋高手的话，可能很快会被计算机打败。我在联众上可是中级棋手啊，跟这种构想打的时候胜率也不是很高。使用vb.net编写五子棋一、编写前的准备： 1、用计算机的思想描述整个下棋的过程考虑步骤：（1）为了简便我们可以先让电脑先走第一步棋，电脑每走一步就会封掉许多玩家的获胜可能情况。（2）当玩家走棋的时候我们首先应该考虑玩家走棋的合法性。（3）如果合法，那么玩家也会封掉许多电脑的获胜的可能情况。（4）电脑的思考路径：首先判断当前玩家和电脑的所有获胜组合是否需要进行加强赋值，

是进行加强赋值，否则进行普通的赋值。（5）比较当前玩家和电脑谁的分值最大。将分值最大的点作为电脑的下一步走法。 2、利用vb.net窗体和图形工具建立五子棋的棋盘界面（1）添加一个picturebox控件作用：使用picturebox控件绘制棋子和棋盘（2）添加一个label控件作用：显示当前的获胜标志，也就是当某一方获胜或和棋时显示此标签。（3）添加一个mainmenu控件作用：控制游戏的开始或结束（4）添加一个mediaplay组件作用：使程序可以播放音乐。 3、设置整体框价我们采取10*10的棋盘，为主要的平台。利用数组定义整个棋盘桌面，利用数组定义获胜组合以及获胜标志等。二，声明全局数组和变量定义虚拟桌面： Dim table(9, 9) As Integer 定义当前玩家桌面空格的分数： Dim pscore(9, 9) As Integer 定义当前电脑桌面空格的分数： Dim cscore(9, 9) As Integer 定义玩家的获胜组合： Dim pwin(9, 9, 191) As Boolean 定义电脑的获胜组合： Dim cwin(9, 9, 191) As Boolean 定义玩家的获胜组合标志： Dim pflag(191) As Boolean 定义电脑的获胜组合标志：

Dim cflag(191) As Boolean 定义游戏有效标志： Dim theplayflag As Boolean 三、初始化游戏 '*****************************************************************************

'** 模块名称: initplayenvironment

'**

'** 描述: 此函数主要功能如下:

'** 1. 设置背景音乐。

'** 2. 设置游戏状态有效。

'** 3. 初始化游戏状态标签。

'** 4. 直接指定电脑的第一步走法。

'** 5. 初始化基本得分桌面。

'** 6. 电脑和玩家获胜标志初始化。

'** 7. 初始化所有获胜组合。

'** 8. 重新设定玩家的获胜标志。

'**

'*****************************************************************************

Sub initplayenvironment()

player.FileName = ".\music\zhyu01.mid"

player.Play()

theplayflag = True

'游戏有效

Label1.Visible = False

'游戏状态标签不显示

PictureBox1.Refresh()

'清空picturebox1的内容

yuandian(130, 130)

'调用绘图函数绘制当前电脑先走的位置

Dim i, j, m, n As Integer

For i = 0 To 9

For j = 0 To 9

table(i, j) = 0

'桌面初始化

For i = 0 To 191

pflag(i) = True

cflag(i) = True

'获胜标志初始化

table(4, 4) = 1

'由于我们设定电脑先手，并下了4，4位所以将其值设为1

''' ******** 初始化获胜组合 ********

n = 0

For i = 0 To 9

For j = 0 To 5

For m = 0 To 4

pwin(j + m, i, n) = True

cwin(j + m, i, n) = True

n = n + 1

For i = 0 To 9

For j = 0 To 5

For m = 0 To 4

pwin(i, j + m, n) = True

cwin(i, j + m, n) = True

n = n + 1

For i = 0 To 5

For j = 0 To 5

For m = 0 To 4

pwin(j + m, i + m, n) = True

cwin(j + m, i + m, n) = True

n = n + 1

For i = 0 To 5

For j = 9 To 4 Step -1

For m = 0 To 4

pwin(j - m, i + m, n) = True

cwin(j - m, i + m, n) = True

n = n + 1

''' ******** 初始化获胜组合结束 ********

For i = 0 To 191

If pwin(4, 4, i) = True Then

pflag(i) = False

End If

'由于电脑已下了4，4位所以我们需要重新设定玩家的获胜标志

End Sub

四，处理鼠标事件 '*****************************************************************************

'** 模块名称: themousedown

'**

'** 描述: 此函数主要实行以下功能：

'** 1. 判定当前游戏标志是否有效。

'** 2. 将实际坐标转化成虚拟坐标。

'** 3. 绘制玩家的棋子。

'** 4. 执行检查获胜函数。

'** 5. 执行电脑算法函数。

'**

'*****************************************************************************

Sub themousedown(ByVal x As Integer, ByVal y As Integer)

If theplayflag = False Then

Exit Sub

End If

'检查游戏状态是否有效

Dim i, j As Integer

Dim zhx, zhy As Integer

zhx = Int((x - 10) / 30)

zhy = Int((y - 10) / 30)

For i = 0 To 9

For j = 0 To 9

If table(zhx, zhy) 0 Then

Exit Sub

End If

'检查当前鼠标点击的格子是否有效

Dim mycolor As Color

Dim g As System.Drawing.Graphics

g = PictureBox1.CreateGraphics

mycolor = Color.White

Dim brush1 As System.Drawing.Brush = New SolidBrush(mycolor)

g.FillEllipse(brush1, zhx * 30 + 10, zhy * 30 + 10, 30, 30)

'绘制玩家的棋子

table(zhx, zhy) = 2

For i = 0 To 191

If cwin(zhx, zhy, i) = True Then

cflag(i) = False

End If

'重设电脑的获胜标志

checkwin()

'检查当前玩家是否获胜

diannao()

'调用电脑算法

End Sub 五、获胜检查算法。 '*****************************************************************************

'** 模块名称: checkwin

'**

'** 描述: 此模块执行以下功能:

'** 1. 检查是否和棋。

'** 2. 检查电脑是否获胜。

'** 3. 检查玩家是否获胜。

'**

'*****************************************************************************

Sub checkwin()

Dim i, j, k, m, n As Integer

Dim ca As Integer

Dim pa As Integer

Dim cnormal As Integer = 0

For i = 0 To 191

If cflag(i) = False Then

cnormal = cnormal + 1

End If

If cnormal = 190 Then

Label1.Visible = True

Label1.Text = "和棋，请重新开始！"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

'设定和棋规则

For i = 0 To 191

If cflag(i) = True Then

ca = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 1 Then

If cwin(j, k, i) = True Then

ca = ca + 1

End If

If ca = 5 Then

Label1.Visible = True

Label1.Text = "电脑获胜,请重新开始"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

'检查电脑是否获胜

For i = 0 To 191

If pflag(i) = True Then

pa = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 2 Then

If pwin(j, k, i) = True Then

pa = pa + 1

End If

If pa = 5 Then

Label1.Visible = True

Label1.Text = "玩家获胜,请重新开始"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

'检查玩家是否获胜

End Sub 　六、电脑算法 '*****************************************************************************

'** 模块名称: diannao

'**

'** 描述: 此程序主要执行以下功能：

'** 1. 初始化赋值系统。

'** 2. 赋值加强算法。

'** 3. 计算电脑和玩家的最佳攻击位。

'** 4. 比较电脑和玩家的最佳攻击位并决定电脑的最佳策略。

'** 5. 执行检查获胜函数。

'**

'***************************************************************************** Sub diannao()

Dim i, j, k, m, n As Integer

Dim dc As Integer

Dim cab As Integer

Dim pab As Integer

For i = 0 To 9

For j = 0 To 9

pscore(i, j) = 0

cscore(i, j) = 0

'初始化赋值数组

''' ******** 电脑加强算法 ********

For i = 0 To 191

If cflag(i) = True Then

cab = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 1 Then

If cwin(j, k, i) = True Then

cab = cab + 1

End If

Select Case cab

Case 3

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If cwin(m, n, i) = True Then

cscore(m, n) = cscore(m, n) + 5

End If

Case 4

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If cwin(m, n, i) = True Then

yuandian(m * 30 + 10, n * 30 + 10)

table(m, n) = 1

For dc = 0 To 191

If pwin(m, n, dc) = True Then

pflag(dc) = False

checkwin()

Exit Sub

End If

End Select

End If

For i = 0 To 191

If pflag(i) = True Then

pab = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 2 Then

If pwin(j, k, i) = True Then

pab = pab + 1

End If

Select Case pab

Case 3

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If pwin(m, n, i) = True Then

pscore(m, n) = pscore(m, n) + 30

End If

Case 4

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If pwin(m, n, i) = True Then

yuandian(m * 30 + 10, n * 30 + 10)

table(m, n) = 1

For dc = 0 To 191

If pwin(m, n, dc) = True Then

pflag(dc) = False

checkwin()

Exit Sub

End If

End Select

End If

''' ******** 电脑加强算法结束 ******** ' ******** 赋值系统 ********

For i = 0 To 191

If cflag(i) = True Then

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 0 Then

If cwin(j, k, i) = True Then

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 1 Then

If cwin(m, n, i) = True Then

cscore(j, k) = cscore(j, k) + 1

End If

For i = 0 To 191

If pflag(i) = True Then

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 0 Then

If pwin(j, k, i) = True Then

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 2 Then

If pwin(m, n, i) = True Then

pscore(j, k) = pscore(j, k) + 1

End If

''' ******** 赋值系统结束 ********

''' ******** 分值比较算法 ********

Dim a, b, c, d As Integer

Dim cs As Integer = 0

Dim ps As Integer = 0

For i = 0 To 9

For j = 0 To 9

If cscore(i, j) cs Then

cs = cscore(i, j)

a = i

b = j

End If

For i = 0 To 9

For j = 0 To 9

If pscore(i, j) ps Then

ps = pscore(i, j)

c = i

d = j

End If

If cs ps Then

yuandian(a * 30 + 10, b * 30 + 10)

table(a, b) = 1

For i = 0 To 191

If pwin(a, b, i) = True Then

pflag(i) = False

End If

Else

yuandian(c * 30 + 10, d * 30 + 10)

table(c, d) = 1

For i = 0 To 191

If pwin(c, d, i) = True Then

pflag(i) = False

End If

''' ******** 分值比较算法结束 ********

checkwin()

End Sub 七、绘制棋子 '*****************************************************************************

'** 模块名称: yuandian

'**

'** 描述: 此函数主要进行电脑棋子的绘制。

'**

'***************************************************************************** Sub yuandian(ByVal x As Integer, ByVal y As Integer)

Dim mycolor As Color

Dim g As System.Drawing.Graphics

g = PictureBox1.CreateGraphics

Dim zhx, zhy As Integer

zhx = Int((x - 10) / 30)

zhy = Int((y - 10) / 30)

mycolor = Color.Black

Dim brush1 As System.Drawing.Brush = New SolidBrush(mycolor)

g.FillEllipse(brush1, zhx * 30 + 10, zhy * 30 + 10, 30, 30)

End Sub

Q4: 如何保存 ActiveX 控件

ActiveX是Microsoft对于一系列策略性面向对象程序技术和工具的称呼，其中主要的技术是组件对象模型（COM）。在有目录和其它支持的网络中，COM变成cabvb.net了分布式COM（DCOM）。在创建包括ActiveX程序时，主要的工作就是组件，一个可以自足的在ActiveX网络（现在的网络主要包括Windows和Mac）中任意运行的程序。这个组件就是ActiveX近控件。ActiveX是Microsoft为抗衡Sun Microsystems的JAVA技术而提出的，此控件的功能和JAVA applet功能类似。

如果您使用的是Windows操作系统，您或许会注意到一些以OCX结尾的文件。OCX代表“对象链接与嵌入控件”（OLE），这个技术是Microsoft提出的程序技术，用于处理桌面文件的混合使用。现在COM的概念已经取代OLE的一部分，Microsoft也使用ActiveX控件代表组件对象。

组件的一大优点就是可以被大多数应用程序再使用（这些应用程序称为组件容器）。一个COM组件（ActiveX控件）可由不同语言的开发工具开发，包括C++和Visual Basic或PowerBuilder，甚至一些技术性语言如VBScript。

目前，ActiveX控件在Windows 95/NT和Macintosh中运行，Microsoft还准备支持UNIX的ActiveX控件。

ActiveX组件包括如下几类：

1.自动化服务器：可以由其cabvb.net他应用程序编程驱动的组件。自动化服务器至少包括一

个，也许是多个供其他应用程序生成和连接的基于IDispatch的接口。自动化服务器

可以含有也可以没有用户界面（UI），这取决于服务器的特性和功能。

2.自动化控制器：那些使用和操纵自动化服务器的应用程序。

3.控件：ActiveX控件等价于以前的OLE控件或OCX。一个典型的控件包括设计时和运

行时的用户界面，唯一的IDispatch接口定义控件的方法和属性，唯一的

IConnectionPoint接口用于控件可引发的事件。

4.文档：ActiveX文档，即以前所说的DocObect，表示一种不仅仅是简单控件或自动

化服务器的对象。ActiveX文档在结构上是对OLE链接和模型的扩展，并对其所在的

容器具有更多控制权。一个最显著的变化是菜单的显示方式。一个典型的OLE文档的

菜单会与容器菜单合并成一个新的集合，而ActiveX文档将替换整个菜单系统，只表

现出文档的特性而不是文档与容器共同的特性。

5.容器：ActiveX容器是一个可以作为自动化服务器、控件和文档宿主的应用程序1. Flash Player ActiveX Control 6.0.47.0

与FLASH 6.0配套的浏览器端动画播放插件

download.pchome.net/development/activex/551.html

2. ACE Mega Codec Pack Professional 6.03

目前互联网上最齐全的多媒体文件播放插件CoDecS、ActiveXFilterS和其他应用程序(基于

3. Anti ActiveX-3721 百度搜霸 CNNIC 免疫器 1.51

AntiactiveX-3721 百度搜霸 CNNIC 免疫器

download.pchome.net/system/treak/17251.html

4. ActiveBar V2.0 SP3 汉化版

ActiveBar 是一款设计用户界面必不可少的 ActiveX 控件

5. SpywareBlaster 3.51

主要用来屏蔽国外的色情站点和黑客站点的弹出式ActiveX

download.pchome.net/internet/safe/17262.html

6. EasyByte Cryptocx 6.1.7

一个加密ActiveX control，超过3MB的文件在一秒内即可加密完成

download.pchome.net/development/activex/9013.html

7. ActiveX Control Pad 1.0

让cabvb.net你轻松在网页中加入ActiveX控制项，是一种网页编辑工具，有了它你就可以建立一般HTM

8. ActiveSkin 4.3

一个Visual Basic ActiveX组件

download.pchome.net/development/activex/8859.html

9. PowerTCP Emulation Tool 1.8.3

一个用于 Internet 应用程序设计的 ActiveX 控件组。

download.pchome.net/development/activex/764.html

10. Anti ActiveX nags 1.51 Build 0925

经常上网的朋友在浏览网页时，是否经常会碰到各类要求您认证的对话框(如“3721网络实

11. AVCapture 音/视频捕捉 1.12

基于DirectShow技术开发的音视频讯号捕捉ActiveX控件

download.pchome.net/development/activex/14398.html

12. Authorware Web Player ActiveX Control 5,2,0,61

浏览器插件

download.pchome.net/development/activex/553.html

13. a.Paper 动态桌面 2.1

a.Paper是个独特的软件，可以让你将建立在Flash动画、Javaapplets、ActiveX对象和HTML

14. ActiveX Control Pad 1.0

把ActiveX控件和脚本加入到你的HTML页面中

download.pchome.net/development/activex/664.html

15. 常见Active X插件屏蔽器 040113

PChome特别放松的常见ActiveX插件的屏蔽解决方法例如3721,网易等

download.pchome.net/internet/safe/16222.html

16. Basic Constituents for VB V1.0

一个 VB 控件组。其中包含了 25 个厂商制定的 ActiveX 控件

download.pchome.net/development/vb/7072.html

17. ShuX ActiveX Control 中文版 1.0.0.6

功能强大的界面增强控件

download.pchome.net/development/activex/12796.html

18. 反间谍专家 2.1

提供系统免疫，确保系统不受恶意网站、间谍软件、有害ActiveX的侵扰

download.pchome.net/internet/safe/19313.html

19. 圆盘仪表控件 V3.1

圆盘仪表控件是一套基于 ActiveX 技术，面向仿真、工控、科学、仪表

download.pchome.net/development/components/876.html

20. Atguard 1.31

不仅可以实现广告过滤，还可以过滤JavaScript，ActiveX，Cookie

download.pchome.net/internet/ispeed/2590.html

21. ShuX XPMenu ActiveX Control 中文版 1.0.3

能使您快速设计出Office XP风格的菜单

download.pchome.net/development/activex/13369.html

22. teeChart Pro for Delphi 5 V5.0

teeChart Pro 是生成图表的 ActiveX 控件。

download.pchome.net/development/delphi/845.html

23. NCTAudioConvert 2.1.617 Build 2003.04.11

一个转换声音文件格式的 ActiveX 控件

download.pchome.net/development/activex/10105.html

24. ImpulseStudio 3.02

功能多多的 Visual Basic ActiveX 控件包

download.pchome.net/development/activex/11328.html

25. ActiveX Manager 1.4

无需知道REGSVR32，用该软件你就可以轻松管理机器中装的ActiveX插件

download.pchome.net/development/activex/6751.html

26. NCTWavRecord 1.4.27

由 NCT Company 制作的，声音录制和回放的 ActiveX 控件

download.pchome.net/development/activex/10103.html

27. NotTroubleMe 别烦我英文版 1.2 build 0114

GreenBrowser外部工具，可以禁止弹出关于ActiveX认证的对话框

download.pchome.net/internet/browser/plugin/16176.html

28. ActiveX Manager 1.4 汉化版

ActiveXManager是一个管理ActiveX控件的简易程序。它可以注册及反注册ocx、dll控件，

29. PrintCell电子表格打印预览控件 V4.2

PrintCell电子表格是一款ActiveX组件，解决软件开发中

30. 别烦我 V1.2 Build 0114

"别烦我" 可以禁止弹出某些关于ActiveX认证的对

31. Cell 组件 V3.34

CELL 组件是在中文环境下开发的图表处理 ActiveX 组件

download.pchome.net/development/components/878.html

32. PC-Cillin 扫描引擎for Win9x/Me V6.150

PC-Cillin 2000 扫描引擎，可检测并删除恶性 Java 与 ActiveX 。同时也增加了压缩

download.21cn.com/list.php?id=5186

33. CDWriterXP 1.6

以ActiveX控制整个烧录机制，稳定地烧录

download.pchome.net/utility/cdr/9915.html

34. SpywareBlaster 3.5.1

SpywareBlaster是一个放间谍工具的软件，它可以关闭流行的间谍软件的ActiveX控件，从

35. ActiveThreed Plus 3.03.3

是一个 ActiveX 控件组

download.pchome.net/development/activex/7421.html

36. ShuX XPMenu ActiveX Control V1.0.1 中文版

ShuX XPMenu 是一个全新的增强型介面控件，它能使您快

37. ActiveXperts Network Monitor 6.0

ActiveXpertsNetworkMonitorb是一个使用方便功能强大的局域网、广域网服务器和网络设

38. zhwxGUI ActiveX Controls 1.0

Ani动画控件 Splitbar,etc.

download.pchome.net/development/activex/8857.html

39. Active Backup Expert Pro 1.92

保存多份备份文件，制作自解压缩文件，支持ActiveX

download.pchome.net/system/backup/3155.html

40. 字幕滚动控件 V1.0

字幕滚动控件是一标准ActiveX控件。在Win98、Win2000、

关于cabvb.net和的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

正文

vb打包问题

相关问答

相关阅读

判断五子棋获胜的c语言算法，五子棋c语言代码报告

抖音直播PK快速吸粉，抖音直播主播pk咋获胜

格斗游戏最后必杀技是什么，格斗游戏满血获胜

捕捉沙丁鱼的养成游戏攻略，沙丁鱼游戏怎么获胜

宿舍游戏大动作，宿舍活动游戏

屁股动作游戏，臀部活动

体育课乒乓球游戏有哪些的简单介绍

带货视频如何垂直推广，抖音带货垂直是什么意思

目录[+]