My slider disappears and it comes up with that error

I am trying to write a function for having the slider moves according to the mouse wheel. Here is my code

function mouseScroll(~,eventdata,I)

          handles = guidata(gcf);

          S = round((get(handles.SliderFrame,'Value')));
          sno = size(MyMatrix);
          UPDN = eventdata.VerticalScrollCount;
          S = S - UPDN;
          if (S < 1)
              S = 1;
          elseif (S > sno)
              S = sno;
          end
          if sno > 1
              set(handles.SliderFrame,'Value',S);
              set(handles.Edit1, 'String', sprintf('Slice# %d / %d',S, sno));
          else
              set(handles.Edit1, 'String', '2D image');
          end

          frameindex  = max(1, min(S, NumFrames));
          handles.frameindex = frameindex+1;
          ff = filelist{frameindex};
          I=dicomread(ff);
         imshow(I, 'parent', handles.axes1);

      guidata(hFig,handles);
      drawnow()

      end

I get the error "Warning: 'slider' control cannot have a 'Value' outside of 'Min'-'Max' range Control will not be rendered until all of its parameter values are valid" when the slider exceeds the maximum value, where it disappears.

Any idea?

Answer 1

[Rik]

Replace

set(handles.SliderFrame,'Value',S);

with

if S>get(handles.SliderFrame,'Max')
    S=get(handles.SliderFrame,'Max');
elseif S<get(handles.SliderFrame,'Min')
    S=get(handles.SliderFrame,'Min');
end
set(handles.SliderFrame,'Value',S);

[Stelios Fanourakis]

Wow! Incredible Correct outcome. Thanks a ton Rik.

[Image Analyst]

You can now (>= R2014b) use the more usual "dot" OOP syntax:

sliderValue = handles.SliderFrame.Value;
if sliderValue > handles.SliderFrame.Max
    sliderValue = handles.SliderFrame.Max;
elseif sliderValue < handles.SliderFrame.Min
    sliderValue = handles.SliderFrame.Min;
end
handles.SliderFrame.Value = sliderValue;

Answer 2

[Image Analyst]

Put this code in there somewhere:

sliderValue = handles.SliderFrame.Value;
sliderMin = handles.SliderFrame.Min;
sliderMax = handles.SliderFrame.Max;
if sliderValue < sliderMin || sliderValue > sliderMax
    % Set slider in the middle.
    handles.SliderFrame = (sliderMin + sliderMax) / 2; 
    % Update value in this function (if we need it later).
    sliderValue = handles.SliderFrame.Value;
end

[Stelios Fanourakis]

Thanks for the feedback Image Analyst. I will keep your answer valuable as well, but I managed to fix it using the above answer by Rik.