用vb.net編寫記事本源代碼

Dim sFileName As String

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡(jiǎn)單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：域名注冊(cè)、網(wǎng)站空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、康保網(wǎng)站維護(hù)、網(wǎng)站推廣。

Dim Search

Private Sub dateTimeMenu_Click()

Text1.Text = Now

End Sub

Private Sub deleteMenu_Click()

Text1.Text = Left(Text1.Text, Text1.SelStart) + Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1)

End Sub

Private Sub findMenu_Click()

Search = InputBox("請(qǐng)輸入要查找的字詞：")

Dim Where1 '獲取需要查找的字符串變量

Text1.SetFocus '文本框獲得焦點(diǎn)，以顯示所找到的內(nèi)容Search = InputBox("請(qǐng)輸入要查找的字詞：")

Where1 = InStr(Text1.Text, Search) '在文本中查找字符串

If Where1 Then

'若找到則設(shè)置選定的起始位置并使找到的字符串高亮

Text1.SelStart = Where1 - 1

Text1.SelLength = Len(Search)

' Me.Caption = Where1 '測(cè)試用

'否則給出提示

Else: MsgBox "未找到所要查找的字符串。", vbInformation, "提示"

End If

End Sub

Private Sub findNextMenu_Click()

Dim Where2

Dim StartMe As Integer '查找的起始位置變量

Text1.SetFocus '文本框獲得焦點(diǎn)

StartMe = Text1.SelLength + Text1.SelStart + 1 '給變量賦值

Where2 = InStr(StartMe, Text1.Text, Search) '令其從上次找到的地方找起

If Where2 Then

Text1.SelStart = Where2 - 1

Text1.SelLength = Len(Search)

Else: MsgBox "未找到所要查找的字符串.", vbInformation, "提示"

End If

End Sub

Private Sub aboutMenu_Click()

MsgBox Space(2) "文本編輯器版本號(hào)1.0" Chr(13) "由西南財(cái)經(jīng)大學(xué)天府學(xué)院" Chr(13) Space(5) "肖忠 開發(fā)" Chr(13) Space(2) "copyright:天府學(xué)院"

End Sub

Private Sub allMenu_Click()

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End Sub

Private Sub backcolorMenu_Click() '設(shè)置背景色代碼

Form1.CommonDialog1.Action = 3

Text1.BackColor = Form1.CommonDialog1.Color

End Sub

Private Sub colorMenu_Click() '改變文字顏色代碼

Form1.CommonDialog1.Action = 3

Text1.ForeColor = Form1.CommonDialog1.Color

End Sub

Private Sub cutMenu_Click()

Clipboard.SetText Text1.SelText

Text1.Text = Left(Text1.Text, Text1.SelStart) + Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1)

End Sub

Private Sub exitMenu_Click()

End

End Sub

Private Sub fontMenu_Click() '字體菜單代碼

Form1.CommonDialog1.Flags = 3 Or 256

Form1.CommonDialog1.Action = 4

If Len(Form1.CommonDialog1.FontName) = 0 Then

Form1.Text1.FontName = "宋體"

Else

Form1.Text1.FontName = Form1.CommonDialog1.FontName

End If

Form1.Text1.FontSize = Form1.CommonDialog1.FontSize

If Form1.CommonDialog1.FontBold = True Then

Form1.Text1.FontBold = True

Else

Form1.Text1.FontBold = False

End If

If Form1.CommonDialog1.FontItalic = True Then

Form1.Text1.FontItalic = True

Else

Form1.Text1.FontItalic = False

End If

Text1.ForeColor = Form1.CommonDialog1.Color

End Sub

Private Sub Form_Load()

Form1.Text1.Width = Form1.Width - 130

Form1.Text1.Height = Form1.Height

End Sub

Private Sub Form_Resize()

Form1.Text1.Width = Form1.Width - 130

Form1.Text1.Height = Form1.Height

End Sub

Private Sub help1Menu_Click()

Form1.CommonDialog1.HelpCommand = cdlHelpForceFile

Form1.CommonDialog1.HelpFile = "c:\windows\system32\winhelp.hlp"

CommonDialog1.ShowHelp

End Sub

Private Sub newMenu_Click()

If Len(Trim(Text1.Text)) = 0 Then

Form1.Caption = "我的記事本" "--" "未命名"

sFileName = "未命名"

Text1.FontSize = 15

Text1.FontName = "宋體"

Text1.Text = ""

Else

Call saveAsMenu_Click

Form1.Caption = "我的記事本" "--" "未命名"

sFileName = "未命名"

Text1.FontSize = 15

Text1.FontName = "宋體"

Text1.Text = ""

End If

End Sub

Private Sub openMenu_Click() '打開文件代碼

If Len(Trim(Text1.Text)) = 0 Then

Form1.Caption = "我的記事本"

Form1.CommonDialog1.Filter = "文本文件|*.txt"

Form1.CommonDialog1.Flags = 4096

Form1.CommonDialog1.Action = 1

If Len(Form1.CommonDialog1.FileName) 0 Then

sFileName = Form1.CommonDialog1.FileName

Form1.Caption = Form1.Caption "--" Form1.CommonDialog1.FileTitle

Open sFileName For Input As #1

Text1.FontSize = 15

Text1.FontName = "宋體"

Do While Not EOF(1)

Line Input #1, Text$

All$ = All$ + Text$ + Chr(13) + Chr(10)

Loop

Text1.Text = All

Close #1

End If

Else

Call saveAsMenu_Click

Form1.Caption = "我的記事本"

Form1.CommonDialog1.Filter = "文本文件|*.txt"

Form1.CommonDialog1.Flags = 4096

Form1.CommonDialog1.Action = 1

If Len(Form1.CommonDialog1.FileName) 0 Then

sFileName = Form1.CommonDialog1.FileName

Form1.Caption = Form1.Caption "--" Form1.CommonDialog1.FileTitle

Open sFileName For Input As #1

Text1.FontSize = 15

Text1.FontName = "宋體"

Do While Not EOF(1)

Line Input #1, Text$

All$ = All$ + Text$ + Chr(13) + Chr(10)

Loop

Text1.Text = All

Close #1

End If

End If

End Sub

Private Sub pasteMenu_Click() '粘貼菜單代碼

Text1.Text = Left(Text1.Text, Text1.SelStart) + Clipboard.GetText() + Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1)

End Sub

Private Sub printMenu_Click()

Form1.CommonDialog1.ShowPrinter

For i = 1 To CommonDialog1.Copies

Printer.Print Text1.Text

Printer.Print Text1.Text

Next

Printer.EndDoc

End Sub

Private Sub saveAsMenu_Click() '另存為菜單代碼

If Len(Trim(Text1.Text)) 0 Then

Form1.CommonDialog1.DialogTitle = "保存文件"

Form1.CommonDialog1.InitDir = "D:\"

Form1.CommonDialog1.Filter = "文本文件|*.txt"

Form1.CommonDialog1.Flags = 2

Form1.CommonDialog1.ShowSave

If Len(Form1.CommonDialog1.FileName) 0 Then

sFileName = Form1.CommonDialog1.FileName

Open sFileName For Output As #1

whole$ = Text1.Text

Print #1, whole

Close #1

End If

End If

End Sub

Private Sub saveMenu_Click()

If Len(Trim(Text1.Text)) 0 Then

Form1.CommonDialog1.DialogTitle = "保存文件"

Form1.CommonDialog1.InitDir = "D:\"

Form1.CommonDialog1.FileName = "新建文本"

Form1.CommonDialog1.Filter = "文本文件|*.txt"

Form1.CommonDialog1.Flags = 2

Form1.CommonDialog1.ShowSave

If Len(Form1.CommonDialog1.FileName) 0 Then

sFileName = Form1.CommonDialog1.FileName

Open sFileName For Output As #1

whole$ = Text1.Text

Print #1, whole

Close #1

End If

End If

End Sub

Private Sub statusMenu_Click()

End Sub

Visual Basic .NET的編譯

.NET語言，包括VB.NET，它們所開發(fā)的程序源代碼并不是直接編譯成能夠直接在操作系統(tǒng)上執(zhí)行的二進(jìn)制本地代碼，而是被編譯成為中間代碼，然后通過.NET Framework的通用語言運(yùn)行時(shí)（CLR）——執(zhí)行。　所有的.Net編程語言都被編譯成這種被稱為MSIL（Microsoft Intermediate Language ）的中間代碼，這與Java的字節(jié)碼類似。因此雖然最終的程序在表面上仍然與傳統(tǒng)意義上的可執(zhí)行文件都具有“.exe”的后綴名。但是實(shí)際上，如果計(jì)算機(jī)上沒有安裝.Net Framework，那么這些程序?qū)⒉荒軌虮粓?zhí)行。在程序執(zhí)行時(shí)，.Net Framework將中間代碼翻譯成為二進(jìn)制機(jī)器碼，從而使它得到正確的運(yùn)行。最終的二進(jìn)制代碼被存儲(chǔ)在一個(gè)緩沖區(qū)中。所以一旦程序使用了相同的代碼，那么將會(huì)調(diào)用緩沖區(qū)中的版本。這樣如果一個(gè).Net程序第二次被運(yùn)行，那么這種翻譯不需要進(jìn)行第二次，速度會(huì)明顯加快。

VB.NET代碼之所以不直接編譯成二進(jìn)制機(jī)器碼，是基于.NET跨平臺(tái)這一目標(biāo)的考慮。 Visual Basic .NET 2002

2002年Visual Basic .NET 問世，此后Visual Basic 包含在 Visual Studio套裝中。該版本又被稱為VB 7.0，是與C#一起在2002年發(fā)布的最初始的VB.net版本。C#是一門新設(shè)計(jì).Net語言并且語法上和Java有一定的相似性，所以被大力宣傳為微軟對(duì)付JAVA的王牌，受到媒體極力關(guān)注。然而VB.NET則相反被錯(cuò)誤地認(rèn)為僅僅是VB的一個(gè)升級(jí)(故有時(shí)被稱為VB7)，它的受關(guān)注度也因此較低，當(dāng)然VB社區(qū)以及喜歡Basic系列風(fēng)格的語言的人還是很關(guān)注它的。那些試用過此版VB.NET的人在層層幕布下發(fā)現(xiàn)一個(gè)強(qiáng)大卻艱深的語言。不過任何一種語言都是有弱點(diǎn)的，當(dāng)然后面這一點(diǎn)也是.NET語言的共性，那就是運(yùn)行的計(jì)算機(jī)上必須裝相應(yīng)版本的.Net framework。

Visual Basic .NET 2003

該版本是和.NET Framework 1.1一起發(fā)布的。新功能包括對(duì).NET Compact Framework的支持和更好的VB升遷向?qū)А２⒏倪M(jìn)了運(yùn)行狀況，IDE穩(wěn)定性(尤其是后臺(tái)編譯器)，以及運(yùn)行時(shí)RunTime穩(wěn)定性。另外，VB.NET2003還有一個(gè)學(xué)院版Visual Studio .NET 2003 Academic Edition (VS03AE)，它是分發(fā)給各國(guó)某些學(xué)者免費(fèi)使用的版本。

Visual Basic .NET 2005

該版本是VB.Net的重大轉(zhuǎn)變。但是這個(gè)版本的 Visual Studio 仍然還是面向 .NET 框架的（版本2.0）。它同時(shí)也能開發(fā)跨平臺(tái)的應(yīng)用程序，如開發(fā)使用微軟操作系統(tǒng)的手機(jī)的程序等。總體來說是一個(gè)非常龐大的軟件，甚至包含代碼測(cè)試功能。

Visual Basic .NET 2008

Visual Basic 2008于2008年2月1日發(fā)布。通過幾年的發(fā)展，它已成為一種專業(yè)化的開發(fā)語言和環(huán)境。用戶可用 Visual Basic 快速創(chuàng)建 Windows 程序，現(xiàn)在還可以編寫企業(yè)水平的客戶/服務(wù)器程序及強(qiáng)大的數(shù)據(jù)庫(kù)應(yīng)用程序。

Visual Studio 2010

Visual Studio 2010于2010年4月12日上市，其中包含 Visual Basic .NET 2010 。Visual Studio是微軟公司推出的開發(fā)環(huán)境。是目前最流行的Windows平臺(tái)應(yīng)用程序開發(fā)環(huán)境。Visual Studio 2010集成開發(fā)環(huán)境（IDE）的界面被重新設(shè)計(jì)和組織，變得更加簡(jiǎn)單明了。Visual Studio 2010同時(shí)帶來了 NET Framework 4.0、Microsoft Visual Studio 2010 CTP( Community Technology Preview--CTP)，并且支持開發(fā)面向Windows 7的應(yīng)用程序。除了Microsoft SQL Server，它還支持 IBM DB2和Oracle數(shù)據(jù)庫(kù)等。

Visual Studio 2012

從該版本開始VB.NET已沒有單獨(dú)發(fā)售的IDE了，微軟給Visual Basic .NET 以及C#開發(fā)者的IDE就只有Visual Studio 了。該版本增加了modern（原metro）風(fēng)格的支持等眾多新特性。

Visual Studio 2015

增加了大量新特性，提升你的編寫效率。對(duì)編譯器和開發(fā)環(huán)境優(yōu)化，提高編譯速度，幫你重構(gòu)代碼和解決錯(cuò)誤。最明顯的14項(xiàng)改進(jìn)見參考資料的14 Top Improvements in Visual Basic 14。 不能簡(jiǎn)單認(rèn)為VB .net是VB的新版本。首先它們一個(gè)是完全面向?qū)ο蟮恼Z言，而另一個(gè)不是完全面向?qū)ο蟮模浯蜼B .NET是構(gòu)建于.Net framework之上的。當(dāng)然，它們同屬Basic系列語言，又同為微軟所開發(fā)，語法上有一定的相似或沿襲是很正常的，但不能因此認(rèn)為VB .NET是VB的升級(jí)版。

對(duì)于想從VB轉(zhuǎn)到VB .NET的開發(fā)者來說，如果你只是喜歡Basic系列語言的代碼風(fēng)格，那么你的遷移會(huì)很順利，如果你想沿襲之前VB的編程思想和習(xí)慣，你會(huì)很苦惱，原因之一就是VB .NET貫穿的是完全面向?qū)ο蟮乃枷耄鳹B不是。

微軟為使VB開發(fā)者更容易轉(zhuǎn)到VB .NET，兼容一些VB6函數(shù)和庫(kù)的用法，但是比不上.NET語言中自帶的可替換的函數(shù)和庫(kù)來得高效，所以我們應(yīng)該盡量使用.NET下的新方法。微軟還提供了VB到VB .NET的自動(dòng)轉(zhuǎn)換器，雖幾經(jīng)改進(jìn)，但仍無法轉(zhuǎn)換全部代碼，幾乎所有非小型程序都需要人工修改以完成編譯。為了運(yùn)行優(yōu)化，大多程序需要大量工作去重構(gòu)。

爭(zhēng)議與解釋：許多資深的VB程序員抱怨VB .NET，因?yàn)閂B .NET丟掉了許多不再發(fā)行的VB6中使用的大量語言constructs和用戶界面功能，并且對(duì)保留下來的東西也改變了語意。其實(shí)不應(yīng)該再把VB和VB .NET做功能上的比較，因?yàn)樗鼈兂擞行┱Z法相似外，可以說是完全不同的兩種語言。

Visual Basic .NET與VB都代表了Basic系列語言的編碼風(fēng)格，Visual Basic .NET是這種編碼風(fēng)格在.NET平臺(tái)上的繼承，而不是同系列語言VB的沿襲。

語言革命

* 1991年4月，Visual Basic誕生，Visual Basic 1.0 Windows版本發(fā)布。這個(gè)連接編程語言和用戶界面的進(jìn)步被稱為Tripod（有些時(shí)候叫做Ruby），最初的設(shè)計(jì)是由阿蘭·庫(kù)珀（Alan Cooper）完成的。 1992年9月，Visual Basic 1.0 DOS版本發(fā)布。

* 1998年夏天，VB6.0發(fā)布。

* 2001年，Visual Basic .NET和.NET Framework發(fā)布。Visual Basic .NET正式誕生。

* 2005年，微軟宣布將不會(huì)再對(duì)非.NET版本的VB進(jìn)行支持。

*2010年，Visual Basic .NET隨Visual Studio 2010發(fā)布，不再提供單獨(dú)的Visual Basic .NET IDE。 MONO開發(fā)平臺(tái)提供了一個(gè)VB.NET特性庫(kù)(VB.NET-specific libraries)并著手研發(fā)一個(gè)編譯器和Windows Forms GUI 庫(kù)。由于各方面的原因，VB.NET開發(fā)的開源工具較C#發(fā)展得慢一些。

如何用vb.net獲得網(wǎng)頁(yè)的源代碼

Dim url As String=" 網(wǎng)址"

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 獲取或設(shè)置一個(gè)值，該值指示是否與

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網(wǎng)頁(yè)源代碼

如何用vb.net獲取網(wǎng)頁(yè)源代碼

使用webbrowser控件來加載網(wǎng)頁(yè)，然后再 Private Sub WebBrowser1_DocumentCompleted下通過使用WebBrowser1.Document.Body.InnerHtml 來獲取網(wǎng)頁(yè)的源代碼，或使用 WebBrowser1.Document.Body.InnerText來獲取網(wǎng)頁(yè)中的文本。之后可以通過字符串控制指令或者正則表達(dá)式來精確獲取到你所需的數(shù)據(jù)。

VB程序源碼如何使用

你需要安裝vb6.0開發(fā)軟件

如果安裝了，就可以直接打開源碼測(cè)試了，后綴名是vbp，（就是vb的工程文件）

如果沒有安裝vb6.0，還想打開源碼看程序，那就右擊 用記事本 打開后綴名為frm的文件，他是vb的窗口文件，源碼都在他里面

一般得源碼是沒有生成exe可執(zhí)行文件的，那樣文件太多，太大，浪費(fèi)空間

如果你自己想生成exe可執(zhí)行文件，那就vb6.0得文件菜單中把文件保存成exe可執(zhí)行文件就可以了，非常簡(jiǎn)單

好運(yùn)！

求vb.net的源代碼，最好說明其解決問題，越多越好，滿意加50分。

下面這段代碼，是我用來計(jì)算每個(gè)月存500元進(jìn)銀行，連續(xù)30年，最后連本帶利能有多少錢。這里面涉及復(fù)利計(jì)算。界面中右邊的文本框用來輸出每一次計(jì)算的結(jié)果。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

? Dim nianxian As Integer '年限變量

? Dim dingcun As Integer '定存變量

? Dim fuli_big As Long '大復(fù)利

? Dim fuli_small As Long '小復(fù)利

? Dim i As Integer '循環(huán)變量

? Dim DATAstring As String '數(shù)據(jù)字符串

? nianxian = Val(年限_TextBox.Text)

? dingcun = Val(定存_TextBox.Text)

? DATAstring = ""

? For i = 1 To nianxian

? ? ? fuli_small = dingcun * (1 + 0.1875)

? ? ? dingcun = fuli_small

? ? ? fuli_big = fuli_big + fuli_small

? ? ? DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

? ? ? 'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

? Next

? 'fuli_big = fuli_small

? TextBox1.Text = DATAstring

? 結(jié)果_TextBox.Text = Str(fuli_big) + "元"

End Sub

網(wǎng)頁(yè)標(biāo)題：vb.net開發(fā)源碼,vb源代碼網(wǎng)站
本文地址：http://chinadenli.net/article33/dsgscss.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、網(wǎng)站收錄、用戶體驗(yàn)、網(wǎng)站設(shè)計(jì)公司、建站公司、App設(shè)計(jì)

廣告

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