用VB设计能适应各种显示属性的界面

Private Sub Form_Load()

xFac = 400# / mmlhwnd.Left

yFac = 400# / mmlhwnd.Top

End Sub

---- 其 中，mmllhwnd 为 放 置 在 窗 体 中 的 控 件， 初 始 的 坐 标 为400,400。

---- 最 后 在 各 个 需 要 调 整 界 面 的 窗 体Load 事 件 中 调 用 下 列 子 程 序， 调 整 各 控 件 的 位 置 与 大 小：

Public Sub CorrectForm(fm As Form)

Dim C As Control

For Each C In fm.Controls

If TypeOf C Is Timer Then

ElseIf TypeOf C Is CommonDialog Then

ElseIf TypeOf C Is Line Then

C.X1 = C.X1 * xFac

C.Y1 = C.Y1 * yFac

C.X2 = C.X2 * xFac

C.Y2 = C.Y2 * yFac

Else

C.Left = C.Left * xFac

C.Top = C.Top * yFac

If TypeOf C Is SSCommand Then

C.Width = C.Width * xFac

C.Height = C.Height * yFac

C.FontSize = C.FontSize * xFac

ElseIf TypeOf C Is CommandButton Then

C.Width = C.Width * xFac

C.Height = C.Height * yFac

C.FontSize = C.FontSize * xFac

ElseIf TypeOf C Is ListBox Then

C.Width = C.Width * xFac

C.Height = C.Height * yFac

C.FontSize = C.FontSize * xFac

ElseIf TypeOf C Is ComboBox Then

C.Width = C.Width * xFac

C.FontSize = C.FontSize * xFac

End If

End If

Next C

End Sub

---- 上 述 程 序 中 仅 列 举 了 几 个 典 型 的 控 件， 如 果 窗 体 中 还 有 其 它 类 型 的 控 件， 仿 造 上 述 程 序 加 入 对 这 些 控 件 类 型 的 处 理 即 可。