FOXPRO中怎么显示JPG图片

mrzhou 2001-11-26 01:50:17
两个问题
1、将图形文件存到FOXPRO中的GEN字段中,但现在在表单中只能显示BMP图像,请问怎么才能显示出JPG格式的图形?
2、怎么将图形下显示的文件名去掉?

谢谢
...全文
458 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
mrzhou 2001-11-28
  • 打赏
  • 举报
回复
upup
mrzhou 2001-11-28
  • 打赏
  • 举报
回复
这个问题一定有办法解决。只是没有碰到高手。高手快来
xyf_tck 2001-11-27
  • 打赏
  • 举报
回复
对不起没写完就误发出去了,我想VFP中用到图形文件大概有两个用途,一个是用来做背景,二是用来关联某个人的照片,第一个只要在表单的Picture属性中设置即可,第二个可以在表单中加入一个image控件,然后在表单的get focus event属性中加入以下代码
local j
j=alltrim(str(thisform.工号.value))
thisform.image1.picture="p"-j-".jpg"
将工号与jpg文件名相关联,这样在按“上一个”或“下一个”时image控件就自动找到这个人的照片。注意jpg文件要命名为p+工号的形式,并放在与最后编译生成的可执行文件相同的目录里,这样我觉得也省去了将图形文件导入表的过程,而且减小了表的体积。
xyf_tck 2001-11-27
  • 打赏
  • 举报
回复
我觉得将图形文件放在GEN字段中并不好,
mrzhou 2001-11-27
  • 打赏
  • 举报
回复
我已经将AutoActivate设为了automatic,但是还是一样的。请问是否还有其它办法?
diruser 2001-11-27
  • 打赏
  • 举报
回复
请设置Oleboundcontrol中的AutoActivate的属性.
mrzhou 2001-11-27
  • 打赏
  • 举报
回复
我的FOXPRO版本已经是6.0了?要不要做其它设置?
具体表现在表单中的GEN字段BMP能显示图像,而JPG则只显示文件图标,双击才打开对应的JPG看图程序。
mrzhou 2001-11-27
  • 打赏
  • 举报
回复
gzgz
xyf_tck 2001-11-27
  • 打赏
  • 举报
回复
补充一句,如果不是用产品型号做主关键字,只要产品型号是唯一的就可以,先在表单上获得产品的型号将值传递给j即可。
mrzhou 2001-11-27
  • 打赏
  • 举报
回复
到底有没有其它办法啊!
难道FOXPRO中真不能直接显示JPG图案?
???????????????????????
xyf_tck 2001-11-27
  • 打赏
  • 举报
回复
那就用产品型号做表的关键字,这应该是唯一的吧,前面所说的jpg文件名前面的p省去不用,反正只要一个产品对应一个jpg 文件就行了。
mrzhou 2001-11-27
  • 打赏
  • 举报
回复
刚用以上方法试过,也只有BMP文件才能显示出来。是不是跟系统有关?我用的win2000,foxpro 6.0英文版
mrzhou 2001-11-27
  • 打赏
  • 举报
回复
以上办法我想确实可以,但是现在产品太多了,并且现在图片已经做好了。命名是用产品型号命名的,很大的随意性。去改的话会很麻烦,并且厂家可能不会同意。
andyting 2001-11-27
  • 打赏
  • 举报
回复
按钮加
public file_name
file_name=GETFILE('bmp;jpg;psd;ico','','',0,'请选择照片')
IF LEN(ALLT(file_name))>0
APPEND GENERAL zp FROM "&file_name" link
ENDIF
THISFORM.REFRESH

OLE init加入


IF LEN(ALLT("file_name"))>0
APPEND GENERAL zp
ENDIF
THISFORM.REFRESH
mrzhou 2001-11-27
  • 打赏
  • 举报
回复
我想这个确实是一个方法。但是他们的图片太多,有几百张。文件名都是用产品型号命名的。我想用上面的这个方法有些麻烦。如果能直接显示JPG图片则会简单很多。
xyf_tck 2001-11-27
  • 打赏
  • 举报
回复
产品应该有一个唯一的产品编号来做为产品表的主关键字,只要将jpg文件名与产品编号相关联就行了,与产品的名称无关。
mrzhou 2001-11-27
  • 打赏
  • 举报
回复
以上的办法确实可以,但是,现在我要做的是一个厂里的程序,图片是产品的图片,命名没有规则。还有什么好办法没有?
流星尔 2001-11-26
  • 打赏
  • 举报
回复
除了升级到vfp6。0别无他法,6.0以下版本不支持该格式
mrzhou 2001-11-26
  • 打赏
  • 举报
回复
搞FOXPRO的高手哪里去了?
网管教程 从入门到精通软件篇 ★一。★详细的xp修复控制台命令和用法!!! 放入xp(2000)的光盘,安装时候选R,修复! Windows XP(包括 Windows 2000)的控制台命令是在系统出现一些意外情况下的一种非常有效的诊断和测试以及恢复系统功能的工具。小编的确一直都想把这方面的命令做个总结,这次辛苦老范给我们整理了这份实用的秘笈。   Bootcfg   bootcfg 命令启动配置和故障恢复(对于大多数计算机,即 boot.ini 文件)。   含有下列参数的 bootcfg 命令仅在使用故障恢复控制台时才可用。可在命令提示符下使用带有不同参数的 bootcfg 命令。   用法:   bootcfg /default  设置默认引导项。   bootcfg /add    向引导列表添加 Windows 安装。   bootcfg /rebuild  重复全部 Windows 安装过程并允许用户选择要添加的内容。   注意:使用 bootcfg /rebuild 之前,应先通过 bootcfg /copy 命令备份 boot.ini 文件。   bootcfg /scan    扫描用于 Windows 安装的所有磁盘并显示结果。   注意:这些结果被静态存储,并用于本次会话。如果在本次会话期间磁盘配置发生变化,为获得更新的扫描,必须先重新启动计算机,然后再次扫描磁盘。   bootcfg /list   列出引导列表已有的条目。   bootcfg /disableredirect 在启动引导程序禁用重定向。   bootcfg /redirect [ PortBaudRrate] |[ useBiosSettings]   在启动引导程序通过指定配置启用重定向。   范例: bootcfg /redirect com1 115200 bootcfg /redirect useBiosSettings   hkdsk   创建并显示磁盘的状态报告。Chkdsk 命令还可列出并纠正磁盘上的错误。   含有下列参数的 chkdsk 命令仅在使用故障恢复控制台时才可用。可在命令提示符下使用带有不同参数的 chkdsk 命令。   vol [drive:] [ chkdsk [drive:] [/p] [/r]   参数  无   如果不带任何参数,chkdsk 将显示当前驱动器的磁盘状态。 drive: 指定要 chkdsk 检查的驱动器。 /p   即使驱动器不在 chkdsk 的检查范围内,也执行彻底检查。该参数不对驱动器做任何更改。 /r   找到坏扇区并恢复可读取的信息。隐含着 /p 参数。   注意 Chkdsk 命令需要 Autochk.exe 文件。如果不能在启动目录(默认为 %systemroot%System32)找到该文件,将试着在 Windows 安装 CD 找到它。如果有多引导系统的计算机,必须保证是在包含 Windows 的驱动器上使用该命令。 Diskpart   创建和删除硬盘驱动器上的分区。diskpart 命令仅在使用故障恢复控制台时才可用。   diskpart [ /add |/delete] [device_name |drive_name |partition_name] [size]   参数 无   如果不带任何参数,diskpart 命令将启动 diskpart 的 Windows 字符模式版本。   /add   创建新的分区。   /delete   删除现有分区。   device_name   要创建或删除分区的设备。设备名称可从 map 命令的输出获得。例如,设备名称:   DeviceHardDisk0   drive_name   以驱动器号表示的待删除分区。仅与 /delete 同时使用。以下是驱动器名称的范例:   D:   partition_name   以分区名称表示的待删除分区。可代替 drive_name 使用。仅与 /delete 同时使用。以下是分区名称的范例:   DeviceHardDisk0Partition1    大小   要创建的分区大小,以兆字节 (MB)表示。仅与 /add 同时使用。   范例   下例将删除分区: diskpart /delete Device HardDisk0 Partition3 diskpart /delete F:   下例将在硬盘上添加一个 20 MB 的分区:   diskpart /add Device HardDisk0 20   Fixboot

34,567

社区成员

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧