是否可以从访问表单中制作 EXE？答案

【问题标题】：is it possible to make an EXE out of an access form?是否可以从访问表单中制作 EXE？
【发布时间】：2011-02-20 05:46:58
【问题描述】：

我希望用户认为他正在使用常规的 winform，但在后端我希望能够访问处理数据库内容。

是否可以只使用访问表单而让其他所有内容都消失在后台？我们可以从表单中制作一个 exe 吗？

什么是 MDE？

【问题讨论】：

标签： sql winforms vba ms-access

【解决方案1】：

没有。这在 MS Access 中是不可能的。

您需要创建一个 VB/VB.NET 可执行文件并在那里重新实现您的 UI 代码，您的数据连接指向 Access 数据库后端。

【讨论】：

【解决方案2】：

您不能像其他人所说的那样从 access 数据库中制作 EXE，但是您可以在很长的时间内隐藏您的应用程序是用 access 编写的这一事实。例如你可以……

添加自定义初始屏幕

为此，只需将 BMP 文件保存在与 DB 相同的文件夹中，并将其命名为完全相同的文件名，即 MyDatabase.BMP。当访问启动而不是看到访问启动屏幕时，您将看到您的自定义启动屏幕。

更改任务栏图标

在您的数据库上转到工具-启动并将应用程序图标更改为您选择的图标

更改表单上的图标

您可以将表单上的图标从标准访问更改为您喜欢的任何内容，将此代码粘贴到模块中

Option Compare Database
Option Explicit

Private Declare Function LoadImage Lib "user32" _
   Alias "LoadImageA" _
   (ByVal hInst As Long, _
   ByVal lpsz As String, _
   ByVal un1 As Long, _
   ByVal n1 As Long, _
   ByVal n2 As Long, _
   ByVal un2 As Long) _
   As Long

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 Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const WM_SETICON = &H80
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10
Private Const SM_CXSMICON    As Long = 49
Private Const SM_CYSMICON    As Long = 50

Public Function SetFormIcon(hwnd As Long, strIconPath As String) As Boolean
    Dim lIcon As Long
    Dim lResult As Long
    Dim x As Long, y As Long

    x = GetSystemMetrics(SM_CXSMICON)
    y = GetSystemMetrics(SM_CYSMICON)
    lIcon = LoadImage(0, strIconPath, 1, x, y, LR_LOADFROMFILE)
    lResult = SendMessage(hwnd, WM_SETICON, 0, ByVal lIcon)
End Function

然后你可以在表单的 OnOpen 事件上这样调用它

SetFormIcon Me.hwnd, (“C:\Stuff\NewIcon.ico")

【讨论】：

为什么对运行时一无所知？如果 .NET 应用程序可以依赖安装在您计算机上的 MB 文件才能运行，那么除了 EXE 扩展名之外，为什么 Access 运行时不完全相同？