<END>
99,如何捕捉當按下Tab鍵，相應事件被觸發
如 何 捕 捉 當 按 下 Tab鍵 ， 相 應 事 件 被 觸 發 ? 
    例 如 ， From1上 有 3個 按 鍵 ， 其 屬 性 為 ： 
     Cmd1.Tabindex=1 
     Cmd2.Tabindex=2 
     Cmd3.Tabindex=3 
    我 希 望 當 按 下 Tab鍵 后 ， 轉 移 方 向 為 ： Cmd1->Cmd2->Cmd3->Cmd1的 循 環 順 序 。 
<END>
100,如何讓多個下拉控件同步
如 何 實 現 兩 個 下 拉 框 (ComboBox)中 的 內 容 同 步 顯 示 .比 如 :Combo1中 的 內 容 依 次 為 1,2,3.Combo2中 的 內 容 依 次 為 a,b,c.當 我 選 中 Combo1中 的 "1"的 同 時 Combo2應 顯 示 "a",同 樣 當 我 選 中 Combo2中 的 "b"時 ,在 Combo1中 應 顯 示 "2".(這 兩 個 ComboBox的 Style屬 性 為 2,并 且 ComboBox中 的 內 容 應 在 運 行 的 時 候 裝 入 )我 是 這 樣 作 的 :(我 用 到 了 三 個 ComboBox) 
     在 Combo1的 Click事 件 中 寫 了 如 下 的 代 碼 : 
     combo2.Text = combo2.List(combo1.ListIndex) 
     combo3.text = combo3.list(combo1.listIndex) 
     在 combo2的 Click事 件 中 寫 了 如 下 的 代 碼 : 
     combo1.Text = combo1.list(combo2.listIndex) 
     Combo3.Text = Combo3.list(Combo2.listIndex) 
     在 combo3的 Click事 件 中 寫 了 如 下 的 代 碼 : 
     Combo1.Text=Combo1.list(Combo3.listIndex) 
     combo2.text = Combo2.list(Combo3.listIndex) 
    但 是 在 用 循 環 語 句 向 兩 個 ComboBox裝 入 Item時 系 統 提 示 :"Out of stack space"((該 循 環 絕 對 不 是 死 循 環 ,如 果 Style屬 性 為 "0"就 沒 有 這 個 問 題 )如 果 在 該 循 環 中 寫 入 "On error resume next",就 沒 有 問 題 ,但 是 在 同 步 顯 示 三 個 ComboBox中 的 內 容 的 時 候 ,問 題 依 舊 。 
<END>
101,如何在輸入完控件的內容后，光標自動移動到下一個控件
vb6.0能 不 能 實 現 向 foxpro那 樣 豎 著 添 加 數 據 的 功 能 ， 我 的 意 思 是 像 Visual Foxpro那 樣 添 加 數 據 ,數 據 庫 的 字 段 是 從 上 到 下 排 列 ,輸 入 完 一 個 后 就 接 著 下 一 個 記 錄 。 同 時 ,如 果 設 定 了 字 段 的 長 度 ,輸 入 指 定 長 度 的 字 符 后 ,就 自 動 跳 到 下 一 個 字 段 。 
    如 :我 的 數 據 庫 包 含 4個 字 段 :姓 名 ,年 齡 ,性 別 ,職 業 輸 入 方 式 為 : 
    姓 名 
    年 齡 
    性 別 
    職 業 
    姓 名 
    ---- 
    ---- 
    從 上 到 下 的 進 行 
    不 知 道 我 說 清 楚 了 沒 有 ,謝 謝 你 的 回 答 。 
<END>
102,文本框如何實現自動換行功能
如 何 才 能 實 現 筆 記 本 的 自 動 換 行 功 能 ？ 
<END>     
103,如何在程序中獲得滾動條的寬度
如 何 在 程 序 中 獲 得 滾 動 條 的 寬 度 ？ 
<END>
104,有沒有API函數可以去掉Command按鈕的選中線
有沒有API函數可以去掉Command按鈕的選中線? 也就是周圍這一框黑線，實在是不好看。 :-) 
<END>
105,文本框為什么不能換行
我 是 一 名 vb初 學 者 , 是 貴 站 的 忠 實 讀 者 。 最 近 編 寫 一 個 文 本 編 輯 工 具 時 遇 到 了 難 題 ， 問 題 如 下 ： 
    如 何 將 一 個 文 本 文 件 的 內 容 讀 出 到 textBox控 件 中 ， 要 求 按 格 式 （ 即 已 經 換 行 ,像 用 DOS下 的 edit.com編 輯 時 那 樣 )， 我 用 "input、 line input、 語 句 試 過 ， 但 該 文 件 中 的 內 容 顯 示 總 是 串 成 一 行 。 textBox遇 到 換 行 符 卻 不 換 行 ， 這 是 怎 么 回 事 。 
<END>
106,判斷控件屬于SSTab的哪一頁
我 在 一 個 Form 中 放 置 了 一 SSTab控 件 ,它 含 有 多 個 頁 (tab),每 頁 中 含 有 多 個 textbox、 combobox之 類 的 控 件 。 我 想 實 現 一 自 動 功 能 ,需 要 用 用 程 序 判 斷 textbox屬 于 sstab的 哪 一 頁 (tab)。 請 問 應 如 何 處 理 ? 我 曾 經 嘗 試 過 查 找 textbox的 屬 性 ,但 其 container和 parent屬 性 都 無 法 判 斷 。 
<END>
107,如何實現自動選擇的列表框
Chiman是 VB60初 學 者 ， 在 學 習 過 程 中 遇 到 如 下 問 題 ， 敬 請 解 答 。 
    一 、 我 設 計 了 一 個 適 合 本 單 位 技 術 計 算 的 軟 件 ， 產 品 牌 號 列 于 一 個 列 表 框 中 ， 可 雙 擊 選 擇 ， 亦 可 在 一 個 文 本 框 中 輸 入 牌 號 進 行 計 算 。 我 想 設 計 成 在 文 本 框 中 輸 入 牌 號 的 第 一 個 字 母 時 ， 列 表 框 自 動 選 擇 第 一 個 首 字 母 與 文 本 框 中 字 母 相 同 的 牌 號 ， 輸 入 第 二 個 字 母 時 ， 選 擇 第 一 個 首 、 次 字 母 相 同 者 ， 依 此 類 推 （ 類 似 幫 助 索 引 中 選 關 鍵 詞 ） ， 請 問 如 何 實 現 ？ 
    二 、 我 設 計 的 技 術 計 算 軟 件 由 于 較 簡 單 ， 我 將 幫 助 文 件 置 于 記 事 本 中 ， 如 何 實 現 點 按 “ 幫 助 ->幫 助 信 息 ...” 后 出 現 此 記 事 本 窗 口 ？ 
<END>
108,VB6.0不能正確顯示對話框中文件類型的中文文件名
我 剛 開 始 學 VB， 安 裝 的 是 中 文 VB6.0企 業 版 (win98中 文 )， 最 近 碰 到 問 題 ： 
    VB6.0不 能 正 確 顯 示 對 話 框 中 文 件 類 型 的 中 文 文 件 名 。 (用 東 方 快 車 2000的 自 帶 漢 字 可 正 確 顯 示 ,但 轉 換 到 系 統 漢 字 就 不 行 )。 請 各 位 高 手 幫 幫 忙 ! 
<END>    
109,如何響應控件數組的事件
我 創 建 了 一 個 FORM又 創 建 了 兩 個 數 組 Command1(0)和 Command1(1)。 我 想 要 Command1(0)點 擊 之 后 Form2.Show， Command1(1)點 擊 之 后 Form3.Show怎 樣 編 ? 
<END>
110,如何讓文字適應Text的大小
如 果 在 Text里 顯 示 同 一 內 容 ， 但 字 體 不 同 ， 所 以 有 的 字 體 會 使 文 字 超 出 了 Text。 我 們 知 道 Text有 AutoSize。 但 ， 只 是 Text適 應 文 字 大 小 ， 可 否 讓 文 字 適 應 Text的 大 小 ？ （ 字 體 是 任 意 字 體 ， 事 前 不 知 道 字 體 的 實 際 大 小 ） 
<END>
111,如何在COMBO的CLICK事件COMBO顯示的內容為其內容的一部分
如 何 實 現 在 COMBO的 CLICK 事 件 發 生 時 , COMBO顯 示 的 內 容 為 其 內 容 的 一 部 分 ？ 
    即 :cbo.text=mid(cbo.list(2),3) 
    cbo代 表 一 個 COMBO 控 件 。 我 這 樣 做 的 問 題 是 : 當 執 行 完 :cbo.text=mid(cbo.list(2),3)后 ,系 統 還 要 執 行 cbo.text當 執 行 完 :cbo.text=mid(cbo.list(2),3)后 =cbo.list(2) (這 項 操 作 應 該 是 由 系 統 完 成 的 ,因 為 我 單 步 執 行 ,當 執 行 完 :cbo.text=mid(cbo.list(2),3)后 ,此 時 cbo的 內 容 是 正 確 的 ,但 當 執 行 完 下 一 步 "END SUB "后 ,cbo 的 內 容 就 變 為 了 cbo.list(2)。 Thank you very much! 
<END>
112,下拉列表框同時可列出符合條件的兩個字段
有 沒 有 一 種 下 拉 列 表 框 同 時 可 列 出 符 合 條 件 的 兩 個 字 段 ? 
<END>
113,如何顯示工具提示
我 看 到 一 些 程 序 里 ， 當 鼠 標 移 到 COMMAND上 時 可 以 看 到 關 于 COMMAND的 注 解 ， 想 請 問 除 了 TOOLTIPTEXT中 寫 注 解 以 外 ， 還 有 什 么 地 方 要 改 ？ 
<END>     
114,如何使用鼠標右鍵選擇列表框中的項目
在 列 表 框 中 ， 單 擊 表 示 選 擇 選 項 。 怎 么 在 程 序 中 調 用 這 一 方 法 。 比 如 說 ： 我 想 在 程 序 中 實 現 在 列 表 框 中 右 擊 彈 出 菜 單 ， 同 進 又 必 須 選 擇 選 項 。 該 怎 樣 做 呢 ？ （ 象 WINDOWS中 的 資 源 管 理 器 中 的 右 擊 一 樣 ， 彈 出 菜 單 的 同 時 選 擇 了 項 目 ?） 
<END>
115,如何實現VB中的CheckBox控件的Lock功能
如 何 實 現 VB中 的 CheckBox控 件 的 "Lock"功 能 ？ (不 用 Enabled屬 性 ， 就 象 ComboBox那 樣 ， 不 可 輸 入 ， 但 文 字 也 不 轉 為 灰 色 )。 
<END>
116,如何使輸入滿幾位數后自動跳到這個控件
比 如 說 你 安 裝 win98的 時 候 ， 不 是 要 輸 入 序 列 號 嗎 ？ 當 你 在 一 個 空 白 中 輸 滿 幾 位 數 ， 然 后 光 標 就 自 動 跳 到 下 一 個 空 白 以 待 繼 續 輸 入 ， 就 是 那 種 功 能 。 怎 么 做 ? 
<END>
117,SETFOCUS語句出現“無效的過程或調用函數”錯誤
有 一 個 程 序 ， 在 執 行 到 COMMAND(INDEX).SETFOCUS語 句 處 有 時 會 出 現 “ 無 效 的 過 程 或 調 用 函 數 “ ， 但 有 時 就 不 會 出 現 此 錯 誤 ， 請 問 是 為 什 么 呢 ? 
<END>
118,能否使用Add語句動態增加控件數組
vb6增 加 了 add語 句 ,可 以 在 窗 體 上 動 態 增 加 控 件 。 但 是 ,能 不 能 用 這 種 方 法 使 增 加 的 控 件 成 為 一 個 控 件 數 組 ,甚 至 是 添 加 一 個 控 件 到 已 經 存 在 的 控 件 數 組 中 ? 
<END>
119,如何判斷文本框中字符的寬度
如 何 判 斷 文 本 框 （ textbox） 中 字 符 的 寬 度 （ 用 像 素 表 示 ） ， 因 為 有 時 需 要 根 據 字 符 的 寬 度 來 適 當 調 整 文 本 框 的 寬 度 。 
<END>
120,能否給ListBox加橫向滾動條
遇 到 的 問 題 : 我 用 vb的 listbox記 錄 搜 索 出 的 文 件 名 ,包 括 全 路 徑 。 由 于 路 徑 太 長 ,無 法 全 部 顯 示 .有 沒 有 辦 法 使 他 產 生 一 個 水 平 的 滾 動 條 ?我 察 看 了 msdn,沒 有 找 到 答 案 .我 的 listbox控 件 不 可 能 太 大 。 
<END>    
121,如何在運行時通過控件名改變控件的一些屬性
我 編 制 一 個 局 域 網 上 下 陸 戰 棋 的 程 序 ,旗 子 用 command按 鈕 控 件 表 示 ,比 如 我 選 擇 了 sl(司 令 )按 鈕 ,想 把 sl.name賦 值 個 一 個 變 量 ,我 怎 樣 才 能 在 別 的 子 程 序 中 通 過 這 個 變 量 來 改 變 sl中 的 一 些 屬 性 ? 
<END>
122,如何保存用戶在組合框中直接輸入的文本
如 何 保 存 在 下 投 式 組 合 框 中 用 戶 直 接 輸 入 的 文 本 ， 類 似 于 win98開 始 中 的 運 行 ? 
<END>
123,如何創建控件數組
我 剛 開 始 學 VB請 問 ： 如 何 創 建 控 件 數 組 ? 
<END>     
124,如何在程序中動態加入控件數組
<END>
125,如何在RichTextBox中實現“撤消(Undo)”功能
如 何 在 RichTextBox中 實 現 “ 撤 消 (Undo)” 功 能 ？ 
<END>    
126,如何定義控件變量
在 vb6.0中 使 用 如 下 : 
    public na 
    ---- 
    na=command1.name 
    --- 
    以 后 我 要 用 na 代 替 command1使 用 。 
    原 來 如 : 
    command1.backcolour=qbcolor(n) 
    后 
    na.backcolour=... 
    出 錯 !!不 知 該 如 何 使 用 定 義 名 來 使 用 控 件 !請 各 位 幫 忙 ? 
<END>
127,如何使多個控件具有相同的事件過程
我 使 用 PWIN98， PVB6.0， 有 如 下 問 題 請 教 ： 
    能 否 用 較 少 的 語 句 實 現 ： 對 窗 體 內 的 TEXTBOX控 件 在 得 到 焦 點 時 字 體 為 紅 色 ， 失 去 焦 點 時 字 體 為 黑 色 （ 假 設 窗 體 內 的 TEXTBOX很 多 ， 逐 個 向 其 事 件 中 寫 代 碼 較 麻 煩 ） 多 謝 ！ 
<END>
128,Ms Forms 2.0 Object Library所提供的控件與工具箱中的控件有何不同
請 問 :vb6部 件 "Ms Forms 2.0 Object Library"(FM20.DLL)所 提 供 的 控 件 與 工 具 箱 中 的 控 件 功 能 上 有 何 不 同 ?比 如 說 ComboBox? 
<END>
129,如何獲得編輯器的插入符
請 問 如 何 能 夠 在 vb程 序 里 捕 獲 比 如 ‘ 記 事 本 ’ 之 類 帶 有 插 入 符 的 編 輯 器 的 插 入 符 在 其 窗 口 的 位 置 。 我 用 GetCaretPos API好 象 不 行 。 
<END>
130,如何控制控件信息的滾動
在 編 程 中 往 某 控 件 中 加 入 一 條 信 息 或 文 本 （ from\list\text\label） 所 有 信 息 都 向 下 滾 動 。 如 何 才 能 讓 所 有 信 息 都 向 上 滾 動 ？ 且 最 新 或 最 后 的 那 條 信 息 始 終 能 讓 用 戶 看 見 。 如 同 Outlook中 向 上 的 接 收 時 間 排 序 。 
<END>
131,如何得到TEXTBOX中第N行字符
如 何 得 到 TEXTBOX中 第 N行 字 符 ？ 
<END>     
132,能否不用其他控件實現3D效果
請 問 能 否 不 用 其 他 控 件 (3dbuuton等 ） 在 諸 如 Commandbutton、 form等 的 caption處 再 打 一 行 不 同 顏 色 的 字 以 實 現 3d效 果 。 
<END>
133,如何產生類似VB啟動時出現的“新文檔”的圖標
我 想 做 出 一 個 窗 體 。 它 的 功 能 和 vb啟 動 后 出 現 的 “ new project"窗 體 功 能 一 樣 。 用 戶 可 以 選 擇 “ 打 開 ” 、 “ 新 建 ” 、 “ 最 新 ” 三 個 選 項 卡 以 打 開 文 檔 。 我 的 問 題 是 ， 如 何 產 生 諸 如 “ 新 文 檔 ” 的 圖 標 ， 并 且 雙 擊 它 即 可 開 啟 相 關 編 輯 工 具 建 立 新 文 檔 。 謝 謝 您 對 我 以 前 提 的 問 題 的 熱 情 答 復 。 
<END>
134,如何在程序運行的時候，設置控件的“置前”和“置后”
能 告 訴 我 如 何 在 程 序 運 行 的 時 候 ， 設 置 控 件 的 放 置 層 ， 就 是 “ 置 前 ” 和 “ 置 后 ” ？ 
<END>
135,如何在Excel中使用DriveListBox等控件
我 在 使 用 VBA時 發 現 "控 件 工 具 箱 "中 的 控 件 太 少 ， 連 DriveListBox、 DirListBox、 FileListBox這 樣 的 控 件 都 沒 有 ， 使 用 "附 加 控 件 "也 沒 有 找 到 這 些 控 件 ， 應 怎 樣 添 加 這 些 控 件 ？ 
<END>