回 帖 发 新 帖 刷新版面

主题:请教"窗口中显示图片"问题

* main.prg 文件

 CCC = 1
 SET TALK OFF
 SET SAFETY OFF
 SET DATE YMD
 SET SYSMENU OFF
 SET STATUS OFF
 SET STATUS BAR OFF
 SET CENTURY ON
 CLOSE ALL
 DO cdsy.mpr
 READ EVENTS 

***********************************

* cdsy.mpr 文件

SET SYSMENU TO
 SET SYSMENU AUTOMATIC 
 DEFINE PAD UU OF _MSYSMENU PROMPT '进仓操作' SKIP FOR CCC = 0 COLOR SCHEME 3
 DEFINE PAD VV OF _MSYSMENU PROMPT '出仓操作' SKIP FOR CCC = 0 COLOR SCHEME 3
 DEFINE PAD WW OF _MSYSMENU PROMPT '库存查询' SKIP FOR CCC = 0 COLOR SCHEME 3
 DEFINE PAD ZZ OF _MSYSMENU PROMPT '退出系统' SKIP FOR CCC = 0 COLOR SCHEME 3
 ON PAD UU OF _MSYSMENU ACTIVATE POPUP 进仓操作
 ON PAD VV OF _MSYSMENU ACTIVATE POPUP 出仓操作
 ON PAD WW OF _MSYSMENU ACTIVATE POPUP 库存查询
 ON SELECTION PAD ZZ OF _MSYSMENU quit
 DEFINE POPUP 进仓操作 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 进仓操作 PROMPT '进仓记录'
 ON SELECTION BAR 1 OF 进仓操作  ;
      DO AA  IN LOCFILE("\SUU\CD" )
        DEFINE POPUP 出仓操作 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
        DEFINE BAR 1 OF 出仓操作 PROMPT '出仓记录'
 ON SELECTION BAR 1 OF 出仓操作  ;
     DO BB  IN LOCFILE("\SUU\CD" )
       DEFINE POPUP 库存查询 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
       DEFINE BAR 1 OF 库存查询 PROMPT '查询库存'
 ON SELECTION BAR 1 OF 库存查询 do ba in MAO
**************************************************
  还有一个图片文件 不妨设为 88.jpg
  当运行上述main.prg文件后,出现一个菜单栏的界面,但这个界面中是一片空白,现想用程序(或者说上述某个文件中添加一段代码或新添一个程序文件)将图片88.jpg出现在上述这个空白中,谢谢!

回复列表 (共1个回复)

沙发

只用在主程序里加一个
_screen.Picture = '88.jpg'

我来回复

您尚未登录,请登录后再回复。点此登录或注册