不太明白LZ你的程序目的,到底是只能保存一行成問題啊還是需要它只保存一行?要是想獲取文本框的某行文字就需要使用API函數(shù) SendMessage

成都創(chuàng)新互聯(lián)公司成立于2013年,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項目做網(wǎng)站、成都網(wǎng)站制作網(wǎng)站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元秀英做網(wǎng)站,已為上家服務(wù),為秀英各地企業(yè)和個人服務(wù),聯(lián)系電話:028-86922220
SendMessage函數(shù)例子參考:
'以下在Form需一個TextBox,并設(shè)定MultiLine = True, 一個Command Button
Private Sub Command1_Click()
Dim str5 As String
str5 = GetaLine(Text1,1) '取得第二行的字串,以0為基底
End Sub
'以下在.Bas
Option Explicit
Const EM_GETLINE = HC4
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Public Function GetaLine(Text1 As TextBox, ByVal ntx As Long) As String
Dim str5(255) As Byte '如果您的字串 255 byte請自行增加該Byte Array
Dim str6 As String, i As Long
str5(0) = 255 '字串的前兩個Byte存該字串的最大長度
str5(0) = 255
i = SendMessage(Text1.hwnd, EM_GETLINE, ntx, str5(0))
If i = 0 Then
GetaLine = ""
Else
str6 = StrConv(str5, vbUnicode)
GetaLine = Left(str6, InStr(1, str6, Chr(0)) - 1)
End If
End Function
Dim mycon As New SqlConnection(connstrs)
Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"
Dim cmd As New SqlCommand(sqlStr, mycon)
Dim reader = cmd.ExecuteReader()
Dim i As Integer = 1
While reader.Read()
Dim txt As New TextBox()
txt.Name = "txt" + i
txt.Size = New Size(100, 20) '文本框大小
txt.Location = New Point(50, i * 20 + 20)'left:50 top:隨便寫的,自己看著調(diào)
txt.Text = reader.GetValue(0).ToString()
Me.Controls.Add(txt) 'Me 可以改為你要添加上去的對象
End While
'未經(jīng)過運行,自己調(diào)試看看能否OK
保存文件的步驟為:
關(guān)閉流,特別是寫入流
關(guān)閉并保存文件
示例代碼如下:
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Text
Sub?SaveFileDemo()
'打開文件。如果文件不存在則創(chuàng)建新的文件
Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_
FileMode.OpenOrCreate,?_
FileAccess.Write)
'在文件末尾添加一行?
Dim?tw?As?New?StreamWriter(myFile)
myFile.Seek(0,?SeekOrigin.End)
tw.WriteLine("白刃格斗英雄連英模部隊方隊亮相閱兵")
'關(guān)閉流
tw.Close()
'關(guān)閉文件并保存文件
myFile.Close()
End?Sub
1、首先,點擊保存按鈕后應(yīng)檢查文本框內(nèi)容。
2其次,如果在文本框4中輸入的值以400開頭則保存反之更改為400。
3、最后,再次檢查文本框5如果文本框5中的值為29或31則保存反之則更改即可。
網(wǎng)頁題目:vb.net保存多行的簡單介紹
轉(zhuǎn)載來源:http://www.kartarina.com/article10/hcspdo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供全網(wǎng)營銷推廣、外貿(mào)網(wǎng)站建設(shè)、App設(shè)計、ChatGPT、網(wǎng)站設(shè)計公司、手機網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)