用VB設計能適應各種顯示屬性的介面 (轉)

用VB設計能適應各種顯示屬性的介面 (轉)[@more@]用VB設計能適應各種顯示屬性的介面 (加入時間:2001-1-22)     作者:
轉自: vb愛好者

---- 在 設 計 一 般 應 用 軟 件 時， 總 希 望 設 計 的 軟 件, 無 論 顯 示 器 分 辨 率 設 置 是640X480, 800X600 還 是1024X768, 無 論 顯 示 器 設 置 是 在 大 字 體 還 是 小 字 體 軟 件 都 能 正 常 運 行， 並 且 有 美 觀 一 致 的 界 面。 本 人 在 用VB5.0 設 計《英 語 集 成 訓 練 系 統V2.0》時， 亦 遇 到 這 樣 的 麻 煩。 下 面 解 釋 克 服 這 一 問 題 的 方 法。

---- 一： 使 界 面 居 中

---- 為 了 使 界 面 元 素 能 在 各 種 顯 示 分 辨 率 下 均 有 合 理 的 布 局， 一 種 方 法 就 是 獲 取 當 前 顯 示 分 辨 率， 然 後 根 據 這 一 分 辨 率 計 算 界 面 各 元 素 的 位 置 和 大 小， 並 進 行 設 置。 這 種 方 法 雖 然 能 解 決 界 面 元 素 布 局 問 題， 但 需 要 知 道 每 個 元 素 的 位 置 和 大 小， 程 序 煩 瑣。

---- 我 這 裡 採 用 的 方 法 是： 首 先 設 計 一 個 具 有 極 大 化, 無 邊 界， 無 標 題， 無 控 制 盒 的 窗 體， 然 後 在 其 上 放 置 一 個 容 器 控 件Picture， 在Picture 中 再 放 置 其 它 控 件。 在 窗 體Load 事 件 中 根 據 當 前 的 顯 示 分 辨 率 居 中Picture， 從 而 實 現 了 居 中 整 個 界 面。 具 體 代 碼 如 下：

Private Sub Form_Load()
Call CenterControl(Picture1)
End Sub
Public Sub CenterControl(obj As )
Dim cx, cy As Single
cx =(Screen.Width/Screen.
TwipsPerPixelX-obj.Width)/2#
cy =(Screen.Height/Screen.
TwipsPerPixelY-obj.Height)/2#
obj.Left = cx
obj.Top = cy
End Sub

---- 二： 使 界 面 適 應 大 字 體 與 小 字 體

---- Win95 在 創 建 控 件 時， 會 根 據 當 前 顯 示 屬 性 為 大 字 體 或 小 字 體 來 作 相 應 調 整。 盡 管 應 用 程 序 傳 送 的 參 數（ 控 件 位 置 和 尺 寸） 是 一 致 的， 但 實 際 控 件 的 位 置 和 尺 寸 在 這 兩 種 情 形 下 並 不 一 樣。 如 果 應 用 程 序 僅 僅 考 慮 一 般 小 字 體 的 情 況， 在 大 字 體 下 界 面 則 十 分 難 看 混 亂， 甚 至 無 法 操 作。 為 解 決 這 一 問 題， 首 先 應 了 解 當 前 顯 示 器 設 置， 這 可 通 過 系 統 注 冊 表 來 獲 取。 下 面 的 程 序 採 用 了 另 一 種 方 法： 首 先 在 一 個 映 射 模 式 為Pixel 的 窗 體 中 放 置 一 個 控 件， 在 顯 示 屬 性 為 小 字 體 的 設 計 環 境 下 首 先 看 一 下 控 件 的 初 始 位 置x,y， 然 後 在 窗 體 的Load 事 件 中 計 算 出X 和Y 方 向 的 放 大 比 例xFac,yFac:

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 Smmand Then
C.Width = C.Width * xFac
C.Height = C.Height * yFac
C.FontSize = C.FontSize * xFac
ElseIf TypeOf C Is Commanutton 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

---- 上 述 程 序 中 僅 列 舉 了 幾 個 典 型 的 控 件， 如 果 窗 體 中 還 有 其 它 類 型 的 控 件， 仿 造 上 述 程 序 加 入 對 這 些 控 件 類 型 的 處 理 即 可。