s="123456"
10年積累的成都網(wǎng)站建設(shè)、做網(wǎng)站經(jīng)驗,可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你,你也不認識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程,更有鎮(zhèn)海免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
s1=left(s,2) " " mid(s,3,2) " " right(s,2)
s1的值就是"12 34 56"
Dim words As String = "123,3456,78910"
Dim splitnum() As String = Split(words, ",")
For i = 0 To 2
CType(Me.Controls("textbox" i), TextBox).Text = splitnum(i)
Next
操作系統(tǒng):編程環(huán)境:VS二0一三; 語言:VB.net; 數(shù)據(jù)庫:SQLserver二00吧 做數(shù)據(jù)庫連接發(fā)錯誤: 錯誤提示: 說明:用VB.net連接SQLServer數(shù)據(jù)庫 第種情況: 連接字符串Server=(Local);Database=charge_sys;UserID = sa;Password=一二三四5陸連接沒問題; 第二種情況: Server=(Local)換 Server=一9二.一陸吧.二四.一二三 即local換數(shù)據(jù)庫服務(wù)器IP址連接功現(xiàn)錯誤(PS:其機器) 第種情況代碼: Public Class UserDAO Public connStr As String = "Server=(Local);Database=charge_sys;User ID = sa;Password=一二三四5陸" Public Function UserLogin(ByVal userName As String, ByVal password As String) As Boolean Dim conn As New SqlConnection(connStr) Dim dbcmd As New SqlCommand Dim reader As SqlDataReader Dim sqlStr As String = "select * from User_Info where userID=@userName and PWD=@password" '與數(shù)據(jù)庫建立連接 conn.Open() '操作數(shù)據(jù)
現(xiàn)在用的比較多的有vb6.0和vb.net,其中vb.net又有很多版本。6.0算比較經(jīng)典的,用的人比較多,但。net功能更強大,而且版本不斷更新。而且用起來更方便。所以建議新學(xué)的話學(xué)vb.net。.net中2003版本用的比較多。但2003和vista,win7不兼容。另外,如果你考全國計算機二級的話,還是學(xué)6.0,因為考的是6.0。希望對你有幫助
放一個Timer Timer的Interval的屬性設(shè)置為1000 (單位為毫秒)
在外面定義個整形
dim i as integer =0
然后在在Timer的tick時間里寫
i=i+1
TextBox1.text=i