第一篇：羅氏VB6監(jiān)理總結(jié)(正)

上海市工程設(shè)備監(jiān)理公司

SHANGHAI CONSTRUCTION & EQUIPMENT SURVEILLANCE MANAGEMENT CO．

監(jiān)

工程名稱 建設(shè)單位 承建單位 設(shè)計單位 監(jiān)理單位

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

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

上海市工程設(shè)備監(jiān)理公司 編制人 何奮明

審核人 劉海平批準(zhǔn)人 馬自強

結(jié)一．工程概況

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

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

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

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

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

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

二．項目監(jiān)理機構(gòu) 1.項目監(jiān)理機構(gòu)人員名單 總監(jiān)理工程師：劉海平副總監(jiān)兼土建監(jiān)理師：何奮明 土建監(jiān)理師：顧坤權(quán) 電氣監(jiān)理師：鄭漢民 管道監(jiān)理師：肖連中 設(shè)備監(jiān)理師：倪學(xué)良 王岳

2.投入的監(jiān)理設(shè)施

水準(zhǔn)儀 經(jīng)緯儀 鋼卷尺 電腦 質(zhì)量檢測系列工具等

三．履行合同情況

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

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

? 國家和上海市現(xiàn)行的施工質(zhì)量驗收規(guī)范及評定標(biāo)準(zhǔn)

四．監(jiān)理工作成效

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

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

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

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

4． 在設(shè)備安裝監(jiān)理方面

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

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

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

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

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

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

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

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

六． 結(jié)論語

整個施工監(jiān)理過程中，在業(yè)主的支持和幫助下，監(jiān)理人員依照監(jiān)理規(guī)劃、監(jiān)理實施細(xì)則、監(jiān)理程序?qū)κ┕ぬ幚砜刂泣c進(jìn)行重點監(jiān)控，較好地協(xié)調(diào)了土建和安裝分包單位之間的關(guān)系，保證了工程有序地進(jìn)行。對現(xiàn)場發(fā)現(xiàn)的質(zhì)量問題都及時地以書面形式通知了各單位，落實了這方案。

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

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

3． 怎樣有效規(guī)范承包商的經(jīng)營行為，從而有效控制工程進(jìn)度。

上海市工程設(shè)備監(jiān)理公司

2001年7月

第二篇：羅氏工作分類

羅氏工作分類

1.醫(yī)藥信息顧問 職位職責(zé)：

1.在公司政策和程序指引下向指定客戶群傳達(dá)醫(yī)學(xué)信息

2.負(fù)責(zé)區(qū)域內(nèi)外部客戶醫(yī)學(xué)信息溝通和傳遞，醫(yī)學(xué)教育活動和培訓(xùn) 3.定期開展學(xué)術(shù)會議，向客戶介紹產(chǎn)品在不同適應(yīng)癥上的優(yōu)點 4.及時收集、提供市場信息并做出適當(dāng)建議

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

7.熟練掌握產(chǎn)品知識，定期參加相關(guān)產(chǎn)品知識培訓(xùn)及學(xué)術(shù)會議 職位要求：

? 本科及以上學(xué)歷，臨床醫(yī)學(xué)、藥學(xué)及醫(yī)藥相關(guān)專業(yè) ? 具有良好的溝通協(xié)調(diào)能力和強烈的學(xué)習(xí)愿望 ? 樂觀積極，懂得自我激勵和壓力轉(zhuǎn)換 ? 良好的團(tuán)隊合作精神和自我學(xué)習(xí)能力 ? 熟練使用MS Office，英語良好 2.銷售助理 職位職責(zé)：

1.處理產(chǎn)品組銷售經(jīng)理的文書工作 2.辦事處日常行政事務(wù) 3.銷售數(shù)據(jù)的輸入和保管

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

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

? 本科及以上學(xué)歷

? 良好的英語書寫及英語口語能力；英語6級及以上優(yōu)先 ? 具備成功的秘書/助理實習(xí)經(jīng)驗優(yōu)先

? 具備專業(yè)性，團(tuán)隊合作精神；有強烈的責(zé)任感 ? 熟練操作Word, Excel, PPT等應(yīng)用軟件 3.驍悉專員

職位描述：

1.熱情專業(yè)的服務(wù)于800熱線

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

3.協(xié)助銷售服務(wù)管理用戶

4.及時上報不良反應(yīng)

5.熱愛辦公室內(nèi)勤工作 職位要求：

? 大?；蛞陨蠈W(xué)歷，護(hù)理或醫(yī)學(xué)專業(yè)優(yōu)先

? 具有客戶服務(wù)工作經(jīng)驗的優(yōu)先

? 熟練運用Excel，Word等MS-office應(yīng)用軟件 4.產(chǎn)品戰(zhàn)略規(guī)劃助理 職位職責(zé)：

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

? MBA及以上學(xué)歷，醫(yī)學(xué)、藥學(xué)或者市場相關(guān)專業(yè)背景優(yōu)先 ? 良好的溝通與組織能力，性格沉穩(wěn)，團(tuán)隊合作能力強 ? 良好的英語書寫及英語口語能力

? 熟練操作Word, Excel, PPT等應(yīng)用軟件 5.銷售績效管理助理 職位職責(zé)：

1.協(xié)助準(zhǔn)備醫(yī)生數(shù)據(jù)收集模板，收集整理數(shù)據(jù) 2.協(xié)助記錄、回答CRM用戶的問題 3.其他跟CRM系統(tǒng)有關(guān)工作的支持 職位要求：

? 本科及以上學(xué)歷，計算機相關(guān)專業(yè)背景優(yōu)先 ? 仔細(xì)認(rèn)真，團(tuán)隊合作能力強

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

? 良好的excel, access基礎(chǔ)，具備較強的學(xué)習(xí)及溝通能力 6.臨床試驗助理

職位職責(zé)：

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

4.協(xié)助組織臨床試驗及各種相關(guān)會議 職位要求：

? 臨床醫(yī)學(xué)及相關(guān)專業(yè)本科及以上學(xué)歷 ? 擁有良好的英語書寫及英語口語能力

? 熟練操作Word, Excel, PPT等辦公應(yīng)用軟件

? 責(zé)任心強，注重細(xì)節(jié)；良好的人際溝通能力和團(tuán)隊合作精神 7.數(shù)據(jù)管理專員

Data Manager 職位職責(zé)：

1.協(xié)助完成研究中的數(shù)據(jù)管理工作

2.協(xié)助追蹤及維護(hù)數(shù)據(jù)管理信息及數(shù)據(jù)檢查報告 3.協(xié)助完成數(shù)據(jù)管理研究信息的歸檔 4.協(xié)助完成實施及程序提高的確認(rèn)工作 職位要求：

? 計算機、生命科學(xué)、臨床醫(yī)學(xué)及相關(guān)專業(yè)，本科及以上學(xué)歷 ? 擁有良好的英語書寫及英語口語能力

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

drug safety associate 上海市

職位職責(zé)：

1.對相關(guān)藥品安全的信息和文件進(jìn)行維護(hù)和管理

2.相關(guān)數(shù)據(jù)的收集，整理及錄入，確保錄入數(shù)據(jù)的質(zhì)量和一致性 3.協(xié)助主管向相關(guān)部門通報產(chǎn)品安全性信息并進(jìn)行適當(dāng)交流

職位要求：

? 臨床醫(yī)學(xué)相關(guān)專業(yè)，本科以上學(xué)歷 ? 較強交流技巧和團(tuán)隊合作經(jīng)驗

? 較強的法規(guī)意識和領(lǐng)悟力，有較強的工作責(zé)任心

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

上海市

職位職責(zé)：

1.閱讀相關(guān)統(tǒng)計課題報告，撰寫課題總結(jié)

2.協(xié)助完成協(xié)議提供、案例報告表格確認(rèn)及分析安排等工作 3.進(jìn)行數(shù)據(jù)分析模擬探索性實驗 職位要求：

? 統(tǒng)計學(xué)及相關(guān)專業(yè)博士在讀學(xué)生

? 熟悉SAS等統(tǒng)計軟件、數(shù)據(jù)庫及界面操作系統(tǒng) ? 擁有良好的英語書寫及英語口語能力

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

職位職責(zé)：

1． SAP系統(tǒng)操作及維護(hù)

2． 協(xié)助產(chǎn)品經(jīng)理開展市場推廣活動，確保市場計劃的順利進(jìn)行

3． 協(xié)助產(chǎn)品經(jīng)理進(jìn)行預(yù)算控制，準(zhǔn)備財務(wù)報告，監(jiān)督并跟進(jìn)項目的付款 4． 認(rèn)真有效的貫徹執(zhí)行公司政策和流程 5． 提供部門必要的行政服務(wù)和支持 6． 負(fù)責(zé)部門文檔的建立及管理 職位要求：

? 本科以上學(xué)歷，相關(guān)專業(yè)背景優(yōu)先

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

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

職位職責(zé)：

1.協(xié)助收集，整理和分析相關(guān)數(shù)據(jù) 2.核對各種數(shù)據(jù)報告所需基礎(chǔ)數(shù)據(jù) 3.協(xié)助制作基礎(chǔ)報表 4.其他項目的支持 職位要求：

? 本科以上學(xué)歷，相關(guān)專業(yè)背景優(yōu)先

? 良好的溝通與組織能力，性格沉穩(wěn)，團(tuán)隊合作能力強 ? 良好的英語書寫及英語口語能力

? 良好的excel, access基礎(chǔ)，具備較強的學(xué)習(xí)能力

第三篇：羅氏面試寶典

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

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

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

首先，還是自我介紹。

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

1.先說說自己的優(yōu)缺點？

2.對羅氏的理解?

3.對創(chuàng)新的理解？

4.我的人生目標(biāo)？

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

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

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

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

實際案例分析：

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

2.要是我臨時有事不在，而讓你代我組織一個相關(guān)的學(xué)術(shù)會議，你怎么操作？

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

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

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

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

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

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

2.機靈、踏實

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

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

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

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

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

2007-2008學(xué)年上學(xué)期班主任工作總結(jié)

羅

正

群

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

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

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

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

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

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

2007-2008學(xué)年上學(xué)期班主任工作總結(jié)

朱

紅

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

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

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

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

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

綜上所述，我作為一名小學(xué)班主任，主要從認(rèn)真抓好班級管理工作，充分發(fā)揚民主，讓全體學(xué)生積極參與管理，千方百計調(diào)動他們的積極性和創(chuàng)造性，培養(yǎng)他們獨立自主的精神和自我管理的能力，逐步完成由教師管理向?qū)W生管理的過渡，真正扮演了引路人和協(xié)調(diào)者的角色。

學(xué)年上學(xué)期教學(xué)工作總結(jié)

朱 紅

2007學(xué)年下學(xué)期，本人堅持認(rèn)真?zhèn)湔n、上課、聽課、評課，及時批改作業(yè)、講評作業(yè)，做好課后輔導(dǎo)工作，廣泛涉獵各種知識，形成比較完整的知識體系，嚴(yán)格要求學(xué)生，尊重學(xué)生，發(fā)揚教學(xué)民主，使學(xué)生學(xué)有所得，不斷提高，從而不斷提高自己的教學(xué)水平和思想覺悟，并順利完成教育教學(xué)任務(wù)。下面是本人的教學(xué)經(jīng)驗及教訓(xùn)。

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

⑴課前準(zhǔn)備：備好課。

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

②了解學(xué)生原有的知識技能的質(zhì)量，他們的興趣、需要、方法、習(xí)慣，學(xué)習(xí)新知識可能會有哪些困難，采取相應(yīng)的預(yù)防措施。

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

⑵課堂上的情況。

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

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

3、認(rèn)真學(xué)習(xí)新課標(biāo)要求，勇于從事語文教學(xué)的新嘗試，并成功的運用電腦多媒體課件上了一節(jié)語文公開課，借以帶動現(xiàn)代語文教學(xué)工作的創(chuàng)新。

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

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

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

1、個別學(xué)生的不良的學(xué)習(xí)習(xí)慣還有待進(jìn)一步引導(dǎo)改正。本班學(xué)生生性活潑好動，其中有一些學(xué)生在習(xí)慣方面存在著的問題——寫字習(xí)慣很差，寫字姿勢不正確，不能自覺地完成作業(yè)，還有個別學(xué)生字跡潦草。還有的學(xué)生作業(yè)不能按時上交?；蛴龅诫y題沒有堅強的意志，不會主動克服解決。

2、寫作方面水平差異太大。班中學(xué)生的寫作興趣比較濃厚，但優(yōu)生與差生的差異比較大。導(dǎo)致全班學(xué)生的寫作水平發(fā)展不夠均衡。在今后的教學(xué)中，應(yīng)該加以克服。

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

新理念下小學(xué)語文課堂教學(xué)的反思

羅正群

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

【關(guān)鍵詞】：破與立 生成與預(yù)設(shè) 教與考 人文性與工具性 問與灌 熱鬧與實效 務(wù)虛與務(wù)實 多媒體與教材

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

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

一、破與立

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

二、生成與預(yù)設(shè)

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

三、教與考

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

四、人文性與工具性。

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

五、滿堂問與滿堂灌。

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

六、課堂的熱鬧與實效。

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

七、務(wù)虛與務(wù)實。

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

八、多媒體與教材。

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

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

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

第五篇：VB常見問題總結(jié)

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

VB常見問題總結(jié)

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

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

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

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

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

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

//////////////////////////////////////////////////////////////////////////////////// 如何用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 啟動時自動執(zhí)行？

有以下二個方法：

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

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

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

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

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

//////////////////////////////////////////////////////////////////////////////////// 在 TextBox 中如何限制只能輸入數(shù)字？

參考下列程序：

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: 將要剔除的字符統(tǒng)統(tǒng)放在一個字串中，只要一個 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

//////////////////////////////////////////////////////////////////////////////////// 如何讓鼠標(biāo)進(jìn)入 TextBox 時自動選定 TextBox 中之整串文字？

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

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

//////////////////////////////////////////////////////////////////////////////////// 如何檢查軟盤驅(qū)動器里是否有軟盤？

使用：

Dim Flag As Boolean

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

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

//////////////////////////////////////////////////////////////////////////////////// 如何彈出和關(guān)閉光驅(qū)托盤？

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“ '彈出光驅(qū) Label2.Caption = ”彈 出“ End Sub

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

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

//////////////////////////////////////////////////////////////////////////////////// 如何讓你的程序在任務(wù)列表隱藏

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

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

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

請在聲明區(qū)中加入以下聲明：

'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

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

在聲明區(qū)中放入以下聲明：

'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

'共用常數(shù)：

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

'以上功能也適用于用鼠標(biāo)在 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

//////////////////////////////////////////////////////////////////////////////////// 如何設(shè)置對VB數(shù)據(jù)庫連接的動態(tài)路徑

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

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

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

二、利用adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接： 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進(jìn)行數(shù)據(jù)庫鏈接 可在過程中放入： On Error Resume Next

If DataEnvironment1.rsCommand1.State <> adStateClosed Then DataEnvironment1.rsCommand1.Close '如果打開，則關(guān)閉 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)進(jìn)行編程： 建立連接：

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 ”數(shù)據(jù)表名“,conn,adopenkeyset.adlockpessimistic 用完之后關(guān)閉數(shù)據(jù)庫： conn.close set conn=nothing

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

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

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

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

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

請在聲明區(qū)中加入以下聲明

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 '設(shè)定為最上層

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

'將 APP 視窗設(shè)定成永遠(yuǎn)保持在最上層

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

'取消最上層設(shè)定

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

//////////////////////////////////////////////////////////////////////////////////// 我要如何在程序中開啟網(wǎng)頁？

在聲明區(qū)中聲明如下(在.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://004km.cn.tw“, ”“, ”“, 5

//////////////////////////////////////////////////////////////////////////////////// VB可以產(chǎn)生四角形以外其他形狀的 Form 嗎？

這個問題，您一定無法想像有多容易，您可以產(chǎn)生任何形狀的 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

執(zhí)行結(jié)果圖片

CreateEllipticRgn 之四個參數(shù)說明如下：

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

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

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

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

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

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

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

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

請在聲明區(qū)中放入以下聲明

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，屬性設(shè)定為： AutoSize = True Picture =.bmp(尺寸大小為 13x13，不可設(shè)定為.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 狀態(tài)用，一張是 unchecked 狀態(tài)用 End Sub

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

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

在 Form 中放一個 PictureBox，Picture 屬性設(shè)定為某一張小圖，AutoSize 屬性性設(shè)定 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 這個模組共有二個參數(shù)，第一個是表單名稱，第二個則是 PictureBox 的名稱。以下為一應(yīng)用實例：

Private Sub Form_Load()PictureTile Me, Picture1 End Sub

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

以下這個范例，要：

1、一個 MDIForm：不必設(shè)定任何屬性。

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

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

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

'將以下模組放入 MDIForm 的聲明區(qū)中：

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

以下為一應(yīng)用實例：

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

//////////////////////////////////////////////////////////////////////////////////// 關(guān)閉指定的程序

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

在聲明區(qū)中放入以下聲明：(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

以下之范例示范如何關(guān)閉一個視窗標(biāo)題(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

//////////////////////////////////////////////////////////////////////////////////// 如何隱藏及再顯示鼠標(biāo)

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

True：顯示鼠標(biāo) / False：隱藏鼠標(biāo)

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

//////////////////////////////////////////////////////////////////////////////////// 如何從您的應(yīng)程序中結(jié)束 Windows 重開機？

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

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

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

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

Public Const EWX_LOGOFF = 0 '這四個常數(shù)值可以并用 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

'實例：如果您想強迫關(guān)機重開機，程序碼如下：

ret = ExitWindowsEx(EWX_FORCE OR EWX_REBOOT, 0)

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

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

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

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

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

Shell(”Start C:Test.txt“)

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

注一：在 Windows 95/98/NT平臺中, 什么副文件名之文件案, 該由什么執(zhí)行文件來啟動, 都設(shè)在關(guān)聯(lián)中，代碼為 HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExtensions

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

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

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

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

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

'在聲明區(qū)中加入以下聲明：

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

有些時候，我們的應(yīng)用程序執(zhí)行時，不希望使用者按下 CTRL + ALT + DEL 來異常結(jié)束程序或關(guān)機，這時候我們可以在啟動程序時，將 CTRL + ALT + DEL 功能鍵之功能取消，然后在結(jié)束程序之前，再從新恢復(fù) CTRL + ALT + DEL 之功能。

在模組聲明區(qū)中加入以下聲明及模組：

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 恢復(fù)功能 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

//////////////////////////////////////////////////////////////////////////////////// 如何取得文件大?。?/p>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

'在表單的聲明區(qū)中加入以下聲明及常數(shù)：

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)已經(jīng)被移除“ 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)已經(jīng)被更改“ End Sub

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

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

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

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

注意看羅！方法如下：

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

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

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

4、OK

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

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

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

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

'新建標(biāo)準(zhǔn)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以下的文件，建議最好設(shè)置出錯處理。以上程序在PWin98、VB6.0下調(diào)試通過。

//////////////////////////////////////////////////////////////////////////////////// 如何判斷目前文件資源管理器中，文件名稱之?dāng)U展文件名是顯示或隱藏？

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

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

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

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網(wǎng)站導(dǎo)航誠邀加盟友情鏈接-贊助本站 Copyright? 1999-2004 Programfan.com.All Rights Reserved 網(wǎng)站制作&維護(hù)：Hannibal Email: yaoz@163.com 網(wǎng)站合作及廣告聯(lián)系：(021)28540908