VB中如何設(shè)置保存一個文本框中的多行文字？

不太明白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

VB.NET多個文本框顯示多行數(shù)據(jù)

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

VB.net怎樣保存文件

保存文件的步驟為：

關(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

vb.net保存兩個文本框

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)