从品牌网站建设到网络营销策划,从策略到执行的一站式服务
我写了一段代码,注意你读取的方法,我改进了一下 Imports System.IO ‘代码窗体的最上端一定要声明
我们提供的服务有:成都网站设计、做网站、微信公众号开发、网站优化、网站认证、蚌山ssl等。为成百上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的蚌山网站制作公司
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In Me.Controls
If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意选择编码方式,按你原来的方法,未设置编码,显示的是乱码!路径请按你的情况改! TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已经载入" i - 1 "个文件") End Sub注意:这样的代码是倒序的,第一个文本框显示的是最后一个文件的内容!请酌情处理!
你可以把你修改的那个在数据库中设置一个标识,用这个标识来显示数据库中的顺序信息,当你修改后你,你修改的标识设置为0,并排序显示,就显示在第一行了。你同时也把数据库其他的标识改为1.这样,只要你修改你的信息就在第一行了。记得要重新绑定数据,
要是在程序中实现估计不能,因为数据的排序应经固定了。你修改了也无法改变他的序列啊。重新帮依然是不变的
For i As Integer = DGV.Rows.Count - 1 To 0 Step -1
If DGV.Rows(i).selected=true Then
DGV.Rows.RemoveAt(i)
End If
Next
好象有个StrReverse函数是直接反转字符串的吧..
我平时用的是VB6.但是.NET中应该也是可以用MID的
你注意看FOR 是从len-1到0的..而mid中是不允许出现0的..
你看看MID运行不了时,是不是返回I是0的时间
改成:
For i = Len(sstr) To 1 Step -1
试试了?
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图