vb.net 整個網站開發教程

建議到書店去看看，大一點的書店，這樣的書挺多的，網上的大多都不太好，也不完整，最好找那種有開發步驟的，而不是凈粘一堆代碼的，這種東西有個大體框架，知道怎么個過程就夠了，具體開發細節一步步摸索，教程里的東西大多都運行不了，再說一步步照著做也沒什么長進

創新互聯2013年至今，先為丹陽等服務建站，丹陽等地企業，進行企業商務咨詢服務。為丹陽企業網站制作PC+手機+微官網三網同步一站式服務解決您的所有建站問題。

如何用vb.net進行網站開發

打開VS?,?選擇VisualBasic?--?Web?--?ASP.NET?Web?應用程序

如下圖:

求VB.NET讀取網頁內容寫法

Imports System.Net

Imports System.IO

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim stream As IO.Stream = WebRequest.Create(UrlAdress).GetResponse().GetResponseStream()

'注意urladress為你上面的網頁地址。

Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)

Label1.Text = Regex.Match(sr.ReadToEnd, "回答采納率").ToString

'sr。readtoend讀取網頁流到末尾，即使用正則表達式從網頁流中提取“回答采納率”，賦值給Label1.Text ‘沒有則為空

sr.Dispose() '關閉流

End Sub'要提取什么東西用正則表達式最好

End Class

vb 做個窗口,顯示網頁內容

首先要添加一個Microsoft

Web瀏覽器

控件

sub

page_load()

try

AxWebBrowser1.Anchor=AnchorStyles.Top

or

AnchorStyles.Botton

or

_

AnchorStyles.Left

or

AnchorStyles.Right

AxWebBrowser1.Navigate(ComboBox1.Text)'地址欄

catch

ex

as

exception

Msgbox(ex.Message)

end

try

end

sub

sub

ComboBox1_SelectedIndexChanged()

AxWebBrowser1.Navigate(combobox1.text)

end

sub

sub

combobox1_keypress()

if

asc(e.keychar)=system.windows.forms.keys.enter

then

AxWebBrowser1.Navigate(combobox1.text)'響應回車,開始連接

end

if

end

sub

以上是在vb.net環境的代碼,在vb中控件的命名肯能有點不同,比如combobox在vb中是combox.