Public Function FormResiz_OnOpen(parFrm As Form, Optional perSizeL As Long, Optional perSizeT As Long, Optional perSizeW As Long, Optional perSizeH As Long) On Error Resume Next Set frm = parFrm '窗口驾驶盘的取得 hWnd = GetDesktopWindow() '现在分辨率取得 ret = GetWindowRect(hWnd, R)...
Declare FunctionFindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVallpClassNameAs String, _ ByVallpWindowNameAs String)As Long '获取窗口大小的API函数 Declare FunctionGetWindowRect Lib "user32" ( _ ByValhWndAs Long, _ lpRectAsRECT)As Long SubShowExcelWindowSize() DimhWndAs Long, uRect...
1awtDimensionscreenSize=Toolkit.getDefaultToolkit().getScreenSize();doublewidth=screenSize.getWidth();doubleheight=screenSize.getHeight();2javafxRectangle2DscreenRectangle=Screen.getPrimary().getBound JavaFX 原创 qq5d1070a92e32e 2020-05-31 11:56:51 ...
使用Java AWT类可以很方便取得屏幕分辨率及可用屏幕大小。 01.Dimension scrSize=Toolkit.getDefaultToolkit().getScreenSize(); 此语句可取得屏幕实际大小。如屏幕分辨率是1024*768时,scrSize.width的值为1024,scrSize.height的值为768。 01.Insets scrInse ...
“Web 图片选项”对话框 xlDialogWindowMove 14 “窗口移动”对话框 xlDialogWindowSize 13 “窗口大小”对话框 xlDialogWorkbookAdd 281 “添加工作簿”对话框 xlDialogWorkbookCopy 283 “复制工作簿”对话框 xlDialogWorkbookInsert 354 “插入工作簿”对话框 xlDialogWorkbookMove 282 “移动工作簿”对话框 xl...
GetWindowsDirectoryA Lib “kernel32” _ (ByVal lpBuffer As String,ByVal nSize As Long) As Long ‘API函数声明。返回安装Windows的目录名称,调用该函数后,安装Windows的目录名称将在第一个参数lpBuffer中该目录名称的字符串长度包含在第二个参数nSize worksheets.add 新建表 workbooks.open"a" 打开a...
1, 1).Font.Size = 24 ‘设置字体大小为24磅 ActiveSheet.Cells(1, 1).Font.Color = 3 ‘设置字体颜色为红色 ActiveSheet.Cells(1, 1).Font.Italic= TRUE ‘设置字体为斜体 ActiveSheet.Cells(1, 1).Font.Name = "Times Roman" ‘设置字体类型 ActiveSheet.Cells(1, 1).Interior.ColorIndex = ...
(15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小 (16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列 (17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化 工作表 (18) ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数 ...
12) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数(13) ActiveWorkbook.name '返回活动工作薄的名称(14) ThisWorkbook.Name ‘返回当前工作簿名称ThisWorkbook.FullName ‘返回当前工作簿路径和名称(15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小(16) Application.Window.Arrange ...
By company size Enterprises Small and medium teams Startups Nonprofits By use case DevSecOps DevOps CI/CD View all use cases By industry Healthcare Financial services Manufacturing Government View all industries View all solutions Resources Topics AI DevOps Security Software Development...