我们可以调整（如果需要）窗口大小并使其居中，但这样做时会在屏幕上出现瞬间的闪烁。这并不是太明显，其实际结果就是你所期望的：HTA 会位于屏幕中心。我们希望这个过程变得稍微流畅些，但目前我们不得不使用此方法。
下面是 HTA 示例的代码。（若要实现此过程，请复制该代码，并将其粘贴到记事本中，然后以 .hta 为文件扩展名保存该文件。）我们担心的部分（也是唯一真正有用的部分）是 Window_Onload 子例程，每当 HTA 被加载或更新时，该子例程就自动运行：
复制代码 代码如下:
<html>
<head>
<title>Centered HTA</title>
<HTA:APPLICATION
ID="objHTA"
APPLICATIONNAME="Centered HTA"
SCROLL="yes"
SINGLEINSTANCE="yes"
>
</head>
<SCRIPT Language="VBScript">
Sub Window_Onload
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
intLeft = (intHorizontal - 800) / 2
intTop = (intVertical - 600) / 2
window.resizeTo 800,600
window.moveTo intLeft, intTop
End Sub
</SCRIPT>
<body></body>
</html>
启动此 HTA - 一个快速闪烁之后 - 窗口将调整为 800x600 像素，并将位于屏幕中心。
好问题：这里将要发生什么？我们先使用一些标准 WMI 代码，连接到本地计算机上的 WMI 服务，然后查询 Win32_DesktopMonitor 类。
注意。我们假定您的计算机只连接了一台显示器。如果您有多台显示器，您将必须添加一个 WHERE 子句来确保您将检索主显示器的屏幕高度和宽度。
连接到 Win32_DesktopMonitor 类后，我们将使用下列两行代码来确定当前屏幕的尺寸：
复制代码 代码如下:
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
我们已经事先决定，想让 HTA 窗口的宽度为 800 像素，高度为 600 像素。因此，我们可以使用以下代码计算出需要将该窗口的左上角放在什么位置：
复制代码 代码如下:
intLeft = (intHorizontal - 800) / 2
intTop = (intVertical - 600) / 2
正如您所看到的，我们将获得屏幕宽度（存储在 intHorizontal 变量中）并减去 800 像素（HTA 窗口的水平尺寸）。假定我们有一台分辨率为 1024x768 的显示器。1024 减去 800 得 224：这告诉我们屏幕比 HTA 窗口宽多少。若要使该窗口居中，我们只需确保每个边为 112 像素；这就是用 224（即 intHorizontal – 800）除以 2 的原因。
然后，对于屏幕高度，重复该过程。对于我们的示例显示器，得到的是 768 – 600（即 168），然后除以 2 得到 84 像素（即该窗口上下边的尺寸）。
这样，我们还需要做两项工作。第一，将窗口调整到 800x600 像素：
window.resizeTo 800,600
第二，相应地放置窗口。这就是我们现在要做的：
window.moveTo intLeft, intTop
我们要做的所有事情就是调用 moveTo 方法并移动 HTA 窗口，使其左上角位于距左侧 112 像素、距顶端 84 像素的位置。
顺便说一下，我们将 resizeTo 方法放在该子例程底端附近，以供教学之用：我们想要将 resizeTo 与 moveTo 一起讲述。然而，当您通过调整窗口启动子程序时，将有一个轻微的、不太明显的闪烁：
复制代码 代码如下:
Sub Window_Onload
window.resizeTo 800,600
strComputer = "."
Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
intLeft = (intHorizontal - 800) / 2
intTop = (intVertical - 600) / 2
window.moveTo intLeft, intTop
End Sub
这不是个大问题，但有些帮助。我们会继续寻找消除闪烁的方法。（为什么如此困难？理想状态下，在调整和移动 HTA 窗口之前，我们会将其隐藏，这可以使用 Internet Explorer 来执行。然而，我们还没有找到一种使用 HTA 来执行该操作的方法。但我们从未放弃。）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
3月27日消息，苹果宣布2024年全球开发者大会（WWDC）将于6月10日至6月14日举行，巧合的是，这次大会与端午假期重合。
苹果官方表示：
在线参加 Apple 每年规模最大的开发者盛会。亲眼见证 Apple 最新平台、技术和工具的发布。了解如何创建和改进你的 App 和游戏。与 Apple 设计师和工程师互动交流，与全球开发者社区建立联系。以上活动均免费在线举行。
探索各种新的工具、框架和功能，助力你打造出理想的 App 和游戏。通过视频讲座学习新技能，与 Apple 专家进行一对一会面，以推进你的项目，完善你的构思。
Swift Student Challenge 旨在支持和鼓舞下一代开发者、创作者和企业家。太平洋时间 3 月 28 日，我们将公布今年的获奖者名单。获奖者将有资格参加在 Apple Park 举办的特别活动。我们还会选出 50 名杰出获胜者，他们将受邀前往库比提诺，获得为期三天的非凡体验，包括参加 Apple Park 的特别活动。
RTX 5090要首发 性能要翻倍！三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB，每个模块容量为2GB。其速度预设为32 Gbps（PAM3），但也可以降至28 Gbps，以提高产量和初始阶段的整体性能和成本效益。
据三星表示，GDDR7内存的能效将提高20%，同时工作电压仅为1.1V，低于标准的1.2V。通过采用更新的封装材料和优化的电路设计，使得在高速运行时的发热量降低，GDDR7的热阻比GDDR6降低了70%。
更新日志
- 凤飞飞《我们的主题曲》飞跃制作[正版原抓WAV+CUE]
- 刘嘉亮《亮情歌2》[WAV+CUE][1G]
- 红馆40·谭咏麟《歌者恋歌浓情30年演唱会》3CD[低速原抓WAV+CUE][1.8G]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[320K/MP3][193.25MB]
- 【轻音乐】曼托凡尼乐团《精选辑》2CD.1998[FLAC+CUE整轨]
- 邝美云《心中有爱》1989年香港DMIJP版1MTO东芝首版[WAV+CUE]
- 群星《情叹-发烧女声DSD》天籁女声发烧碟[WAV+CUE]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[FLAC/分轨][748.03MB]
- 理想混蛋《Origin Sessions》[320K/MP3][37.47MB]
- 公馆青少年《我其实一点都不酷》[320K/MP3][78.78MB]
- 群星《情叹-发烧男声DSD》最值得珍藏的完美男声[WAV+CUE]
- 群星《国韵飘香·贵妃醉酒HQCD黑胶王》2CD[WAV]
- 卫兰《DAUGHTER》【低速原抓WAV+CUE】
- 公馆青少年《我其实一点都不酷》[FLAC/分轨][398.22MB]
- ZWEI《迟暮的花 (Explicit)》[320K/MP3][57.16MB]