 您所在位置：论坛首页 — Visual Basic — 含笑不语：异型窗体代码逐句详解,请高手指教点评,菜鸟分享 本帖地址： http://bbs.pfan.cn/post-264548.html [复制地址] [搜索相关帖子] |
|||||
|
|
|||||||
|
|
作者：含笑不语 专家分：50   |
1
楼
注释1: Option Explicit 语句 用于在文件级(即一段完整的程序代码中)强制对该文件中的所有变量进行显式声明。 Option Explicit { On | Off } On 可选。启用 Option Explicit 检查。如果在 Option Explicit 语句后没有指定 On 或 Off，则默认为 On。 Off 可选。禁用 Option Explicit 检查。 备注 如果使用，则 Option Explicit 语句必须出现在文件中其他所有源语句之前。 当 Option Explicit 出现在文件中时，必须使用 Dim、Private、Public 或 ReDim 语句显式声明所有变量。试图使用未声明的变量名将发生编译时错误。 如果没有使用 Option Explicit 语句，则所有未声明的变量都是 Object 类型。 注意 使用 Option Explicit 可避免拼错现有变量的名称，或避免在变量范围不清楚的代码中产生混淆。如果代码中没有指定 Option Explicit，编译器的默认设置将是 Option Explicit On。 补充:强制声明，因为VB的变量是可以不声明而直接使用的，但是这样可能会造成一些莫名奇妙的隐含错误，还很难排查，用了这个语句后所有的变量都要遵循先声明后引用的规矩，这样就避免了一些不必要的麻烦，这是一个良好的编码习惯。
|
|
作者：含笑不语 专家分：50 |
2
楼
注释2: Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
1). vb 中declare的使用方法 VB里的说明语句（Declare），仅支持动态链结库（DLL）的子程序和无变量函数。 VB程序要使用DLL中的函数，首先必须要有特殊的声明，用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明，将动态链接库中的函数声明到VB中，供VB程序调用。 语句格式为：Declare Sub 过程名Lib [ Alias " 别名]（[ByVal 参数AS类型]），或为Declare Function函数名Lib [Alias " 别名]（[ByVal 参数AS类型]）AS类型 在声明中首先用Declare关键字表示声明DLL中的函数。 2).Funtion 过程 Visual Basic 包含内置的、或内部的函数，如 Sqr、Cos 或 Chr。此外，还可用 Function 语句编写自己的 Function 过程。 函数过程的语法是： Private |Public] [Static] Function procedurename (arguments) [As type] statements End Function 与 Sub 过程一样，Function 过程也是一个独立的过程，可读取参数、执行一系列语句并改变其参数的值。与子过程不同，Function 过程可返回一个值到调用的过程。在Sub 过程与Function 过程之间有三点区别： 1.一般说来，让较大的语句或表达式的右边包含function过程名和参数 (returnvalue = function)，这就调用了function函数。 2.function过程与变量完全一样，函数过程有数据类型。这就决定了返回值的类型。（如果没有 As 子句，缺省的数据类型为 Variant。） 3.给procedurename(Function 过程名)自身赋一个值，就可返回这个值。Function 过程返回一个值时，该值可成为较大表达式的一部分。 例如，下面是已知直角三角形两直角边的值，计算第三边（斜边）的函数： Function Hypotenuse (A As Integer, B As Integer) As String Hypotenuse = Sqr (A ^ 2 + B ^ 2) End Function 在 Visual Basic 中调用 Function 过程的方法和调用任何内部函数的方法是一样的 sub 执行完程序代码后就直接返回了,不会带回数值。而function执行完代码后可以返回一个值，用来返回一个计算结果等数字。 例如： function sum(a,b) sum=a+n end function 可以调用为： a=1 b=2 c=sum(a,b) 运行后c=3 而sub则不能用“变量=程序名 ”来调用。 补充： Sub 过程 子过程是在响应事件时执行的代码块。将模块中的代码分成子过程后，在应用程序中查找和修改代码变得更容易了。 子过程的语法是： [Private|Public][Static]Sub procedurename (arguments) statements End Sub 每次调用过程都会执行 Sub 和 End Sub 之间的 statements。可以将子过程放入标准模块、类模块和窗体模块中。按照缺省规定，所有模块中的子过程为 Public（公用的），这意味着在应用程序中可随处调用它们。 过程的 arguments 类似于变量声明，它声明了从调用过程传递进来的值。 在 Visual Basic 中应区分通用过程和事件过程这两类子过程。 1.通用过程 通用过程告诉应用程序如何完成一项指定的任务。一旦确定了通用过程，就必须专由应用程序来调用。反之，直到为响应用户引发的事件或系统引发的事件而调用事件过程时，事件过程通常总是处于空闲状态。 为什么要建立通用过程呢？理由之一就是，几个不同的事件过程也许要执行同样的动作。将公共语句放入一分离开的过程（通用过程）并由事件过程来调用它，诚为编程上策。这样一来就不必重复代码，也容易维护应用程序。例如，VCR 示例应用程序使用了一个通用过程，几个不同滚动按钮的 Click 事件都调用这个通用过程。图 5.7 说明了通用过程的使用。Click 事件中的代码调用按钮管理器的子过程，子过程运行自身的代码，然后将控制返回到 Click 事件过程。 2.事件过程 当 Visual Basic 中的对象对一个事件的发生作出认定时，便自动用相应于事件的名字调用该事件的过程。因为名字在对象和代码之间建立了联系，所以说事件过程是附加在窗体和控件上的。 一个控件的事件过程将控件的（在 Name 属性中规定的）实际名字、下划线 (_) 和事件名组合起来。例如，如果希望在单击了一个名为 cmdPlay 的命令按钮之后，这个按钮会调用事件过程，则要使用 cmdPlay_Click 过程。 一个窗体事件过程将词汇 "Form"、下划线和事件名组合起来。如果希望在单击窗体之后，窗体会调用事件过程，则要使用 Form_Click 过程。（和控件一样，窗体也有唯一的名字，但不能在事件过程的名字中使用这些名字。）如果正在使用 MDI 窗体，则事件过程将词汇 " MDIForm " 、下划线和事件名组合起来，如 MDIForm_Load。 所有的事件过程使用相同的语法。 控件事件的语法 窗体事件的语法 Private Sub controlname_eventname (arguments ) statements End Sub Private Sub Form_eventname (arguments) statements End Sub 虽然可以自己编写事件过程，但使用 Visual Basic 提供的代码过程会更方便，这个过程自动将正确的过程名包括进来。从“对象框”中选择一个对象，从“过程框”中选择一个过程，就可在“代码编辑器” 窗口选择一个模板。 在开始为控件编写事件过程之前先设置控件的 Name 属性，这不失为一个好主意。如果对控件附加一个过程之后又更改控件的名字，那么也必须更改过程的名字，以符合控件的新名字。否则，Visual Basic 无法使控件和过程相符。过程名与控件名不符时，过程就成为通用过程。 ****最最根本的区别不是sub没有返回值，而function有。 而是 sub调用，没有堆栈的开销。而function却有 sub调用，调用前，不用压入栈，退出后也不用弹出栈 而function则不然
|
|
作者：含笑不语 专家分：50 |
3
楼
补充：什么是堆栈 在计算机领域，堆栈是一个不容忽视的概念，但是很多人甚至是计算机专业的人也没有明确堆栈其实是两种数据结构。 要点： 堆：顺序随意 栈：先进后出 堆和栈的区别 一、预备知识—程序的内存分配 一个由c/C++编译的程序占用的内存分为以下几个部分 1、栈区（stack）— 由编译器自动分配释放 ，存放函数的参数值，局部变量的值等。其操作方式类似于数据结构中的栈。 2、堆区（heap） — 一般由程序员分配释放， 若程序员不释放，程序结束时可能由OS回收 。注意它与数据结构中的堆是两回事，分配方式倒是类似于链表。 3、全局区（静态区）（static）—，全局变量和静态变量的存储是放在一块的，初始化的全局变量和静态变量在一块区域， 未初始化的全局变量和未初始化的静态变量在相邻的另一块区域。 - 程序结束后由系统释放。 4、文字常量区 —常量字符串就是放在这里的。 程序结束后由系统释放 。 5、程序代码区—存放函数体的二进制代码。 二、例子程序 这是一个前辈写的，非常详细 //main.cpp int a = 0; 全局初始化区 char *p1; 全局未初始化区 main() { int b; 栈 char s[] = "abc"; 栈 char *p2; 栈 char *p3 = "123456"; 123456\0在常量区，p3在栈上。 static int c =0； 全局（静态）初始化区 p1 = (char *)malloc(10); p2 = (char *)malloc(20); } 分配得来得10和20字节的区域就在堆区。 strcpy(p1, "123456"); 123456\0放在常量区，编译器可能会将它与p3所指向的"123456"优化成一个地方。 堆和栈的理论知识 1.申请方式 stack: 由系统自动分配。 例如，声明在函数中一个局部变量 int b; 系统自动在栈中为b开辟空间 heap: 需要程序员自己申请，并指明大小，在c中malloc函数 如p1 = (char *)malloc(10); 在C++中用new运算符 如p2 = (char *)malloc(10); 但是注意p1、p2本身是在栈中的。 2.申请后系统的响应 栈：只要栈的剩余空间大于所申请空间，系统将为程序提供内存，否则将报异常提示栈溢出。 堆：首先应该知道操作系统有一个记录空闲内存地址的链表，当系统收到程序的申请时，会遍历该链表，寻找第一个空间大于所申请空间的堆结点，然后将该结点从空闲结点链表中删除，并将该结点的空间分配给程序，另外，对于大多数系统，会在这块内存空间中的首地址处记录本次分配的大小，这样，代码中的delete语句才能正确的释放本内存空间。另外，由于找到的堆结点的大小不一定正好等于申请的大小，系统会自动的将多余的那部分重新放入空闲链表中。 3.申请大小的限制 栈：在Windows下,栈是向低地址扩展的数据结构，是一块连续的内存的区域。这句话的意思是栈顶的地址和栈的最大容量是系统预先规定好的，在 WINDOWS下，栈的大小是2M（也有的说是1M，总之是一个编译时就确定的常数），如果申请的空间超过栈的剩余空间时，将提示overflow。因此，能从栈获得的空间较小。 堆：堆是向高地址扩展的数据结构，是不连续的内存区域。这是由于系统是用链表来存储的空闲内存地址的，自然是不连续的，而链表的遍历方向是由低地址向高地址。堆的大小受限于计算机系统中有效的虚拟内存。由此可见，堆获得的空间比较灵活，也比较大。 4.申请效率的比较 栈由系统自动分配，速度较快。但程序员是无法控制的。 堆是由new分配的内存，一般速度比较慢，而且容易产生内存碎片,不过用起来最方便. 另外，在WINDOWS下，最好的方式是用VirtualAlloc分配内存，他不是在堆，也不是在栈,而是直接在进程的地址空间中保留一快内存，虽然用起来最不方便。但是速度快，也最灵活 5.堆和栈中的存储内容 栈： 在函数调用时，第一个进栈的是主函数中函数调用后的下一条指令（函数调用语句的下一条可执行语句）的地址，然后是函数的各个参数，在大多数的C编译器中，参数是由右往左入栈的，然后是函数中的局部变量。注意静态变量是不入栈的。 当本次函数调用结束后，局部变量先出栈，然后是参数，最后栈顶指针指向最开始存的地址，也就是主函数中的下一条指令，程序由该点继续运行。 堆：一般是在堆的头部用一个字节存放堆的大小。堆中的具体内容有程序员安排。 6.存取效率的比较 char s1[] = "aaaaaaaaaaaaaaa"; char *s2 = "bbbbbbbbbbbbbbbbb"; aaaaaaaaaaa是在运行时刻赋值的； 而bbbbbbbbbbb是在编译时就确定的； 但是，在以后的存取中，在栈上的数组比指针所指向的字符串(例如堆)快。 比如： #include void main() { char a = 1; char c[] = "1234567890"; char *p ="1234567890"; a = c[1]; a = p[1]; return; } 对应的汇编代码 10: a = c[1]; 00401067 8A 4D F1 mov cl,byte ptr [ebp-0Fh] 0040106A 88 4D FC mov byte ptr [ebp-4],cl 11: a = p[1]; 0040106D 8B 55 EC mov edx,dword ptr [ebp-14h] 00401070 8A 42 01 mov al,byte ptr [edx+1] 00401073 88 45 FC mov byte ptr [ebp-4],al 第一种在读取时直接就把字符串中的元素读到寄存器cl中，而第二种则要先把指针值读到edx中，在根据edx读取字符，显然慢了。 7.小结： 堆和栈的区别可以用如下的比喻来看出： 使用栈就象我们去饭馆里吃饭，只管点菜（发出申请）、付钱、和吃（使用），吃饱了就走，不必理会切菜、洗菜等准备工作和洗碗、刷锅等扫尾工作，他的好处是快捷，但是自由度小。 使用堆就象是自己动手做喜欢吃的菜肴，比较麻烦，但是比较符合自己的口味，而且自由度大。 堆和栈的区别主要分： 操作系统方面的堆和栈，如上面说的那些，不多说了。 还有就是数据结构方面的堆和栈，这些都是不同的概念。这里的堆实际上指的就是（满足堆性质的）优先队列的一种数据结构，第1个元素有最高的优先权；栈实际上就是满足先进后出的性质的数学或数据结构。 虽然堆栈，堆栈的说法是连起来叫，但是他们还是有很大区别的，连着叫只是由于历史的原因。
|
|
作者：含笑不语 专家分：50 |
4
楼
3).CreateRectRgn VB声明
'创建一个矩形区域 Declare Function CreateRectRgn Lib "gdi32" Alias "CreateRectRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long 说明 创建一个由点X1，Y1和X2，Y2描述的矩形区域 返回值 Long，执行成功为区域句柄，失败则为零 参数表 参数 类型 说明 X1,Y1 Long， 矩形左上角X，Y坐标 X2,Y2 Long， 矩形右下角X，Y坐标 注解 不用时一定要用DeleteObject函数删除该区域 这个矩形的下边和右边不包含在区域之内 CreateRectRgn()的作用是创建一个矩形区域,以你传入参数的矩形位置创建一个区域对象 CreateRectRgn()用来创建一个“剪裁区域”；至于剪裁区域，它是对显示器上一个范围的描述，这个范围是矩形、多边形和椭圆的组合。剪裁区域一般用来绘制和剪裁，通过将剪裁区域选进设备上下文，就可以用剪裁区域来进行剪裁（就是说，将可以绘图的范围限制为显示区域的一部分）。它是GDI对象。在GDI中当函数名称中包含Rgn字符时，一般表示此函数与剪裁区域有关。
|
|
作者：含笑不语 专家分：50 |
5
楼
4).关于LIB和DLL
dll 是 编译后 生成的 动态连接库, 而 lib 是在 程序编译时 会用到的 类库文件 1.什么是动态链接库？ DLL是Dynamic Link Library 的缩写形式，动态链接库 (DLL) 是作为共享函数库的可执行文件。动态链接提供了一种方法，使进程可以调用不属于其可执行代码的函数。函数的可执行代码位于一个 DLL 中，该 DLL 包含一个或多个已被编译、链接并与使用它们的进程分开存储的函数。DLL 还有助于共享数据和资源。多个应用程序可同时访问内存中单个 DLL 副本的内容。 动态链接库是一个能够被应用程序和其它的DLL调用的过程和函数的集合体,它里面包含的是公共代码或资源。由于DLL代码使用了内存共享技术,在某些地方windows也给了DLL一些更高的权限,因而DLL中可以实现一些一般程序所不能实现的功能,如实现windows的HOOK、ISAPI等。 同时,DLL还为不同语言间代码共享提供了一条方便的途径。因而DLL在编程时应用较为广泛,本文将介绍如何在 Delphi 中建立和使用DLL。 一．DLL 库内存共享机制 从使用效果看,DLL和unit 很像,它们都可以被别的工程模块所调用,但二者在内部的实现机制上确存在着差别。如果一个程序模块中用uses语句引用了某个unit,编译程序在编译该模块时,便会连同unit一起编译,并把编译后的可执行代码链接到本程序模块中,这就是一个程序模块能够调用所引用unit中过程和函数的原因。 当同一个unit被多个工程所引用时,则每个工程中都含有该unit的可执行代码,当含有该unit的多个工程同时执行时,unit的可执行代码会随不同工程而多次被调入内存,造成内存资源的浪费。DLL则不同,它即使被某个工程调用,编译后仍是独立的。 也就是说编译后,一个DLL库形成一个单独的可执行文件,而不与任何其它的可执行文件连接在一起,因而DLL库并不从属于某个特定的工程,当多个工程调用同一个DLL库时只有第一个工程把DLL库调入内存,其余工程并不重复调入同一个DLL库到内存,而是到同一个共享内存区读取。并且,DLL的执行代码是在程序运行期间动态调入的,而不是如unit在程序运行时就与整个工程一起调入内存。这样便可消除unit带来的相同代码多处占用内存的弊病。 二 Delphi中DLL库的建立 在Delphi环境中,编写一个DLL同编写一个一般的应用程序并没有太大的区别。事实上作为DLL主体的DLL函数的编写,除了在内存、资源的管理上有所不同外,并不需要其它特别的手段。 一般工程文件的格式为: program 工程标题; uses 子句; 程序体 而DLLs工程文件的格式为: library 工程标题; uses 子句; exprots 子句; 绦蛱? 它们主要的区别有两点: 1.一般工程文件的头标用program关键字,而DLL工程文件头标用library 关键字。不同的关键字通知编译器生成不同的可执行文件。用program关键字生成的是.exe文件,而用library关键字生成的是.dll文件; 2.假如DLL要输出供其它应用程序使用的函数或过程,则必须将这些函数或过程列在exports子句中。而这些函数或过程本身必须用export编译指令进行编译。 在Delphi主菜单file 中选new...项,在弹出的窗口中双击DLL图标,便会自动给出DLL源模块框架,如下: Library project1; {...注释...} uses SysUtils, Classes; begin end. 接下来便可在USES和begin之间加入想在该DLL中实现的过程和函数的定义,并用export和exprots保字把它们引出,以便别的模块引用,在begin和end之间加入初始化代码,初始化代码是用来对DLL变量初始化的。应注意,即便无初始化代码begin与end也不可省略,如下例: library minmax; function Min(X, Y: Integer): Integer; export; begin if X < Y then Min := X else Min := Y; end; function Max(X, Y: Integer): Integer; export; begin if X > Y then Max := X else Max := Y; end; exports Min index 1, Max index 2; begin end. 经编译后,并以minmax.DLL存盘后,一个DLL库文件便形成了。 三 DLL库的访问 访问DLL库有两种方式,一种是静态引用,另一种是动态引用。 用静态引用这种方法装入DLL要做两件事情:为DLL 库创建一个输入单元,以及用USES把输入单元连接到要使用DLL 函数的程序模块中。为DLL库创建的输入单元与普通的单元的区别仅在于:在它的接口处声明的过程、函数,并不在它的实现部分给出真正的实现代码,而是用external关键字把过程、函数的实现细节委托给外部DLL模块。 external命令的使用语法如下: procedure /function 过程/函数名;external DLL模块名; 下面给出为上面创建的minmax.DLL库写的输入单元源文件testdll .pas,从中可看出输入单元与一般单元的一些差别,代码如下所示: unit testdll; interface uses function Min (X, Y: Integer): Integer; function Max (X, Y: Integer): Integer; implementation function Min; external ‘minmax.DLL’; function Max; external ‘minmax.DLL’; end. 一个应用程序若想调用minmax.DLL中的函数,只须在其uses语句中加入testdll 单元即可。 动态装入DLL,要用到Windows的三个API函数。Loadlibrary、Freelibrary和GetprocAddress 。 loadlibrary函数用来装入DLL库,其调用格式如下: function loadlobrary (DLLfileName:Pchar): THandle: 当不再需要一个DLL库时,应调用FreeLibrary函数将其释放,以空出宝贵的内存资源,其调用格式如下: procedure FreeLibrary (Libmodule:THandle) Libmodule 为由LoadLibrary调用得到的DLL库句柄。在用loadlobrary 函数装入某个DLL库和调用FreeLibrary释放该DLL库之间的程序段中, 可以使用该DLL库中的过程和函数,具体使用方法是:用GetprocAddress函数把DLL库中函数的地址传递给程序中某个函数变量,再用该变量实现DLL函数的调用。GetprocAddress函数声名如下 function GetprocAddress (Libmodule:THandle:procname:pchar):TFarProc: 如下例所示: type TTimeRec = record Second: Integer; Minute: Integer; Hour: Integer; end; TGetTime = procedure(var Time: TTimeRec); THandle = Integer; var Time: TTimeRec; Handle: THandle; GetTime: TGetTime; ... begin Handle := LoadLibrary('DATETIME.DLL'); if Handle <> 0 then begin @GetTime := GetProcAddress(Handle, 'GetTime'); if @GetTime <> nil then begin GetTime(Time); with Time do WriteLn('The time is ', Hour, ':', Minute, ':', Second); end; FreeLibrary(Handle); end; end; 在调用动态链接库时应注意, 所需动态链接库须与应用程序在同一目录或Windows System 目录下。 动态链接库是 Windows下程序组织的一种重要方式,使用动态链接库可以极大地保护用户在不同开发工具、不同时期所做的工作,提高编程效率。
|
|
作者：含笑不语 专家分：50 |
6
楼
2.什么是动态连接库文件？有什么用？
计算机语言 就是写程序语言 跟我们说话一样 由一句一句完整的意思来构成 拿C来说 每一段能够独立执行的语句 叫做函数 动态链接库 就包含了很多函数 但是这些函数 不能够独立运行 需要exe文件中的函数 来调用它 dll文件整合了 一个函数集 这个函数集 赋给它一定的参数 就能独立的完成一项任务 在编程中 这样的东西 叫模块 根据dll的特性 它包含了 一定的自己的属性和事件动作 所以 又属于类模块 执行效率比较高 为什么要做成dll文件呢? 因为这样便于 扩展和移植 打个比方 一个类(.dll)它的作用是查询时间 所以不管什么程序 只要用到查询时间这个功能了 都可以调用这个查询时间功能的类 只要接口 和调用的函数名,参数正确就可以挂接 因此不必在每个程序里都写上查询时间的代码增加程序本身的长度 3.什么是静态链接库？ 静态链接库就是.lib文件，库中得代码最后需要连接到你的可执行文件中去，所以静态连接的可执行文件一般比较大一些。 如果你使用VC，可以在Project Setting-->Link中加入你的静态库，也可以直接把该.lib文件加入到你的工程中。 在静态库情况下，函数和数据被编译进一个二进制文件（通常扩展名为*.LIB），Visual C++的编译器在处理程序代码时将从静态库中恢复这些函数和数据并把他们和应用程序中的其他模块组合在一起生成可执行文件。这个过程称为"静态链接"，此时因为应用程序所需的全部内容都是从库中复制了出来，所以静态库本身并不需要与可执行文件一起发行。 4.静态库和动态库的区别？ 静态连接库,在编译以后包含在可执行文件中,不会以单独文件的形式存在.动态连接库是以单独文件的形式存在,被程序外部调用,动态连接库的好处就是可以多个进程访问一个动态连接库,并且共享一块内存.静态则包含在程序中,不能被外部调用! 简单地讲，静态库程序很长，但可以独立运行，动态库程序很短，但需要其它一些动态库存在才能进行工作。 需要注意的是，就某个动态库来说，它也有静态库版本和动态库版本，其静态库版本可以独立工作，但其动态库版本不能独立工作，仍然需要其它动态库的支持。 5.静态调用方式和动态调用方式 1）、静态调用方式：由编译系统完成对 DLL 的加载和应用程序结束时 DLL 卸载的编码（如还有其它程序使用该 DLL，则 Windows 对 DLL 的应用记录减1，直到所有相关程序都结束对该 DLL 的使用时才释放它，简单实用，但不够灵活，只能满足一般要求。 隐式的调用：需要把产生动态连接库时产生的 .LIB 文件加入到应用程序的工程中，想使用 DLL 中的函数时，只须说明一下。隐式调用不需要调用 LoadLibrary() 和 FreeLibrary()。程序员在建立一个 DLL 文件时，链接程序会自动生成一个与之对应的 LIB 导入文件。该文件包含了每一个 DLL 导出函数的符号名和可选的标识号，但是并不含有实际的代码。LIB 文件作为 DLL 的替代文件被编译到应用程序项目中。 当程序员通过静态链接方式编译生成应用程序时，应用程序中的调用函数与 LIB 文件中导出符号相匹配，这些符号或标识号进入到生成的 EXE 文件中。LIB 文件中也包含了对应的 DL L文件名（但不是完全的路径名），链接程序将其存储在 EXE 文件内部。 当应用程序运行过程中需要加载 DLL 文件时，Windows 根据这些信息发现并加载 DLL，然后通过符号名或标识号实现对 DLL 函数的动态链接。所有被应用程序调用的 DLL 文件都会在应用程序 EXE 文件加载时被加载在到内存中。可执行程序链接到一个包含 DLL 输出函数信息的输入库文件(.LIB文件)。操作系统在加载使用可执行程序时加载 DLL。可执行程序直接通过函数名调用 DLL 的输出函数，调用方法和程序内部其 它的函数是一样的。 2）、动态调用方式：是由编程者用 API 函数加载和卸载 DLL 来达到调用 DLL 的目的，使用上较复杂，但能更加有效地使用内存，是编制大型应用程序时的重要方式。 显式的调用：是指在应用程序中用 LoadLibrary 或 MFC 提供的 AfxLoadLibrary 显式的将自己所做的动态连接库调进来，动态连接库的文件名即是上面两个函数的参数，再用 GetProcAddress() 获取想要引入的函数。自此，你就可以象使用如同本应用程序自定义的函数一样来调用此引入函数了。在应用程序退出之前，应该用 FreeLibrary 或 MFC 提供的 AfxFreeLibrary 释放动态连接库。直接调用 Win32 的 LoadLibary 函数，并指定 DLL 的路径作为参数。LoadLibary 返回 HINSTANCE 参数，应用程序在调用 GetProcAddress 函数时使用这一参数。GetProcAddress 函数将符号名或标识号转换为 DLL 内部的地址。程序员可以决定 DLL 文件何时加载或不加载，显式链接在运行时决定加载哪个 DLL 文件。使用 DLL 的程序在使用之前必须加载（LoadLibrary）加载DLL从而得到一个DLL模块的句柄，然后调用 GetProcAddress 函数得到输出函数的指针，在退出之前必须卸载DLL(FreeLibrary)。 6.什么是类?什么是类库? 两个概念存在于面向对象的语言: 类,顾名思义,就是一些拥有相同属性的数据的集合,和现实中的人类,动物类相似.有类的概念相关的还有父类,子类,类的继承等.所谓父类和子类的关系相当于人和中国人的关系.类中有属性和方法,这两个也是重要的概念,上述三个概念(父类,子类,类的继承)都是建立在它的基础上的. 理解了类,类库就很简单了,就是类的集合. 以下是比较专业的解释 类（Class）实际上是对某种类型的对象定义变量和方法的原型。 类是对某个对象的定义。它包含有关对象动作方式的信息，包括它的名称、方法、属性和事件。实际上它本身并不是对象，因为它不存在于内存中。当引用类的代码运行时，类的一个新的实例，即对象，就在内存中创建了。虽然只有一个类，但能从这个类在内存中创建多个相同类型的对象。 可以把类看作“理论上”的对象，也就是说，它为对象提供蓝图，但在内存中并不存在。从这个蓝图可以创建任何数量的对象。从类创建的所有对象都有相同的成员：属性、方法和事件。但是，每个对象都象一个独立的实体一样动作。例如，一个对象的属性可以设置成与同类型的其他对象不同的值。 Microsoft(r) Visual Basic(r) for Applications (VBA) 工程中可包含两种不同类型的类模块：没有任何一种与其关联的用户界面的基本类模块；与窗体或其它组件关联的类模块。例如，与窗体相关联的类模块，它们和基本类模块相同，只是它们只有在那个窗体存在于内存中时，才存在于内存中。拥有相关联的类模块的对象的示例是“用户窗体”、Microsoft(r) Access 窗体和报表、Microsoft(r) Word 的 ThisDocument 对象，Microsoft(r) Excel 的 ThisWorkbook 和 SheetN 对象。 在现实世界中，你经常看到相同类型的许多对象。比如 ，你的自行车只是现实世界中许多自行车的其中一辆。使用面向对象技术，我们可以说你的自行车是自行车对象类的一个实例。通常，自行车有一些状态（当前档位、两个轮子等等）以及行为（改变档位、刹车等等）。但是，每辆自行车的状态都是独立的并且跟其它自行车不同。 当厂家制造自行车的时候，厂商利用了自行车共有的特性来根据相同的蓝图制造许多自行车。如果制造一辆自行车就要产生一个新蓝图，那效率就太低了。 在面向对象软件中，同样地，可以让相同种类地许多对象来共有一些特性，比如矩形、雇员记录、视频夹等等。就象自行车制造商人，你可以利用相同种类的对象是相似的事实并且你可以为这些对象创建一个蓝图。对对象的软件蓝图叫做类。 自行车的类需要定义一些实例变量来包括当前档位、当前速度等等。这个类将为实例方法定义和提供实施方法，它允许骑车者改变档位、刹车以及改变脚踏板的节奏。 当你创建了自行车类以后，你可以从这个类创建任意个自行车对象。当你创建了一个类的实例后，系统将为这个对象和的实例变量分配内存。每个实例将给所有实例变量的副本定义在类中。 除了实例变量，类还要定义类的变量。类变量包含了被类所有实例共享的信息。比如，假设所有的自行车有相同的档位数。在本例子中，要定义一个实例变量来容纳档位数。每一个实例都会有变量的副本，但是在每一个实例中数值都是相同的。在这样的情况下，你可以定义一个类变量来包含档位数，这样所有的类的实例都共享这个变量。如果一个对象改变了变量，它就为改变那个类的所有对象。类同样可以定义类方法。你可以直接从类中调用类方法，然而你必须在特定的实例中调用实例方法。 7.LIB和DLL LIB 是 Library 的缩写，在程序编译时链接 DLL 是 Dynamic Link Library （动态链接库）的缩写，在程序运行过程中链接。用隐式的连接到一个DLL是的时候，必须要一个引入库（Import Lib) 就是DLL的Lib。dll是个编译好的程序, 调用时可以直接调用其中的函数, 不参加工程的编译. 而lib应该说是一个程序集, 只是把一些相应的函数总结在一起, 如果调用lib中的函数, 在工程编译时,这些调用的函数都将参加编译. 8.DLL与LIB的区别: 1).DLL是一个完整程序,其已经经过链接,即不存在同名引用,且有导出表，与导入表 lib是一个代码集(也叫函数集)他没有链接,所以lib有冗余,当两个lib相链接时地址会重新建立，当然还有其它相关的不同,用lib.exe就知道了 2)在生成dll时，经常会生成一个.lib(导入与导出),这个lib实际上不是真正的函数集，其每一个导出导入函数都是跳转指令，直接跳转到DLL中的位置，这个目的是外面的程序调用dll时自动跳转 3).实际上最常用的lib是由lib.exe把*.obj生成的lib,这才是真正的库，他是代码集，可完全代替目标代码
|
|
作者：含笑不语 专家分：50 |
7
楼
5).Gdi32
DLL 文件： gdi32 或者 gdi32.dll DLL 名称： Windows GDI Client DLL [编辑]描述 gdi32.dll是Windows GDI图形用户界面相关程序，用于辅助创建组建 6). ByVal是什么意思 过程中的代码通常需要某些关于程序状态的信息才能完成它的工作。信息包括在调用过程时传递到过程内的变量。当将变量传 递到过程时，称变量为参数。 参数的数据类型 过程的参数被缺省为具有 Variant 数据类型。不过，也可以声明参数为其它数据类型。 例如，下面的函数接受一个字符串和一个整数： Function WhatsForLunch(WeekDay As String, Hour As Integer) As String '根据星期几和时间，返回午餐菜单。 If WeekDay = "Friday" then WhatsForLunch = "Fish" Else WhatsForLunch = "Chicken" End If If Hour > 4 Then WhatsForLunch = "Too late" End Function ByVal 按值传递(ByValue),意思是传入的形式参数改变了,但是不影响实际参数的数值 比如 在一个函数fn()有参数para,是byval的, 那么在函数里面如果有语句para=999, 有变量dim p as integer = 100; 那么调用 fn(p) 之后,p的值仍然是100,而不是999,函数里面的修改不影响外面的变量 1.按值传递参数 按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。用 ByVal 关 键字指出参数是按值来传递的。 例如： Sub PostAccounts (ByVal intAcctNum as Integer) . . '这里放语句。 . End Sub 与它对应的是ByRef ,按引用传递 这个时候,调用了函数之后,p的值就变成999了 2.按地址传递参数 按地址传递参数使过程用变量的内存地址去访问实际变量的内容。结果，将变量传递给过程时，通过过程可永远改变变量值。按地址传递参数在 Visual Basic 中是缺省的。 如果给按地址传递参数指定数据类型，就必须将这种类型的值传给参数。可以给参数传递一个表达式，而不是数据类型。Visual Basic 计算表达式，如果可能的话，还会按要求的类型将值传递给参数。 把变量转换成表达式的最简单的方法就是把它放在括号内。例如，为了把声明为整数的变量传递给过程，该过程以字符串为参数，则可以用下面的语句： Sub CallingProcedure () Dim intX As Integer intX = 12 * 3 Foo (intX) End Sub Sub Foo (Bar As String) MsgBox Bar 'Bar 的值为字符串‘ 36 ’。 End Sub
|
|
作者：含笑不语 专家分：50 |
8
楼
注释3: Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
1).CreateRoundRectRgn VB声明 Declare Function CreateRoundRectRgn Lib "gdi32" Alias "CreateRoundRectRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long 说明 创建一个圆角矩形，该矩形由X1，Y1-X2，Y2确定，并由X3，Y3确定的椭圆描述圆角弧度 返回值 Long，执行成功则为区域句柄，失败则为0 参数表 参数 类型 说明 X1,Y1 Long 矩形左上角的X，Y坐标 X2,Y2 Long 矩形右下角的X，Y坐标 X3 Long 圆角椭圆的宽。其范围从0（没有圆角）到矩形宽（全圆） ? Y3 Long 圆角椭圆的高。其范围从0（没有圆角）到矩形高（全圆） ? 注解 不用时一定要用DeleteObject函数删除该区域 用该函数创建的区域与用RoundRect API函数画的圆角矩形不完全相同，因为本矩形的右边和下边不包括在区域之内
|
|
作者：含笑不语 专家分：50 |
9
楼
注释4: Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
1).CreateEllipticRgn VB声明 Declare Function CreateEllipticRgn Lib "gdi32" Alias "CreateEllipticRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long 说明 创建一个椭圆，该椭圆与X1，Y1和X2，Y2坐标点确定的矩形内切 返回值 Long，执行成功则为区域句柄，失败则为零 参数表 参数 类型 说明 X1,Y1 Long 矩形左上角X，Y坐标 X2,Y2 Long 矩形右下角X，Y坐标 注解 不用时一定要用DeleteObject函数删除区域。用Ellipse API函数绘出的椭圆与该椭圆区域不完全相同，因为本函数的绘图计算不 包括矩形的下边和右边 下面的例子是我搜的，对我理解CreateEllipticRgn很有帮助： 主题：函数CreateEllipticRgn的问题 作者：nizainade 我在下载的vb例子有个长生椭圆窗体的函数，相信大家也都见过这个例子 只是有一点我不太明白： w = Form1.Width / Screen.TwipsPerPixelX h = Form1.Height / Screen.TwipsPerPixelY a = CreateEllipticRgn(0, 0, w, h) b = SetWindowRgn(Me.hWnd, a, True) 上面的代码，w，h好像是把twip转换成pixel的单位，一定要转换吗，直接用默认的twip不行吗，我把他该成：a = CreatEllopticRgn(0,0,width,height)，却没有运行结果，请问这是怎么回事呢 1 楼 因为我们的桌面的分辨率是以像素来分的，而VB里是用缇。缇与像素的比是15，所以不转成像素的话，相当于将窗体扩大15倍，当然没结果了。 2 楼 1.你的意思是CreateEllipticRgn这个函数的参数要用象素作为单位,是不是api函数的图形函数都是以象素为函数呢?? 2.CreateEllipticRgn(0, 0, w, h)中的,几个参数是以屏幕的坐标系为标准吗??,那么0,0 应该在屏幕的最左上角啊,但是结果运行的窗体是在屏幕中间,请问这是为什么???我对vb的坐标系有点迷惑,即:不知道是屏幕的还是窗体的,望指教! 3 楼 问题一： 一般应该是以像素为单位的 问题二： 它是以屏幕坐标系为标准的，为什么会在中间呢？呵呵其实你看看CreateEllipticRgn 函数的说明就知道了 “创建一个椭圆，该椭圆与X1，Y1和X2，Y2坐标点确定的矩形内切”注意是矩形内切，所以前面的坐标点即X1、Y1为0、0，只是确保所画的矩形起点是屏幕的（0，0），但内切椭圆 的中心点就是屏幕中心了。 4 楼 "椭圆与X1，Y1和X2，Y2坐标点确定的矩形内切"这句话,应该是创建一个以x1,y1为左上顶点,以x2,y2为右下顶点的矩形后,再在这个矩形里面划内切椭圆吧,按照这个理解,矩形应该是在左上角啊 我的理解是不是哪里有问题啊,望高手不吝赐教啊 5 楼 理解是对了但因为这个是创建椭圆的过程你是看不到的，能够让你的窗体成为椭圆的是b = SetWindowRgn(Me.hWnd, a, True)这句，至于为什么椭圆会在屏幕中间是因为你的窗体的StartUpPosition属性设了屏幕居中。 6 楼 多谢帅哥不厌其烦的回答我的问题,我明白了第一个函数只是产生椭圆区域,第二个再把窗体设为椭圆型的,
|
|
作者：含笑不语 专家分：50 |
10
楼
(注释5) : Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
1).CombineRgn VB声明 Declare Function CombineRgn Lib "gdi32" Alias "CombineRgn" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long 说明 将两个区域组合为一个新区域 返回值 Long，下列常数之一： COMPLEXREGION：区域有互相交叠的边界 SIMPLEREGION：区域边界没有互相交叠 NULLREGION：区域为空 ERRORAPI：不能创建组合区域 参数表 参数 类型 说明 hDestRgn Long 包含组合结果的区域句柄 hSrcRgn1 Long 源区域1 hSrcRgn2 Long 源区域2 nCombineMode Long 组合两区域的方法。可设为下述常数 RGN_AND hDestRgn 被设置为两个源区域的交集 RGN_COPY hDestRgn 被设置为hSrcRgn1的拷贝 RGN_DIFF hDestRgn 被设置为hSrcRgn1中与hSrcRgn2不相交的部分 RGN_OR hDestRgn 被设置为两个区域的并集 RGN_XOR hDestRgn 被设置为除两个源区域OR之外的部分 注意： CombineRgn hDestRgn, hSrcRgn1, hSrcRgn2, RGN_DIFF 将区域hSrcRgn1中不属于hSrcRgn2的区域合并到combined_rgn中，如果你创建的hSrcRgn2区域要大于hSrcRgn1区域,即hSrcRgn1- hSrcRgn2〈0，那么hDestRgn是个空区域!即编译后异形窗体无法显示！用SetWindowRgn hWnd, hRgn, True就会看不到图形 这种错误是设置窗体坐标模式错误导致的,将焦点所在窗体的scalemode设置成其他模式你会看到效果的.
|
|
作者：含笑不语 专家分：50 |
11
楼
注释6: Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As long) As Long
1).SetWindowRgn 【VB声明】 Private Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long 【说明】 这是那些很难有人注意到的对编程者来说是个巨大的宝藏的隐含的API函数中的一个。本函数允许您改变窗口的区域。 通常所有窗口都是矩形的——窗口一旦存在就含有一个矩形区域。本函数允许您放弃该区域。这意味着您可以创建圆的、星形 的窗口，也可以将它分为两个或许多部分——实际上可以是任何形状 【返回值】 Long，执行成功为非零值，失败为0 【备注】 为区域指定的所有坐标都以窗口坐标（不是客户坐标）表示，它们以整个窗口（包括标题栏和边框）的左上角为起点 【参数表】 hWnd ----------- Long，将设置其区域的窗口 hRgn ----------- Long，将设置的区域的句柄，一旦设置了该区域，就不能使用或修改该区域句柄，也不要删除它 bRedraw -------- Boolean，若为TRUE，则立即重画窗口 2).user32 - user32.dll user32 - user32.dll - DLL文件信息 DLL 文件： user32 或者 user32.dll DLL 名称： Windows User API Client DLL 描述： user32.dll是Windows用户界面相关应用程序接口，用于包括Windows处理，基本用户界面等特性。 属于： Windows User API 系统 DLL文件： 是 常见错误： File Not Found, Missing File, Exception Errors
|
|
作者：含笑不语 专家分：50 |
12
楼
注释7 : Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
1).DeleteObject Windows显示设备的属性，共有下面几种：位图、画刷、字体、画笔、区域。如果要设置它们到当前设备里，就需要使用 SelectObject函数，比如上面介绍的字体设置，就会用到这个函数。当你创建一个位图时，这时Windows就会在内存里分配一块内 存空间，用来保存位图的数据。当你创建字体时，也会分配一块内存空间保存字体。如果程序只是分配，而不去删除，就会造成 内存使用越来越多，最后导到Windows这幢大楼倒下来。如果你忘记删除它，就造成了内存泄漏。因此，当你创建显示设备资源时 ，一定要记得删除它们啊，否则运行你的程序越长，就导致系统不稳定。记得使用DeleteObject函数去删除它们，把占用的内存 释放回去给系统。 DeleteObject函数功能：该函数删除一个逻辑笔、画笔、字体、位图、区域或者调色板，释放所有与该对象有关的系统资源， 在 对象被删除之后，指定的句柄也就失效了。 函数原型：BOOL DeleteObject(HGDIOBJ hObject)； 参数： hObject：逻辑笔、画笔、字体、位图、区域或者调色板的句柄。 返回值：成功，返回非零值；如果指定的句柄无效或者它已被选入设备上下文环境，则返回值为零。 注释：当一个绘画对象（如笔或画笔）当前被选入一个设备上下文环境时不要删除该对象。当一个调色板画笔被删除时，与该画 笔相关的位图并不被删除，该图必须单独地删除。 Windows CE：当对象在当前被选入一个设备上下文环境时，DeleteObject函数返回错误。
|
|
作者：含笑不语 专家分：50 |
13
楼
注释8: Private Const RGN_DIFF = 4
Const RGN_AND = 1 '将两个区域相加 Const RGN_OR = 2 '将两个区域进行或操作 Const RGN_XOR = 3 '将两个区域进行异或操作 Const RGN_DIFF = 4 '将两个区域相减 Const RGN_COPY = 5 '创建hSrcRgn1的拷贝 VB中const是干什么的? 1.描述 声明用于代替文字值的常数。 2.语法 [Public | Private] Const constname = expression 如 Private Const sMyName As String = "Harry Potter" Private Const rPi As Single = 3.1415927 Private Const rPi2 As Single = rPi * 2 Const 语句的语法包含以下部分： 部分 描述 Public 可选。该关键字用于在 Script 级中声明可用于所有 Script 中所有过程的常数。不允许在过程中使用。 Private 可选。该关键字用于在 Script 级中声明只可用在声明所在的 Script 中的常数。不允许在过程中使用。 constname 必选。常数的名称，根据标准的变量命名约定。 expression 必选。文字或其他常数，或包括除 Is 外的所有算术操作符和逻辑操作符的任意组合。 3.作用： 定义常量。一来可以防止写错，二来修改方便。 4.说明 在默认情况下常数是公用的。过程中的常数总是专有的，其可见性无法改变。Script(标准模块)中，可用 Private 关键字来改 变 Script级常数可见性的默认值。不过，在类模块中，常数只能是私有的，而且用 Public 关键字也不能改变其可见性。 要在同一行中声明若干个常数，可用逗号将每个常数赋值分开。用这种方法声明常数时，如果使用了 Public 或 Private 关键字 ，则该关键字对该行中所有常数都有效。 5.注意 常数声明中不能使用变量、用户自定义的函数或 VBScript 内部函数（如 Chr)。按定义，它们不能是常数。另外也不能从含有 操作符的表达式中创建常数，即只允许使用简单常数。在 Sub 或 Function 过程中声明的常数是该过程的局部常数。在过程外声 明的常数是声明所在的 Script 中的全局常数。可以在任何使用表达式的地方使用常数。 常数可以使 Script 更具可读性，且易 于修改。在 Script 运行时，常数不会象变量那样无意中被改变。 如果在声明常数时没有显式地使用 As type 子句，则该常数的数据类型是最适合其表达式的数据类型。在 Sub、Function 或 Property 过程中声明的常数都是该过程的.
|
|
作者：含笑不语 专家分：50 |
14
楼
注释9: If OutRgn <> 0 And InRgn <> 0 And MyRgn <> 0 Then Exit Sub
这句是防止重复创建图形.后面CreateRectRgn,CreateRoundRectRgn,CreateEllipticRgn三个函数创建区域后OutRgn,InRgn和MyRgn就不等于0了
|
|
作者：含笑不语 专家分：50 |
15
楼
注释10: w = ScaleX(Form1.Width, vbTwips, vbPixels)
h = ScaleY(Form1.Height, vbTwips, vbPixels) ScaleX、ScaleY 方法 -------------------------------------------------------------------------------- scalex是在VB中form的方法，功能是把坐标长度转换成像元素数 应用于将 Form，PictureBox 或 Printer 的宽度或高度值从一种 ScaleMode 属性的度量单位转换到另一种。不支持命名参数。 语法 object.ScaleX (width, fromscale, toscale) object.ScaleY (height, fromscale, toscale) ScaleX 和 ScaleY 方法的语法包含如下部分： 部分 描述 object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 对象缺省为 object。 width 必需的。为 object 指定被转换的度量单位的数量。 height 必需的。为 object 指定被转换的度量单位的数量。 fromscale 可选的。一个常数或数值，按照下列设置中的描述，指定 object 的 width 或 height 从哪一种坐标系统转换。 fromscale 可取的数值与 ScaleMode 属性的数值加上 HiMetric 的新数值相同。 toscale 可选的。一个常数或数值，按照下列“设置值”中的描述，指定 object 的 width 或 height 转换到哪一种坐标系统 toscale 可取的数值与 ScaleMode 属性的数值加上 HiMetric 的新数值相同。 设置值 用于 fromscale 和 toscale 设置值有： 常数 值 描述 vbUser 0 用户定义：指示 object 的宽度和高度设置为自定义值。 vbTwips 1 缇（每逻辑英寸 1440 缇；每逻辑厘米 567 缇）。 vbPoints 2 磅（每逻辑英寸 72 点）。 vbPixels 3 像素 （显示器或打印机分辨率的最小单位）。 vbCharacters 4 字符（水平 = 每单位 120 缇，垂直 = 每单位 240 缇）。 vbInches 5 英寸 vbMillimeters 6 毫米 vbCentimeters 7 厘米 vbHimetric 8 HiMetric。如果省略 fromscale，则 HiMetric 为缺省值。 vbContainerPosition 9 决定控件位置。 vbContainerSize 10 决定控件大小。 说明 ScaleX 和 ScaleY 方法按 fromscale 指定的度量单位取值（width 或 height），并将它转换为 toscale 指定的度量单位下相 应的值。也可以结合 PaintPicture 方法使用 ScaleX 和 ScaleY。 -------------------------------------------------------------------------------- 应用于： Form 对象、Forms 集合 PictureBox 控件 PropertyPage 对象 UserControl 对象 -------------------------------------------------------------------------------- 相关基础知识： 命名参数 一参数，在对象库中预先定义了其名称。对每个参数，不必拘泥于语法所规定的特定顺序来提供值，而是只需按任何顺序用命名 参数分配值。例如，假设一方法接受了三个参数： DoSomeThing namedarg1, namedarg2, namedarg3 在对命名参数赋值时，可使用以下语句： DoSomeThing namedarg3 := 4, namedarg2 := 5, namedarg1 := 20 注意，命名的参数不必按语法中安排的正规顺序出现。 对象表达式 说明具体对象的表达式，可以包含对象的容器。例如，应用程序可以拥有 Application 对象，其中包含 Document 对象，而 Document 对象又包含 Text 对象。 焦点 在任何时间接收鼠标单击或键盘输入的能力。在 Microsoft Windows 环境中，在同一时间只有一个窗口、窗体或控件具有这种能 力。“具有焦点”的对象通常会以突出显示标题或标题栏来表示。用户或应用程序可设置焦点。 缇 一个与屏幕无关的单位，用来保证屏幕应用程序对屏幕元素的定位和比例在所有的显示系统上的一致性。一缇等价于 1/20 个打 印机的磅。一逻辑英寸大约有 1440 缇，一逻辑厘米约 567 缇（打印时的一英寸或一厘米所对应的屏幕上的长度）。 磅 在印刷术语中，一磅是 1/72 英寸。字体大小通常用磅来表达。 像素 即“图片元素”的简称，它是代表屏幕上的最小图形度量单位的点。像素是依赖于屏幕的，即屏幕元素的维数因显示系统和分辨率而异。
|
|
作者：含笑不语 专家分：50 |
16
楼
注释11: Call CombineRgn(MyRgn, OutRgn, InRgn, RGN_DIFF)
1.Call语法 [Call] name [argumentlist] 部分 描述 Call 可选参数；关键字。如果指定了这个关键字，则 argumentlist 必须加上括号，例如：Call MyProc(0) name 必要参数，要调用的过程名称。 argumentlist 可选参数，变量 2.说明 调用一个过程时，并不一定要使用 Call 关键字。如果使用 Call 关键字来调用一个需要参数的过程，argumentlist 就必须要 加上括号。如果省略了 Call 关键字，那么也必须要省略 argumentlis 外面的括号。如果使用 Call 语法来调用内建函数或用户 定义函数，则函数的返回值将被丢弃。若要将整个数组传给一个过程，就要使用数组名，然后在数组名后加上空括号。 3.区别： 用法不同(一个有括号一个没括号) call testproc(a,b,c) testproc a,b,c 4.注意 有时调用系统API时有时不用CALL会编译不通过的，因为有的API会返回值，编译时提示表达式左边缺少变量=。如果兩個過程不在 一個窗體或者糢塊,那么Call也没用 5.作用： Call就是调用某个函数，如 Call TestFunc() 6.补充： call不是必须要用的，但是call是有它存在的道理的。你直接把一个函数名写在那边，如果代码很多，可读性就不是很好，相反 ， 如果在前面加上一个Call，那么就有一目了然的感觉，知道知识调用的一个函数，如果没有，可读性就不是很好了！区别主要 在这 里。
|
|
作者：含笑不语 专家分：50 |
17
楼
注释12: Form1.BackColor = QBColor(4)
QBColor函数 颜色也可以用QBColor函数来表示,返回一个 Long，用来表示所对应颜色值的 RGB 颜色码。语法QBColor(color)必要的 color 参数是一个界于 0 到 15 的整型。始于最低有效字节，返回值指定了红、绿、蓝三原色的值，用于设置成 VBA中RGB 系统的对应 颜色。 VB中用QBColor(i)代表一种颜色 i值 颜色 i值 颜色 --- ------ --- ------ 0 黑色 8 灰色 gray 1 蓝色 9 亮蓝色 2 绿色 10 亮绿色 3 青色 11 亮青色 cyan 4 红色 12 亮红色 5 粉红色 13 亮粉红色 6 黄色 14 亮黄色 7 白色 15 亮白色 VB.NET color RGB函数 常数 返回值 颜色 -------------------- ---------- ---------- ------ RGB(0，0，0) VbBlack &H0 黑色 RGB(255，0，0) VbRed &HFF0 红色 RGB(0，255，0) VbGreen &HFF00 绿色 RGB(0，0，255) VbBlue &HFF0000 蓝色 RGB(0，255，255) VbCyan &HFFFF00 青色 RGB(255，0，255) VbMagenta &HFF00FF 紫红色 RGB(255，255，0) VbYellow &HFFFF 黄色 RGB(255，255，255) VbWhite &HFFFFFF 白色
|
|
作者：含笑不语 专家分：50 |
18
楼
注释13: Private Sub Form_Resize()
Form_Resize()事件： Form_Resize()是在Form_Initialize()事件和Form_Load()事件之后的窗体初始化事件。 Form_Resize()主要设置一些控件的属性，比如： Text1.Width=...... Command1.Top=...... Form_Resize()是一个事件过程，而不是什么属性。 此事件的激发条件是当窗体的大小有变化时发生。 在这个事件里，你可以放入你的代码，作你自己想作的事。 补充： Initialize 事件 当应用程序创建 Form、MDIForm、User控件、Property Page Webclass、DHTML Page Designer或类的实例时发生。 1.语法 Private Sub object_Initialize( ) object 所在处代表对象表达式，其值是“应用于”列表中的一个对象。 2.说明 如下情况触发 Initialize 事件： 用 CreateObject 函数创建类的一个实例，如： Set X = CreateObject("Project1.MyClass") 引用窗体或类实例的属性或事件，该属性或事件由用户代码自动创建。 MyForm.Caption = "Example" 应用此事件初始化 Form、MDIForm、或类所用的数据。对 Form 或 MDIForm，Initialize 事件在 Load 事件之 前发生。 3.作用： form的initialize事件将会优先于form的load事件被触发，如果说你要在form载入的时候需要先做些什么动作的话可以在这两个 事件中加入代码。比如说初始化变量，初始化窗体控件摆放的样式，初始化控件内容等等。
|
|
作者：含笑不语 专家分：50 |
19
楼
注释14： If WindowState = vbMinimized Then Exit Sub
vb程序中 windowstate 属性用法？ 1.语法 object.WindowState [= value] 部分 描述 Object 对象表达式，其值是“应用于”列表中的一个对象。 Value 一个用来指定对象状态的整数，“设置值”中有详细描述。 value 的设置值为： 常数 值 描述 vbNormal 0 （缺省值）正常 。 VbMinimized 1 最小化（最小化为一个图标） VbMaximized 2 最大化（扩大到最大尺寸） windowstate=0 '平常模式 windowstate＝1 '最小化模式 windowstate=2 '最大化模式 2.说明 在窗体被显示之前，WindowState 属性常常被设置为正常 (0)，而不管其初始设置值。这反映在 Height、Left、 ScaleHeight、ScaleWidth、Top、和 Width 属性设 置值中。如果窗体在它已被显示后被隐藏，那么这些属性将反映以前的状态 直到窗体被再次显示，而不管在此期间对 WindowState 属性所作的任何改变。 如： Private Sub Form_Load () Form2.Show ' 显示 Form2。 End Sub Private Sub Form_Resize () ' 如果父窗体被最小化... If Form1.WindowState = vbMinimized Then ' ...隐藏 Form2。 Form2.Visible = False ' 如果父窗体不再是最小化... Else ' ...恢复 Form2。 Form2.Visible = True End If End Sub 3.作用 用来控制窗口的显示/隐藏
|
|
作者：含笑不语 专家分：50 |
20
楼
注释15： border_width = (wid - ScaleWidth) / 2 wid ------------- -------- 是Form2的窗体宽度 ScaleWidth--------- -------- 是Form2的实际工作区宽度，即除去边框的宽度 (wid - ScaleWidth) / 2------ 即窗体边框宽度 1.一个窗体中width与scalewidth的具体区别 width是容器的宽度,单位是缇（很小的单位） scalewidth是容器里面你自己定义的宽度，比如说你想画图，表示最宽3公里，那么你就可以自己用这个属性定义自己的坐标系统 举个例子: width变大了一倍,那么窗体在屏幕上就宽了一倍 ScaleWidth变大了一倍,窗体在屏幕上的大小不会有变化 但窗体内的坐标系会有变化 如果原来坐标是(0,0)-(100,100),那么就会变成(0,0)-(200,100) 这时,你Form1.PSet (50, 50),其实就等于ScaleWidth改变以前的Form1.PSet (25, 50) scalewidth是一个对象内部的坐标系统的一个宽度值 而width是一个对象的宽度，其值比scalewidth要大，因为包含外部边框的长度 Scale表示这个窗体的除标题栏的坐标分辨数值... 改变了ScaleMode后，ScaleWidth和ScaleHeight都会自动随之变化，但Width和Height不会变 自己试试就知道了， 一个窗体 print me.width & "----" & me.Scalewidth ,会发现，第一个数值比第二个大一点点， me.width 获得的是窗体(包括边框)的宽度，me.Scalewidth ，获得的是窗 体( 不包括边框 )的宽度区别仅此而已，x=me.Scalewidth /2,得到的是窗体横向的中心位置，配合 y=me.scaleheight/2，就获得了窗体中心位置的坐标 scalewidth 实际工作区宽度 scaleheight 实际工作区高度 scaletop 实际工作区的上顶点 scaleLeft 实际工作区的左顶点 width 宽度 height 高度 top 上顶点 Left 左顶点 比如form拥有以上属性，如果想获得抛去边框的尺寸，则需要scale 修改scalewidth 不会改变窗体的大小 只改变坐标系统 建议读一下 窗体的坐标系统及scalemode 2.ScaleHeight、ScaleWidth 属性 当使用图形方法或� |
打印
保存
