<END>
36,VB中表單對于按鈕的方向鍵應該如何處理的
問 題 ： 在 一 個 表 單 中 ， 放 置 有 兩 個 命 令 按 鈕 1和 2， 當 前 焦 點 在 1上 ， 我 想 用 鍵 盤 方 向 鍵 控 制 按 鈕 1在 表 單 中 自 由 移 動 ， 結 果 焦 點 移 到 按 鈕 2上 ， 不 知 道 如 何 實 現 我 所 要 的 控 制 效 果 ？ 另 外 ， VB中 表 單 對 于 按 鈕 的 方 向 鍵 是 如 何 處 理 的 ？ 謝 謝 。 
<END>
37,將窗體最大化，可是窗體內的控件不隨之成比例放大
問 題 : 我 是 一 個 vb的 初 學 者 ， 現 在 有 一 個 小 問 題 ， 我 設 計 好 的 窗 體 ， 在 運 行 時 ， 我 將 窗 體 最 大 化 ， 可 是 窗 體 內 的 對 象 及 控 件 不 隨 之 成 比 例 放 大 ， 還 是 原 來 大 小 ， 不 知 如 何 才 能 設 置 ？ 
<END>    
38,如何實現那種流行的平面按鈕
時下流行的那種按鈕（平時是平面，鼠標移上去后突起，按下去是凹陷狀，移開后又成為平面）在vb6中是如何實現的？ 
<END>
39,讓TextBox變成具有URL自動完成功能
Basic 
    問 題 : 請 問 VB專 家 們 ， 我 想 讓 一 個 VB中 的 TextBox變 成 具 有 URL自 動 完 成 功 能 ， 與 IE中 的 基 本 一 致 ， 應 該 怎 樣 做 ， 我 知 道 這 是 裝 有 IE4的 WINDOWS系 統 具 有 的 特 殊 功 能 ， 應 該 屬 于 系 統 調 用 ， 必 須 使 用 API來 完 成 。 多 謝 了 ！ 
<END>    
40,如何改變文本框組合框的選擇色
問 題 ： 如 何 改 變 文 本 框 的 選 擇 色 （ 包 括 組 合 框 ） 。 我 在 編 程 過 程 中 設 置 了 組 合 框 的 底 色 ， 但 在 運 行 后 發 現 下 拉 部 分 有 文 字 的 地 方 是 設 置 的 顏 色 ， 而 空 的 地 方 卻 是 白 色 ， 有 點 難 看 ， 但 當 MOUSE移 過 時 就 全 部 變 成 了 設 置 色 。 
<END>
41,如何判斷窗體中的控件類型
問 題 : 請 問 專 家 ： 
    如 何 判 斷 窗 體 中 的 控 件 類 型 ？ 
     例 ： 
     dim cn as control 
     for each cn in form1 
     select case cn.??? 
     case ??? 
     msgbox "這 是 一 個 按 鈕 " 
     case ??? 
     msgbox "這 是 一 個 圖 片 框 。 " 
     end select 
     next 
<END>
42,使用公共對話框保存文件，怎樣才能提示用戶覆蓋了以前的文件
問 題 : 您 好 ： 
    在 使 用 公 共 對 話 框 保 存 文 件 時 ， 用 戶 如 選 擇 了 以 前 文 件 名 為 保 存 文 件 名 ， 依 Windows習 慣 是 應 提 示 是 否 覆 蓋 ； 為 何 VB6編 的 程 序 不 提 示 ？ 
    我 曾 用 ： CommonDialog1.ShowSave 
     Open CommonDialog1.FileName For Output As #1 
     if (CommonDialog1.FileName) <> "" Then Msgbox"提 示 覆 蓋 " 
    在 新 建 文 件 名 鍵 入 后 CommonDialog1.FileName并 不 =""， 而 等 于 新 建 文 件 名 ， 也 發 出 ‘ 提 示 覆 蓋 ’ 。 
    用 if LOF(1) <> 0 Then ....， 發 現 新 老 文 件 長 度 均 =0， 且 老 文 件 被 清 成 0字 節 。 
    請 問 專 家 怎 樣 才 能 提 示 用 戶 覆 蓋 了 以 前 的 文 件 ？ 
<END>    
43,如何選擇combo1后，讓combo2中的內容跟著變
問 題 : 在 兩 個 combo控 件 中 ， 如 何 選 擇 第 一 個 combo1的 選 項 后 ， 讓 combo2控 件 中 的 內 容 跟 著 combo1的 選 項 來 變 ？ 
<END>    
44,按鈕的快捷方式能不能用功能鍵
問 題 : 按 鈕 的 快 捷 方 式 能 不 能 用 function 鍵 ， 如 f1。 
<END>
45,如何做一按鈕去控制時間控件的執行
問 題 : 專 家 ： 
    我 是 VB初 學 者 ， 今 遇 一 問 題 ， 即 如 何 做 一 按 鈕 去 控 制 時 間 控 件 的 執 行 。 比 如 ， 對 于 time1控 件 ， command1按 下 去 ， 它 才 執 行 。 望 專 家 給 予 解 答 ， 不 勝 感 謝 ！ 
<END>    
46,如何實現不同顏色的文本框
本 人 非 常 喜 愛 VB， 在 編 一 個 打 字 練 習 的 小 程 序 時 遇 到 一 些 問 題 ， 想 求 助 于 您 。 
    當 屏 幕 上 出 現 練 習 的 語 句 時 （ 中 文 ） ， 我 在 文 本 框 中 依 樣 打 入 ， 希 望 在 文 本 框 的 下 方 也 出 現 我 所 鍵 入 的 語 句 ， 并 且 當 出 現 錯 誤 時 ， 不 正 確 的 語 句 變 為 紅 色 （ 正 確 的 為 蘭 色 ） ； 其 次 ， 當 發 覺 輸 入 錯 誤 時 ， 按 下 退 格 鍵 在 文 本 框 中 刪 除 時 ， 其 下 方 的 相 應 語 句 也 隨 之 同 步 刪 除 。 本 人 在 實 現 錯 誤 變 色 時 ， 使 用 的 是 Print語 句 ， 在 窗 體 上 定 位 于 文 本 框 下 方 打 印 ， 但 感 到 十 分 不 便 ， 使 用 其 他 控 件 又 不 能 控 制 顏 色 相 應 變 化 ； 而 刪 除 時 ， 文 本 框 下 方 的 語 句 不 隨 之 相 應 刪 除 ， 并 且 再 輸 入 時 ， 就 不 判 斷 正 誤 了 。 希 望 您 能 夠 給 予 幫 助 ， 本 人 將 萬 分 感 激 ！ 
<END>
47,如何改變某些控件的邊框顏色
請 問 如 何 改 變 某 些 控 件 如 COMMAND， LABEL等 的 邊 框 顏 色 ？ VB似 乎 沒 給 出 這 個 屬 性 。 
<END>     
48,如何設計同其他Windows的應用程序相同的Open、Save等對話框
問 題 : Windows的 應 用 程 序 中 ， 如 open,save,save as等 對 話 框 大 部 分 都 樣 子 差 不 多 ， 請 問 這 是 設 計 成 這 樣 的 ， 還 是 調 用 同 一 個 函 數 。 如 果 是 調 用 函 數 ， 如 何 實 現 ？ 謝 謝 ！ 
<END>    
49,如何調用系統的選擇顏色的調色板窗口
在 VB6中 ， 如 何 調 用 系 統 的 調 色 板 窗 口 (就 是 ： 顯 示 屬 性 中 ->外 觀 ->顏 色 ->其 它 所 調 用 的 窗 口 )。 謝 謝 ! 
<END>    
50,如何設置控件不可見
問 題 : 我 為 了 讓 一 些 控 件 在 一 定 時 候 看 不 見 ， 把 其 屬 性 enabled設 置 為 false， 但 是 在 窗 口 中 仍 然 可 見 ， 只 是 不 是 活 動 狀 態 。 請 問 該 怎 樣 處 理 才 能 達 到 目 的 。
<END>
51,怎樣用VB作一個超過規定時間就發生某個事件的程序
問題: 怎樣用VB作一個超過規定時間就發生某個事件的程序，我聽人說好象要做一個倒記時程序，您只要教我達到超過規定時間就發生某個事件的效果就行，謝謝您！ 
<END>
52,如何能在控件上顯示立體的字
請 問 如 何 能 在 控 件 上 顯 示 立 體 的 字 或 是 看 出 有 陰 影 的 效 果 ， 而 不 是 用 圖 ， 比 如 用 label。 在 窗 體 上 用 了 flash控 件 后 ， label控 件 不 能 在 最 前 端 顯 示 ， label控 件 設 成 了 透 明 的 ， 如 何 解 決 ？ 用 flash控 件 作 背 景 ， 如 何 才 能 讓 picture控 件 在 flash上 有 立 體 的 感 覺 ？ 
<END>
53,如何能在 maskedbox 內輸入及輸出格式
問 題 : 如 何 能 在 maskedbox 內 輸 入 及 輸 出 日 期 去 都 是 "dd/mm/yyyy" format。 例 如 : 輸 入 : 01/07/2000 (2000年 7月 1日 )當 在 用 主 戶 離 開 欄 位 後 顯 示 仍 為 01/07/2000。 
    我 所 使 用 的 方 法 如 下 : 
    在 maskedbox 的 庶 罩 (mask)設 定 為 "##/##/####", 沒 有 設 定 格 式 (format)。 在 event lostFocus 內 使 用 function: 
    maskedbox.text = format$(cdate(maskedbox.text),"dd/mm/yyyy") 
    當 輸 入 "01/07/2000" (2000年 7月 1日 ) 後 啟 動 lostfocus event 後 ， 結 果 顯 示 為 "07/01/2000" (2000年 1月 7日 )。 
<END>    
54,怎樣在TextBox中填入鍵盤上沒有的特殊字符
問 題 : 怎 樣 在 "TextBox"中 填 入 鍵 盤 上 沒 有 的 特 殊 字 符 ， 如 千 分 號 "‰ "。 或 怎 樣 調 用 "Word"中 的 插 入 特 殊 字 符 功 能 。 
<END>    
55,選中控件時怎樣畫出控件四周的爪
問 題 ： 我 想 自 己 做 一 個 類 似 于 vb6.0編 輯 器 的 東 西 ， 現 在 可 以 在 窗 口 中 畫 出 控 件 ， 但 是 選 中 控 件 時 不 知 道 怎 樣 畫 出 控 件 四 周 的 爪 ， 請 問 怎 樣 將 爪 畫 出 來 ？ 我 現 在 采 用 的 是 通 過 控 件 數 組 來 管 理 不 同 的 控 件 ， 要 想 把 爪 畫 出 來 ， 是 在 本 來 的 控 件 的 四 周 畫 出 來 ， 還 是 重 新 自 己 生 成 控 件 ， 通 過 自 定 義 控 件 的 方 法 來 完 成 ？ 
<END>
56,怎樣在按下按紐的同時，發出聲音
怎 樣 實 現 象 oicq那 樣 ， 在 按 下 按 紐 的 同 時 ， 發 出 聲 音 。 懇 請 給 予 指 導 ， 謝 謝 ！ 
<END>
57,如何實現輸入時間、日期
問 題 : 我 用 三 個 文 本 框 來 分 別 輸 入 代 表 時 間 的 時 、 分 、 秒 ， 并 用 一 個 垂 直 滾 動 條 來 實 現 數 值 的 增 減 ， 向 下 表 示 減 少 ， 向 上 表 示 增 加 。 希 望 在 選 中 代 表 小 時 的 文 本 框 中 的 文 本 時 （ 藍 底 白 字 ） ， 點 擊 滾 動 條 ， 則 只 對 小 時 的 值 進 行 增 減 （ 0-24） ， 而 選 中 代 表 分 鐘 的 文 本 時 就 對 分 鐘 進 行 增 減 （ 0-60） ， 秒 鐘 相 同 。 如 果 停 止 點 擊 滾 動 條 時 就 使 光 標 自 動 
    定 位 到 正 在 進 行 增 減 的 文 本 框 中 。 其 運 行 過 程 如 同 windows控 制 面 板 中 日 期 /時 間 設 置 的 小 時 分 鐘 秒 鐘 設 置 ， 請 問 要 如 何 實 現 ？ 
<END>    
58,如何改變COMMAND按紐上文字的顏色
如 何 改 變 COMMAND按 紐 上 文 字 的 顏 色 ？ 按 鈕 沒 有 forecolor屬 性 。 
<END>
59,如何才能保留在控件中添加上的內容
問 題 : 我 想 編 一 個 小 程 序 就 是 ， 點 擊 按 鈕 后 將 文 本 框 中 的 內 容 自 動 添 加 到 LIST列 表 中 ， 然 后 點 擊 列 表 的 相 應 項 目 后 又 會 出 現 在 文 本 框 中 。 [現 在 都 可 以 了 只 是 程 序 一 旦 關 閉 后 ， 所 有 的 東 西 就 都 沒 有 了 ， 請 問 如 何 才 能 保 留 添 加 上 的 內 容 ] 
<END>    
60,怎樣實現橫向拖動一個控件
問 題 ： 怎 樣 實 現 橫 向 拖 動 一 個 控 件 ， 就 像 winamp中 拖 動 那 個 進 度 塊 一 樣 ？ 謝 謝 ！ 
<END>
61,怎樣在一個控件中顯示各種不同的字體類型
問 題 : 怎 樣 在 一 個 控 件 中 顯 示 各 種 不 同 的 字 體 類 型 ， 如 ， 在 label中 的 “ 中 國 ” 用 行 楷 ， 而 后 邊 跟 的 字 如 “ 人 民 ” 用 “ 宋 體 ” ， 英 語 單 詞 用 times new roman 
<END>    
62,如何檢驗窗體中的所有TextBox都已被填寫
我 想 問 一 下 ,如 何 檢 驗 窗 體 中 的 所 有 TextBox都 已 被 填 寫 ? 
<END>    
63,有何方法可以知道焦點在窗體的哪個控件上
在 VB中 有 何 方 法 可 以 知 道 焦 點 在 窗 體 的 哪 個 控 件 上 ? 
<END>
64,如何在文本框中光標的位置插入字符串
問 題 : 如 何 在 文 本 框 中 光 標 的 位 置 插 入 字 符 串 ? 
<END>   
65,如何將EXE中的圖標顯示在按鈕上
我 編 了 這 樣 的 一 個 小 程 序 ， 希 望 程 序 啟 動 后 能 獲 得 某 個 .exe執 行 文 件 的 圖 標 ， 并 將 此 圖 標 顯 示 在 某 一 個 按 鈕 上 。 程 序 如 下 ： 
     Private Sub Form_load() 
     hicon = ExtractIcon(App.hInstance, "c:\game\df\df.exe", 0) 
     commandhdc = GetDC(Command1.hwnd) 
     DrawIcon commandhdc, 0, 0, hicon 
    End Sub 
    但 運 行 時 發 現 窗 體 載 入 后 ， drawicon commandhdc,0,0,hicon這 一 句 似 乎 并 未 執 行 ， 但 我 將 此 句 加 在 按 鈕 command1的 click事 件 中 ， 單 擊 按 鈕 卻 能 夠 執 行 ， 顯 示 出 了 圖 標 。 請 問 這 是 為 什 么 ？ 能 不 能 在 窗 體 一 載 入 ， 不 執 行 任 何 操 作 便 能 完 成 上 述 功 能 ， 將 圖 標 顯 示 在 按 鈕 上 。 （ 注 ： 程 序 中 使 用 的 api函 數 都 已 說 明 ） 謝 謝 ！ 
<END>
66,如何能使Timer控件定時超過一分鐘
問 題 : VB6的 Timer控 件 只 能 定 時 到 一 分 多 鐘 ， 希 望 能 推 薦 一 種 能 定 時 到 半 天 或 者 時 間 越 長 越 好 的 方 案 ！ （ 使 用 多 個 Timer推 疊 可 不 是 好 辦 法 ） 
<END>
67,怎樣把list中的內容保存成為txt文件
我 是 一 名 vb 愛 好 者 ， 現 在 我 遇 到 一 個 問 題 ： 從 數 據 庫 中 把 數 據 調 入 listbox 中 顯 示 ,list1中 顯 示 調 入 的 數 據 ， list2中 是 按 我 的 要 求 選 擇 的 ， 怎 樣 把 list 中 的 內 容 保 存 成 為 *.txt文 件 ？ 
    我 有 一 段 代 碼 ， 請 高 手 幫 我 修 改 一 下 ， 我 將 非 常 感 謝 您 的 ！ 
    Private Sub Command_Click(Index As Integer) 
    Dim j As Integer 
    Select Case Index 
    Case 0 
    For j = List1.ListCount - 1 To 0 Step -1 
    List2.AddItem List1.List(j) 
    List1.RemoveItem j 
     
    Next 
    Case 1 
    For j = List1.ListCount - 1 To 0 Step -1 
    If List1.Selected(j) Then 
    List2.AddItem List1.List(j) 
    List1.RemoveItem j 
    End If 
     
    Next 
    Case 3 
    For j = List2.ListCount - 1 To 0 Step -1 
    If List2.Selected(j) Then 
    List1.AddItem List2.List(j) 
    List2.RemoveItem j 
    End If