编程语言
首页 > 编程语言> > 【IDL】编写程序启动界面

【IDL】编写程序启动界面

作者:互联网

很多时候程序启动时需要花一定的时间进行界面初始化、配置文件读取等操作,需要用户等待,此时如果有个带漂亮图片或程序版权信息的界面在那放着会让人感觉程序启动中,马上就起来了。
从IDL实现上讲,无非就是显示一个不带菜单,不带标题栏的widget_base,里面显示了一张图片。
下面以一个常规的界面程序为例,注意代码中的调用部分。


启动界面

程序主界面

代码如下:

;$Id: show_splash_screen.pro 4 2008-01-30 21:13:44Z mpiper $

;+

; Shows an image without a window border on the screen.

;

; @returns widget identifier of top-level base

; @param image {in}{type=2 or 3 dimensional array} an image to

;       display

; @keyword true {in}{optional}{type=integer, 0-3}{default=0} order of

;         bands, 0 if 8-bit image

; @keyword order {in}{optional}{type=boolean} orientation of image

; @keyword title {in}{optional}{type=string} title of window to

;         display in icon

;-

;启动界面

function show_splash_screen, image, true=true, order=order

  compile_opt idl2

  on_error, 2

 

  true_local = n_elements(true) eq 0 ?  0 : true

 

  sz = size(image, /structure)

 

  if (true_local eq 0 and sz.n_dimensions ne 2) then $

   message, 'TRUE keyword must be set to 1, 2, 3 ' $

    + 'for 24-bit image'

   

  if (true_local ne 0 and sz.n_dimensions ne 3) then $

   message, 'TRUE keyword must be set to 0 for 8-bit image'

   

  xind = (true_local ne 1) ? 0 : 1

  yind = ((true_local eq 0) or (true_local eq 3)) ? 1 : 2

 ;屏幕分辨率计算

  device, get_screen_size=screen_size

 ;界面偏移量

  xoffset = (screen_size[0] - sz.dimensions[xind]) / 2

  yoffset = (screen_size[1] - sz.dimensions[yind]) / 2

 

  tlb = widget_base(tlb_frame_attr=4, /column, $

   xpad=0, ypad=0, xoffset=xoffset, yoffset=yoffset)

  draw = widget_draw(tlb, xsize=sz.dimensions[xind], $

   ysize=sz.dimensions[yind])

   

  widget_control, tlb, /realize

  widget_control, draw, get_value=win_id

 

  wset, win_id

  tv, image, true=true_local, order=keyword_set(order)


  return, tlb

end

 

;启动界面示例代码
;
pro splash_example

 ;读取启动界面要显示的数据

  file = filepath('rose.jpg', SUBDIRECTORY=['examples','data'])

  data = read_image(file)


 ;开始启动界面***

  splash_base = show_splash_screen(data,/true)

  ;

 ;创建程序内容,初始化界面、程序、数据等,注意,程序界面的tlb先是要隐藏的

  tlb = WIDGET_BASE($

   /column, $

  

   map = 0,$ ;隐藏

   mbar =result,$

   title ='test_button')

  ;

 WIDGET_CONTROL,tlb,/realize

 

  menu = WIDGET_BUTTON(result, value ='文件(&F)')

  fmenu = WIDGET_BUTTON(menu, value ='√打开')

 ;menu关键字

  mMenu = WIDGET_BUTTON(menu, value ='进入',/menu)

  tMenu = WIDGET_BUTTON(mMenu, value ='二级',/menu)

 ;separator关键字

  eMenu = WIDGET_BUTTON(menu, value ='退出',/SEPARATOR)

 

  ubase = WIDGET_BASE(tlb,/row)

  dbase = WIDGET_BASE(tlb,/row,/frame)

  ;

  b = WIDGET_BUTTON(ubase,value = '按钮',tooltip = '创建的button')

  b = WIDGET_BUTTON(ubase,value = '菜单', $

   tooltip = '菜单加对号')

  h = WIDGET_BUTTON(ubase,value = BINDGEN(2,40))

  ;

  bit =WIDGET_BUTTON(ubase,value =filepath('colorbar.bmp', SUBDIRECTORY=['resource','bitmaps']),/bitmap)

 ;单选button'

  exbase = WIDGET_BASE(dbase,/EXCLUSIVE,/column,/frame)

  eb1 = WIDGET_BUTTON(exbase,value ='对',uName = 'right',/NO_RELEASE )

  eb2 = WIDGET_BUTTON(exbase,value ='错',uName = 'error',/NO_RELEASE )

 ;选择第一个按钮

 widget_control,eb1,/SET_BUTTOn

 ;复合选择button

  nexbase = WIDGET_BASE(dbase,/NONEXCLUSIVE,/column)

  eb1 = WIDGET_BUTTON(nexbase,value ='envi')

  eb2 = WIDGET_BUTTON(nexbase,value ='idl')

 ;选择第一个按钮

 widget_control,eb1,/SET_BUTTOn

 ;创建显示组件

  wDraw = Widget_Draw(tlb,xsize = 600,ysize = 400)

 

 ;等待2秒

  wait,2

 

 ;销毁启动界面***

  Widget_control, splash_base,/destroy

 

 ;计算界面居中

 ;屏幕分辨率计算

  device, get_screen_size=screen_size

  geoInfo = widget_info(tlb,/geo)

 ;界面偏移量

  xoffset = (screen_size[0] - geoInfo.xSize) / 2

  yoffset = (screen_size[1] - geoInfo.ySize) /2

 Widget_Control,tlb, xoffset = xoffset, $

   yoffset = yoffset

   

 ;显示程序主界面
 widget_control,tlb,/map
 

;后面其他功能代码

;.....

end


知识点总结:
1、界面组件布局
2、菜单、按钮(单选、复选)按钮
3、启动界面

标签:WIDGET,界面,编写程序,BUTTON,value,tlb,IDL,true
来源: https://www.cnblogs.com/enviidl/p/16355248.html