VB.net窗體設(shè)計(jì)中，如何讀取.txt文件中的數(shù)據(jù)？

1、新建一個(gè)標(biāo)準(zhǔn)的VB EXE工程，只有一個(gè)Form，F(xiàn)orm上有兩個(gè)按鈕：Command1和Command2。

成都創(chuàng)新互聯(lián)專注于企業(yè)營銷型網(wǎng)站建設(shè)、網(wǎng)站重做改版、匯川網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5場景定制、成都做商城網(wǎng)站、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)公司、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為匯川等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

2、雙擊Command1添加如下代碼

Private Sub Command1_Click()

Dim strFile? ? ?As String

Dim intFile? ? ?As Integer

Dim strData? ? ?As String

strFile = "c:\學(xué)生成績.txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

3、按F8開始單步調(diào)試代碼，點(diǎn)擊Command1，進(jìn)入單步調(diào)試功能，

4、多次按下F8或直接按下F5運(yùn)行完成，就完成了讀取文本文件內(nèi)容并輸出到立即窗口。

vb.net高人請進(jìn)，關(guān)于vb.net b/s書籍。

給你一點(diǎn)建議：這樣太泛泛，有書也不一定能幫你。你應(yīng)該規(guī)劃好具體的功能，一塊一塊去查資料。程序無外乎界面的設(shè)計(jì)與控制、數(shù)據(jù)庫的連接也控制，單據(jù)的增刪改查，報(bào)表的處理，打印的處理，權(quán)限的處理。具體做的一個(gè)部分一個(gè)部分問會(huì)更容易得到答案，也會(huì)學(xué)習(xí)到更多的東西，進(jìn)步會(huì)非常快的。

vb.net2010中，如何實(shí)現(xiàn)單據(jù)打印，請各位高手提供一些源碼和一些教程，萬分感謝！

vb 里有printer對象，打印很簡單。

vb.net 升級為

Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6 .Printer

這個(gè)沒用過,你研究下

用VB.NET設(shè)計(jì)一個(gè)以秒為基本單位的表，并且顯示在窗體上的步驟，并且給出關(guān)鍵代碼

是我以前自己設(shè)計(jì)的用來測試自己點(diǎn)鈔速度用的，希望是你需要的

以下是窗體的全部代碼

Public?Class?Form1

Dim?StartFlag?As?Boolean?=?False

Dim?secon?As?Integer

Dim?minut?As?Integer

'空格

Private?Sub?Form1_KeyUp(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.KeyEventArgs)?Handles?Me.KeyUp

If?e.KeyCode?=?Keys.Space?Then

If?StartFlag?Then

StartFlag?=?False

Timer1.Enabled?=?False

If?Val(Strings.Right(Label1.Text,?2))??10?And?Val(Strings.Right(Label1.Text,?2))?=?0?Then?secon?=?0?:?minut?=?0?:?Label1.Text?=?"00:00"?:?Exit?Sub

ListBox1.Items.Add(Label1.Text.ToString)

ListBox1.SelectedItem?=?ListBox1.Items.Count?-?1

Label1.Focus()

Button1.Enabled?=?True

Label1.Text?=?"00:00"

secon?=?0

minut?=?0

Else

StartFlag?=?True

Timer1.Enabled?=?True

End?If

End?If

End?Sub

'加載

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

ListBox1.Items.Clear()

Label1.Text?=?"00:00"

Button1.Enabled?=?False

secon?=?0

minut?=?0

Label1.Focus()

End?Sub

'清空

Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click

Button1.Enabled?=?False

ListBox1.Items.Clear()

Label1.Focus()

End?Sub

Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick

secon?+=?1

If?secon?=?60?Then

secon?=?0

minut?+=?1

End?If

Dim?seconStr?As?String?=?secon

If?seconStr.Length?=?1?Then?seconStr?=?"0"?+?seconStr

Dim?minutStr?As?String?=?minut

If?minutStr.Length?=?1?Then?minutStr?=?"0"?+?minutStr

Label1.Text?=?minutStr?+?":"?+?seconStr

Label1.Focus()

End?Sub

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

Dim?SeconSun?As?Integer

If?ListBox1.Items.Count??0?Then

For?i?=?0?To?ListBox1.Items.Count?-?1

Dim?TemStr?As?String?=?ListBox1.Items.Item(i).ToString

Dim?TemInt1?As?Integer?=?Val(Strings.Right(TemStr,?2))

Dim?TemInt2?As?Integer?=?Val(Strings.Left(TemStr,?2))

Debug.Print(TemInt1.ToString)

Debug.Print(TemInt2.ToString)

SeconSun?+=?TemInt1?+?TemInt2?*?60

Debug.Print(SeconSun.ToString)

Next

TextBox1.Text?=?(SeconSun?/?ListBox1.Items.Count).ToString?+?"秒"

End?If

Label1.Focus()

End?Sub

End?Class

網(wǎng)頁標(biāo)題：vb.net中單據(jù)設(shè)計(jì) vb數(shù)據(jù)庫設(shè)計(jì)
轉(zhuǎn)載源于：http://jinyejixie.com/article48/dddhhhp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信公眾號、自適應(yīng)網(wǎng)站、品牌網(wǎng)站制作、企業(yè)網(wǎng)站制作、小程序開發(fā)、網(wǎng)站營銷

廣告

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