以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ftp直接显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72750)

--  作者:owenlyx
--  发布时间:2015/8/5 16:00:00
--  ftp直接显示

图片存在FTP服务器, 照片列已经绑定了远程,单文件的, 但照片列里显示的是图片名称,需要双击才能打开看图片,这对于款式多,记不住款号的人非常不方便,有没有什么办法能让照片列直接能显示远程照片?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150805155915.png
图片点击可在新窗口打开查看

--  作者:jialihaha
--  发布时间:2015/8/5 16:01:00
--  
建议弄个图片控件显示
或者把列的扩展类型设置为图片
[此贴子已经被作者于2015/8/5 16:02:56编辑过]

--  作者:owenlyx
--  发布时间:2015/8/5 16:02:00
--  

坐等回复

 


--  作者:大红袍
--  发布时间:2015/8/5 16:03:00
--  

为什么不弄成图片列?列窗口不是可以显示的么?

 

http://www.foxtable.com/help/topics/0086.htm

 


--  作者:有点蓝
--  发布时间:2015/8/5 16:08:00
--  
foxtable为图片格式提供了列窗口
--  作者:owenlyx
--  发布时间:2015/8/5 16:19:00
--  

我就是图片列啊,不显示啊,只显示图片名称啊!

 



图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150805155915.png
图片点击可在新窗口打开查看


 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150805161749.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/8/5 16:22:31编辑过]

--  作者:大红袍
--  发布时间:2015/8/5 16:26:00
--  

 右边有列窗口的

 

http://www.foxtable.com/help/topics/0073.htm

 


--  作者:owenlyx
--  发布时间:2015/8/5 17:00:00
--  
依然没有解决问题, 我想要的效果是一打开表,图片列里面已经有照片,比如说我有10行,10行里照片列的照片已经能够一目了然的看到了,就好像EXCEL表格里面在每个商品的照片列里都插入了照片的那种效果。而不是点开一行,显示一行的照片。我用的FTP,谢谢
--  作者:大红袍
--  发布时间:2015/8/5 17:13:00
--  

Drawcell事件加入代码

 

If e.Col.Name = "照片" AndAlso e.Row.IsNull("照片") = False Then
    e.StartDraw()
    e.Graphics.DrawImage(getimage(projectPath & "RemoteFiles/" & FileSys.GetName(e.Row("照片"))), e.x + 1,e.y + 1, 100, 85)
    e.EndDraw()
End If

 

AfterOpenProject事件,把所有图片下载下来

 

Dim ftp1 As new ftpclient
ftp1.host="ns18.mfdns.com"
ftp1.Account = "fo1xtable"
ftp1.password = "WJfoxtable"
ftp1.OpenManager
Dim f1,f2 As String
For Each r As Row In Tables("表A").Rows
    f1=r("照片")
    f2=FileSys.GetName(R("照片"))
    If ftp1.Download(f1, projectPath & "RemoteFiles/" & f2) = True Then
        Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Next