第一篇：VB綜合實訓

VB換膚（GUI界面）

第一種方法：后綴為.she文件的皮膚

SkinSharp換膚庫不是COM組件，無需進行系統注冊，僅以標準dll方式存在。

1.打開vb6開發環境，新建一個工程文件，并存檔

2.將一個名為“膚色”的文件夾和一個名為SkinH_VB6.dll的文件拷貝到工程所在的目錄

3.外部函數接口api函數原型，把這原形放在通用聲明段

Private Declare Function SkinH_AttachEx Lib “SkinH_VB6.dll”(ByVal lpSkinFile As String, ByVal lpPasswd As String)As Long

4.若需要什么樣的皮膚（即.she文件）就在相應的事件（比喻在Form_Load()）中輸入下面的內容：

SkinH_AttachEx App.Path & “/皮膚/vista.she”, “ ”

app.path：系統字串常量，返回工程所在的路徑。

皮膚：是跟工程在同一目錄下的一個文件夾

vista.she：皮膚文件，可以把網上下載的.she文件放在同目錄下用時，只接按上四步驟即可。

第二種方法：ActiveSkin 4.3軟件的應用。可以自己更改皮膚

1.安裝ActiveSkin 4.3。同其它軟件安裝一樣。

2.漢化該軟件。直接運行setup.exe（漢化的安裝文件）。點下一步直至完成

3.新建一個VB工程文件，在工具箱灰白色地方右鍵單擊，選擇[部件]，在部件對話框中勾選ActiveSkin 4.3后單擊[應用][確定]

4.在出現的兩個控件中選擇拖入到窗體上。右鍵單擊，選擇[編輯皮膚]即可到ActiveSkin 4.3中編輯皮膚

5.Label控件必須使用該部件給的ab控件來替換。原本的A是不會顯示

6.選擇相應的事件(如Form_Load())。在該事件中輸入：

Skin1.ApplySkin Me.hWnd

7.如果要移植你的程序到別的機器上運行，請編譯打包。因為該皮膚需要系統其它文件來支持。所以你可以選擇VB-PowerWrap進行VB程序的封裝

VB與ACCESS2003數據庫連接相關步驟：

第一步：建立連接

1.引用相關組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 2.在通用聲明段申明：Dim mConn As ADODB.Connection 3.在對應的事件（如Form_Click()）中：set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection 4.設置其連接字串（與磁盤上的MDB文件建立連接）：

mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “RSData.mdb” 5.打開連接：mConn.Open 6.測試連接是否成功：if mConn.State=adStateOpen then msgbox “數據庫已經連接成功！” else msgbox “數據庫連接不成功！” 以上連接方法是在事件里完成，也可以把連接做一個過程，需要連接時直接帶參調用也可。如在模塊中這樣定義

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中調該函數。其相應代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失敗！”

End If End Sub

第二步：從數據庫中取出記錄，綁定到相對應的控件(Microsoft DataGrid Control 6.0(SP6)(OLEDB))中

1.在通用聲明段定義記錄對象：

Dim rs As New ADODB.Recordset 2.在相應的事件（如Form_Click()）中定義：

Set rs = New ADODB.Recordset Dim sql As String

sql = “select * from 部門表” rs.CursorLocation = adUseClient rs.Open sql, mConn, 1, 3

3.在窗體上從部件中找到Microsoft DataGrid Control 6.0(SP6)(OLEDB)并加載到工具箱上，然后產生一個實體對象，其名稱為DataGrid1 Set DataGrid1.DataSource = mRst.DataSource

注意：游標與鎖

0=adopenForwardonly:僅向前游標 — 除僅允許在記錄中向前滾動之外，其行為類似動態游標。這樣，當需要在 Recordset 中單程移動時就可提高性能。

1=adopenkeyset:鍵集游標 — 其行為類似動態游標，不同的只是禁止查看其他用戶添加的記錄，并禁止訪問其他用戶刪除的記錄，其他用戶所作的數據更改將依然可見。它始終支持書簽，因此允許 Recordset 中各種類型的移動。

2=adopenDynamic:動態游標 — 用于查看其他用戶所作的添加、更改和刪除，并用于不依賴書簽的 Recordset 中各種類型的移動。如果提供者支持，可使用書簽。3=adopenstatic:靜態游標 — 提供記錄集合的靜態副本以查找數據或生成報告。它始終支持書簽，因此允許 Recordset 中各種類型的移動。其他用戶所作的添加、更改或刪除將不可見。這是打開客戶端(ADOR)Recordset 對象時唯一允許使用的游標類型。

mRst.CursorLocation = adUseClient:使用由本地游標庫提供的客戶端游標

mRst.CursorLocation = adUseServer 默認值。使用數據提供者或驅動程序提供的游標。

1=adLockReadOnly 默認值，只讀。無法更改數據。

2=adLockPessimistic 保守式記錄鎖定（逐條）。提供者執行必要的操作確保成功編輯記錄，通常采用編輯時立即鎖定數據源的記錄的方式。

3=adLockOptimistic 開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調用 Update 方法時鎖定記錄。

4=adLockBatchOptimistic 開放式批更新。用于與立即更新模式相反的批更新模式。

第三步：向數據庫中寫數據（找一個相應的事件，如Command1_Click()）

Dim bmid As String,bmmc As String,sql As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset bmid = Text1.Text:bmmc = Text2.Text conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

On Error GoTo cancel: sql = “insert into 部門表(部門ID,部門名稱)values('” + bmid + “','” + bmmc + “')” rs.Open sql, conn

cancel:

If conn.Errors.Count = 0 Then

Else

MsgBox “寫數據有問題，主鍵重復”

End If 除了用SQL語句增加庫記錄以外，也可以用下面的方法來增加庫記錄

rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Open “部門表”, conn, , , adCmdTable rs.AddNew rs.Fields(0)= bmid rs.Fields(1)= bmmc rs.Update 第四步：刪除數據庫中的一條記錄（找一個相應的事件，如Command2_Click()）

Private Sub command2_click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset

Dim bmid As String bmid = Trim(DataGrid1.Columns(0))conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “delete from 部門表 where 部門ID='” + bmid + “'” rst.Open sql, conn, 1, 3

sql = “select * from 部門表”

rst.CursorLocation = adUseClient

rst.Open sql, conn, 1, 3 if not rst.eof()then

rst.movenext end if

Set DataGrid1.DataSource = rst.DataSource set rst=nothing set conn=nothing End sub 第五步：更改數據庫中的信息（找一個相應的事件，如Command1_Click()）Private Sub Command1_Click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset Dim s As String

s = “實驗中心”

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “update 部門表 set 部門名稱='” + s + “' where 部門ID='001'” rst.Open sql, conn End Sub

第一步：建立連接

1.引用相關組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 Dim mConn As ADODB.Connection Private Sub Form_Click()set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “Police Information.mdb” mConn.Open if mConn.State=adStateOpen then msgbox “數據庫已經連接成功！” else msgbox “數據庫連接不成功！” End Sub 以上連接方法是在事件里完成，也可以把連接做一個過程，需要連接時直接帶參調用也可。如在模塊中這樣定義

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中調該函數。其相應代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失敗！”

End If End Sub

第二篇：VB實訓總結

VB實訓總結

時間過得真快，轉眼間，一周的實訓生活已悄然過去了，然而實訓的過程還歷歷在目。

實訓期間，讓我學到了很多東西，不僅使我在理論上對VB程序設計有了全新的認識，在實踐能力上也得到了提高，真正地做到了學以致用，更學到了很多做人的道理，對我來說受益非淺。親身感受到理論與實際的相結合，讓我大開眼界。也是對以前所學知識的一個初審吧！這次實訓對于我以后學習、找工作也真是受益菲淺，在短短的一周中相信這些寶貴的經驗會成為我今后成功的重要的基石。作為一名大二的學生，經過差不多一年半的在校學習，對程序設計有了理性的認識和理解。在校期間，一直忙于理論知識的學習，沒有機會也沒有相應的經驗來參與項目的設計開發。所以在實訓之前，程序設計對我來說是比較抽象的，不知道一個完整的程序要怎么完成。

這次我做的項目是人事管理系統，其中包含了登陸、員工資料庫、考勤庫、工資庫、商務信息等幾個部分。在實訓剛開始的時候，做的只是幾個簡單的界面，覺得其實還算比較簡單的，到第三天，基本部分的代碼都編寫出來了，但是調試的時候出現了很多問題。而且，有時候由于考慮不周以及粗心的緣故，代碼方面也存在很大的誤差。老師們教會了我們很多簡單實用的技巧。也讓我們意識到了要想全面完整的完成一個模塊，首先要經行程序設計，全面分析會用到的東西及

考慮可能會出現的情況。所以出現的問題也在老師的指導下，順利解決了。本程序的編寫，有很多不足的地方，可能有些功能不太全面也不太完善，但我覺得自己是認認真真的做了，而且從中學到了很多，以后，我要把自己欠缺的知識點補習好，而且要學會舉一反三，融會貫通，最重要的是改掉粗心馬虎、考慮不周的習慣。我想我以后會將此程序完善好，爭取能夠運用到生活中去。

在實訓期間帶給我不僅僅是一種經驗，更是我人生的一筆財富。俗語說:紙上得來終覺淺。沒有把理論用于實踐是學得不深刻的。當今大學教育是以理論為主，能有機會進行實訓，對我來說是受益不淺的。我就快畢業走向社會了，相信這次實習對我日后參加工作有幫助。

一路的艱辛與微笑，雖有所收獲，然所學是開始，新的考驗和抉擇要奮斗不息、礪前行，請不要讓我們年輕的時光留下太多遺憾！

第三篇：VB實訓心得

為期一周的實訓即將結束，通過這次的實訓使我們學到了很多，同時也讓我們意識到我們要學的更多。本次實訓的項目是關于工程測量的程序設計，以小組的形式進行分工合作，我組共3個人，任務是四等水準測量的程序設計。從程序的需求分析、可行性分析、設計到編寫、調試、修改、完善、到最后的實訓報告，每個人都付出了時間和精力去做好自己的任務并努力地去完善它。

實訓的第一天接到任務時我們都覺得有點難度，很有挑戰性，畢竟四等水準測量是一個比較系統、完善、功能相對較齊全的計算程序，因此程序編寫也十分復雜，工作量較大，編寫一定要認真。一個小小的失誤都可能使程序出現大的漏洞。而我們只是學了點簡單的vb程序編寫，沒有嘗試過這種相對來說比較系統完善的系統。所以在做項目的時候我們倍感壓力、更加的團結協作，可即使如此我們還是出現了錯誤，我們的程序在編寫上存在一些漏洞，導致調試時不能正常運行，后經過老師的指導、我們的調整，終于可以完美的運行，這里也耽誤了我們很多寶貴的時間，直接導致了我們在項目調試上速度不夠快。

本人很榮幸地擔任組長一職，與其他組員一起進行任務分配以及協調等。我組做了四等水準測量的計算程序、豎直角計算和視距測量三塊內容。在實訓過程中，老師對我們親切認真負責，很有耐心地對我們進行講解并指導我們解決遇到的難題。老師交會了我們很多簡單實用的技巧。也讓我們意識到了要想全面完整地完成一個模塊，首先要進行程序的設計，全面分析會用到的東西以及考慮可能會出現的情況，理清思緒、寫出大致的要點后再上機編寫程序以及操作。否則像一開始的我們馬上上機編寫、想到什么就補什么，不僅浪費時間也亂了之前寫好的一些程序。系統分析越準確，設計的系統越精確，可以大大減少后期的修改、維護工作。當然做好做對一個項目固然重要，同時美觀程度也是必不可少的，無論是從參觀者的角度還是自己看的角度都很重要。

總的來說，這次實訓還是比較成功的。最后出來的系統，大家都很有成就感，這是我們一步步設計、一步步完善、辛苦付出后得到的成果。小組合作、幫助隊友，無論是團隊合作這方面還是個人動手這方面，我們都得到了很好的鍛煉。當然實訓不僅使我們學到了知識，也幫助我們縮小了實踐和理論的差距，通過這次實訓讓我們更深一步的對vb這門課程的知識有更進一步的渴望，同時對自己的專業，對自己的能力，對自己所學的有正確的認識，并且能在以后的學習工作中不斷提高和完善自己。

第四篇：vb實訓心得

Vb實訓心得

這次實訓，我覺得我真收獲挺多的，以前愚昧無知，現在感覺是豁然開朗，VisualBasic程序設計，剛開始學vb時不知道是干啥用的，我覺得很新鮮，于是乎很認真的聽講，我發現這門課程很有趣，老師幽默而卻講課生動，很吸引人，就這樣，喜歡上VB了，感覺挺有用的，剛開始就想著還可以自己編軟件，多好啊！其實真沒那么容易啊，要學好VB也是一件不容易的事，經過這次實訓，我覺得我的vb有大大的提升，總而言之，最重要的是多做例題多實踐多鍛煉多操

作。下面在介紹一下VB的發展過程：

VisualBasic(簡稱VB)是Microsoft公司于1998年推出的可視化開發工具。Visual意為“可視化”，它是指開發圖形用戶界面（GUI）時，無須編寫大量代碼去描述界面元素的位置和外觀。Basic是指BASIC語言，這是一種面向初學者的語言。VisualBasic是基于Ｂasic的可視化程序設計語言，它繼承了Basic語言簡單易懂的特點，采用面相對對象、事件驅動的編程機制，提供了直觀的可視化程序設計方法。VisualBasic是目前面向對象開發的主要語言之一，是最簡單、最容易使用的語言，因此它是初學者學習可視化編程語言的最佳選擇。在以Windows操作系統為平臺的眾多可視化編程工具中，VisualBasic具有易用性、通用性和開發效率高等特點，這使得VisualBasic特別適合于一般應用程序的開發，成為最流行的Windows應用程序開發語言。VisualBasic6.0現有三種版本：學習

版、專業版和企業版。

VB集成了一系列功能，在VB程序設計環境中能夠完成程序的編寫、調試、查錯、運行、編譯、保存等基本操作，同時還提供了大量程序

設計的“零部件”（在VB中稱為函數、控件），能夠很方便的根據

需要“組裝”成一個復雜的程序。

vb開發的應用程序的運行采用事件驅動原理。程序設計人

員不僅在程序設計時不需要考慮程序代碼執行的先后問題，而且同一

個對象可以因用戶的不同操作而產生不同的結果。

vb中提供的編輯器不僅提供了典型的windows文字處理應

用程序的各種功能，如剪切、復制、粘貼等，使得程序的輸入和修改

非常方便。而且在vb代碼窗口輸入代碼時，對于vb中的對象的屬性、方法，內置的函數、已定義的自定義函數、過程，已定義的變量等，能自動給出拼寫提示。這樣可大大減少編程人員的記憶量。

在vb開發環境下，通過api(application program interface)

函數調用，可充分使用windows提供的各種系統資源，來擴充所開發的應用程序的功能。

vb全面支持windows系統的ole（object linking and

embedding）技術，因此可以方便、快捷地實現不同應用程序之間的動態數據交換。

另外，在vb中，可以開發出包括標準exe（標準windows應

用程序）、activex控件、activex exe(對象的嵌入和鏈接)等多種

類型的應用程序。

Visual Basic 語言的特點：

1、面向對象的可視化設計平臺

2、事件驅動的編程機制

3、結構化的程序設計語言

4、強大的數據庫功能和網絡開發功能

5、充分利用Windows資源

6、方便實用的程序指導

我們已經學了一學期VB了，大家知道VB都能做什么呢？記事

本、畫圖、做一些小游戲等等，其實還有好多好多東西都能用VB編

出來，世界著名的三大軟件之一---SPSS就是用VB開發的。現代社

會，隨著計算機科學技術飛速發展，VB也不斷改進，他已經徹底擺

脫了“玩具語言”的形象，成為編制通用Windows應用程序、數據庫

應用程序、多媒體應用程序以及網絡應用程序的理想工具。VB不僅

是一種編程語言，而且是集應用程序開發、調試和測試于一體的集成開發環境。

作為當代大學生，我們在以科技為主導的新世紀里，一定要掌握

vb這門課程，有利的發揮我們的才能和智慧，輝煌我們的人生！

第五篇：VB、SQL實訓總結

VB、SQL實訓總結

為期五天的實習，很快就過去了，讓我重新了解了豐富多彩的編程生活，感受到了學習的快樂，也感覺到了許許多多的專業問題，親身體驗了窗體與工程制成之后的喜悅之情。

在實訓期間，我學到了許多東西，遇到了一些困難，也看到了自己本身存在著許多問題。

這次實訓給我帶來了危機感和壓迫力，讓人警醒，更加清楚自己的水平和重量，心里總有種被大石頭壓著的無力感，但是又憑著一種堅持，奮力的抗爭著。所以也得出個結論，那就是——我得好好好好的努力啊。

這已經是我們的第四次實訓了，在我進入大學的這兩年多里，或多或少的學到了一些專業的東西。

我知道自己很愛玩，于是為了能夠提高鍛煉自己，我把本次為期一周的VB、SQL制作實訓看作是一個通向社會，通向我的工作崗位的“理論與實踐相結合的橋梁”。在本周的實訓和學習，我一直知道此次實訓的目的，也知道我自己的目的，同時也清楚目前自己的不足——缺乏相應的知識與經驗，對所學的專業知識不能夠很好地運用于實踐操作，所以我是認真的對待這次實訓的。

在這次實訓中，我也有許多收獲。首先，我體會到了作為一個VB設計師，不會將VB與SQL結合的痛苦和尷尬；然后，我發現了很多以前都不曾注意到的細節；其次，在實訓中，我對作為一名編程者應該學習的內容做了一個更深層次的理解；最后，我還從這次實訓中看到了自己很他人的差距，危機意識增強，為了不使這個差距拉大，甚至趕上前面的同學，我會努力的。

本次實訓，給我最深刻、最刻骨銘心的感覺就是累，不僅每天白天要一整天對著一臺機器，而且到了晚上還要對著這臺機器來一個法式的“秉燭夜談”，可惜的是沒有浪漫的事前發生，我也只是對牛談情而已，不似李白的“舉杯邀明月，對影成三人”啊，我就和一部會說話的機器唧唧歪歪。我時常想，以后的日子里，如果我成為了一名編程師也會是這樣嗎？好像很無聊的樣子啊。好動的我一定坐不住吧。可是，我也知道，為了衣食父母，為了生存，為了未來，現在我還沒有任何的資格想這個問題，時間不對，而現在最最應該想的是——我要怎樣成為一個頂級的編程師。當我終于有能力的時候，才是考慮無不無聊的問題，我還是明白這一點點。

經過多番的努力和辛酸，我成功地完成了這次過程艱辛的實訓，而且我從中體會到了一種叫做‘成功的喜悅’的感覺，那種小有成就的興奮是只有置身其中的人才能體會的，就好比我啊，雖然知道笑到最后的才是老大，但是偶爾阿Q一下來調節生活樂趣也是的一項很必要的事情吧。

總之，這次實訓為我提供了與眾不同的學習方法和學習體會，從書本中走出來，面對現實，為我將來走上社會打下了扎實的基礎，鋪了一條五光十色的大馬路。而且，我也體會到了前人總結出的許多的實踐經驗，而且一直都知道技術永遠是工資的基礎，社會是不會要一個一無是處的人的，所以，為了生活庸俗一點，努力一點，多累一點，好好學習技術，將來才有吃大餐的錢呀。

因此，我知道，作為在校電商專業的大專生，我能做的就是好好的吸取知識，努力的提高自己的技術水平和自身的綜合素質，提高自己的表達能力、寫作能力和合作能力。如此，出了社會，自己有了能力，到時候才會是 “吃嘛嘛香”，并且很牛逼的是自己選公司，而不是悲慘的等待公司來選。我相信在不久的未來，會有屬于我自己的一片天空，而且這片天空會很藍很藍，沒有黑黑的烏云，只有燦爛的陽光！

在編程的過程中遇到問題，可以說得是困難重重，這畢竟是第一次編程這么多，這么認真，難免會遇到過各種各樣的問題，同時在設計的過程中發現了自己的不足之處，對以前所學過的知識理解得不夠深刻，掌握得不夠牢固，比如說代碼不熟悉，還好通過老師的細心指導才能達到最終效果??通過這次程設計與制作實訓，一定把以前所學過的知識重新溫故。