精华内容
下载资源
问答
  • VB打开程序,记忆打开过的文件,保留到菜单条或者工具条上,程序关闭后再打开要保留它们。
  • 比较大的应用程序都由很多模块组成,这些模块分别完成相对独立的功能,它们彼此协作来完成整个软件系统的工作。可能存在一些模块的功能较为通用,在构造其它软件系统时仍会被使用。在构造软件系统时,如果将所有模块...

    比较大的应用程序都由很多模块组成,这些模块分别完成相对独立的功能,它们彼此协作来完成整个软件系统的工作。可能存在一些模块的功能较为通用,在构造其它软件系统时仍会被使用。在构造软件系统时,如果将所有模块的源代码都静态编译到整个应用程序 EXE 文件中,会产生一些问题:一个缺点是增加了应用程序的大小,它会占用更多的磁盘空间,程序运行时也会消耗较大的内存空间,造成系统资源的浪费;另一个缺点是,在编写大的 EXE 程序时,在每次修改重建时都必须调整编译所有源代码,增加了编译过程的复杂性,也不利于阶段性的单元测试。

    Windows 系统平台上提供了一种完全不同的较有效的编程和运行环境,你可以将独立的程序模块创建为较小的 DLL (Dynamic Linkable Library) 文件,并可对它们单独编译和测试。在运行时,只有当 EXE 程序确实要调用这些 DLL 模块的情况下,系统才会将它们装载到内存空间中。这种方式不仅减少了 EXE 文件的大小和对内存空间的需求,而且使这些 DLL 模块可以同时被多个应用程序使用。Windows 自己就将一些主要的系统功能以 DLL 模块的形式实现。

    一般来说,DLL 是一种磁盘文件,以.dll、.DRV、.FON、.SYS 和许多以 .EXE 为扩展名的系统文件都可以是 DLL。它由全局数据、服务函数和资源组成,在运行时被系统加载到调用进程的虚拟空间中,成为调用进程的一部分。如果与其它 DLL 之间没有冲突,该文件通常映射到进程虚拟空间的同一地址上。DLL 模块中包含各种导出函数,用于向外界提供服务。DLL 可以有自己的数据段,但没有自己的堆栈,使用与调用它的应用程序相同的堆栈模式;一个 DLL 在内存中只有一个实例;DLL 实现了代码封装性;DLL 的编制与具体的编程语言及编译器无关。

    在 Win32 环境中,每个进程都复制了自己的读/写全局变量。如果想要与其它进程共享内存,必须使用内存映射文件或者声明一个共享数据段。DLL 模块需要的堆栈内存都是从运行进程的堆栈中分配出来的。Windows 在加载 DLL 模块时将进程函数调用与 DLL 文件的导出函数相匹配。Windows 操作系统对 DLL 的操作仅仅是把 DLL 映射到需要它的进程的虚拟地址空间里去。DLL 函数中的代码所创建的任何对象(包括变量)都归调用它的线程或进程所有。

    调用方式

    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)。

    Windows将遵循下面的搜索顺序来定位 DLL:

    包含EXE文件的目录

    进程的当前工作目录

    Windows系统目录

    Windows目录

    列在 Path 环境变量中的一系列目录

    MFC中的DLL

    Non-MFC DLL:指的是不用 MFC 的类库结构,直接用 C 语言写的 DLL,其输出的函数一般用的是标准 C 接口,并能被 非 MFC 或 MFC 编写的应用程序所调用。

    Regular DLL:和下述的 Extension DLLs 一样,是用 MFC 类库编写的。明显的特点是在源文件里有一个继承 CWinApp 的类。其又可细分成静态连接到 MFC 和动态连接到 MFC 上的。

    静态连接到 MFC 的动态连接库只被 VC 的专业 版和企业版所支持。该类 DLL 应用程序里头的输出函数可以被任意 Win32 程序使用,包括使用 MFC 的应用程序。输入函数有如下形式:

    extern "C" EXPORT YourExportedFunction();

    如果没有 extern "C" 修饰,输出函数仅仅能从 C++ 代码中调用。

    DLL 应用程序从 CWinApp 派生,但没有消息循环。

    动态链接到 MFC 的 规则 DLL 应用程序里头的输出函数可以被任意 Win32 程序使用,包括使用 MFC 的应用程序。但是,所有从 DLL 输出的函数应该以如下语句开始:

    AFX_MANAGE_STATE(AfxGetStaticModuleState( ))

    此语句用来正确地切换 MFC 模块状态。

    Regular DLL能够被所有支持 DLL 技术的语言所编写的应用程序所调用。在这种动态连接库中,它必须有一个从 CWinApp 继承下来的类,DLLMain 函数被 MFC 所提供,不用自己显式的写出来。

    Extension DLL:用来实现从 MFC 所继承下来的类的重新利用,也就是说,用这种类型的动态连接库,可以用来输出一个从 MFC 所继承下来的类。它输出的函数仅可以被使用 MFC 且动态链接到 MFC 的应用程序使用。可以从 MFC 继承你所想要的、更适于你自己用的类,并把它提供给你的应用程序。你也可随意的给你的应用程序提供 MFC 或 MFC 继承类的对象指针。Extension DLL使用 MFC 的动态连接版本所创建的,并且它只被用 MFC 类库所编写的应用程序所调用。Extension DLLs 和 Regular DLLs 不一样,它没有从 CWinApp 继承而来的类的对象,所以,你必须为自己 DLLMain 函数添加初始化代码和结束代码。

    和规则 DLL 相比,有以下不同:

    1、它没有从 CWinApp 派生的对象;

    2、它必须有一个 DLLMain 函数;

    3、DLLMain 调用 AfxInitExtensionModule 函数,必须检查该函数的返回值,如果返回0,DLLMmain 也返回 0;

    4、如果它希望输出 CRuntimeClass 类型的对象或者资源,则需要提供一个初始化函数来创建一个 CDynLinkLibrary 对象。并且,有必要把初始化函数输出;

    5、使用扩展 DLL 的 MFC 应用程序必须有一个从 CWinApp 派生的类,而且,一般在InitInstance 里调用扩展 DLL 的初始化函数。

    DLL入口函数

    1、每一个 DLL 必须有一个入口点,DLLMain 是一个缺省的入口函数。DLLMain 负责初始化和结束工作,每当一个新的进程或者该进程的新的线程访问 DLL 时,或者访问 DLL 的每一个进程或者线程不再使用DLL或者结束时,都会调用 DLLMain。但是,使用 TerminateProcess 或 TerminateThread 结束进程或者线程,不会调用 DLLMain。

    DLLMain的函数原型:

    BOOL APIENTRY DLLMain(HANDLE hModule,DWORD ul_reason_for_call,LPVOID

    lpReserved)

    {

    switch(ul_reason_for_call)

    {

    case DLL_PROCESS_ATTACH:

    .......

    case DLL_THREAD_ATTACH:

    .......

    case DLL_THREAD_DETACH:

    .......

    case DLL_PROCESS_DETACH:

    .......

    return TRUE;

    }

    }

    参数:

    hMoudle:是动态库被调用时所传递来的一个指向自己的句柄(实际上,它是指向_DGROUP段的一个选择符);

    ul_reason_for_call:是一个说明动态库被调原因的标志。当进程或线程装入或卸载动态连接库的时候,操作系统调用入口函数,并说明动态连接库被调用的原因。它所有的可能值为:

    DLL_PROCESS_ATTACH: 进程被调用;

    DLL_THREAD_ATTACH: 线程被调用;

    DLL_PROCESS_DETACH: 进程被停止;

    DLL_THREAD_DETACH: 线程被停止;

    lpReserved:是一个被系统所保留的参数;

    2、_DLLMainCRTStartup

    为了使用 "C" 运行库 (CRT,C Run time Library) 的 DLL 版本(多线程),一个 DLL 应用程序必须指定 _DLLMainCRTStartup 为入口函数,DLL 的初始化函数必须是 DLLMain。

    _DLLMainCRTStartup 完成以下任务:当进程或线程捆绑(Attach) 到 DLL 时为 "C" 运行时的数据 (C Runtime Data) 分配空间和初始化并且构造全局 "C++"对象,当进程或者线程终止使用DLL(Detach) 时,清理 C Runtime Data 并且销毁全局 "C++" 对象。它还调用 DLLMain 和 RawDLLMain 函数。

    RawDLLMain 在 DLL 应用程序动态链接到 MFC DLL 时被需要,但它是静态链接到 DLL 应用程序的。在讲述状态管理时解释其原因。

    关于调用约定

    动态库输出函数的约定有两种:调用约定和名字修饰约定。

    1)调用约定(Calling convention):决定函数参数传送时入栈和出栈的顺序,由调用者还是被调用者把参数弹出栈,以及编译器用来识别函数名字的修饰约定。

    函数调用约定有多种,这里简单说一下:

    1、__stdcall 调用约定相当于16位动态库中经常使用的 PASCAL 调用约定。在32位的 VC++5.0 中PASCAL 调用约定不再被支持(实际上它已被定义为__stdcall。除了__pascal 外,__fortran 和__syscall也不被支持),取而代之的是 __stdcall 调用约定。两者实质上是一致的,即函数的参数自右向左通过栈传递,被调用的函数在返回前清理传送参数的内存栈,但不同的是函数名的修饰部分(关于函数名的修饰部分在后面将详细说明)。

    _stdcall 是 Pascal 程序的缺省调用方式,通常用于 Win32 API 中,函数采用从右到左的压栈方式,自己在退出时清空堆栈。VC 将函数编译后会在函数名前面加上下划线前缀,在函数名后加上 "@" 和参数的字节数。

    2、C 调用约定(即用__cdecl 关键字说明)按从右至左的顺序压参数入栈,由调用者把参数弹出栈。对于传送参数的内存栈是由调用者来维护的(正因为如此,实现可变参数的函数只能使用该调用约定)。另外,在函数名修饰约定方面也有所不同。

    _cdecl 是 C 和 C++ 程序缺省的调用方式。每一个调用它的函数都包含清空堆栈的代码,所以产生的可执行文件大小会比调用 _stdcall 函数的大。函数采用从右到左的压栈方式。VC 将函数编译后会在函数名前面加上下划线前缀。 它是 MFC 缺省调用约定。

    3、__fastcall 调用约定是 "人" 如其名,它的主要特点就是快,因为它是通过寄存器来传送参数的(实际上,它用 ECX 和 EDX 传送前两个双字(DWORD)或更小的参数,剩下的参数仍旧自右向左压栈传送,被调用的函数在返回前清理传送参数的内存栈),在函数名修饰约定方面,它和前两者均不同。

    _fastcall方式的函数采用寄存器传递参数,VC 将函数编译后会在函数名前面加上"@"前缀,在函数名后加上"@"和参数的字节数。

    4、thiscall 仅仅应用于 "C++" 成员函数。this 指针存放于 CX 寄存器,参数从右到左压。thiscall 不是关键词,因此不能被程序员指定。

    5、naked call采用 1-4 的调用约定时,如果必要的话,进入函数时编译器会产生代码来保存ESI,EDI,EBX,EBP寄存器,退出函数时则产生代码恢复这些寄存器的内容。

    naked call不产生这样的代码。naked call不是类型修饰符,故必须和_declspec 共同使用。

    关键字 __stdcall、__cdecl 和 __fastcall 可以直接加在要输出的函数前,也可以在编译环境的 Setting...\C/C++ \Code Generation 项选择。当加在输出函数前的关键字与编译环境中的选择不同时,直接加在输出函数前的关键字有效。它们对应的命令行参数分别为/Gz、/Gd 和 /Gr。缺省状态为/Gd,即__cdecl。

    要完全模仿 PASCAL 调用约定首先必须使用 __stdcall 调用约定,至于函数名修饰约定,可以通过其它方法模仿。还有一个值得一提的是 WINAPI 宏,Windows.h 支持该宏,它可以将出函数翻译成适当的调用约定,在 WIN32 中,它被定义为 __stdcall。使用 WINAPI 宏可以创建自己的 APIs。

    2)名字修饰约定

    1、修饰名(Decoration name)

    "C" 或者 "C++" 函数在内部(编译和链接)通过修饰名识别。修饰名是编译器在编译函数定义或者原型时生成的字符串。有些情况下使用函数的修饰名是必要的,如在模块定义文件里头指定输出"C++"重载函数、构造函数、析构函数,又如在汇编代码里调用"C""或"C++"函数等。

    修饰名由函数名、类名、调用约定、返回类型、参数等共同决定。

    2、名字修饰约定随调用约定和编译种类(C或C++)的不同而变化。函数名修饰约定随编译种类和调用约定的不同而不同,下面分别说明。

    a、C编译时函数名修饰约定规则:

    __stdcall 调用约定在输出函数名前加上一个下划线前缀,后面加上一个"@"符号和其参数的字节数,格式为 _functionname@number。

    __cdecl调用约定仅在输出函数名前加上一个下划线前缀,格式为 _functionname。

    __fastcall调用约定在输出函数名前加上一个"@"符号,后面也是一个"@"符号和其参数的字节数,格式为@functionname@number。

    它们均不改变输出函数名中的字符大小写,这和PASCAL调用约定不同,PASCAL约定输出的函数名无任何修饰且全部大写。

    b、C++编译时函数名修饰约定规则:

    __stdcall调用约定:

    1、以"?"标识函数名的开始,后跟函数名;

    2、函数名后面以"@@YG"标识参数表的开始,后跟参数表;

    3、参数表以代号表示:

    X——void,

    D——char,

    E——unsigned char,

    F——short,

    H——int,

    I——unsigned int,

    J——long,

    K——unsigned long,

    M——float,

    N——double,

    _N——bool,

    ....

    PA——表示指针,后面的代号表明指针类型,如果相同类型的指针连续出现,以"0"代替,一个"0"代表一次重复;

    4、参数表的第一项为该函数的返回值类型,其后依次为参数的数据类型,指针标识在其所指数据类型前;

    5、参数表后以"@Z"标识整个名字的结束,如果该函数无参数,则以"Z"标识结束。

    其格式为"?functionname@@YG*****@Z"或"?functionname@@YG*XZ",

    例如

    int Test1(char *var1,unsigned long)-----“?Test1@@YGHPADK@Z”

    void Test2() -----“?Test2@@YGXXZ”

    __cdecl调用约定:

    规则同上面的_stdcall调用约定,只是参数表的开始标识由上面的"@@YG"变为"@@YA"。

    __fastcall调用约定:

    规则同上面的_stdcall调用约定,只是参数表的开始标识由上面的"@@YG"变为"@@YI"。

    VC++对函数的省缺声明是"__cedcl",将只能被C/C++调用。

    关于DLL的函数

    动态链接库中定义有两种函数:导出函数(export function)和内部函数(internal function)。导出函数可以被其它模块调用,内部函数在定义它们的DLL程序内部使用。

    输出函数的方法有以下几种:

    1、传统的方法

    在模块定义文件的 EXPORT 部分指定要输入的函数或者变量。语法格式如下:

    entryname[=internalname] [@ordinal[NONAME]] [DATA] [PRIVATE]

    其中:

    entryname 是输出的函数或者数据被引用的名称;

    internalname 同 entryname;

    @ordinal 表示在输出表中的顺序号(index);

    NONAME 仅仅在按顺序号输出时被使用(不使用 entryname );

    DATA 表示输出的是数据项,使用 DLL 输出数据的程序必须声明该数据项为 _declspec(DLLimport)。

    上述各项中,只有 entryname 项是必须的,其他可以省略。

    对于"C"函数来说,entryname 可以等同于函数名;但是对 "C++" 函数(成员函数、非成员函数)来说,entryname 是修饰名。可以从 .map 映像文件中得到要输出函数的修饰名,或者使用DUMPBIN /SYMBOLS 得到,然后把它们写在 .def 文件的输出模块。DUMPBIN 是VC提供的一个工具。

    如果要输出一个 "C++" 类,则把要输出的数据和成员的修饰名都写入 .def 模块定义文件。

    2、在命令行输出

    对链接程序 LINK 指定 /EXPORT 命令行参数,输出有关函数。

    3、使用 MFC 提供的修饰符号 _declspec(DLLexport)

    在要输出的函数、类、数据的声明前加上 _declspec(DLLexport) 修饰符表示输出。__declspec(DLLexport) 在 C 调用约定、C 编译情况下可以去掉输出函数名的下划线前缀。extern "C" 使得在 C++ 中使用 C 编译方式成为可能。在"C++"下定义"C"函数需要加 extern "C" 关键词。用 extern "C" 来指明该函数使用 C 编译方式。输出的 "C" 函数可以从 "C" 代码里调用。

    例如,在一个 C++ 文件中,有如下函数:

    extern "C" {void __declspec(DLLexport) __cdecl Test(int var);}

    其输出函数名为:Test

    MFC提供了一些宏,就有这样的作用。

    AFX_CLASS_IMPORT:__declspec(DLLexport)

    AFX_API_IMPORT:__declspec(DLLexport)

    AFX_DATA_IMPORT:__declspec(DLLexport)

    AFX_CLASS_EXPORT:__declspec(DLLexport)

    AFX_API_EXPORT:__declspec(DLLexport)

    AFX_DATA_EXPORT:__declspec(DLLexport)

    AFX_EXT_CLASS: #ifdef _AFXEXT

    AFX_CLASS_EXPORT

    #else

    AFX_CLASS_IMPORT

    AFX_EXT_API:#ifdef _AFXEXT

    AFX_API_EXPORT

    #else

    AFX_API_IMPORT

    AFX_EXT_DATA:#ifdef _AFXEXT

    AFX_DATA_EXPORT

    #else

    AFX_DATA_IMPORT

    像 AFX_EXT_CLASS 这样的宏,如果用于 DLL 应用程序的实现中,则表示输出(因为_AFX_EXT被定义,通常是在编译器的标识参数中指定该选项 /D_AFX_EXT);如果用于使用DLL的应用程序中,则表示输入(_AFX_EXT没有定义)。

    要输出整个的类,对类使用_declspec(_DLLexpot);要输出类的成员函数,则对该函数使用_declspec(_DLLexport)。如:

    class AFX_EXT_CLASS CTextDoc : public CDocument

    {

    }

    extern "C" AFX_EXT_API void WINAPI InitMYDLL();

    这几种方法中,最好采用第三种,方便好用;其次是第一种,如果按顺序号输出,调用效率会高些;最次是第二种。

    模块定义文件(.DEF)

    模块定义文件(.DEF)是一个或多个用于描述 DLL 属性的模块语句组成的文本文件,每个DEF文件至少必须包含以下模块定义语句:

    第一个语句必须是LIBRARY语句,指出DLL的名字;

    EXPORTS 语句列出被导出函数的名字;将要输出的函数修饰名罗列在 EXPORTS 之下,这个名字必须与定义函数的名字完全一致,如此就得到一个没有任何修饰的函数名了。

    可以使用DESCRIPTION语句描述DLL的用途(此句可选);

    ";"对一行进行注释(可选)。 DLL程序和调用其输出函数的程序的关系

    1、DLL与进程、线程之间的关系

    DLL模块被映射到调用它的进程的虚拟地址空间。

    DLL使用的内存从调用进程的虚拟地址空间分配,只能被该进程的线程所访问。

    DLL的句柄可以被调用进程使用;调用进程的句柄可以被DLL使用。

    DLL使用调用进程的栈。

    2、关于共享数据段

    DLL定义的全局变量可以被调用进程访问;DLL可以访问调用进程的全局数据。使用同一DLL的每一个进程都有自己的DLL全局变量实例。如果多个线程并发访问同一变量,则需要使用同步机制;对一个DLL的变量,如果希望每个使用DLL的线程都有自己的值,则应该使用线程局部存储(TLS,Thread Local Strorage)。

    在程序里加入预编译指令,或在开发环境的项目设置里也可以达到设置数据段属性的目的.必须给这些变量赋初值,否则编译器会把没有赋初始值的变量放在一个叫未被初始化的数据段中。

    取消

    评论

    展开全文
  • VB程序,关注我有更多的有趣的VB程序 如果要使用.accdb格式的数据库,首先在工程下引用“Microsoft ActiveX Data Objects 6.1 library”界面:代码:Private Sub Command1_Click() Dim conn As New ADODB....

    VB小程序,关注我有更多的有趣的VB小程序

    如果要使用.accdb格式的数据库,首先在工程下引用“Microsoft ActiveX Data Objects 6.1 library”

    界面:

    6e6753e901d291602b88ef08dfda0388.png

    代码:

    Private Sub Command1_Click()

    Dim conn As New ADODB.Connection '创建Connection连接对象

    Dim rs As New ADODB.Recordset '创建Recordset记录集

    Dim i%

    Dim a(1 To 11) As Integer

    i = 1

    conn.ConnectionString = "Provider=Microsoft.ace.oledb.12.0;data source=E:mydata零件.accdb" '确定连接的数据库

    conn.Open '打开数据库连接

    rs.ActiveConnection = conn '设置记录的连接属性

    rs.Open "select * from lj" '打开记录集

    Do While Not rs.EOF '从第一条记录开始查找,直到完成查询

    a(i) = rs.Fields(2) '数据放入数组中

    List1.AddItem rs.Fields(2) & Space(16) & rs.Fields(3) '数据放入list列表框中

    rs.MoveNext

    Loop

    rs.Close '关闭记录集

    conn.Close '关闭数据库的连接

    End Sub

    数据库:

    47fd2e60067a3a37158f6a54cabd6af9.png

    想得到更多的VB小程序,请关注我,点击下方的广告可以更好的支持和鼓励我哦!

    展开全文
  • 文件与打开程序创建关联-VB程序示例,定义程序的打开方式,定义与程序打开的文件,创建一种关联,双击文件,即可使用相关的程序打开文件,类似于安装完某程序后,自动将相关文件的打开程序定义为自己,就好比现在...
  • VB 调用 HTMLHELP函数 首先当然是要在工程中加入上面的声明,然后编辑工程的菜单,在“帮助”菜单的CLICK方法中加入代码,就能打开chm帮助文件
  • VB6.0 控制程序重复打开问题 若程序实例已打开,则调用已打开的实例不重新生成新的实例。
  • vb6 禁止程序重复打开的方法,包含完整的工程代码。
  • ''打开程序  a  =  Shell(App.Path  &   " /GBoss_Key.exe " , vbNormalFocus)  p  =  OpenProcess(SYNCHRONIZE,  False , a)   ' 等待目标进程退出再继续  r  =  WaitForSingleObject(p, INFINITE)...
    ExpandedBlockStart.gif代码
    Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As LongAs Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As LongAs Long
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As LongAs Long

    Private Const INFINITE = -1&
    Private Const SYNCHRONIZE = &H100000

    Sub GbossSetup()

              
    '''打开程序
                 a = Shell(App.Path & "/GBoss_Key.exe", vbNormalFocus)
                 p 
    = OpenProcess(SYNCHRONIZE, False, a)
                 
    '等待目标进程退出再继续
                 r = WaitForSingleObject(p, INFINITE)
                 
    While r > 0
                     DoEvents
                 
    Wend
                 
    '''关闭进程
                 r = CloseHandle(p)

    End Sub

     

    转载于:https://www.cnblogs.com/lano/archive/2009/12/09/1620093.html

    展开全文
  • 可直接运行的VB6.0示例程序,实现功能:采用相对路径打开文件
  • 新装了win10的操作系统,打开原有的程序出现一个dataview窗口,提示Automation Error Element not found,新建一个data project也出现一样的错误,请高手帮忙解决
  • VB计算坐标方位角,在VB环境中可以打开代码,可以修改其中代码,谢谢
  • 笔者前段时间在对接酒店的一家门锁系统,由于酒店使用的门锁系统已经快10年了,在切换酒馆系统的时候希望能对接上这个门锁系统,...在做这种小样本程序,其实可以用的语言很多,比如,C++,Delphi,C#,Java,VB,PB...

    笔者前段时间在对接酒店的一家门锁系统,由于酒店使用的门锁系统已经快10年了,在切换酒馆系统的时候希望能对接上这个门锁系统,但是目前只有一个动态库文件DLL,以及一个简单的文档说明。无法得知该动态库文件是否支持酒店房门,如果需要样本程序,得花两千多费用购买。

    于是根据自己经验来开发了一个简单的demo程序。

    在做这种小样本程序,其实可以用的语言很多,比如,C++,Delphi,C#,Java,VB,PB都可以实现,除了java相对比较啰嗦点(可参考我之前文档关于java调用DLL的三种方法),其他对接都非常容易。这里我们选择的是VB(Visual Basic)。

    VB在做图形用户界面(GUI)和快速应用程序开发系统上有着比较明显的优势。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

    VB的开发工具我们选择Visual Basic 6.0精简版,开发界面如图,下面我们将该开发工具称为IDE。

    7cad87360bee1a903b1240d9d0c30347.png

    VB精简版

    接下来我们开始做样本Demo。

    首先我们看下对方提供的动态库DLL的简单说明,DLL方法里包含了,打开端口,关闭端口,读卡,制卡,蜂鸣等方法。

    c446aeb73835f5d38a6acc3073a401be.png

    函数声明

    然后打开IDE,选择新建标准EXE程序,打开,并给这个工程取个名字为Demo。

    3f7c5c4d1696823f7b7c8d22017aa2d3.png

    新建demo工程

    接下来将动态库的方法做声明,在工程中添加一个模块,并添加上动态库函数的声明,如图所示

    7e1e837d6a2c5b4cf5a587ef6981bfe8.png

    模块声明

    然后把对应的控件加上,如读卡,写卡,等配置文本控件,VB跟.NET一样的好处就是控件集成IDE,直接拖拉即可完成控件的生成。并且双击控件即可生成控件事件方法。如双击写卡控件进入写卡方法的开发。

    d50a8a8e98b55af5377c468e01c0edcd.png

    这里附上,写卡和读卡的方法代码参考

    b019a0e8ccb557fedf8344816f457147.png

    写卡

    fe83456fb3ca5def73aabf07a1cfe079.png

    读卡

    最后直接保存生成EXE文件即可。打开这个exe文件即可开始做测试。

    f2d95cacbf0f014db23f5f0bb3faf657.png

    如有疑问的可以下方留言,谢谢!

    展开全文
  • 新装VB6之后,打开之前的工程文件总会出现无法
  • 然后某一天打开VB6.0准备编写程序。。。。。。 然后 ![图片说明](https://img-ask.csdn.net/upload/201812/24/1545649304_621256.png) 每次都会出现这种状况 还难以关掉,无法使用VB6.0 其他软件...
  • 最简单的一种用VB实现打开自己的摄像头的源代码
  • 主要介绍了VB使用shell函数打开外部exe程序的实现方法,是非常实用的一个功能,需要的朋友可以参考下
  • vb6重复打开时激活显示原程序窗口 使用函数FindWindow,SetForegroundWindow
  • 电大visual basic程序设计形考实验1,欢迎程序,电脑中必须安装好vb才可以打开 电大visual basic程序设计形考实验1,欢迎程序,电脑中必须安装好vb才可以打开 电大visual basic程序设计形考实验1,欢迎程序,电脑中...
  • VB6.0已经过时,想深入学习它的话,还望三思而后行。 喜欢Windows系统的同学,可以了解一下 .NET 和 .NET Core。 该博文仅可用于测试与参考。 转载于:https://my.oschina.net/zhichengjiu/blog/3073965
  • VB6程序反编译工具,直接打开目标exe文件,选择菜单“discompile”-“Export Project”导出整个工程。
  • VB获取打开程序个数经典源码 Private Sub Form_Load() MsgBox getInstanceCount("notepad.exe") End Sub '得到所有进程名为proName的个数 Private Function getInstanceCount(ByVal proName As String) As ...
  • 视频请放在 这个路径中Application.StartupPath + "\video\ 即show_vidio\show_vidio\bin\Debug\video中
  • VB能不能记录下系统中打开过的程序,并且自动转换为子程序放入程序管理器中?用Listview加载?
  • 老马写的一个程序不错调用起来还真是方便啊 ! 模块内容: Option Explicit Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal...
  • 本文实例主要实现了VB调用外部exe程序来运行的功能,这里主要是使用shell函数来执行,shell函数主要用来打开一个外部的exe可执行文件,例如,在sub模块内:Shell "notepad", vbNormalFocus,代表以正常模式运行...
  • VB程序如何破解

    千次阅读 2017-10-17 21:49:59
    VB程序,不会告诉你这个VB写的,但是从界面来看就很像VB,一般是单文件的EXE,然后软件还比较小(早期的傻瓜式软件写的东西)  比如说我们想要知道这个"手动采集"按钮干了什么  我们用VB ...
  • 系统环境:WIN10 X64,VB6 ...连接64位Oracle时,生成EXE时运行正常,调试时报“Ora-06413:连接未打开” #原因是:调试时VB6的工作路径是VB6的安装目录,X64系统的安装路径是“C:\Program Files (x86)\Microsoft V...
  • VB打开Excel文件

    万次阅读 2014-03-05 17:12:41
    (1)vb打开Excel    用EXCEL对象读取EXCEL文件中数据.然后通过ADODB连接SQL进和导入  下面是EXCEL对象的详解 1 前言  做为一种简捷、系统的 Windows应用程序开发工具,VB具有强大的数据处理功能,提供了...
  • 在写VB程序的过程中遇到了一些奇怪的问题,如VS2017下当写完这个窗体应用程序后重新打开工程,有时会出现设计界面不见了(当然可能是由于个人操作不当)。下面是解决办法。我们先来对比一下正常的工程和有问题的工程...
  • VB打开TXT文件

    2013-05-24 21:59:53
    要求打开TXT,而且要在那个程序所在的文件夹里打开 我为什么用Open App.Path & "\aa.txt" For Input As #1 没有用呢 app.path & "\aa.txt" aa.txt这个文件要放哪里

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,480
精华内容 592
关键字:

vb打开程序