IDL 编程滑动条的代码

以下是一个简单的IDL滑动条的代码示例：

PRO slider_demo

; 创建一个窗口
w = WIDGET_BASE(TITLE='Slider Demo', /COLUMN)

; 创建一个滑动条，设置初始值为50，最小值为0，最大值为100，步长为1
slider = WIDGET_SLIDER(w, VALUE=50, RANGE=[0,100], /HORIZONTAL, TICKS=0)

; 创建一个标签，用于显示滑动条的值
label = WIDGET_LABEL(w, VALUE='50', /ALIGN_CENTER)

; 创建一个回调函数，用于响应滑动条值的变化
CALLBACK_PROCEDURE = { slider_callback, value:slider_value, label:label }
WIDGET_CONTROL, slider, SET_NOTIFY_PROCEDURE=CALLBACK_PROCEDURE

; 显示窗口
WIDGET_CONTROL, w, /REALIZE
WIDGET_CONTROL, w, /SHOW

; 进入事件循环
XMANAGER, 'slider_demo', /NO_BLOCK

END

; 回调函数，响应滑动条值的变化
PRO slider_callback, event
  WIDGET_CONTROL, event.id, GET_VALUE=slider_value
  WIDGET_CONTROL, event.top, WIDGET_ID=label, SET_VALUE=STRING(slider_value)
END

这个示例创建了一个水平方向的滑动条，初始值为50，最小值为0，最大值为100，步长为1。滑动条的值会实时显示在标签上，并且当滑动条的值发生变化时，回调函数`slider_callback`会被调用。在回调函数中，可以通过`WIDGET_CONTROL`函数获取滑动条的值，并更新标签的显示。