[已解决]VBS中打开mdb安全级为低并使主窗口最大化

jynj

以下为一段VBS打开mdb文件的代码，请问，在打开窗口时，如何使窗口最大化

Dim oApp ' As Object

    On Error Resume Next
    Set oApp = CreateObject("Access.Application")
    Set objShell = CreateObject("Wscript.Shell")
    strPath = objShell.CurrentDirectory
    If oApp.Version = "11.0" Then
        oApp.AutomationSecurity = 1
    End If

  strPath =strPath & "\需打开的数据库.mde"
    oApp.OpenCurrentDatabase strPath
    oApp.Visible = True
    Set oApp = Nothing

[ 本帖最后由 jynj 于 2008-3-19 22:52 编辑 ]

jynj

老大，请来帮忙
而且我发现，如果直接运行“需打开的数据库.mde”，那么，窗口会根据上一次关闭时的情况，如果是最大化，下一次打开时就是最大化，但如果调用了上述程序打开“需打开的数据库.mde”，那么窗口一定是“正常”无法最大化，不知要如何修改上述代码？

andymark

try:

   oApp.OpenCurrentDatabase strPath
    oApp.Visible = True
    oApp.DoCmd.SelectObject acForm, "窗体1"
    oApp.DoCmd.Maximize
    Set oApp = Nothing

或者直接在启动的窗体的LOAD事件加入最大化的代码

jynj

以上代码只会使窗体1最大化，而无法实现将access2003本身最大化

jynj

顶上去，求解

jynj

这个VBS真的玩不来,我把access本身的窗口设为启动最大化了,单独运行mdb文件时会被强制最大化,可是一从VBS的这段代码中启动mdb,access窗口就被还原,真是奇了怪了,不知道有没有其它的方法将access宏的安全性用代码降为"低"

andymark

用上面的代码用VB生成EXE文件

jynj

我想请教的是如何最大化窗口,如果生成EXE就会使窗口最大化了吗?请管理员指教,因为我手上暂时没有VB

t小宝

......
    oApp.OpenCurrentDatabase strPath
    oApp.Visible = True
    objShell.SendKeys "% x"
    Set oApp = Nothing

jynj

小宝你真是高人哪，谢谢谢谢谢谢