如何获取当前窗口的大小

Sub testActiveWindowSize()

MsgBox "当前窗口可用区域的高度为:" & ActiveWindowUsableHeight

MsgBox "当前窗口的高度为:" & ActiveWindowHeight

MsgBox "当前窗口可用区域的宽度为:" & ActiveWindowUsableWidth

MsgBox "当前窗口的宽度为:" & ActiveWindowWidth

End Sub

1 打开Excel dim myexcelas new ExcelApplication() myexcelvisible=true

2 添加新的工作簿myexcelWorkbooksadd()

3 设定第二个工作表为活动工作表myexcelworksheets(2)Acivate()

4 打开指定的Excel文件myexcelworkbooksopen(“c:\myxls”)

5 显示Excel窗口myexcelvisible=true

6 更改Excel的标题栏myexcelcaption=“欢迎,欢迎!”

7 为Excel的单元格赋值myexcelcells(1,4)value=100 此语句使Excel当前工作表的第一行第四列,即D1单元格等于100, 也可以这样写: myexcelRange(“D1”)value=100

8 设置指定列的宽度(单位:字符个数)myexcelActiveSheetcolums(1)columnwidth=20 设定当前工作表第1列的宽度为20

9 设置指定行的高(单位:磅)myexcelActiveSheetrows(1)rowHeight=1/0035 1磅 =0035厘米设置第1行的高度为1CM

10 插入分页符 myexcelActivesheetrows(20)pagebreak=1在第20行前插入分页符

11 删除分页符myexcelActivesheetcolumns(20)pagebreak=0 在第20列前删除分页符

12 指定边框线的宽度myexcelActivesheetrange(“B3:D3”)borders(1)weight=3 其中borders参数指定单元格边框的位置:1:左 2:右 3:顶 4:底 5:斜\ 6:斜/

13 指定边框线条的类型 myexcelActivesheetrange(“B1:D3”)borders(2)linestyle=1此语句将当前工作表的B1:D3单元格的右边框设置为实线 linestyle参数: 1:细实线 2:细虚线 3:点虚线 4:双细实线

14 设置页脚myexcelactivesheetpagesetupcenterfooter=“第&p页” 注意:设置页眉页脚时要保证计算机上装有打印机,否则出错!

15 设置页眉myexcelactivesheetpagesetupcenterfooter=“第&p页”

16 设置页眉到顶断距离为2cmmyexcelActivesheetpagesetupHeadermargin=2/0035

17 设置页脚到底端距离为2cmmyexcelActivesheetpagesetupFootermargin=2/0035

18 设置顶边边距为2cmmyexcelActivesheetpagesetuptopmargin=2/0035

19 设置底边边距为2cmmyexcelActivesheetpagesetupBottommargin=2/0035

20 设置左边边距为2cmmyexcelActivesheetpagesetupLeftmargin=2/0035

21 设置右边边距为2cmmyexcelActivesheetpagesetupRightmargin=2/0035

22 设置页面水平居中myexcelactivesheetpagesetupCenterHorizontally=true

23 设置页面垂直居中myexcelactivesheetpagesetupCentervertically=true

24 设置页面纸张大小 (1,窄行8511 ;39 ,宽行1411) myexcelactivesheetpagesetuppapersize=1

25 打印单元格网格线 myexcelactivesheetpagesetupPrintGridlines=true

26 复制整个工作表 myexcelactivesheetUsedrangeCopy

27 复制指定区域 myexcelactivesheetrange(“a1:b5”)Copy

28 粘贴 myexcelworksheets(“sheet2”)range(“A1”)PasteSpecial

29 在第2行前插入一行 myexcelactivesheetrows(2)Insert

30 在第2列前插入一列 myexcelActivesheetColumns(2)Insert

31 合并 C4:D4 单元格 myexcelActivesheetRange(“C4:D4”)Merge()

32 自动调整第2列列宽 myexcelactivesheetColumns(2)AutoFit

33 设置字体myexcelActivesheetcells(2,1)fontname=“黑体”

34 设置字体大小myexcelActivesheetcells(2,1)fontsize=25

35 设置字体为斜体 myexcelActivesheetcells(2,1)fontItalic=true

36 设置字体为粗体 myexcelActivesheetcells(2,1)fontBold=true

37 清除单元格内容myexcelactivesheetcells(2,1)ClearContents

38 打印预览工作表myexcelActivesheetPrintPreview

39 打印工作表 myexcelActivesheetPrintout

40 工作表另存为myexcelActiveWorkbooksaveas(“C:\book2xls”)

41 放弃存盘 myexcelActiveWorkbooksaved=false

42 关闭工作簿 myexcelWorkbooksclose

43 退出 Excel myexcelquit

44 纸张横向：myexcelactivesheetPageSetupOrientaTion=2（1纵向）

45 单元格居中：cells(2,1)HorizontalAlignment=ExcelXlHAlignxlHAlignCenter 水平方向cells(2,1)VerticalAlignment=ExcelXlVAlignxlVAlignCenter 垂直方向

打开CSDN APP，看更多技术内容

VB调用Excel软件实现打印预览功能

摘要:VB源码,报表打印,打印预览VB调用Excel软件实现打印预览功能，可以插入折线图，VB打印预览功能示例源码，分享给大家参考。

用vb *** 作EXCEL打印报表

最近使用vb来打印报表,打印出来的EXCEL一直无法上传到ftp 反复多次问题都没解决, 200 PORT command successful Consider using PASV 问题出在这,由于win10的防火墙的原因,关闭防火墙后问题得到解决 转载于:>

恩，刚刚搞：虽然不怎么成功：要用到api函数的GetWindowPlacement(HWND h,一个结构体变量)；查找一下MSDN这个结构体保存了窗口最大和最小的信息，问题在这里在用dllimport的时候参数对应的第一个

可以是intptr,但是第2个有点问题了我在这里用ref 托管的结构体；

js获取浏览器可见区域(不包括标题栏、地址栏、收藏夹栏状态栏等额外区域，仅为页面呈现区域)的高度和宽度

宽度：documentdocumentElementclientWidth

高度：documentdocumentElementclientHeight

文档类型：XHTML10

浏览器：ALL

最大化的语句

thisWindowState = FormWindowStateMaximized;

然后就可以

thisWidth

thisHeight

用下面的这个语句可以得到主屏幕的宽

int wid= ScreenPrimaryScreenWorkingAreaWidth;

高：

int hei = ScreenPrimaryScreenWorkingAreaHeight;

window高度应当是文档所在窗口的可视高度（没有包括浏览器的滚动条），计算方法documentdocumentElementclientHeight

document高度应该为文档内容的高度，计算方法Mathmax(documentbody[ "scrollHeight" ], documentdocumentElement[ "scrollHeight"])

html高度应当为html元素的高度（包括边框滚动条）,计算方法htmlElementoffsetHeight

body高度是body元素的高度（包括边框滚动条），计算方法bodyElementsoffsetHeight;

$(window)scrollTop()和$(document)scrollTop()具有相同的效果，都为返回滚动条的垂直位置,但是$(window)scrollTop()被所有浏览器支持。

$(document)是获取文档对象 

$(window)是获取窗口对象

$('body,html')获取的是文件本身

$(window)scroll和$(window)scrollTop()为0的问题

问题1：$(window)scroll无效问题

如果你的css中：html,body的高度样式如果设置为100%，那么$(window)scroll方法将检测不到正确的滚出高度（0），导致滚动监听事件失效。

解决方法：

设置html,body{height:auto}可以解决。

问题2：$(window)scrollTop()获取值一直为0--------------兼容性问题

是兼容各种浏览器的写法，分别为获取当前的scrollTop和设置scrollTop：

function getScrollTop() {  　                            var scrollTop = documentdocumentElementscrollTop || windowpageYOffset || documentbodyscrollTop;  

return scrollTop;  

}  

function setScrollTop(scroll_top) {  

documentdocumentElementscrollTop = scroll_top;

 windowpageYOffset = scroll_top;  

 documentbodyscrollTop = scroll_top;  

 }  

不是。坐标值是窗体左上角顶点的坐标。

最大坐标值应该是int类型的值域最大值。但是坐标值只有在显示器的分辨率范围内时，我们才能在显示器上看到窗口，例如显示器分辨率为800600

那么：当窗口的坐标值不在这个范围内，我们就不能看到窗口，或只能看到部分窗口。

以上就是关于如何获取当前窗口的大小全部的内容，包括:如何获取当前窗口的大小、vb.net获取excel页面高度、.net c#如何获取窗体最大化最小化的宽高度等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！