以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我想识别电脑客户的文件夹照片的尺寸之和  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29687)

--  作者:ykseawind
--  发布时间:2013/3/11 17:32:00
--  我想识别电脑客户的文件夹照片的尺寸之和
我想识别电脑客户的一个主文件夹,比如“美图图库”,下面新增一个客户的子文件夹照片的尺寸之和?我是根据图片面积收费的。请帮手下,,,
我是想写在文件监视器里面,这个代码错在扫描地方呢?

Dim img As image = Getimage("C:\\Documents and Settings\\Administrator\\桌面\\美图图库")
output.show(img.width)
output.show(img.height)

这个代码在命令窗口还是无法输出,还有我是把每一个客户的文件,都建立在一个各自的文件夹里面。


--  作者:狐狸爸爸
--  发布时间:2013/3/11 17:37:00
--  

Dim mj As Long
For Each fl As String In filesys.GetFiles("C:\\Users\\Public\\Pictures\\Sample Pictures\\")
    Dim img As image = Getimage(fl)
    If img IsNot Nothing Then
        mj = mj + img.width * img.height
    End If
Next
output.show(mj)

 


--  作者:ykseawind
--  发布时间:2013/3/11 23:43:00
--  老大,我写在表事件的DATACOLCHANED不能识别呢
老大,我写在表事件的DATACOLCHANED不能识别呢?
实现目的是:计算当前行附件列(备注型扩展为图片型)的尺寸,
代码如下:
  If e.DataCol.Name = "单个产品ID的平方数" Then
  Dim  mj As Long
 For Each fl As String In filesys.GetFiles("F:\\数据库\\管理项目\\Attachments")   
      Dim img As image = Getimage(fl)
        If img IsNot Nothing Then
        mj = mj+img.width * img.height
       e.datarow("单个产品的平方数")=mj
       End If
     Next
End If
   上述代码估计是整个目录下的尺寸,我只想计算当前行的多个附件尺寸。。。这也是问题,,,
  谢谢,老大

--  作者:blackzhu
--  发布时间:2013/3/12 7:51:00
--  
做个照片列 ,输入和照片的一样的名字,判断下.
--  作者:ykseawind
--  发布时间:2013/3/12 8:40:00
--  
  老朱,我现在已经做的一个附件列,,(备注型扩展为图片型)
--  作者:狐狸爸爸
--  发布时间:2013/3/12 8:44:00
--  
If e.DataCol.Name = "文件列列名" Then
    Dim  mj As Long
    Dim nms() As String = e.DataRow("文件列列名").Replace(vbcr,vblf).split(vblf)
    For Each fl As String In nms
        Dim img As image = Getimage(fl)
        If img IsNot Nothing Then
            mj = mj+img.width * img.height
        End If
    Next
    e.DataRow("单个产品的面积")=mj
End If

--  作者:ykseawind
--  发布时间:2013/3/12 9:48:00
--  
老大,第一个可以扫描出来,第二行一点击增加打开就卡起,然后退出。。。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:单个产品id面积扫描.rar

还有我想扫描出来的单位是平方数,再帮手下啊,呵呵,

--  作者:狐狸爸爸
--  发布时间:2013/3/12 10:14:00
--  

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:单个产品id面积扫描.rar


--  作者:ykseawind
--  发布时间:2013/3/12 10:47:00
--  
谢谢,老大,,,效果很好,功能很强大,,呵呵
--  作者:ykseawind
--  发布时间:2013/3/13 0:41:00
--  
     老大,本不想麻烦你的,没办法,从晚上7点搞到现在都没实现。。现在在一个窗口1中点击一个选择文件的控件,读出它们的路径名,赋值给图片表的“附件”列  ;现在附件下为路径,有可能下载后会打不开,稍微改动下

     我现在已经实现单个附件的文件名提取,整个文件夹下还不行。。。
 我在帮助中看到一个这个代码提示,但是我还是写不出来:
   
   For Each File As String In FileSys.GetFiles("C:\\")
    Output.Show(File)
   Next

   我不知道怎么样将"C:\\"替换成现在选取文件夹路径。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:获取根目录下的文件路径.rar


[此贴子已经被作者于2013-3-13 0:43:02编辑过]