第一篇：羅氏VB6監理總結(正)

上海市工程設備監理公司

SHANGHAI CONSTRUCTION & EQUIPMENT SURVEILLANCE MANAGEMENT CO．

監

工程名稱 建設單位 承建單位 設計單位 監理單位

理 工 作 總 羅氏新亞VB6技改工程項目

羅氏新亞（上海）維生素有限公司 克瓦納（英國）工程公司 上海醫藥工業設計院

上海市工程設備監理公司 編制人 何奮明

審核人 劉海平批準人 馬自強

結一．工程概況

羅氏新亞維生素B6工程項目位于浦東新區金海路東端，即羅氏新亞維生素有限公司的廠區內。項目共由六個單位工程組成，分別為生產車間大樓；溶媒、酸堿貯罐區；消防水池泵房；門衛1及地磅；門衛2及大門；室外總體工程。

本項目的主要單位工程是生產車間大樓，其建筑面積8026平方米，建筑高度21.50M，基礎由砼樁、承臺及基礎梁組成。建筑物分為八個區域從基礎到上部結構各自獨立，車間主樓座落在兩邊，為三層框架結構；中間輔樓為六層的板墻混凝土結構，是生產和生活輔助用房；門窗為鋁合金窗、鋼質防火門；內墻面為混合砂漿底苯丙涂料面層，外墻面為灰白兩色面磚，屋面采用氯化聚乙烯橡膠防水卷材。

二個門衛室是在原地址上建造的，為單層房屋。

消防水池及泵房單位工程分為水池和泵房兩部分組成，位于老廠區的最北端，總建筑面積275平方米。水池和泵房之間設沉降縫。消防水池分上下兩層，上層為消防水箱、下層為雨水、污水池，埋深-6.900米。消防水池的深基坑支護施工方案委托同濟大學建筑設計院專業設計，系采用鉆孔灌注樁和樹根樁、壓密注漿加水平砼支撐的圍護體系。

貯罐區構筑物分為溶媒罐區（長*寬23.5M*13.32M）和酸堿罐區（長*寬19.34M*13.32M），貯罐構筑物為砼結構，由砼底板、壁板和管架柱等組成；廠區管架由原鍋爐房至生產車間大樓等處，為混凝土基礎及柱子。

本工程項目開工依次順序是：生產車間大樓；貯罐區；門衛1、2及大門、地磅；消防水池泵房；廠區總體管線、管架及道路。工程 1 項目從1999年3月6日正式開工，進行VB6生產車間大樓的樁基施工，至2000年底竣工。2001年 月通過質檢站的竣工驗收。

二．項目監理機構 1.項目監理機構人員名單 總監理工程師：劉海平副總監兼土建監理師：何奮明 土建監理師：顧坤權 電氣監理師：鄭漢民 管道監理師：肖連中 設備監理師：倪學良 王岳

2.投入的監理設施

水準儀 經緯儀 鋼卷尺 電腦 質量檢測系列工具等

三．履行合同情況

1． 根據委托合同的要求，監理工作范圍：整個工程過程中的質量控制，并在進度、成本、安全管理方面及保修期間為業主提供服務。2． 監理依據： ? 監理委托合同

? 業主與總承包的建筑安裝合同及 分包合同等 ? 工程設計施工圖紙、設計變更文件等

? 國家和上海市現行的施工質量驗收規范及評定標準

四．監理工作成效

我公司本著“業主的需要就是我們服務的方向”的服務宗旨，接受業主的委托，在合同規定的范圍內開展監理工作。在本工程項目的施工期間，制定了詳細的監理規劃和監理細則，確定了質量控制的目標，實施了對本項目的建安工程從原材料、施工方法、檢查驗收等全過程的質量監理，自始至終、全面竭誠地履行了合同中的各項義務。

1． 在本工程土建開工時，我公司就派了兩名土建監理工程師常駐現場。在生產車間樁基施工和消防水池基坑支護施工等重要階段，又增派兩名監理工程師充實進來，進行每天24小時不間斷的值班監控；在車間大樓主體結構施工高峰時，增加一名監理員旁站監控，這期間我公司也有一名專業電氣工程師負責本工程各類預埋管道的驗收工作；在各類工藝設備開始安裝時，派駐了三名專職的電氣、管道、設備安裝工程師到現場開展監理工作。總之，根據本工程項目的施工不同階段，我公司及時派出相關監理人員進駐現場開展監理工作。從人員安排上確保工程的質量控制。

2． 我公司要求現場監理人員在關鍵部位或關鍵工序施工過程中必須進行旁站監督。在六個單位工程的基坑開挖和澆筑混凝土過程中都進行日夜不間斷的值班監督。

3． 消防水池基礎埋深六米左右，其基坑施工是有一定的難度和風險。為確保此工程安全施工，我公司直接委派了土建專家對深坑的圍護施工圖及施工組織設計（施工方案）進行認真審定，并提出針對性的建議和意見；其次，在消防水池圍護工程的施工過程中，我們現場監理人員實行了全天候質量監控制度，從圍護鉆孔灌注樁、壓密注漿施工到及砼鎖口梁、水平支撐梁的澆筑，每天24小時不間斷地 3 在現場值班，檢查、驗收施工過程中的每一道分項工程質量，從而使消防水池工程能夠安全地完成施工任務。

4． 在設備安裝監理方面

⑴.設備安裝工程中有大量的鋼結構架制作安裝。我監理人員從鋼材進場。噴砂除銹，防腐處理。焊接制作直至安裝等工序進行了嚴格的檢查、測量，只有在上道工序檢查合格后才允許進入下道工序施工。在生產車間設備安裝前，我監理人員對進場的設備逐一進行檢查，以確保設備的完好、合格。設備安裝后即對其安裝質量進行檢查和復測。

⑵.在工業管道制作安裝過程中，除日常的巡檢外，每焊制完一批管道即由監理隨機抽查部分焊口進行攝片探傷檢查。在管道的水壓試驗和管道吹洗時監理員實施全過程的旁站監控。為確保防爆車間今后的安全生產，監理人員重點檢查了保護接地，防靜電接地以及各電纜進線口的密封質量。

⑶.總之，在整個設備安裝過程中，我監理除了日常的巡檢以外，還對不同的施工階段作出重點檢查、檢測，一旦發現施工質量問題，即及時責令施工方整改，從而確保整個工程的安裝質量。

5． 在整個施工監理階段共發出的書面文件： ? 監理月報共20份； ? 監理通知單32份 ? 監理備忘錄53份 ? 各類監理評估報告12份。

五． 施工過程中出現的問題及其處理情況和建議

1． 本工程項目是由克瓦納（英國）化工有限公司做項目總承包，原所有的設計任務均委托給上海醫藥設計院，但后又轉給無上海設計資質的天津一家設計院。我監理方悉知后認為這是嚴重的違規行為，立刻向總承包方書面提出要求糾正，但總包未予接受，故我方果斷地以書面形式向建委有關部門反映了以上情況，最后還是得到了糾正。

2． 在施工過程中對于施工方嚴重違反國家及地方有關規范、規程的的規定而可能使施工質量造成嚴重后果的行為，我監理方給予了堅決的制止，整個工程的施工過程中共簽發了各類工程停工通知單、監理通知單、監理備忘錄138份。

3． 因總包和分包間存在竣工資料工作責任不明確，造成在竣工資料無人管及扯皮現象。但我方本著對工程高度負責的精神，主動協調施工各方的分歧，由始至終地指導、幫助他們整理編制竣工資料，做了大量的工作，使竣工驗收最終能得以通過。

六． 結論語

整個施工監理過程中，在業主的支持和幫助下，監理人員依照監理規劃、監理實施細則、監理程序對施工處理控制點進行重點監控，較好地協調了土建和安裝分包單位之間的關系，保證了工程有序地進行。對現場發現的質量問題都及時地以書面形式通知了各單位，落實了這方案。

本項目也存在了一些值得進一步探討的，且在今后的項目實施過程中應引起重視的問題：

1． 選擇分包商（施工單位）對確保工程質量的重要性。2． 怎樣才能使監理工作更有效地開展，從而能使工程質量得到 5 更有效的保證。譬如承包單位統計經專業監理工程師質量驗收合格的工程量，才能按施工合同的約定填報工程量清單和工程款支付申請表。

3． 怎樣有效規范承包商的經營行為，從而有效控制工程進度。

上海市工程設備監理公司

2001年7月

第二篇：羅氏工作分類

羅氏工作分類

1.醫藥信息顧問 職位職責：

1.在公司政策和程序指引下向指定客戶群傳達醫學信息

2.負責區域內外部客戶醫學信息溝通和傳遞，醫學教育活動和培訓 3.定期開展學術會議，向客戶介紹產品在不同適應癥上的優點 4.及時收集、提供市場信息并做出適當建議

5.根據區域銷售情況合理制定預算，并按計劃開展工作 6.與客戶建立良好關系，維持公司形象

7.熟練掌握產品知識，定期參加相關產品知識培訓及學術會議 職位要求：

? 本科及以上學歷，臨床醫學、藥學及醫藥相關專業 ? 具有良好的溝通協調能力和強烈的學習愿望 ? 樂觀積極，懂得自我激勵和壓力轉換 ? 良好的團隊合作精神和自我學習能力 ? 熟練使用MS Office，英語良好 2.銷售助理 職位職責：

1.處理產品組銷售經理的文書工作 2.辦事處日常行政事務 3.銷售數據的輸入和保管

4.辦事處推廣資料及倉庫的管理

5.有責任將獲悉的不良事件在獲悉當日盡快報告給藥品安全部門 職位要求：

? 本科及以上學歷

? 良好的英語書寫及英語口語能力；英語6級及以上優先 ? 具備成功的秘書/助理實習經驗優先

? 具備專業性，團隊合作精神；有強烈的責任感 ? 熟練操作Word, Excel, PPT等應用軟件 3.驍悉專員

職位描述：

1.熱情專業的服務于800熱線

2.完成每月工作匯報報表

3.協助銷售服務管理用戶

4.及時上報不良反應

5.熱愛辦公室內勤工作 職位要求：

? 大專或以上學歷，護理或醫學專業優先

? 具有客戶服務工作經驗的優先

? 熟練運用Excel，Word等MS-office應用軟件 4.產品戰略規劃助理 職位職責：

1.協助主管收集、整理數據，核對各種數據報告所需基礎數據 2.根據主管要求制作PPT 3.協助主管制作產品部門所需報表 4.其他臨時項目的支持 職位要求：

? MBA及以上學歷，醫學、藥學或者市場相關專業背景優先 ? 良好的溝通與組織能力，性格沉穩，團隊合作能力強 ? 良好的英語書寫及英語口語能力

? 熟練操作Word, Excel, PPT等應用軟件 5.銷售績效管理助理 職位職責：

1.協助準備醫生數據收集模板，收集整理數據 2.協助記錄、回答CRM用戶的問題 3.其他跟CRM系統有關工作的支持 職位要求：

? 本科及以上學歷，計算機相關專業背景優先 ? 仔細認真，團隊合作能力強

? 擁有良好的英語書寫及英語口語能力

? 良好的excel, access基礎，具備較強的學習及溝通能力 6.臨床試驗助理

職位職責：

1.根據要求進行研究文件管理 2.追蹤各項工作計劃的實施情況 3.分發并跟蹤臨床進展報告

4.協助組織臨床試驗及各種相關會議 職位要求：

? 臨床醫學及相關專業本科及以上學歷 ? 擁有良好的英語書寫及英語口語能力

? 熟練操作Word, Excel, PPT等辦公應用軟件

? 責任心強，注重細節；良好的人際溝通能力和團隊合作精神 7.數據管理專員

Data Manager 職位職責：

1.協助完成研究中的數據管理工作

2.協助追蹤及維護數據管理信息及數據檢查報告 3.協助完成數據管理研究信息的歸檔 4.協助完成實施及程序提高的確認工作 職位要求：

? 計算機、生命科學、臨床醫學及相關專業，本科及以上學歷 ? 擁有良好的英語書寫及英語口語能力

? 熟練運用計算機應用程序，包括電子數據表、文字處理軟件及數據庫等 ? 擁有良好的溝通與組織能力，團隊合作能力強 8.藥品安全專員

drug safety associate 上海市

職位職責：

1.對相關藥品安全的信息和文件進行維護和管理

2.相關數據的收集，整理及錄入，確保錄入數據的質量和一致性 3.協助主管向相關部門通報產品安全性信息并進行適當交流

職位要求：

? 臨床醫學相關專業，本科以上學歷 ? 較強交流技巧和團隊合作經驗

? 較強的法規意識和領悟力，有較強的工作責任心

? 能自我激勵, 有較強的工作計劃性并合理安排工作時間 9.生物統計師

上海市

職位職責：

1.閱讀相關統計課題報告，撰寫課題總結

2.協助完成協議提供、案例報告表格確認及分析安排等工作 3.進行數據分析模擬探索性實驗 職位要求：

? 統計學及相關專業博士在讀學生

? 熟悉SAS等統計軟件、數據庫及界面操作系統 ? 擁有良好的英語書寫及英語口語能力

? 擁有良好的溝通與組織能力，團隊合作能力強 10.市場部助理 點擊城市申請該職位： 上海市

職位職責：

1． SAP系統操作及維護

2． 協助產品經理開展市場推廣活動，確保市場計劃的順利進行

3． 協助產品經理進行預算控制，準備財務報告，監督并跟進項目的付款 4． 認真有效的貫徹執行公司政策和流程 5． 提供部門必要的行政服務和支持 6． 負責部門文檔的建立及管理 職位要求：

? 本科以上學歷，相關專業背景優先

? 擁有良好的溝通與組織能力，性格沉穩，團隊合作能力強 ? 擁有良好的英語書寫及英語口語能力 ? 熟練操作Word, Excel, PPT等應用軟件

11.數據分析助理 點擊城市申請該職位： 上海市

職位職責：

1.協助收集，整理和分析相關數據 2.核對各種數據報告所需基礎數據 3.協助制作基礎報表 4.其他項目的支持 職位要求：

? 本科以上學歷，相關專業背景優先

? 良好的溝通與組織能力，性格沉穩，團隊合作能力強 ? 良好的英語書寫及英語口語能力

? 良好的excel, access基礎，具備較強的學習能力

第三篇：羅氏面試寶典

在耐心等待了一個星期以后，今天早上在單位上班的我的臨時收到了羅氏的二面通知。（本人這次共寫了三個帖子，從輝瑞到羅氏，從一面到二面，都很詳細，有心的網友可以搜搜我以前的帖子，或是等以后有機會把三個帖子整合重新推出）

這 里先做一些說明，參加羅氏第一次面試的時候是大區經理直接來面試我，當時自己感覺還好（具體面試內容在我以前的帖子），當時說的是兩個星期之內給予回復。到今天為止，才剛剛一個星期的時間就收到了二面通知，感覺很好，但是由于自己還在單位上班，天氣較冷，自己穿了非常隨便而笨重的羽絨服。在電話中我聽到的 時間是早上10點35，但是面試官實際說的是10點15，所以我遲到了，而且不是一般的遲到，足足有20多分鐘。當時我穿著笨重的衣服，遲到，來到了羅 氏。

這次面試我的是羅氏的一個地區主管，我一進去，他非常氣憤，可以看得出他對我遲到的不滿，進去以后簡單說了一下自己遲到的原因，是和他在溝通上出了一些問題。他也很好，直接就讓我開始面試。

首先，還是自我介紹。

簡單的自我介紹以后，他開始提問:(下面列出一些想到的問題)

1.先說說自己的優缺點？

2.對羅氏的理解?

3.對創新的理解？

4.我的人生目標？

5.如果我加入公司，會給自己一個什么樣的定位？

6.你也說了你是一個典型的80后，你是怎樣看待80后的？

7.你在原單位干的好好的，為什么要選擇羅氏？

…………（還問了好多問題，記不起來了）

實際案例分析：

1.把這個紙杯推銷給我（指著桌上隨意的一個紙杯），一般的紙杯只要1元，你這個3元。

2.要是我臨時有事不在，而讓你代我組織一個相關的學術會議，你怎么操作？

3.把一把木梳推銷給一個和尚。

4.把鞋子推銷給非洲一個非常偏遠的村民，它們從來沒見過鞋子。

5.年底你去收款，本來該收10000，而實際上人家只給你3000，怎么辦？

以上時間大概有1個小時左右吧。

最后面試官非常好心的給了我點評：

1.你是一個面試高手，非常優秀，老板推薦的果然沒有錯（這里我分析可能是第一次面試的時候大區經理就非常欣賞我，因此推薦了我）

2.機靈、踏實

3.有一個公司花了100多萬美元買的測試題需要你做一下，這個測試題是老板推薦的人才有資格來做。

4.你今天遲到，也沒穿正裝。

接 下來我就和另外一個來面試的人開始做題，這個人是中國藥科大的研究生，可能也是大區經理推薦的，面試一樣非常精彩。我們就一起做題。題目比較多，有性格測 試、數學、語文等相關題目。面試官說我們兩個人同樣優秀，但職位只有一個，就在我們兩個中間選，我做題做的比較快，做完之后那個研究生還有好多沒做，我交 了卷就先走了。估計這次希望還是很大的，只要測試題不出什么大的問題。

如果大家感興趣，我會隨后把我的回答貼出來。謝謝

第四篇：2007-2008上期班主任總結羅正群

2007-2008學年上學期班主任工作總結

羅

正

群

光陰似箭，日月如梭。轉眼，2007-2008學年上學期的教育教學工作就結束了。在這個學期，最讓我欣慰的是班干部隊伍的漸漸成熟，他們已經能夠管理一部分事情，雖然不如高年級學生那么得心應手，不過比起開學初以來，確實讓我放心了很多。特別是每天的晨掃和午掃，教室和公區的衛生都打掃得干干凈凈，其實這功勞就屬于班里的那些小干部。

這學期，我發覺班級學生問題開始復雜化，思維活躍化。有部分轉過來的學生，行為上不能融入班級。比如打電子游戲，本班有幾個學生迷上了游戲機，成績有下降的趨勢；還有打架現象。簡單的說教已經對他們沒有作用了，學生的交往能力在增加，制造麻煩的幾率也在上升。，矛盾漸漸多了，讓我感到他們確實是在成長。三年級是最為動蕩的一個年級，最容易發生變化，好學生可能就變化成壞孩子，壞孩子也可能漸漸尋求上進。這在我們班級里比較明顯，有些平時比較好的學生，有時成績開始下降，而平時不怎么好的孩子，倒突然就學習也認真，活動也認真，上下的波動比較大。為此，我在學生中間采取的是加強思想教育。

第一，行為規范教育。由于學生的自我約束力差，所以我對行為規范教育是常抓不懈，督促學生在思想上提高認識。平時，對有些學生多講、多提醒，對隨地亂扔、說臟話等不文明行為及時指出，要求改正。結合學校開展的“習慣之星”的評選活動，及時評選出班級的“習慣之星”并進行表彰，樹立學生身邊學習的榜樣，形成“比、學、趕、幫”的良好風氣。一學期來，大部分學生都能自覺遵守行為規范。

第二，學習目的性教育。有的學生基礎差、學習意識差，有的學生甚至厭學，但我還是有意識地對引導學生好好學習。首先加強和科任老師的聯系，了解學生上課情況，對待學習自覺性差的學生，共同教育、幫助；然后安排好的學生與成績差的學生結對子，負責督促、檢查學習任務完成情況。對于特殊群體學生的教育，我主要采取私下談心的方法，這樣學生容易溝通，也容易接受。對他們，我平時多注意，多觀察，只要他們有點滴進步就及時給予鼓勵，讓他們逐步樹立起自信心，不斷爭取積極向上。

第三，集體主義教育。現在的學生自我意識較強，缺乏顧全大局的意識。所以，通過集體主義教育，促進學生互幫互學，增進友誼，大家共同進步，樹立集體意識，并通過參與學校組織的集體活動，如籃球聯賽、大合唱、科技實踐活動等培養學生的集體意識。豐富多彩的活動讓學生品嘗了合作的愉快，享受了成功的快樂，同時大大增進了集體的凝聚力。科技實踐活動還獲得了瀘州市科技創新大賽一等獎。

本學期雖然取得了一些成績，有些學生的學習進步了，有些學生改了一些不良習慣，但仍存在很多的不足。部分學生總是游離于集體之外，什么事情好象都與他無關，每天默默地來，悄悄地去，很少聽到他們說話的聲音，看到他們活動的影子。今后的工作中，還應采取相應措施，努力做到“人人有事干，事事有人干”，把班級工作做好！

2007-2008學年上學期班主任工作總結

朱

紅

今年我擔任三年級（3）班班主任工作，實行素質教育，創建一個良好的班集體，培育學生完整人格，這是班主任肩上責無旁貸的重任。我認為，班主任在有效地進行班級管理的過程中，不能僅靠一個或幾個教師嚴格管理，關鍵是要教育和指導學生學會自我管理，使每個小學生做到既是管理的對象，又是管理的主體，達到“管，是為了不管”的目的。重視人的全面發展，重視學生完整人格培養、個性充分發展，是21世紀教育的重要內容，也是當今世界各國教育現代化的重要目標和共同趨向．為了實現上述目標，本學期我主要從以下幾方面開展工作：

營造良好的班級氣氛：在班級理念上，我積極主張這樣一個理念：積極的人象太陽，照到哪里哪里亮；消極的人象月亮，初一十五不一樣。而且自學生來古藺鎮一小的第一天，我就把這樣一個理念教給了全班學生，這個理念一直貫穿于我治理班級的整個過程中。為了配合這個理念，我自己為班級設計了兩套獨特的掌聲，一套是用來鼓勵自己的，一套是用來鼓勵他人的，通過這些理念和掌聲，激發學生的斗志。一個班級必須要有鐵的紀律，一切行動聽指揮，步調一致才能得勝利。凡是違反紀律的學生一定要受到紀律處分，而且班主任一定要堅守自己的原則，一旦有一次你沒有遵守你自己的原則，那么你將變成一個沒有原則的人。

培養一支高效率的班干部隊伍：培養一支高效率的班干部隊伍使得班主任、班干部及學生三者之間的關系如同傘柄、支架和布，一個再好的傘柄如果沒有支架的支撐是無論如何也撐不起一片天空的．重視人的全面發展，重視學生完整人格培養、個性充分發展，是21世紀教育的重要內容，也是當今世界各國教育現代化的重要目標和共同趨向。

引導小學生自我管理：可以提高他們自我教育的能力。從根本上說，兒童能否受到良好的教育，有內外兩個方面因素的影響。而引導小學生自我管理正是其內部因素發揮積極作用的重要途徑，使學生在更好的環境中接受教育

班主任除了要鍛煉自己的班級管理能力外，還應該善于引導小學生進行自我管理。可以說，班集體教學的順利進行離不開小學生的自我管理。幾十名學生組成的一個班級，光靠班主任、科任教師幾個人的力量，是無法取得較好的管理效果的。引導全班的每一位同學，發揚主人翁精神，個個都成為班集體管理工作的積極參與者，班集體方可能成為健康完整的有機體．一方面，我們要對學生進行生活學習的獨立性教育。我在晨會、少先隊活動中宣傳“自己的事自己做”，并舉行各類小競賽激趣，強化意識。課外，我又主動與家長聯系，使學生獲得更多的培養獨立性的機會，保證了學校、家庭、社會影響的一致性。另一方面，我又愛護學生自我管理的積極性，經常進行成就強化。一般說來，少年兒童的心靈是純潔無暇的，他們樂于遵守紀律，樂于配合教師的工作，也樂于為集體服務。只要教育得法，每個孩子都會成為班級管理的積極參與者。那么究竟該如何調動積極性呢？基本的途徑是給予正面強化。例如我實行了每周兩天的“無批評日”制度，使學生不斷體驗到成功的快樂，鞏固了進行自我管理的意識。

綜上所述，我作為一名小學班主任，主要從認真抓好班級管理工作，充分發揚民主，讓全體學生積極參與管理，千方百計調動他們的積極性和創造性，培養他們獨立自主的精神和自我管理的能力，逐步完成由教師管理向學生管理的過渡，真正扮演了引路人和協調者的角色。

學年上學期教學工作總結

朱 紅

2007學年下學期，本人堅持認真備課、上課、聽課、評課，及時批改作業、講評作業，做好課后輔導工作，廣泛涉獵各種知識，形成比較完整的知識體系，嚴格要求學生，尊重學生，發揚教學民主，使學生學有所得，不斷提高，從而不斷提高自己的教學水平和思想覺悟，并順利完成教育教學任務。下面是本人的教學經驗及教訓。

1、精心備課，上好課，努力提高教學質量。為了上好課，我做了下面的工作：

⑴課前準備：備好課。

①認真鉆研教材，對教材的基本思想、基本概念，每句話、每個字都弄清楚，了解教材的結構，重點與難點，掌握知識的邏輯，能運用自如，知道應補充哪些資料，怎樣才能教好。

②了解學生原有的知識技能的質量，他們的興趣、需要、方法、習慣，學習新知識可能會有哪些困難，采取相應的預防措施。

③考慮教法，解決如何把已掌握的教材傳授給學生，包括如何組織教材、如何安排每節課的活動。

⑵課堂上的情況。

組織好課堂教學，關注全體學生，注意信息反饋，調動學生的有意注意，使其保持相對穩定性，同時，想方設法創設教學情景，激發學生的興趣和情感，使他們產生愉悅的心境，創造良好的課堂氣氛，課堂語言簡潔明了，克服了以前重復的毛病，課堂提問面向全體學生，注意引發學生學語文的興趣，課堂上講練結合，布置好家庭作業，作業少而精，減輕學生的負擔。

2、做好課后輔導工作。三年級學生愛動、好玩，缺乏自控能力，常在學習上不能按時完成作業，有的學生抄襲作業，針對這種問題，我注意抓好學生的思想教育，并使這一工作慣徹到對學生的學習指導中去，做好對學生學習的輔導和幫助工作，尤其在學困生的轉化上，對學困生努力做到從友善開始，比如，握握他的手，摸摸他的頭等。從贊美著手，所有的人都渴望得到別人的理解和尊重，所以，和差生交談時，對他的處境、想法表示深刻的理解和尊重，還有在批評學生之前，先談談自己工作的不足。

3、認真學習新課標要求，勇于從事語文教學的新嘗試，并成功的運用電腦多媒體課件上了一節語文公開課，借以帶動現代語文教學工作的創新。

4、積極參加學校及縣里各級各類的教科研活動，促進自身水平的提高。

為提高自身的業務水平，本學期我積極參加各級各類組織的教研活動。在一小階梯教室聽瀘州實驗小學優秀教師執教的課，收益匪淺。我還積極參加學校組織的各類教研活動，聽課節數達30余節。為提高自身的業務水平，我還經常閱讀一些教學書籍，作記錄，寫感受，收集最新的教學信息，獲得最新的教學理念，以彌補自身的不足。

總之，本學期以來，我盡心盡力做好自己的教學工作，不斷嚴格要求自己，努力汲取他人的長處，不斷更新自己的教學理念，并運用到自己的教學的實踐中，使每一節課都能取得良好的教學效果，使每一位學生都能真正提高自己的語文素養。由于自身的能力有限，教學的經驗的不足，本學期在教學中還存在著不少的問題，主要有：

1、個別學生的不良的學習習慣還有待進一步引導改正。本班學生生性活潑好動，其中有一些學生在習慣方面存在著的問題——寫字習慣很差，寫字姿勢不正確，不能自覺地完成作業，還有個別學生字跡潦草。還有的學生作業不能按時上交。或遇到難題沒有堅強的意志，不會主動克服解決。

2、寫作方面水平差異太大。班中學生的寫作興趣比較濃厚，但優生與差生的差異比較大。導致全班學生的寫作水平發展不夠均衡。在今后的教學中，應該加以克服。

3、教學成果少，學生獲獎也不多。在今后的教學中，還要嚴格要求自己，讓學生多動筆，多投稿，爭取更多的作品獲獎或發表。

新理念下小學語文課堂教學的反思

羅正群

【摘要】：新課程實施已有幾年，在教師角色發生轉變，學生學習方式發生改變，一切以學生為主體的可喜變化下，語文老師的困惑也越來越多，認真反思我們的教學，才能尋找困惑的突破口，使我們的語文教學改革扎扎實實地開展下去，讓教師在反思中成長，讓學生在不斷優化的課堂教學中學好祖國的語言文字。

【關鍵詞】：破與立 生成與預設 教與考 人文性與工具性 問與灌 熱鬧與實效 務虛與務實 多媒體與教材

轟轟烈烈的新課改進行到現在已經進入第六個年頭了，其間在更新教育理念、改善師生關系等方面產生了可喜的變化，但毋庸諱言，新課改中也出現很多問題和困難，需要我們認真反思和面對。

常聽到語文老師的抱怨：語文課太少了，課都上不完，總覺得時間不夠。為什么很多老師有這樣的感慨？與舊教學大綱相比，各年級語文課只比原來減少了一課時。我們的陣地是課堂，我們的新課程的改革不落實在課堂上就難以繼續深入下去。回憶幾年來的小學語文，有些矛盾不能不引起我們的高度重視。

一、破與立

新課程出現伊始，即大張旗鼓、旗幟鮮明地宣稱要打破一切束縛教學效益的錯誤做法，以樹立新觀念、新方法、新理念。誠然，自古以來，立都在破之上，有破才有立，有立才能破。但是實施過程中出現了過激行為，導致了無限制地破：先前的扎實的語言文字訓練被忽視，取而代之的是泛泛而談，漫無邊際的空洞教學，且美其名曰發展學生自主性；先前適量的家庭作業被取消；堂而皇之地說要減輕學生課業負擔，讓學生個性得以張揚。先前的讓學生獨立思考，在疑惑處點撥的教學方法也不再推崇，原因是這樣的課堂太死板，沒什么“看頭”，取而代之的是課堂上熱熱鬧鬧，發言踴躍，答案繁繁種種，評價含含糊糊，下課后學生腦子里干干凈凈，一無所獲。看來我們要在破與立之間找一個黃金分割點：即破立的程度。筆者認為，一切有礙于新課程實施的陳舊教學方法當然要打破，但已經被實踐證明的，卓有成效的教學方法不但不能破，而且還應站在有利于新課程實施的高度加以鞏固、改進。拿著漁網到處打魚，但抓到的魚兒絕不能放掉，不然捕魚就失去了存在的意義，變成了消遣。我們的教學工作絕不是消遣，而是要促進人的不斷發展、充實。

二、生成與預設

傳統教學中，課堂教學的確是教師備課的復制品，即教師預設教學內容、預設教學程序，有經念的教師還可以預設教學效果：即有明顯的課堂教學指向性和目的性。但這種教學方式也遭否定，不少專家、教師認為課堂是生成的：即要根據課堂上的變數來確定教學策略。就課堂是生成的，筆者無異議，因為這也符合辯證唯物主義觀念。但一味強調課堂是生成的，則會使教師在教學中無所適從，比如語文課《黃河象》，如果學生一味追問化石種類及其他問題，難道教師就丟開文章對化石描寫方法而不顧，對引導學生怎樣進行合理的教學目的而不顧，而將《黃河象》上成一節自然課，筆者不敢茍同。又如教學《桃花心木》如果學生一味糾纏在桃花心木的用途、種植方法上，難道教師就丟開本文重點以物喻人的寫作方法而不顧，將此課上成農技課。如果這種變數主宰了我們的課堂。那么新課程標準如何得以體現。看來要妥善處理好課堂教學的生成與預設這兩個問題，不然教師上課極易腳踩西瓜皮——滑到哪里是哪里。筆者認為就課堂教學而言，生成是客觀存在的，且預設在前，生成在后，生成會影響預設。故預設時 應考慮到生成，要讓生成為預設服務。這樣，我們的教學法才不會偏離航道，而讓生成成為東風，使教學之船方向更正，速度更快。

三、教與考

很多老師在實施課程后抱怨：教學成績下滑了。究其原因，是原先的考較好地結合了教的內容。而如今的考似乎與教脫節：表現在教師以優秀文本為載體的教學內容在考卷上體現甚微。難怪教師坦言：我們教的東西不考，考的東西我們又確實沒教。最終導致教師丟開文本去押題、猜題、賭題。沒辦法，不管新課程如何誘人，家長看重的還是學生的成績，作為一個語文老師認為，如果考不能適應教，則反過來會對教起消極作用。如果考不能忠實反映教的結果，考也就在于失去了其價值。那么是不是教什么就考什么，考什么就教什么呢？顯然不是。但至少要在教與考之間尋找一個支點，使教與考平衡。這就要求我們的考歸要到底要為教服務，而不應成教的阻力，可喜的是，我們的教研工作者已經意識到這一點，表現在閱讀題由原先的均為課外閱讀改為由一個課內閱讀為平臺，再拓展一個課外閱讀。這就使考與教有了延續性。要將這一命題思路更加具體化，使教師的教更有針對性，學生的學也更有信心。讓學生成績上去，擁有成就感，對實施新課程有利無弊

四、人文性與工具性。

一直以來，我們認為語文人文性與工具性的統一，然而教師們比較重視人文精神的培養，弱化了工具性。有些教師在教學中還不夠重視文本的解讀和基本知識的理解、掌握，不注重語文基本能力的培養，對課文內容匆匆帶過，字詞難點都沒理解清楚，就跨過課文做了許多引申和發揮，把目光聚焦于“情感態度與價值觀”的光環上。作為一個語文老師很有些擔心，這樣長期下去，我們的語文教學將走向另一種悲哀——從小學到初中，學生基本的語言問題都不能過關。

五、滿堂問與滿堂灌。

在課改實驗中，那種以教師為中心的“滿堂灌”式的課堂教學現象已不復存在，但是一種典型的“滿堂問”式的教學產生了。在這種“滿堂問”的支配下，教師在課堂上連續提問，或是非問，或填空問，或自問自答，有時甚至一問追著一問。牽著學生鼻子走。學生則習慣性地舉手，倉促地回答問題，或置之不理，保持沉默。“滿堂問”的教學，其實質是以教師為中心，教師預設好結論，然后千方百計引導學生猜測，并以預先設計好的答案為最終目標，以此鎖定學生的思維。這種“滿堂問”的教學方式，其實仍然是一方強引灌輸，一方消極接受的方式，與新課程 中閱讀對話的理念是背道而馳的。課堂提問的最終目的是激發學生思考的積極性，使學生養成善于思考的良好習慣，從而提高學生的思維品質。但是我們的提問不要太碎太雜。為此，教師設計問題時要找準切入點。這個切入點，對課文而言，覆蓋全文，具有“牽一發而動全篇”之效；對學生而言，這一點能開啟學生的心智，激活學生的思維，引發學生進行深層的多向的思考與探析。對于文本而言，要是涵蓋文章整體的主問題，如《秋天的雨》中“秋天的雨使大自然的景物發生了怎樣的變化？”這包括“秋天是一把金鑰匙、秋天是一盒五彩繽紛的顏料等等”，這樣的問題既立足于文本，又關照了學生，學生順著這一問既能深入了解課文的主旨，又能引發自身的探索意識，對文本進行深入探討。一堂課有這么一兩問就足夠了。這樣一來，課堂上不再是煩瑣提問的干擾，而是一種多元的、充滿生氣的交往對話。

六、課堂的熱鬧與實效。

新課標給語文教學帶來了新鮮的活力。課堂上，教師不必拘泥于“教參”上的標準答案，也不必受考試內容的拘束，手腳一放開，自然就有了一份瀟灑，課堂形式也隨之多樣起來——演講、小品表演、辯論會……層出不窮的授課方式，讓語文生機盎然。然而，熱鬧的課堂是否就等于豐碩收獲？我們在參加語文教學交流的活動時，常看見教師們花費大量精力來設計活動，課堂上師生之間熱熱鬧鬧，但是課文被擱置一邊，一堂課下來，只見活動的熱鬧，不見文本的有效闡發、挖掘和共鳴。而且，課堂上教師的隨機點撥欠缺，不能有效引導學生的思維方向，結果，這樣的課堂只是讓人感覺“熱鬧得空洞”。一篇課文究竟應該怎么上，什么方法最好，什么形式行之有效，我們很難有個標準去加以衡量。然而，就語文教學來說，立足文本卻是不容忽視的一個前提。就文本與活動的關系而言，文本是主干，活動是枝葉，活動是為文本服務的。如果在備課和上課時只是專注于活動，一味花力氣在活動中創新出花樣，脫離、偏離、忽略了文本，無異本末倒置。語文學習多樣的形式固然重要，然而，用心、仔細地閱讀卻是語文學習獲益的根本所在。一篇課文，能夠讀進去，讀明白，才談得上獨特的感受和體會。引導學生讀進課文，挖掘文本中豐富、深厚的資源，在此基礎上，再輔以各種有效的活動，讓學生發散思維，是我們當前使用新課標中必須認真對待的問題。

七、務虛與務實。

許多教師為了激活學生學習的興奮點，采用了新穎、靈活的教學手段，并取得了一定的效果。但也存在一定的問題。比如課堂上小組討論。這種教學方式的優越性自不用說，但是在教學實踐中也出現了形式上的傾向。最明顯的表現是：教師提出問題，然后一聲下令：“討論！”學生就分組圍成了一團，學生的討論聲響成一片，課堂氣氛非常熱烈。幾分鐘后，教師一聲令下：“停止討論！”于是學生的討論聲戛然而止。結果展示討論成果的往往是幾個優等生，大部分只是在那里作“看客”，不能真正起到討論的作用。新課程理念為什么提倡將討論引進課堂？原因之一就是因為討論是提高學生積極性、自主性的一個重要途徑。只要學生討論了，“參與教學”的基本目標 就沒有架空。只要學生“有效討論”了，這節課的教學才真正具有意義。什么叫“有效討論”？首先它得有一個適當的主題，其次，討論得有一個大致完善的過程。任何一個過程的完結都是需要時間的，對于一次討論，到底需要多少時間？沒有固定的指標。但是，一節課的討論時間不夠肯定是行不通的。討論是不是教育資源？我以為是。是誰的資源？既是學生的資源，也是教師的資源。對于學生而言，他們可以在同伴的幫助下，激起學習的興趣，受到不同的啟發與教育，從不同的角度充分理解教師對課程的講授。對于教師而言，可以從學生的討論里發現新的問題，完善自己對學生的引導。顯然這是一種生成性資源，一種不可再生的一次性生成資源。所以教師必須走下講臺參與學生的討論，去傾聽學生的發言。所以真正的討論，應該是教師提出問題后，給學生以充分的思考時間，同時也要參與其中。

八、多媒體與教材。

運用多媒體教學，在直觀化、形象化方面絕非傳統教學手段所能比。它所營造的由形象、色彩、聲音動畫等構成的綜合氛圍，使學生“身臨其境”，從而大大激發了學生的學習興趣。因此，不少教師喜歡借助多媒體進行教學。然而，大量教學實踐表明，音像手段運用于語文課堂，如果控制不當就會成為干擾因素。例如，教學有關名山大川、花木鳥獸的課文，教師不惜花費大量時間精力，制作、放映相關的多媒體課件。這些課件雖然讓人耳目一新，一時帶給學生強烈的視聽沖擊，引起多感官的興奮刺激，但其占用的課堂時間，遠遠超過學生對文本解讀或動思動筆的時間。為什么學生看得津津有味，聽得如癡如醉，甚至于眉飛色舞，喜形于色，但過后卻猶如過眼云煙，對課文內容一知半解？主要原因在于：多媒體迷住了學生讀書的眼。語文課是語文實踐課，這個本質特征要求一切教學手段都必須以語文活動為主體，以語言媒介為中心，學生只能通過語言文學才會理解、體悟、想象。所以借用任何直觀形象的教學手段，最后還都必須落實到課文的語言文字上去。所以，教師務必及時憑借畫面的內容，引導學生進行對比性的語言文字的“回放”和“還原”——回歸文本，探究作者是運用哪些語言材料和藝術手法，來塑造人物或描繪景物的。

語文課程改革不能為了“立”而求新求異，不能借改革之名回避傳統和實際，甚至避開規律，當然更不能矯枉過正。處理好課改中的諸多問題，會有利于新課程的健康邁進。

任何事物的發展都應適可而止，矯枉適度。過則不必也不利。這句話同樣適應我們當前的課改工作。

第五篇：VB常見問題總結

快捷域名：http://yujimyfavorcn.programfan.com 創建于：2005-6-5 共 6篇文章 訪問統計：169

VB常見問題總結

點擊數：138 發布日期：2005-6-5 18:28:00 【字體：大 中 小】【評論】【打印】

各位朋友大家好，如果你在這里的時間夠長，那么你會發現很多帖子的問題是相同的，既然這樣，不如總結到一起讓初學者來翻看，再熱心的大蝦也不愿意把一個答案重復幾十遍：）Ryowu制作匆忙，難免錯漏，還請見諒。

若朋友您想要問如何才能學好vb，或者入門需要看什么教材一類的問題，建議你抱著一顆刻苦鉆研的心去面對這門學問，多動腦，少提問，遇到不知道的，多查msdn，多看老貼，或者用斷點來親自試驗。實在不會了，請在此貼中查找您的常見問題，如果還沒有，那請您發出新貼，向各位高手討教：）

查找方法：按ctrl+f，輸入要查找的問題關鍵字即可

注明：本貼源于VB編程樂園網站，本人只是稍微編輯了一下。

每個問題中間用///分隔，這只是一部分最常見到的問題，以后會逐漸更新。

//////////////////////////////////////////////////////////////////////////////////// 如何用VB建立快捷方式

Private Declare Function fCreateShellLink Lib “STKIT432.DLL”(ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String)As Long Sub Command1_Click()Dim lReturn As Long '添加到桌面

lReturn = fCreateShellLink(“....Desktop”, “Shortcut to Calculator”, “c:windowscalc.exe”, “")'添加到程序組

lReturn = fCreateShellLink(”“, ”Shortcut to Calculator“, ”c:windowscalc.exe“, ”“)'添加到啟動組

lReturn = fCreateShellLink(”Startup“, ”Shortcut to Calculator“, ”c:windowscalc.exe“, ”“)End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何讓程序在 Windows 啟動時自動執行？

有以下二個方法：

方法1: 直接將快捷方式放到啟動群組中。

方法2: 在注冊檔 HKEY_LOCAL_MACHINE 中找到以下機碼 SoftwareMicrosoftWindowsCurrentVersionRun 新增一個字串值，包括二個部份

1.名稱部份：自己取名，可設定為 AP 名稱。

2.資料部份：則是包含 '全路徑檔案名稱' 及 '執行參數' 例如：

Value Name = Notepad Value Data = c:windowsnotepad.exe

//////////////////////////////////////////////////////////////////////////////////// 在 TextBox 中如何限制只能輸入數字？

參考下列程序：

Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub

//////////////////////////////////////////////////////////////////////////////////// 我希望 TextBox 中能不接受某些特定字符，例如 '@#$%”，有沒有簡單一點的寫法？

方法有好幾種, 以下列舉二種：

方法1: 可以使用 IF 或 Select Case 一個個判斷, 但如果不接受的字符多時, 較麻煩!方法2: 將要剔除的字符統統放在一個字串中，只要一個 IF 判斷即可！如下： Private Sub Text1_KeyPress(KeyAscii As Integer)Dim sTemplate As String sTemplate = “!@#$%^&*()_+-=” '用來存放不接受的字符 If InStr(1, sTemplate, Chr(KeyAscii))> 0 Then KeyAscii = 0 End If End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何讓鼠標進入 TextBox 時自動選定 TextBox 中之整串文字？

這個自動選定反白整串文字的動作，會使得輸入的資料完全取代之前在 TextBox 中的所有字符。

Private Sub Text1_GotFocus()Text1.SelStart = 0 Text1.SelLength = Len(Text1)End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何檢查軟盤驅動器里是否有軟盤？

使用：

Dim Flag As Boolean

Flag = Fun_FloppyDrive(“A:”)If Flag = False Then MsgBox “A:驅沒有準備好，請將磁盤插入驅動器！”, vbCritical

' '函數:檢查軟驅中是否有盤的存在 ' Private Function Fun_FloppyDrive(sDrive As String)As Boolean On Error Resume Next Fun_FloppyDrive = Dir(sDrive)<> “" End Function

//////////////////////////////////////////////////////////////////////////////////// 如何彈出和關閉光驅托盤？

Option Explicit

Private Declare Function mciSendString Lib ”winmm.dll“ Alias ”mciSendStringA“(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long)As Long

Private Sub Command1_Click()mciExecute ”set cdaudio door open“ '彈出光驅 Label2.Caption = ”彈 出“ End Sub

Private Sub Command2_Click()Label2.Caption = ”關 閉“

mciExecute ”set cdaudio door closed“ '合上光驅 Unload Me End End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何讓你的程序在任務列表隱藏

Private Declare Function RegisterServiceProcess Lib ”kernel32“(ByVal ProcessID As Long, ByVal ServiceFlags As Long)As Long Private Declare Function GetCurrentProcessId Lib ”kernel32“()As Long

'請你試試 Ctrl+Alt+Del 是不是你的程序隱藏了 Private Sub Command1_Click()i = RegisterServiceProcess(GetCurrentProcessId, 1)End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何用程序控制滑鼠游標(Mouse Cursor)到指定位置？

以下這個例子，當 User 在 Text1 中按下 'Enter' 鍵后，滑鼠游標會自動移到 Command2 按鈕上方

請在聲明區中加入以下聲明：

'16 位版本：(Sub 無傳回值)Declare Sub SetCursorPos Lib ”User“(ByVal X As Integer, ByVal Y As Integer)

'32 位版本：(Function 有傳回值，Integer 改成 Long)Declare Function SetCursorPos Lib ”user32“(ByVal x As Long, ByVal y As Long)As Long

'在 Form1 中加入以下程序碼：

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then x% =(Form1.Left + Command2.Left + Command2.Width / 2 + 60)/ Screen.TwipsPerPixelX y% =(Form1.Top + Command2.Top + Command2.Height / 2 + 360)/ Screen.TwipsPerPixelY SetCursorPos x%, y% End If End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何用鼠標移動沒有標題的 Form，或移動 Form 中的控制項？

在聲明區中放入以下聲明：

'16 位版本：(Sub 無返回值)Private Declare Sub ReleaseCapture Lib ”User“()Private Declare Sub SendMessage Lib ”User“(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Long)

'32 位版本：(Function 有返回值，Integer 改成 Long)Private Declare Function ReleaseCapture Lib ”user32“()As Long Private Declare Function SendMessage Lib ”user32“ Alias ”SendMessageA“(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)As Long

'共用常數：

Const WM_SYSCOMMAND = &H112 Const SC_MOVE = &HF012

'若要移動 Form，程序碼如下：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim i As Long i = ReleaseCapture i = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0)End Sub

'以上功能也適用于用鼠標在 Form 中移動控制項，程序碼如下：

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim i As Long i = ReleaseCapture i = SendMessage(Command1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0)End Sub

//////////////////////////////////////////////////////////////////////////////////// 檢查文件是否存在？

Function FileExists(filename As String)As Integer Dim i As Integer On Error Resume Next i = Len(Dir$(filename))If Err Or i = 0 Then FileExists = False Else FileExists = True End Function

//////////////////////////////////////////////////////////////////////////////////// 如何設置對VB數據庫連接的動態路徑

我個人因為經常作一些數據庫方面的程序，對于程序間如何與數據庫進行接口的問題之煩是深有體會，因為VB在數據庫鏈接的時候，一般是靜態，即數據庫存放的路徑是固定的，如用VB的DATA，adodc,DataEnvironment 等到作數據庫鏈接時，如果存放數據庫的路徑被改變的話，就會找不到路經，真是一個特別煩的事。

筆者的解決方法是利用app.path 來解決這個問題。

一、用data控件進行數據庫鏈接，可以這樣： 在form_load()過程中放入： private form_load()Dim str As String '定義 str = App.Path If Right(str, 1)<> ”“ Then str = str + ”“ End If data1.databasename=str & ”數據庫名“ data1.recordsource=”數據表名“ data1.refresh sub end 這幾句話的意為，打開當前程序運行的目錄下的數據庫。你只要保證你的數據庫在你程序所在的目錄之下就行了。

二、利用adodc（ADO Data Control)進行數據庫鏈接： private form_load()Dim str As String '定義 str = App.Path If Right(str, 1)<> ”“ Then str = str + ”“ End If str = ”Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=“ & str & ”tsl.mdb“ Adodc1.ConnectionString = str Adodc1.CommandType = adCmdText

Adodc1.RecordSource = ”select * from table3“ Adodc1.Refresh end sub

三、利用DataEnvironment進行數據庫鏈接 可在過程中放入： On Error Resume Next

If DataEnvironment1.rsCommand1.State <> adStateClosed Then DataEnvironment1.rsCommand1.Close '如果打開，則關閉 End If 'i = InputBox(”請輸入友人編號:“, ”輸入“)'If i = ”“ Then Exit Sub

DataEnvironment1.Connection1.Open App.Path & ”userdatabasetsl.mdb“ DataEnvironment1.rsCommand1.Open ”select * from table3 where 編號='“ & i & ”'“ 'Set DataReport2.DataSource = DataEnvironment1 'DataReport2.DataMember = ”command1“ 'DataReport2.show end sub

四、利用ADO(ActiveX Data Objects)進行編程： 建立連接：

dim conn as new adodb.connection dim rs as new adodb.recordset dim str str = App.Path If Right(str, 1)<> ”“ Then str = str + ”“ End If str = ”Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=“ & str & ”tsl.mdb“ conn.open str rs.cursorlocation=aduseclient rs.open ”數據表名“,conn,adopenkeyset.adlockpessimistic 用完之后關閉數據庫： conn.close set conn=nothing

//////////////////////////////////////////////////////////////////////////////////// 如何讓用戶自行輸入方程式，并計算其結果？

假設我們要讓使用者在“方程式”欄位中自由輸入方程式，然后利用方程式進行計算，則引用ScriptControl控件可以很方便地做到。

(ScriptControl 控件附屬于VB 6.0，如果安裝后沒有看到此一控件，可在光盤的

CommonToolsVBScript 目錄底下找此一控件，其.文件名為Msscript.ocx。)假設放在窗體上的ScriptControl控件名稱為ScriptControl1，則在“計算”按鈕的Click事件中編寫如下代碼： Dim Statement As String Statement = ”X=“ + Text1.Text + vbCrLf + _ ”Y=“ + Text2.Text + vbCrLf + _ ”MsgBox “"計算結果=”“ & Y ” ScriptControl1.ExecuteStatement(Statement

//////////////////////////////////////////////////////////////////////////////////// 如何讓一個 App 永遠保持在最上層(Always on Top)

請在聲明區中加入以下聲明

Private Declare Function SetWindowPos Lib “user32”(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)As Long

Const SWP_NOMOVE = &H2 '不更動目前視窗位置 Const SWP_NOSIZE = &H1 '不更動目前視窗大小 Const HWND_TOPMOST =-1 '設定為最上層

Const HWND_NOTOPMOST =-2 '取消最上層設定 Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

'將 APP 視窗設定成永遠保持在最上層

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS

'取消最上層設定

SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS

//////////////////////////////////////////////////////////////////////////////////// 我要如何在程序中開啟網頁？

在聲明區中聲明如下(在.bas 檔中用 Public, 在 Form 中用 Private)

Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA”(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)As Long

在程序中

Intranet：

ShellExecute Me.hWnd, “open”, “http://Intranet主機/目錄”, “", ”“, 5 Internet：

ShellExecute Me.hWnd, ”open“, ”http://www.tmdps.cn.tw“, ”“, ”“, 5

//////////////////////////////////////////////////////////////////////////////////// VB可以產生四角形以外其他形狀的 Form 嗎？

這個問題，您一定無法想像有多容易，您可以產生任何形狀的 Form，但必須借助 CreateEllipticRgn 及 SetWindowRgn 二個 API，例如：

Private Declare Function CreateEllipticRgn Lib ”gdi32“(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long)As Long

Private Declare Function SetWindowRgn Lib ”user32“(ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean)As Long

Private Sub Form_Load()Dim lReturn As Long Me.Show lReturn = SetWindowRgn(hWnd, CreateEllipticRgn(10, 10, 340, 150), True)End Sub

執行結果圖片

CreateEllipticRgn 之四個參數說明如下：

X1：橢圓中心點之X軸位置，但以 Form 的實№邊界為限。Y1：橢圓中心點之Y軸位置，但以 Form 的實№邊界為限。X2：橢圓長邊的長度 Y2：橢圓短邊的長度的

//////////////////////////////////////////////////////////////////////////////////// 如何移除 Form 右上方之『X』按鈕？

其實 Form 右上方之三個按鈕分別對應到 Form 左上方控制盒(ControlBox)中的幾個選項(縮到最小 / 放到最大 / 關閉)，而其中的最大化(MaxButton)及最小化(Minbutton)都可以直接在 Form 的屬性中設定，但是 VB 并沒有提供設定『X』按鈕的功能！要達到這個功能，必須借助 API：

由于『X』按鈕對應到 ControlBox 的關閉選項，所以我們只要移除系統 Menu(就是ControlBox)的關閉選項即可！您自己可以先看看您現在使用的 Browser 左上方的系統 Menu，【關閉】選項是在第幾個，不是第 6 個！是第 7 個，分隔線也算一個！分隔線才是第 6 個！

當我們移除了關閉選項之後，會留下一條很奇怪的分隔線，所以最好連分隔線也一并移除。而 Menu 的 Index 是從 0 開始，分隔線是第 6 個，所以 Index = 5。

修正：為了讓程序碼在 Windows NT 也能運作正常，將各 Integer 型態改成 Long。89.05.04

'抓取系統 Menu 的 hwnd Private Declare Function GetSystemMenu Lib ”user32“ Alias ”GetSystemMenu“(ByVal hwnd As Long, ByVal bRevert As Long)As Long '移除系統 Menu 的 API Private Declare Function RemoveMenu Lib ”user32“ Alias ”RemoveMenu“(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long)As Long '第一個參數是系統 Menu 的 hwnd '第二個參數是要移除選項的 Index

//////////////////////////////////////////////////////////////////////////////////// 如何制作透明的表單(Form)？

請在聲明區中放入以下聲明

Const GWL_EXSTYLE =(-20)Const WS_EX_TRANSPARENT = &H20& Const SWP_FRAMECHANGED = &H20 Const SWP_NOMOVE = &H2 Const SWP_NOSIZE = &H1 Const SWP_SHOWME = SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Const HWND_NOTOPMOST =-2

Private Declare Function SetWindowLong Lib ”user32“ Alias ”SetWindowLongA“(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)As Long Private Declare Function SetWindowPos Lib ”user32“(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)As Long

在 Form_Load 使用的范例如下：

Private Sub Form_Load()SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT

SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME Me.Refresh End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何在 Menu 中加入美美的圖案？

在模組中加入以下程序碼：

Declare Function GetMenu Lib ”user32“(ByVal hwnd As Long)As Long

Declare Function GetSubMenu Lib ”user32“(ByVal hMenu As Long, ByVal nPos As Long)As Long

Declare Function GetMenuItemID Lib ”user32“(ByVal hMenu As Long, ByVal nPos As Long)As Long

Declare Function SetMenuItemBitmaps Lib ”user32“(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long)As Long

Public Const MF_BITMAP = &H4&

Type MENUITEMINFO cbSize As Long fMask As Long fType As Long fState As Long wID As Long hSubMenu As Long hbmpChecked As Long hbmpUnchecked As Long dwItemData As Long dwTypeData As String cch As Long End Type

Declare Function GetMenuItemCount Lib ”user32“(ByVal hMenu As Long)As Long

Declare Function GetMenuItemInfo Lib ”user32“ Alias ”GetMenuItemInfoA“(ByVal hMenu As Long, ByVal un As Long, _ ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO)As Boolean

Public Const MIIM_ID = &H2 Public Const MIIM_TYPE = &H10 Public Const MFT_STRING = &H0&

在 Form 中加入一個 PictureBox，屬性設定為： AutoSize = True Picture =.bmp(尺寸大小為 13x13，不可設定為.ico)

在 Form_Load 中的程序碼如下：

Private Sub Form_Load()'取得程序中 Mennu 的 handle hMenu& = GetMenu(Form1.hWnd)'取得第一個 submenu 的 handle hSubMenu& = GetSubMenu(hMenu&, 0)'取得 Submenu 第一個選項的 menuId hID& = GetMenuItemID(hSubMenu&, 0)'加入圖片

SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1.Picture, Picture1.Picture '在一個 Menu 選項中您一共可以加入二張圖片 '一張是 checked 狀態用，一張是 unchecked 狀態用 End Sub

89、如何把小圖片填滿 Form 成為背景圖？

對于這個問題，我看過很多方法，有的方法很麻煩，要聲明一大堆 Type，用一大堆的 API，但是有一個最笨但我認為最好的方法如下：(就好像拼磁磚一樣，不用任何 API, 不必聲明任何 Type)

在 Form 中放一個 PictureBox，Picture 屬性設定為某一張小圖，AutoSize 屬性性設定 True，完成的模組如下：

Sub PictureTile(Frm As Form, Pic As PictureBox)Dim i As Integer Dim t As Integer Frm.AutoRedraw = True Pic.BorderStyle = 0 For t = 0 To Frm.Height Step Pic.ScaleHeight For i = 0 To Frm.Width Step Pic.ScaleWidth Frm.PaintPicture Pic.Picture, i, t Next i Next t End Sub

PictureTile 這個模組共有二個參數，第一個是表單名稱，第二個則是 PictureBox 的名稱。以下為一應用實例：

Private Sub Form_Load()PictureTile Me, Picture1 End Sub

90、如何把小圖片填滿 MDIForm 成為背景圖？

以下這個范例，要：

1、一個 MDIForm：不必設定任何屬性。

2、一個 Form1：不一定是 MDIChild，最好 MDIChild 為 False，但是 AutoRedraw 設成 True。

3、Form1 上面放一個隱藏的 PictureBox：名稱為 Picture1，不必設定 Picture 屬性。

4、一張圖片的完整路徑。

'將以下模組放入 MDIForm 的聲明區中：

Sub TileMDIBkgd(MDIForm As Form, bkgdtiler As Form, bkgdfile As String)If bkgdfile = ”“ Then Exit Sub Dim ScWidth%, ScHeight% ScWidth% = Screen.Width / Screen.TwipsPerPixelX ScHeight% = Screen.Height / Screen.TwipsPerPixelY Load bkgdtiler bkgdtiler.Height = Screen.Height bkgdtiler.Width = Screen.Width bkgdtiler.ScaleMode = 3 bkgdtiler!Picture1.Top = 0 bkgdtiler!Picture1.Left = 0 bkgdtiler!Picture1.Picture = LoadPicture(bkgdfile)bkgdtiler!Picture1.ScaleMode = 3

For n% = 0 To ScHeight% Step bkgdtiler!Picture1.ScaleHeight For o% = 0 To ScWidth% Step bkgdtiler!Picture1.ScaleWidth bkgdtiler.PaintPicture bkgdtiler!Picture1.Picture, o%, n% Next o% Next n%

MDIForm.Picture = bkgdtiler.Image Unload bkgdtiler End Sub

以下為一應用實例：

Private Sub MDIForm_Load()TileMDIBkgd Me, Form1, ”c:windowsTiles.bmp“ End Sub

//////////////////////////////////////////////////////////////////////////////////// 關閉指定的程序

要做到像 Task Manager 一樣，可以關閉指定的程序，方法如下：

在聲明區中放入以下聲明：(16位 改成 win31 API)

Declare Function FindWindow Lib ”user32“ Alias ”FindWindowA“(ByVal lpClassName As String, ByVal lpWindowName As String)As Long

Declare Function PostMessage Lib ”user32“ Alias ”PostMessageA“(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)As Long

Public Const WM_CLOSE = &H10

以下之范例示范如何關閉一個視窗標題(Caption)為 【小算盤】的程序：

Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, ”小算盤“)Debug.Print winHwnd If winHwnd <> 0 Then RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)If RetVal = 0 Then

MsgBox ”Error posting message.“ End If Else MsgBox ”并未開啟小算盤程序.“ End If

//////////////////////////////////////////////////////////////////////////////////// 如何隱藏及再顯示鼠標

很簡單，只用到了一個 ShowCursor API，參數也很簡單，只有一個 bShow，設定值如下：

True：顯示鼠標 / False：隱藏鼠標

Declare Function ShowCursor Lib ”user32“ Alias ”ShowCursor“(ByVal bShow As Long)As Long

//////////////////////////////////////////////////////////////////////////////////// 如何從您的應程序中結束 Windows 重開機？

很多軟件在 Setup 完之后都會自動關機重開機，以便讓某些設定值可以生效，其實這個功能很簡單，只要幾行指令就可以做到了！

關鍵就是要使用 ExitWindowsEx 這個 API，這個 API 只有二個參數，第一個參數是一個 Flag，目的是要告訴 Windows 要以什么方式關機，在下面的聲明中會列出可用的 Flag 常數值，至于第二個參數則是一個保留值，只要設定成 0 就可以了。

很重要的一點是：如果您想要讓關機動作更順利，記得要 Unload 您的程序！

'在聲明區中(Bas Module / Form Module)加入以下聲明：

Public Const EWX_LOGOFF = 0 '這四個常數值可以并用 Public Const EWX_SHUTDOWN = 1 Public Const EWX_REBOOT = 2 Public Const EWX_FORCE = 4 Declare Function ExitWindowsEx Lib ”user32“ Alias ”ExitWindowsEx“(ByVal uFlags As Long, ByVal dwReserved As Long)As Long

'實例：如果您想強迫關機重開機，程序碼如下：

ret = ExitWindowsEx(EWX_FORCE OR EWX_REBOOT, 0)

//////////////////////////////////////////////////////////////////////////////////// 如何用 VB 啟動其他程序或開啟各類文件？

要在 VB 中啟動其他程序或開啟各類文件，最簡單的方法就是使用 Shell 函數，例如：要開啟 C:Test.txt 這個文字文件，則要啟動記事本來開啟這個文件案，程序如下：

Dim RetVal As Long RetVal = Shell(”C:WindowsNotepad.exe C:Test.txt“, 3)'3代表視窗會最大化，并具有駐點，細節請查 Help

以上的語法雖然很簡單，但有一個風險，若是我們不知道開啟文件的執行文件位置，則程序便會有錯誤產生，尤其一般軟件在安裝的時候都可以讓使用者自行選擇安裝目錄，所以執行文件的路徑不能寫死在程序中，要解決這個問題，就是在注冊文件中找到該副文件名之啟動程序位置，再放入 Shell 中。

但是以上的作法必須熟悉注冊文件，而且必須使用 Windows API 來 Call(注冊文件的存取以后會有專文來說明)，如果您對注冊文件的存取及 API 的使用都很純熟的話，當然沒問題，但是有些人對于注冊文件會有畏懼，這時候，您可以使用下面的方法：

Shell(”Start C:Test.txt“)

您完全不用知道這份文件的啟動程序是什么？它放在什么地方？參數 Start 便會自動依照附文件名到注冊文件中找到啟動程序來開啟該份文件案！不賴吧！

注一：在 Windows 95/98/NT平臺中, 什么副文件名之文件案, 該由什么執行文件來啟動, 都設在關聯中，代碼為 HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExtensions

例如: 名稱為 ”.DOC“ 之資料為 ”C:Progra~1Micros~2OfficeWINWORD.EXE ^.DOC“

名稱為 ”.TXT“ 之資料為 ”notepad.exe ^.txt“

注二：使用 Start 之唯一缺點為 ”會比直接指定執行文件稍為慢 0.5-1 秒鐘.“

//////////////////////////////////////////////////////////////////////////////////// 如何找出 Windows 目錄的正確路徑？

有時候我們在程序中必須用到 Windows 的目錄，以存取 Windows 目錄下的文件，照理說，這應該是最簡單的功能，前提是每個人在 Setup Windows 必須采用 Windows 的預設目錄名稱，也就是 C:Windows，但是常常不是這樣，有時候由於要使新舊版本共存，或者其他原因，有人會將 Windows 目錄改成 c:win95、c:win98、Windows95 或 Windows98......若是程序中必須用到 Windows 目錄，要找到正確的路徑，做法如下：

'在聲明區中加入以下聲明：

Const MAX_PATH = 260

Private Declare Function GetWindowsDirectory Lib ”kernel32“ Alias ”GetWindowsDirectoryA“(ByVal lpBuffer As String, ByVal nSize As Long)As Long

Public Function GetWinPath()Dim strFolder As String Dim lngResult As Long strFolder = String(MAX_PATH, 0)lngResult = GetWindowsDirectory(strFolder, MAX_PATH)If lngResult <> 0 Then GetWinPath = Left(strFolder, InStr(strFolder, Chr(0))1 Next lNum sGetFile = Mid(sGetFile, 2)'得到文件名 MsgBox sGetFile

//////////////////////////////////////////////////////////////////////////////////// 如何防止使用者按下 CTRL + ALT + DEL

有些時候，我們的應用程序執行時，不希望使用者按下 CTRL + ALT + DEL 來異常結束程序或關機，這時候我們可以在啟動程序時，將 CTRL + ALT + DEL 功能鍵之功能取消，然后在結束程序之前，再從新恢復 CTRL + ALT + DEL 之功能。

在模組聲明區中加入以下聲明及模組：

Declare Function SystemParametersInfo Lib ”user32“ Alias ”SystemParametersInfoA“(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)As Long

Public Const SPI_SCREENSAVERRUNNING = 97

Public Sub Disable_Ctrl_Alt_Del()'讓 CTRL+ALT+DEL 失效 Dim AyW As Integer Dim TurFls As Boolean

AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, TurFls, 0)End Sub

Public Sub Enable_Ctrl_Alt_Del()'讓 CTRL+ALT+DEL 恢復功能 Dim AwY As Integer Dim TurFls As Boolean

AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, TurFls, 0)End Sub

'實際使用時，在 Form 中加入以下程序碼：

Private Sub Form_Load()Disable_Ctrl_Alt_Del End Sub

Private Sub Form_Unload(Cancel As Integer)Enable_Ctrl_Alt_Del End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何取得文件大小？

VB6 提供了一個新的物件模型，叫做 FSO(File System Object)物件模型，運用它，我們可以很方便的處理磁盤、資料夾和文件的一些動作。

FSO 物件模型含有好幾個物件，其中有一個 File 物件是用來求得文件的相關資訊，在目前這個主題，我們就可以使用 File 物件！它有一個屬性是 Size，對文件來說就是指文件的大小(單位為位元組)。(注一)

雖然使用 File 物件的 Size 屬性就可以求得文件的大小，但是它有以下二個缺點：

1、只能用于 VB6 以后的版本。

2、它不是 VB6 內定的功能，必須另外引用 Scrrun.dll(Microsoft Scripting Runtime)才可以！

以下的二個方法就可以使用在所有的 VB 版本中(含 VB6)，而且是 VB 內定的功能：

1、FileLen 函數：返回一個 Long，代表一個文件的長度，單位是位元組。

語法：FileLen(pathname)' pathname 是全路徑之文件名稱 適用：取得一個尚未開啟的文件的長度大小(注二)

2、LOF 函數：返回一個 Long，單位為位元組，用來代表由 Open 陳述式所開啟的文件之大小。

語法：LOF(filenumber)' filenumber 是一個文件代碼 適用：取得一個已開啟的文件的長度大小

注一：File 物件的 Size 屬性除了可以求得一個文件的大小，也可以用來取得整個目錄的所有文件大小！

注二：使用 FileLen 函數時，如果所指定的文件正在開啟中，則所返回的值是這個文件在開啟前的大小。

//////////////////////////////////////////////////////////////////////////////////// 如何移除或更改桌面背景的底色圖案(Wallpaper)？

SystemParametersInfo 這個 API 可以設定許多 Windows 系統的功能參數，而其中一個參數就是桌面底圖！通常一般的使用者會透過控制面板中的【顯示器】來設定桌面底圖。

在底下的范例中，我們使用 SPI_SETDESKWALLPAPER 這個參數及圖片文件名稱來設定新的桌面底圖，同時使用 SPIF_SENDWININICHANGE 來通知各個視窗這個改變。

'在表單的聲明區中加入以下聲明及常數：

Private Declare Function SystemParametersInfo Lib ”user32“ Alias ”SystemParametersInfoA“(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long)As Long

Const SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = &H1 Const SPIF_SENDWININICHANGE = &H2

'在表單上加入一個 CommandButton(Command1)來移除桌面底圖，程序碼如下：

Private Sub Command1_Click()Dim X As Long X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, ”(None)“, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)MsgBox ”桌面底圖(Wallpaper)已經被移除“ End Sub

'在表單上加入另一個 CommandButton(Command2)來更改桌面底圖，程序碼如下：

Private Sub Command2_Click()Dim FileName As String Dim X As Long FileName = ”c:windowstest.bmp“ X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)MsgBox ”桌面底圖(Wallpaper)已經被更改“ End Sub

//////////////////////////////////////////////////////////////////////////////////// 一個快速注冊 DLL 及 OCX 的方法

有時候我們在 VB 中要引用某一個 DLL 或 OCX 時，會出現文件未注冊的訊息，這時，我們可以使用人工注冊的方法，也就是直接在命令列中使用 regsvr32.exe 來做，做法如下：

文件注冊：C:WindowsSystemRegsvr32.exe C:WindowsSystemTest.ocx 取消注冊：C:WindowsSystemRegsvr32.exe /u C:WindowsSystemTest.ocx

這些動作我們也可以直接寫到程序中，使用 Shell 來執行，但是我現在要說的，都不是上面提到的方法！

注意看羅！方法如下：

1、在資源管理器中找到 C:WindowsSystemRegsvr32.exe 并【復制】(按鼠標右鍵選復制)

2、將目錄移到 C:WindowsSendTo 后，執行【貼上快捷方式】(按鼠標右鍵選貼上快捷方式)

3、將快捷方式名稱改成【REGISTER】

4、OK

現在，如果您想替某一個文件做注冊動作，例如：C:WindowsSystemTest.ocx，您只要打開資源管理器，找到 C:WindowsSystemTest.ocx，按鼠標右鍵選【傳送到】【REGISTER】即可完成注冊動作了！

注：有一個地方要注意的是，Regsvr32.exe 只能注冊 32 位的文件！如果要用它來注冊 16 位的文件，會有錯誤訊息產生。

//////////////////////////////////////////////////////////////////////////////////// 如何用TextBox打開和保存文件

作為輕量級的控件，TextBox控件使用率很高，但相關的資料極少談及如何用TextBox控件打開和保存文件，大都采用回避的態度，對VB初學者帶來很多不便。筆者近日為友人做一個英文朗讀軟件，按友人的要求，軟件要能象MS的記事本那樣能打開和保存文檔。其實實現方法并不復雜，現將心得寫出來，希望對大家有幫助。如果您有更好的方法，請來信：handanfang@163.net。

'新建標準EXE，加入一個TextBox控件，一個公共對話框，兩個菜單。

'打開

Private Sub mnuOpen_Click()CommonDialog1.Filter = ”文檔文件(*.txt)|*.txt|所有文件(*.*)|*.*“ CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)Close #1 End Sub

'保存

Private Sub mnuSave_Click()On Error Resume Next

CommonDialog1.Filter =”文檔文件(*.txt)|*.txt|所有文件(*.*)|*.*“ CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close 1 End Sub

TextBox只支持打開64K以下的文件，建議最好設置出錯處理。以上程序在PWin98、VB6.0下調試通過。

//////////////////////////////////////////////////////////////////////////////////// 如何判斷目前文件資源管理器中，文件名稱之擴展文件名是顯示或隱藏？

由于我在集團性的資訊處工作，所負責的公司系統有的是屬于外點，例如潤泰建設有個單位是行銷業務處，他們的工作是賣公司蓋的房子，所以他們的業務人員平常都是待在各工地的接待中心，我替他們開發的銷售系統在工地的部份是屬于單機作業的，使用 Access 資料庫，每一個星期資料回傳總公司一次。業務人員由于流動性大，不太了解系統，有時候，系統出了問題，業務人員又搞不清楚狀況，于是我會要求他們將資料庫 sale.mdb 回傳公司，結果，常鬧笑話，原來他們回傳公司的，常常不是 sale.ldb 就是 sale.exe，為什么呢？

原因很簡單，因為他們的文件資源管理器中，設定了將擴展文件名隱藏起來，結果只看到三個不同圖示的 sale 文件(分別是 Sale.mdb、Sale.ldb、Sale.exe)，不太會操作的業務人員根本分不清楚那一個圖示的 sale 文件才是資料庫文件案！

我們在 VB 的程序中要如何判斷，目前文件資源管理器中的設定是否顯示擴展文件名呢？

Private Declare Function GetFileTitle Lib ”comdlg32.dll“ Alias ”GetFileTitleA"(ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer)As Integer Private Function HasExtension(sFileName As String)As Long Dim sTemp As String Dim lTemp As Long

sTemp = String(1, 0)lTemp = GetFileTitle(sFileName, sTemp, Len(sTemp))If lTemp < 0 Then HasExtension =-1: Exit Function sTemp = String(lTemp, 0)Call GetFileTitle(sFileName, sTemp, Len(sTemp))

If(Left$(Right$(Left$(sTemp, lTemp網站導航誠邀加盟友情鏈接-贊助本站 Copyright? 1999-2004 Programfan.com.All Rights Reserved 網站制作&維護：Hannibal Email: yaoz@163.com 網站合作及廣告聯系：(021)28540908