很 多 視 窗 都 會 含 有 多 個 窗 格 , 如 下 圖 , 而 當 使 用 在 窗 格 之 間 按 下 滑 鼠 拉 曳 時 , 可 調 整 窗 格 之 間 的 大 小 , 在 VB 程 式 裡 面 , 如 何 達 到 此 一 功 能 呢 ?
其 實 方 法 很 簡 單 , 首 先 在 兩 個 窗 格 (上 圖 是 以 兩 個 TextBox 為 兩 個 窗 格 )之 間 佈 置 一 個 長 條 形 Label, 並 且 設 定 以 下 屬 性 :
屬性 | 屬性值 |
Caption | (清成空白) |
DragMode | 1 - 自動 |
MousePointer | 9 - 東-西指向 |
則 可 提 供 使 用 者 拉 曳 的 功 能 , 接 著 在 Text1_DragDrop 及 Text2_DragDrop 事 件 程 式 中 撰 寫 調 整 大 小 的 程 式 即 可 。 (下 載 範 例 程 式 )
有 關 Drag & Drop 的 工 作 原 理 , 請 參 閱「VB 5.0 實 戰 講 座」第 15章「OLE Drag & Drop」或「VB 4.0 實 例 領 航 手 冊」第 14章「拉 曳 存 置 (Drag-Drop) 程 式 設 計」。