vb點虐 基礎(chǔ)教程 vbnet ui

零基礎(chǔ)學(xué)習(xí)vb. net怎樣學(xué)？

你得先補(bǔ)基礎(chǔ)。

在濂溪等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都網(wǎng)站設(shè)計、成都做網(wǎng)站 網(wǎng)站設(shè)計制作按需求定制設(shè)計,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站制作,成都全網(wǎng)營銷,外貿(mào)網(wǎng)站建設(shè),濂溪網(wǎng)站建設(shè)費用合理。

最好去學(xué)校，找計算機(jī)系的學(xué)生，抄下專業(yè)專業(yè)課程和對應(yīng)的課本（說不定順便能討些舊課本），賣齊這些課本（一般學(xué)校里面就有書店）慢慢學(xué)。

（以下課程不全）

至少需要讀一遍的：計算機(jī)導(dǎo)論、程序設(shè)計基礎(chǔ)、軟件工程、編譯原理

重點學(xué)習(xí)的：算法與數(shù)據(jù)結(jié)構(gòu)、面向?qū)ο蟪绦蛟O(shè)計

還有VB.Net需要一定的基礎(chǔ)，建議先從 C++ 或 VB（版本6.0）入門

VB.Net編程實現(xiàn)Web Service的基礎(chǔ)

WebService目前可是目前計算機(jī)界一個非常流行的技術(shù)了 以至于有些人把WebService列入目前最熱門的十大技術(shù)之一 的確隨著互聯(lián)網(wǎng)的廣泛應(yīng)用和發(fā)展 尤其是電子商務(wù)的發(fā)展 出于互聯(lián)網(wǎng)上各種復(fù)雜的應(yīng)用系統(tǒng)和對更高安全性的要求 WebService的橫空出世的確滿足了當(dāng)前這些的要求和需要 其中的原因在下文中有詳細(xì)的介紹 本文的主要內(nèi)容是簡要介紹一下WebService的相關(guān)知識 以及使用VisualBasic Net實現(xiàn)WebServices的具體方法和典型步驟

一 WebService為何物 我們?yōu)槭裁葱枰?/p>

WebService的主要功能就是可以實現(xiàn)實現(xiàn)跨平臺的功能調(diào)用 同時由于WebService中使用XML來進(jìn)行數(shù)據(jù)交換 所以在使用WebService時不用擔(dān)心防火墻的影響 由于WebService集成了各種功能 并提供了一個友好的界面 所以在WebService能夠?qū)崿F(xiàn)軟件的重用

另外WebService的調(diào)用非常簡單 簡而言之調(diào)用互聯(lián)網(wǎng)上的WebService就如同調(diào)用本地的組件一樣簡單 就是通過HTTP協(xié)議來調(diào)用互聯(lián)網(wǎng)上的組件 至于具體的調(diào)用方法 請參閱本文第五節(jié)第七段的內(nèi)容 所以Web Service就是互聯(lián)網(wǎng)上的組件調(diào)用

二 和Web Service相關(guān)的標(biāo)準(zhǔn) 協(xié)議

Web Service是通過一系列標(biāo)準(zhǔn)和協(xié)議來保證和程序之間的動態(tài)連接和實現(xiàn)其安全調(diào)用的 其中主要的標(biāo)準(zhǔn)和協(xié)議是 XML WSDL SOAP HTTP UDDI 下面就簡要介紹這些標(biāo)準(zhǔn)和協(xié)議

XML Web Service之間和Web Service和應(yīng)用程序之間都是采用XML進(jìn)行數(shù)據(jù)交換的 Web Service由于基于了XML 這樣Web Service在具備XML帶來的優(yōu)勢的同時 也擁有了由于XML所帶來的缺點 其中XML所帶來的最重要缺點就是Web Service將大量的占有CPU的資源 因為XML數(shù)據(jù)要經(jīng)過多步處理才能被系統(tǒng)使用 所以 即使調(diào)用一個功能較小的Web Service 也會感覺速度很慢 所以網(wǎng)絡(luò)中對運行Web Service的主機(jī)要求是很高的

HTTP 應(yīng)用程序是提供HTTP協(xié)議來調(diào)用Web Service的 所以HTTP在Web Service調(diào)用過程中 起著通道的作用

WSDL 是Web Service描述語言的簡寫 它是XML格式 其作用是描述Web Service 指示應(yīng)用程序和與Web Servie交互的方法 當(dāng)實現(xiàn)了某種Web Service服務(wù)時 為了讓別的程序調(diào)用 就必須告訴此Web Service的接口 如 服務(wù)名稱 服務(wù)所在的機(jī)器名稱 監(jiān)聽端口號 傳遞參數(shù)的類型等等 WSDL就是規(guī)定了有關(guān)Web Services描述的標(biāo)準(zhǔn)

UDDI 是Universal Description Discovery and Integration的縮寫 簡單說 UDDI用于集中存放和查找WSDL描述文件 起著目錄服務(wù)器的作用

SOAP 是 Simple Object Access Protocol 的縮寫 即 簡單對象訪問協(xié)議 SOAP是一種消息傳遞的協(xié)議 它規(guī)定了Web Services之間傳遞信息的方式

三 本文章的程序設(shè)計 調(diào)試和運行的環(huán)境

（ ） 微軟公司視窗 中文企業(yè)版

（ ） Visual Studio Net 企業(yè)構(gòu)建版 Net FrameWork SDK 版本號

（ ） IIS服務(wù)啟動

四 Visual Basic Net實現(xiàn)Web Service

Net 的大的推動了Web Service的發(fā)展 而Visual Studio Net的出現(xiàn)又極大的推動了Web Service的的廣泛應(yīng)用 在Visual Studio Net推出之前 編寫一個Web Service是一項非常復(fù)雜的工作 同樣調(diào)用這個Web Service也十分麻煩 由于Visual Studio Net對Web Service提供了較強(qiáng)的支持 很多細(xì)致 煩雜的工作都由Visual Studio Net自動完成了 這樣就使得上述工作變得非常簡單 甚至不了解Web Service和其相關(guān)的標(biāo)準(zhǔn) 協(xié)議 也可以使用Visual Studio Net編寫Web Service 并使用這個Web Service 下面就來用Visual Basic Net實現(xiàn)一個Web Service 此Web Service和數(shù)據(jù)庫相關(guān) 數(shù)據(jù)庫類型選用的是Sql Server 此Web Service提供了二個函數(shù)功能調(diào)用 其一名稱為Binding 用以實現(xiàn)數(shù)據(jù)綁定 其二名稱為Update 用以更新數(shù)據(jù)庫中的數(shù)據(jù)

以下就是Visual Basic Net實現(xiàn)此Web Service的具體步驟

啟動Visual Studio Net

選擇菜單「文件」|「新建」|「項目」后 彈出「新建項目」對話框

將「項目類型」設(shè)置為「Visual Basic項目」

將「模板」設(shè)置為「ASP NET Web 服務(wù)」

在「位置」的文本框中輸入//localhost/UpdateDataWebService 后 單擊「確定」按鈕 這樣在Visual Studio Net就會計算機(jī)Internet信息服務(wù)的默認(rèn)目錄中創(chuàng)建一個名稱為 UpdateDataWebService 文件夾 里面存放的是此項目的文件 具體如圖 所示

圖 創(chuàng)建Web Service項目對話框

選中「解決方案資源管理器」中的 Service a *** x 文件 單擊鼠標(biāo)右鍵 在彈出的菜單中選擇「查看代碼」 則進(jìn)入Service a *** x vb的編輯界面

在Service a *** x……vb的首部 在導(dǎo)入命名空間的代碼區(qū)中添加下列代碼 下列代碼作用是導(dǎo)入命名空間System Data SqlClient

Imports System Data SqlClient

在Service a *** x……vb文件的 Public Class Service Inherits System Web Services WebService 代碼后 添加下列代碼 下列代碼是在Web Service中定義二個功能調(diào)用

WebMethod ( ) Public Function Binding ( ) As DataSet　Dim con As New SqlConnection ( Server = localhost ; uid = sa ; pwd = ; database = northwind )　Dim daCust As New SqlDataAdapter ( Select * From Customers con )　Dim ds As New DataSet ( )　daCust Fill( ds Cust )　Return dsEnd FunctionWebMethod ( ) Public Function Update ( ByVal ds As DataSet ) As DataSet　Dim con As New SqlConnection ( Server = localhost ; uid = sa ; pwd = ; database = northwind )　Dim daCust As New SqlDataAdapter ( Select * From Customers con )　Dim cbCust As New SqlCommandBuilder ( daCust )　daCust Update ( ds Cust )　Return dsEnd Function

保存上述的修改 一個簡單的操作Sql Server數(shù)據(jù)庫的Web Service就完成了 此時單擊快捷鍵F 此Web Service就開始運行 并可以對外提供服務(wù)了 具體如圖 所示:

圖 :Web Service提供服務(wù)是的界面

Service a *** x vb的代碼清單如下:

Imports System Web ServicesImports System Data SqlClientWebService ( Namespace := ) _Public Class Service Inherits System Web Services WebServiceWebMethod ( ) Public Function Binding ( ) As DataSet Modify this Connection string to use your SQL Server and log on 　Dim con As New SqlConnection ( Server=localhost;uid=sa;pwd=;database=northwind )　Dim daCust As New SqlDataAdapter ( Select * From Customers con )　Dim ds As New DataSet ( )　daCust Fill ( ds Cust )　Return dsEnd FunctionWebMethod ( ) Public Function Update ( ByVal ds As DataSet ) As DataSet　Dim con As New SqlConnection ( Server=localhost;uid=sa;pwd=;database=northwind )　Dim daCust As New SqlDataAdapter ( Select * From Customers con )　Dim cbCust As New SqlCommandBuilder ( daCust )　daCust Update ( ds Cust )　Return dsEnd Function#Region Web 服務(wù)設(shè)計器生成的代碼 Public Sub New ( )　MyBase New ( )　 該調(diào)用是 Web 服務(wù)設(shè)計器所必需的 　InitializeComponent ( )　 在 InitializeComponent ( ) 調(diào)用之后添加您自己的初始化代碼End Sub Web 服務(wù)設(shè)計器所必需的Private ponents As System ComponentModel IContainer　 注意 以下過程是 Web 服務(wù)設(shè)計器所必需的　 可以使用 Web 服務(wù)設(shè)計器修改此過程 　 不要使用代碼編輯器修改它 　System Diagnostics DebuggerStepThrough ( ) Private Sub InitializeComponent ( )　ponents = New System ComponentModel Container ( )End SubProtected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) CODEGEN: 此過程是 Web 服務(wù)設(shè)計器所必需的 不要使用代碼編輯器修改它 If disposing Then　If Not ( ponents Is Nothing ) Thenponents Dispose ( )　End IfEnd IfMyBase Dispose ( disposing )End Sub#End Region Web 服務(wù)示例 HelloWorld ( ) 示例服務(wù)返回字符串 Hello World 若要生成項目 請取消注釋以下行 然后保存并生成項目 若要測試此 Web 服務(wù) 請確保 a *** x 文件為起始頁 并按 F 鍵 WebMethod ( ) Public Function HelloWorld ( ) As String HelloWorld = Hello World End FunctionEnd Class

下面就來介紹Visual Basic Net中使用這個Web Service提供的服務(wù)來更新數(shù)據(jù)庫的實現(xiàn)方法

五 在Visual Basic Net調(diào)用Web Service提供的服務(wù):

當(dāng)Web Service已經(jīng)處于對外提供服務(wù)狀態(tài) Visual Basic Net就可以通過HTTP 調(diào)用 來使用這些服務(wù)了 當(dāng)然前提是要了解Web Service對外提供服務(wù)所對應(yīng)的URL 當(dāng)了解到Web Service對應(yīng)的URL后 Visual Basic Net就像是使用本地的類庫一樣使用Web Service中提供的各種功能 所以有些人說 Web Service從實質(zhì)上說 就是通過HTTP調(diào)用遠(yuǎn)程組件的一種方式 在Visual Basic Net具體實現(xiàn)加入Web Service可參閱下面步驟中的第七步

在下面介紹的這個數(shù)據(jù)庫應(yīng)用程序是通過使用上面的Web Service中提供的 Binding 服務(wù) 對程序中DataGrid組件實現(xiàn)數(shù)據(jù)綁定 提供使用Web Service中提供的 Update 服務(wù) 通過程序中的DataGrid來修改數(shù)據(jù)庫 下面就是Visual Basic Net中使用Web Service提供服務(wù)來編寫數(shù)據(jù)庫應(yīng)用程序的具體步驟 :

啟動Visual Studio Net

選擇菜單【文件】|【新建】|【項目】后 彈出【新建項目】對話框

將【項目類型】設(shè)置為【Visual Basic項目】

將【模板】設(shè)置為【W(wǎng)indows應(yīng)用程序】

在【名稱】文本框中輸入【TestWebService】

在【位置】的文本框中輸入【E:\VS NET項目】 然后單擊【確定】按鈕 這樣在 E:\VS NET項目 中就產(chǎn)生了名稱為 TestWebService 文件夾 里面存放的就是TestWebService項目的所有文件

選擇【解決方案資源管理器】|【引用】后 單擊鼠標(biāo)右鍵 在彈出的菜單中選擇【添加Web 引用】 在彈出的【添加Web引用】對話框中的【地址】文本框中輸入 后 單擊回車鍵后 可得圖 所示界面 單擊圖 中【添加引用】按鈕 則在【TestWebService】項目中加入了Web引用 請注意 就是上面完成的Web Service對外提供服務(wù)的URL地址 具體可參閱圖 所示:

圖 :在【TestWebService】添加Web Service提供的服務(wù)

從【工具箱】中的【W(wǎng)indows窗體組件】選項卡中往Form 窗體中拖入下列組件 并執(zhí)行相應(yīng)的操作:

一個DataGrid組件

二個Button組件 分別是Button 至Button 并在這二個Button組件拖入Form 的設(shè)計窗體后 分別雙擊它們 則系統(tǒng)會在Form vb文件分別產(chǎn)生這二個組件的Click事件對應(yīng)的處理代碼

按照表 所示調(diào)整窗體中各組件屬性的數(shù)值

組件類型 組件名稱 屬性 設(shè)置結(jié)果 Form Form Text 測試Web Service Form MaximizeBox False Form FormBorderStyle FixedSingle Button Button Text 綁定 Button FlatStyle Flat Button Text 修改 Button FlatStyle Flat 　

表 :【TestWebService】項目中組件的主要屬性及其對應(yīng)數(shù)值

在調(diào)整完組件屬性值后 再按照圖 所示調(diào)整組件的位置和排列順序:

圖 :【TestWebService】項目中組件排列位置和順序

把Visual Studio Net的當(dāng)前窗口切換到Form vb的代碼編輯窗口 并用下列代碼替換Form vb中的Button 的Click事件對應(yīng)的處理代碼 下列代碼功能是使用Web Service中提供的 Binding 服務(wù)對DataGrid組件實現(xiàn)數(shù)據(jù)綁定:

Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　DataGrid DataSource = MyService Binding ( )　DataGrid DataMember = Cust End Sub

用下列代碼替換Form vb中的Button 的Click事件對應(yīng)的處理代碼 下列代碼功能是使用Web Service中提供的 Update 服務(wù)實現(xiàn)通過DataGrid來修改數(shù)據(jù)庫數(shù)據(jù):

Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　Dim ds As DataSet = DataGrid DataSource　Dim dsChanges As DataSet = ds GetChanges ( )　If Not ( dsChanges Is Nothing ) Thends Merge ( MyService Update ( dsChanges ) True )　End IfEnd Sub

至此 【TestWebService】項目的全部工作就完成了 調(diào)用Web Service是不是很簡單 此時單擊快捷鍵F 運行程序后 單擊程序中的【綁定】按鈕就會對程序中的DataGrid組件實現(xiàn)數(shù)據(jù)綁定 單擊程序中的【修改】按鈕 則程序會根據(jù)DataGrid中的內(nèi)容來更新數(shù)據(jù)庫 圖 就是【TestWebService】的運行界面:

圖 :【TestWebService】的運行界面

Form vb的代碼清單如下:

Public Class Form Inherits System Windows Forms Form#Region Windows 窗體設(shè)計器生成的代碼 Public Sub New ( )　MyBase New ( )　 該調(diào)用是 Windows 窗體設(shè)計器所必需的 　InitializeComponent ( )　 在 InitializeComponent ( ) 調(diào)用之后添加任何初始化End Sub 窗體重寫處置以清理組件列表 Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )　If disposing ThenIf Not ( ponents Is Nothing ) Then　ponents Dispose ( )End If　End If　MyBase Dispose ( disposing )End Sub Windows 窗體設(shè)計器所必需的Private ponents As System ComponentModel IContainer　 注意 以下過程是 Windows 窗體設(shè)計器所必需的　 可以使用 Windows 窗體設(shè)計器修改此過程 　 不要使用代碼編輯器修改它 　Friend WithEvents Button As System Windows Forms Button　Friend WithEvents Button As System Windows Forms Button　Friend WithEvents DataGrid As System Windows Forms DataGrid　System Diagnostics DebuggerStepThrough ( ) Private Sub InitializeComponent ( )　Me Button = New System Windows Forms Button ( )　Me Button = New System Windows Forms Button ( )　Me DataGrid = New System Windows Forms DataGrid ( )　CType ( Me DataGrid System ComponentModel ISupportInitialize ) BeginInit ( )　Me SuspendLayout ( )　Me Button FlatStyle = System Windows Forms FlatStyle Flat　Me Button Location = New System Drawing Point ( )　Me Button Name = Button 　Me Button Size = New System Drawing Size ( )　Me Button TabIndex = 　Me Button Text = 綁定 　Me Button FlatStyle = System Windows Forms FlatStyle Flat　Me Button Location = New System Drawing Point ( )　Me Button Name = Button 　Me Button Size = New System Drawing Size ( )　Me Button TabIndex = 　Me Button Text = 修改 　Me DataGrid DataMember = 　Me DataGrid Dock = System Windows Forms DockStyle Top　Me DataGrid HeaderForeColor = System Drawing SystemColors ControlText　Me DataGrid Name = DataGrid 　Me DataGrid Size = New System Drawing Size ( )　Me DataGrid TabIndex = 　Me AutoScaleBaseSize = New System Drawing Size ( )　Me ClientSize = New System Drawing Size ( )　Me Controls AddRange ( New System Windows Forms Control ( ) {Me DataGrid Me Button Me Button } )　Me Name = Form 　Me Text = 測試Web Service 　CType ( Me DataGrid System ComponentModel ISupportInitialize ) EndInit ( )　Me ResumeLayout ( False )End Sub#End RegionPrivate Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　DataGrid DataSource = MyService Binding ( )　DataGrid DataMember = Cust End SubPrivate Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　Dim ds As DataSet = DataGrid DataSource　Dim dsChanges As DataSet = ds GetChanges ( )　If Not ( dsChanges Is Nothing ) Thends Merge ( MyService Update ( dsChanges ) True )　End IfEnd SubEnd Class

六 總結(jié)

lishixinzhi/Article/program/net/201311/11839

誰知道 哪兒有VB.NET好點的教程呀？

到搜搜迅雷或者電騾去搜：

vb2005基礎(chǔ)教程.pdf

Visual Basic.NET技術(shù)內(nèi)幕.rar

======

特別是第2個，必看

vb點虐 如何在一個項目中創(chuàng)建類，并且使用他?

在任意form類或模塊中都可以創(chuàng)建類，跟建立函數(shù)和過程一樣。

示例：

public class form1

‘創(chuàng)建一個屬于form的子類，名稱為【類名】。

public class 類名

’定義類成員text

public text as string

end class

‘定義一個【類名】類的公共變量。

dim 類名1 as 類名

’定義一個過程，使用【類名】類的text成員

public sub 過程

‘實例化【類名1】

類名1=new 類名

類名1.text=“賦值”

’定義一個【新類】類的私用變量，并實例化。

dim 新類1 as new 新類

新類1.name=“一個字符串”

新類1.age=12

end sub

end class

‘’‘創(chuàng)建一個與form同級的類，名稱為【新類】

public class 新類

public sub new（）

end sub

public name as string

public age as integer

end class

在模塊中使用：

public class module1

dim a as new form1.類名

end module

文章題目：vb點虐 基礎(chǔ)教程 vbnet ui
網(wǎng)頁鏈接：http://www.muchs.cn/article0/ddihpio.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護(hù)、ChatGPT、靜態(tài)網(wǎng)站、用戶體驗、標(biāo)簽優(yōu)化、全網(wǎng)營銷推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)