
正文
vb.net修改字段 vb中修改对象属性的两种方法
提示:扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.Net对文件指定字符串的修改
文本框 TextBox1
上一条 Button1
下一条 Button2
修改 Button3
Imports System.IO
Public Class Form1
Dim currIndex As Integer = 0
Dim s2 As List(Of String) = New List(Of String)
Dim s As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
s = File.ReadAllText(Application.StartupPath "\txt.txt")
Dim s1 As String() = s.Split("@")
For i As Integer = 0 To s1.Length - 1
If s1(i).Trim() "" Then
s2.Add("@" s1(i))
End If
Next
TextBox1.Text = s2(0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
currIndex = currIndex + 1
If currIndex s2.Count - 1 Then
MsgBox("已经是最后条了")
Return
End If
TextBox1.Text = s2(currIndex)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
currIndex = currIndex - 1
If currIndex 0 Then
MsgBox("已经是第一条了")
Return
End If
TextBox1.Text = s2(currIndex)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
s2(currIndex) = TextBox1.Text
s = ""
For i As Integer = 0 To s2.Count - 1
s = s2(i)
Next
File.WriteAllText(Application.StartupPath "\txt.txt", s)
End Sub
End Class
相关问答
Q1: VB.net在原数据库内容的基础上追加新字段并对新字段进行赋值
ALTER TABLE TABLE_Name ADD columnName varchar(30) '新增字段
ALTER TABLE TABLE_Name ADD columnName1 varchar(30) '新增字段
INSERT INTO TABLE_Name(columnName,columnName1)VALUES(columnName,columnName1) ‘插入新行,只给新字段赋值
Q2: VB.NET 的ACCESS数据库操作问题,修改字段名
字段名是不能直接修改的哦
可以变通实现
也就是直接新建一个字段
字段名就起你要的字段
然后把原字段数据复制到新字段
最后删除原字段。
Q3: vb.net 如何向access增加或删除“字段”
access数据库用sql语句添加字段vb.net修改字段,修改字段vb.net修改字段,删除字段_Access_脚本之家
关于vb.net修改字段和vb中修改对象属性的两种方法的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。






