Visual Basic .NET Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮闹虚g解釋性語言,可以看作是Visual Basic在.Net Framework平臺上的升級版本,增強(qiáng)了對面向?qū)ο蟮闹С?。但由于改動太大,?dǎo)致VB.net對VB的向后兼容性不好,在業(yè)界引起不小的爭議。 大多的VB.Net程序員使用Visual Studio .Net作為IDE(integrated development environment). SharpDevelop是另一種可用的開源的IDE。VB.Net需要在.Net Framework平臺上才能執(zhí)行。 VB.NET的主頁 1 目前版本 2005年9月以來,存在三種不同版本的Visual Basic .NET. 1 Visual Basic .NET:是隨vc#和ASP.NET一起在2002年發(fā)布的最初始的VB.net版本。C#被大力宣傳為微軟對付JAVA的王牌,受到媒體極力關(guān)注。然而VB.NET(有時被稱為VB7)影響面不廣,這導(dǎo)致VB社區(qū)之外很少人關(guān)注它。那些試用過此版VB.NET的人在層層幕布下發(fā)現(xiàn)一個強(qiáng)大卻艱深的語言,而且還有不少弱點(diǎn),比如它比VB6來有一個大了十倍的進(jìn)行時(RunTime),內(nèi)存footprint也大大增加。 2 Visual Basic .NET 2003:是和.NET Framework 1.1一起發(fā)布的。新功能包括對.NET Compact Framework的支持和更好的VB升遷向?qū)?。并改進(jìn)了運(yùn)行狀況,IDE穩(wěn)定性(尤其是后臺編譯器),以及運(yùn)行時RunTime穩(wěn)定性。另外,VB.NET 2003還有一個學(xué)院版Visual Studio .NET 2003 Academic Edition (VS03AE),它是分發(fā)給各國某些學(xué)者免費(fèi)使用的版本。 3 Visual Basic 2005:VB2005是VB.Net的重大轉(zhuǎn)變,微軟決意在其軟件名稱中去掉了.NET部份。在VB2005中,微軟增加了許多新功能,以引用VB對于初學(xué)者來說的一些優(yōu)點(diǎn): A, Edit and Continue - 也許是從VB那里丟掉的最大的功能,允許代碼的編輯和執(zhí)行立即的執(zhí)行恢復(fù)。 B, Design-time expression evaluation C, My偽命名空間,提供了訪問.NET Framework特定域的不需大量編碼的簡單方式;還能動態(tài)產(chǎn)生類(顯然的是My.Forms);提供了改進(jìn)的VB到VB.NET轉(zhuǎn)換向?qū)?;Using 語法,簡化了需要部署pattern to free resources的對象的使用;My編碼,可隱藏由VB.NET IDE寫的模板代碼;數(shù)據(jù)源綁定,簡化了數(shù)據(jù)庫C/S開發(fā) 上述功能(尤其是My)增強(qiáng)了VB.Net成為快速開發(fā)應(yīng)用平臺的可能,并與C#進(jìn)一步區(qū)別開來。參見: 使用My開發(fā) 通過My命名空間訪問.NET Framework 和項(xiàng)目 Visual Basic 2005 通過增加新功能而填補(bǔ)了和其它所謂更強(qiáng)大的.NET語言的差距。 A, 增加了.NET 2.0語言功能包括:generics和Partial類(在一個文件里定義一個類的某部份然后再添加更多的定義,這個方法在整合用戶編碼和系統(tǒng)自動生成編碼時尤其有用)。 B, XML注釋,可以被NDoc等工具處理而自動生成文檔 C, operator overloading D, 支持在其它語言中已經(jīng)廣泛使用的unsigned integer數(shù)據(jù)類型。 E, 支持在許多C衍生編程語言已提供的復(fù)合操作符如:"+=", "-=" 4, IsNot專利:If Not X Is Y表達(dá)式被轉(zhuǎn)換成If X IsNot Y。當(dāng)微軟為IsNot申請專利時招致了惡名(尤其來自Real公司)。 5, Visual Basic 2005 Express:作為VS產(chǎn)品線上的一部份,VB2005 Express是專為業(yè)余愛好者和新手定制的免費(fèi)的VS Express系列的一員。Express版本目的定位在幫助人們學(xué)習(xí)一種語言,所以他們有和標(biāo)準(zhǔn)版一致的用戶界面,只是少了一些高級功能。另外,VS 查看更多答案
成都創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),惠安企業(yè)網(wǎng)站建設(shè),惠安品牌網(wǎng)站建設(shè),網(wǎng)站定制,惠安網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,惠安網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿,時刻以成就客戶成長自我,堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
記得采納啊
1.不正確
Dim abc As myClass,定義一個可以引用myClass類型對象的變量abc。這個abc變量存在于棧上。
abc=New myClass。New myClass創(chuàng)建myClass實(shí)例對象,這個對象存在于托管堆上。然后(同時)讓abc引用(指向)這個對象。
abc變量在棧上,而對象在托管堆上。
abc儲存的是對象的地址,而不是對象本身。
看下面的代碼
Dim a As myClass,b As myClass,c As myClass
a=New myClass
b=a
c=a
整個過程中只創(chuàng)建了一個myClass對象,位于托管堆上。
三個myClass類型的變量a、b、c位于棧上,都指向了這一個myClass對象
2.類的成員分 實(shí)例成員 和 靜態(tài)成員
實(shí)例成員 必須在實(shí)例對象上調(diào)用
靜態(tài)成員 可以直接調(diào)用,不需要實(shí)例對象。
Imports System.Data.OleDb
'Imports System.Data.OracleClient
Imports System.Data.SqlClient
'鏈接Oracle
'cn = New SqlConnection(""Data Source=TNS名稱;Persist Security Info=True;User ID=用戶名;Password=密碼;" ")
'Imports System.Data.OracleClient
'Dim oOracleConn As OracleConnection = New OracleConnection()
'oOracleConn.ConnectionString = ""Data Source=MyOracleDB; User Id=username; Password=passwd; Integrated Security=no; "
'oOracleConn.Open()
'鏈接SQL Server
'cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=;")
'鏈接Access
'cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")
Public Class Fun_DataBase
Dim cn As OleDbConnection
Dim cm As OleDbCommand
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim db_path As String = "D:\Documents\Visual Studio 2013\Projects\VBnet1\VBnet1\Resources\Database1.mdb"
Function Fun_sql1(Str_sql As String, V_調(diào)用來源 As String) '按指定sql,反饋1個查詢值
Try
'Dim cn As New OleDbConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")
'鏈接Access
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")
cn.Open() 'sql語句執(zhí)行前,必須打開連接
cm = New OleDbCommand(Str_sql, cn)
cm.ExecuteNonQuery()
Dim strValue As String = cm.ExecuteScalar.ToString
'MessageBox.Show(strValue)
Fun_sql1 = strValue
cn.Close()
Fun_sql1 = True
Catch ex As Exception
MessageBox.Show(V_調(diào)用來源 ":執(zhí)行sql語句失??!" Str_sql)
Fun_sql1 = False
End Try
End Function
Function Fun_sqln(Str_sql As String, V_調(diào)用來源 As String) '按指定sql,反饋1行n列查詢值
Try
'鏈接Access
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")
cn.Open() 'sql語句執(zhí)行前,必須打開連接
Dim cmd As New OleDbCommand("select * from grade", cn)
'Dim dr As SqlDataReader
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader()
Dim strDisplay As String = ""
While dr.Read()
Fun_sqln = dr(0).ToString "|"
End While
cn.Close()
Fun_sqln = True
Catch ex As Exception
MessageBox.Show(V_調(diào)用來源 ":執(zhí)行sql語句失??!" Str_sql)
Fun_sqln = False
End Try
'Dim s = Split(F.Fun_sqln("ef"), "|")
'Dim i As Integer
'i = UBound(s)
'For i = 0 To UBound(s)
' MessageBox.Show(s(i))
'Next
End Function
Public Function Fun_sql_exec(Str_sql As String, V_調(diào)用來源 As String) '執(zhí)行指定sql,反饋T|F
Try
'鏈接Access
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")
cn.Open() 'sql語句執(zhí)行前,必須打開連接
cm = New OleDbCommand(Str_sql, cn)
cm.ExecuteNonQuery()
cn.Close()
Fun_sql_exec = True
Catch ex As Exception
MessageBox.Show(V_調(diào)用來源 ":執(zhí)行sql語句失?。? Str_sql)
Fun_sql_exec = False
End Try
End Function
1 生成txt文件。
DimSaveFileDialog1AsNewSaveFileDialog()?'創(chuàng)建一個保存對話框
SaveFileDialog1.Filter?="txt?files?(*.txt)|*.txt"?'設(shè)置擴(kuò)展名
IfSaveFileDialog1.ShowDialog()?=?System.Windows.Forms.DialogResult.OKThen?'如果確定保存
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename,?Textbox1.Text,False)?'保存文本,False表示不追加文本,直接覆蓋其內(nèi)容
EndIf
原文鏈接:
這是我自己寫的一個進(jìn)度條控件,如圖:
邊框粗細(xì)和邊框顏色以及進(jìn)度條顏色都可以調(diào)。
進(jìn)度條大小你可以自己拉伸。
同時,進(jìn)度條還提供了豐富的動畫效果(如邊框閃爍效果【可關(guān)閉】,進(jìn)度條滑動效果等。)
將邊框粗細(xì)調(diào)為0即可實(shí)現(xiàn)無邊框(同時邊框閃爍效果(見“Flash”屬性)也將關(guān)閉?。?/p>
進(jìn)度值(見“ProgressValue”屬性)類型為Single(單精度浮點(diǎn)數(shù))
將我提供的DLL文件拖到工具箱即可安裝
只能用于Windows窗體應(yīng)用程序!
目標(biāo)平臺:.Net Framework 3.5
屬性說明:
1.BorderColor 用于調(diào)整邊框顏色
2.BorderWidth 用于調(diào)整邊框粗細(xì)
3.Flash 用于開啟、關(guān)閉邊框閃爍效果
4.ProgressValue 用于設(shè)置、查看進(jìn)度值
5.ForeColor 用于設(shè)置進(jìn)度條顏色
6.BackColor 用于設(shè)置控件背景色
附件如果丟失,請私信。