laocooon的博客

这段VB代码实现了一个窗口大小设置工具。程序通过API函数获取当前活动窗口的句柄和尺寸，并允许用户将选中的窗口设置为指定大小(1321×743)。主要功能包括：1)通过按钮触发窗口选择过程；2)5秒计时器获取当前活动窗口；3)显示窗口原始尺寸和设置后的尺寸；4)使用SetWindowPos API调整窗口大小。程序界面包含一个文本框显示操作信息和一个启动按钮，窗体加载时初始化各控件属性。该工具适用于需要快速标准化窗口尺寸的场景。

Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Dim WordApp As Word.Application '创建Word应用程序Dim WordDoc As Word.Document '创建Word文档对象Private Sub PrintBTText(s As String) WordApp.Selection.ParagraphFormat.Ali.

VBA 向Word插入图片。

vb.net 画曲线

Attribute VB_Name = "模块1"Sub 宏1()单选多选判断End SubSub 选择(s1 As String, s2 As String)Dim S, EDim stSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find .ClearFormatting .MatchWholeWord = True .

描述给定一个金币地图，地图上的数值代表金币的数量。此时地图上方有一只贪吃蛇从任意一点进入，每经过一处就会吞噬此处的金币。最终从地图下方出去。贪吃蛇每次只会向下走，且不能走直线，也就是说，如果它在吞噬了地图中第 a 行第 b 列的 金币后，下一次只能走向第 a + 1行的第 c列（c != b）求：该贪吃蛇能吞噬的最大金币数是多少。输入一个 m x n 的地图 a1 ≤ m, n≤ 30001 ≤a[i][j]≤ 100输出输出一个整数，表示该贪吃蛇能吞噬的最大...

Sub AddLine() '定义起点 Define the start point Dim ptStr(0 To 2) As Double ptStr(0) = 5: ptStr(1) = 5: ptStr(2) = 0# '定义终点 Define the end point Dim ptEnd(0 To 2) As Double ptEnd(0) = 12: ptEnd(1) = 3: ptEnd(2) = 0# '在模型空间中...