VB.net做一個(gè)小程序 求教

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

創(chuàng)新互聯(lián)致力于網(wǎng)站建設(shè),網(wǎng)站制作設(shè)計(jì),營銷網(wǎng)頁按需設(shè)計(jì)網(wǎng)站,外貿(mào)網(wǎng)站制作,企業(yè)網(wǎng)站建設(shè),小程序設(shè)計(jì),網(wǎng)站SEO優(yōu)化,網(wǎng)站設(shè)計(jì)制作案例豐富,是成都做網(wǎng)站公司和建站公司,歡迎咨詢。

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim oledbDataAdapter As OleDb.OleDbDataAdapter

Dim oledbData As DataSet = New DataSet

Dim strConnect As String = "Provider= OraOLEDB.Oracle;Data Source=888;User ID=888;Password=888;"

oleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect)

Dim strSql As String

strSql = "select *" " from xx"

Dim oledbCommand As OleDb.OleDbCommand

oledbCommand.CommandText = strSql

oledbCommand.CommandType = CommandType.Text

oledbCommand.Connection = oleDbConnection1

oledbDataAdapter.SelectCommand = oledbCommand

oleDbConnection1.Open()

oledbDataAdapter.Fill(oledbData, "gy_bingrenxx")

oleDbConnection1.Close()

'在窗體上添加一個(gè)DataGridView控件,在這個(gè)位置加一句代碼

DataGridView1.DataSource = oledbDataAdapter.Tables("gy_bingrenxx")

End Sub

VB.NET 制作一個(gè)帶登錄窗口的通訊錄小程序

你是在問怎么做還是找人幫你做？

那你的窗體和控件什么的都創(chuàng)建好了嗎？數(shù)據(jù)庫有建立好嗎？你的這個(gè)是一個(gè)完整功能的程序而不是一個(gè)功能模塊。這需要很多代碼的，在百度知道里我想是沒法回答你，除非你把你會(huì)做的都做了比如創(chuàng)建好窗體和里邊的控件，建立好數(shù)據(jù)庫。如果登錄窗體的驗(yàn)證密碼功能你不會(huì)我可以幫助你寫代碼。這個(gè)樣子的問題才能回答，你現(xiàn)在要問整個(gè)程序怎么做.....

如果你一點(diǎn)也不會(huì)的話，我建議你先從一些基本的VB.NET知識(shí)開始學(xué)起，不要一開始就做一個(gè)這么多功能的程序。

求寫一個(gè)VB.Net小程序

隨機(jī)生成2-5階方陣：

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

Dim d(,) As Integer

Dim n As Integer

Dim i As Integer

Dim j As Integer

Randomize()

n = Int(4 * Rnd() + 2)

ReDim d(n, n)

Label1.Text = ""

For i = 1 To n

For j = 1 To n

d(i, j) = Int(Rnd() + 0.5)

Label1.Text = Label1.Text d(i, j) " "

Next

Label1.Text = Label1.Text vbCrLf

Next

End Sub

vb.net制作一個(gè)在窗體上不斷移動(dòng)的閃爍文字小程序。

private sub timer1_timer()

Dim a As Integer

Dim b As Integer

Dim c As Integer

a = Int(Rnd() * 255)

b = Int(Rnd() * 255)

c = Int(Rnd() * 255)

lblTitle.ForeColor = RGB(a, b, c)

end sub

vb.net的小程序

你要做一個(gè)考試系統(tǒng)？？這可不是小程序，不過如果是超精簡的話，我倒可以寫個(gè)思路給你。

在form添加一個(gè)label 和四個(gè)command1(組成一個(gè)控件組修改index屬性，按順序設(shè)置為ABCD)和一個(gè)command2(可要可不要，這個(gè)是作為跳過用的)

定義全局變量 questions() as string,questionid as integer，answers() as string

在form_load中，將問題和答案讀入questions()和answers()中，然后將第一個(gè)問題顯示在label中，設(shè)置questionid=1

之后在command1_click(index as integer)中用select語句根據(jù)questionid將答案和回答比較，然后顯示下一題，同時(shí)更改questionid。。。大概就這樣

command2_Click()就直接顯示下一題和更改questionid

問題結(jié)束后就OK了，之后要加什么可以自己加上去~

VB.NET寫的智能設(shè)備小程序,需要GC么?Application.exit是否能釋放資源?

如果一個(gè)程序要用Application.exit來退出，那說明太失敗了。。。

一般來說，都是用close關(guān)閉就可以了。

用.NET平臺(tái)開發(fā)，只要你在操作數(shù)據(jù)庫或者IO的時(shí)候沒有忘記關(guān)閉資源連接，一般是不需要你手動(dòng)釋放的。

分享名稱：vb.net新手小程序,vbs編寫各種趣味小程序
當(dāng)前地址：http://jinyejixie.com/article44/hojjhe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機(jī)網(wǎng)站建設(shè)、動(dòng)態(tài)網(wǎng)站、企業(yè)建站、、網(wǎng)站策劃、響應(yīng)式網(wǎng)站

廣告

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