当前位置：首页 → 问答吧 → 在Access中使Excel窗口最大后包含在Access窗口内的延伸问题！

在Access中使Excel窗口最大后包含在Access窗口内的延伸问题！

时间：2011-10-24

来源：互联网

我想达到的结果是最大化 Excel 窗口后包含在 Access 中，但设置后 Excel 窗口只包含左上角的大部分，右侧的滚动条和下边的标签、滚动条等都看不到，什么原因呢？
我想办法截图

作者: fxbianxiu 发布时间: 2011-10-24

那就表最大化咯.

作者: WallesCai 发布时间: 2011-10-25

能看到啊，是不是你的显示器的分辨率的问题哦？
例子
VB code


Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
    Dim lngAccessHwnd As Long
    Dim lngExcelHwnd As Long
    Dim lngP As Long
    lngExcelHwnd = FindWindow(vbNullString, "Microsoft Excel - 推舟速度脉冲频率换算表.xls")
    lngAccessHwnd = FindWindow(vbNullString, "Microsoft Access")
    lngP = SetParent(lngExcelHwnd, lngAccessHwnd)
End Sub

作者: Veron_04 发布时间: 2011-10-25

回复 Veron_04 老大，不是显示器辨率的问题，现在子窗口设置没有问题，
现在这是种情况，子窗体容器好像装不下 excel 子窗体，我把 “excel 子窗体”用API函数（MoveWindow)改小可以看到右侧和下侧的滚动条，但想把容器窗体改大却不行呢，

另外再问，API 函数中高度和宽度的单位是什么？是磅、缇、厘米？

作者: fxbianxiu 发布时间: 2011-10-25

还有，老大，我想通过 API函数（GetWindowRect）获取我的子窗体和窗体窗体的高度、宽度等，能不能给我举个例子，我试过都提示错误呢，谢谢啦

作者: fxbianxiu 发布时间: 2011-10-25

引用 3 楼 fxbianxiu 的回复:
回复 Veron_04 老大，不是显示器辨率的问题，现在子窗口设置没有问题，
现在这是种情况，子窗体容器好像装不下 excel 子窗体，我把 “excel 子窗体”用API函数（MoveWindow)改小可以看到右侧和下侧的滚动条，但想把容器窗体改大却不行呢，

另外再问，API 函数中高度和宽度的单位是什么？是磅、缇、厘米？

单位是：Pixels,1 Pixels=15tips

作者: Veron_04 发布时间: 2011-10-25

在Access中使Excel窗口最大后包含在Access窗口内的延伸问题！

热门阅读

热门下载