主题：状态条的问题

状态条的问题 

 

我想在在下面的代码后面加一段代码 用来显示 点击  “保存” 按钮后， 因为保存的时间比较长 所以想 显示一下保存 进度。

 

代码该怎么写呢？  非常非常感谢！

 

已经上传实例。 麻烦各位师兄指点 www.tangrenjie.net/ccc.rar

 

我是想在导入图片的同时 把图片名称 改成 bbb （用bbb列的值 做图片的名称。）

试着改了一下，还是不好用，所以还要请教各位师兄了

 

 

Dim Val As String
For Each File As String In FileSys.GetFiles("C:\Users\trj\Desktop\图片\")
Dim f As Io.FileInfo = FileSys.GetFileInfo(File)
    Dim r As Row = Tables("newmoo_product").addnew
    Val = Val & "|" & f.Name
Dim Values() As String
Values = Val.split("|")
For Index As Integer = 0 To Values.Length - 1
   ' Dim r As Row = Tables("newmoo_product").addnew
    r("ppp") = Values(Index)
Next

 

Dim ftp1 As New FtpClient
ftp1.Host="tangrenjie.net"
ftp1.Account = "ftp"
ftp1.Password = "zhengbe"
ftp1.UTF8 = True

 

Dim Str1 As String
Str1 = DataTables("newmoo_product").GetComboListString("bbb")

    If ftp1.Upload(file, "upfile1\pic\aaa\" & str1 ) = False Then
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
  '  Dim f As Io.FileInfo = FileSys.GetFileInfo(File)
  '  Dim r As Row = Tables("newmoo_product").AddNew
    'r("bbb") = f.Name
Next

 

 进度条的控制代码，写到循环里面，每循环一个，就前进一些。不就行了？

新时代，新思维。

精确显示进度，大可不必。

弄个gif动画。

或者更简单的，状态栏显示：正在保存.......