主题：预览与上传

通过ftp上到服务器的文件，怎么处理才能先通过pic预览，不上传，确定后再上传。

 

你做一个上传窗口，放入pictruebox控件，选择你的本机文件后，先显示到图片控件里面。

 

http://www.foxtable.com/webhelp/scr/0328.htm

 

http://www.foxtable.com/webhelp/scr/1410.htm

 

 

老师，上传没得问题，但预览时，比如我选择了一个图片，怎么让pic里面预览显示，这个路径怎么写呢？

pbx.ImageFile = "c:\data\玫瑰.png"

 

改成

 

pbx.ImageFile = dlg.FileName

 

老师，麻烦看看保存按钮代码有什么问题，没上传成功？

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
Dim ftp1 As new  ftpclient
ftp1.host="***.*.**.***"
ftp1.Account = "ft***5"
ftp1.password = "1*****"
Dim r As Row = Tables("账号密码").Current
For Each f As String In dlg.FileNames
    Dim file = "/" & r("姓名") & "/" & filesys.GetName(f)
    If ftp1.DirExists("/" & r("姓名")) = False Then
        ftp1.MakeDir("/" & r("姓名"))
    End If
    If  ftp1.Upload(f,file,True) = True Then
        r("头像")=file
    Else
        MessageBox.Show( f & "更换失败,请重新选择文件!" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
    End If
Next
ftp1.Close
e.Form.Close

你选择了图片、文件之后，你需要把dlg.FileNames的值用一个变量或者一个控件存放起来的。如

 

vars("files") = dlg.filenames

 

你点保存的时候，直接去获取变量的值。

老师，我保存按钮如下：上传成功了，路径没有添加到了表中，但是重新打开程序，路径又有了，是怎么回事呢

Dim ftp1 As new  ftpclient
ftp1.host="120.00.****.*"
ftp1.Account = "ftp"
ftp1.password = "******"
'Dim dr As Row = Tables("账号密码").Current
Dim r As DataRow= DataTables("账号密码").sqlFind("姓名 = '" & _UserXingMing & "'")
For Each f As String In vars("files")
    Dim file = "/" & r("姓名") & "/" & filesys.GetName(f)
    If ftp1.DirExists("/" & r("姓名")) = False Then
        ftp1.MakeDir("/" & r("姓名"))
    End If
    If  ftp1.Upload(f,file,True) = True Then
        r("头像")=file
        r.save
    Else
        MessageBox.Show( f & "更换失败,请重新选择文件!" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
    End If
Next
ftp1.Close
e.Form.Close

肯定是已经保存了，如果是副本，或者sqltable之类的，重新刷新一下主表

你用的是sqlfind查找的行，保存是直接保存在数据库里面的，不会显示到前台的。

 

你可以重新加载数据显示到前台。

老师，麻烦再看看这个，我动态生成的Pic绑定到了对应的列，我第一次登陆系统，显示的不是自己的头像是怎么回事呢？

Dim pal1 As WinForm.Panel
pal1 =frm.CreateControl("Panel1",ControlTypeEnum.Panel)
pal1.dock = 1  '锚定
pal1.Height= 150 '页面高度
frm.AddControl(pal1)  '增加Panel
'pal1.BackColor = Color.Red  '背景色
Dim pic As WinForm.PictureBox
pic = e.Form.CreateControl("PictureBox1", ControlTypeEnum.PictureBox)
pic.SetBounds(50, 5, 50, 70)  '(x, y, Width, Height)
e.Form.Controls("Panel1").AddControl(pic)
pic.BindingField = "账号密码.头像"
pic.SizeMode = ImageSizeMode.Zoom  '头像缩放方式
Dim piv As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim ftp As New FTPClient
ftp.host="000.0.0.0.0"
ftp.Account = "ft"
ftp.password = "19"
piv.FTPclient = ftp

 

我进了系统后，重新登录又是对的。