[RESOLVED] Slider for movie?

[Justin M]

Hey guys I have a media program and I was wondering how do I make a slider so I don't have to start over at the beginning of a movie? I am using MMcontrol. Thank you!

[Zach_VB6]

I'm not going to post any further regarding Fullscreen using MMControl.

A Slider is easy.
It works prettymuch the same as in the demo I posted

when you open a file :

MMControl1.Command = "Open"
Slider1.Max = MMControl1.Length


In the Timer Event

Private Sub Timer1_Timer()
Slider1 = MMControl1.Position
End Sub

(4 char)

[Justin M]

Thansk Zach, what is the slider component called in VB?

[Zach_VB6]

I don't know.

But there is a Slider component if you look at "Microsoft Windows Common Controls 6.0 (SP6)"

[RobDog888]

The slider control in VB 6 is the Slider control mentioned. There isnt any other builtin MS one.

[Justin M]

Ok I added a slider, but when I tried to open any movie I get the error invalid property value and it highlights the code Slider1.Max = MMControl1.Length

[RobDog888]

Check the values at that line by placing a breakpoint or doing a Debug.Print MMControl1.Length

Did you set the Slider.Max property to the MMControl1.Length?

[Justin M]

I did, but i have been told it would be better to use media player control, how would a slider1 work with thaT?

[RobDog888]

Yes, I told you to use the MP control

Why do you need a slider when MP has the play line built in?

[Justin M]

lol its a good thing you told me that too, while a move was playing with MMcotnrol my main form would freeze.

I am user Bytes project and expanding from there.

Check attachement for simple example i coded for you.
You can change the

wmp.URL = "C:\WINDOWS\CLOCK.AVI"

to something else of course.

I don't think there is a slider in that proj, there s volume control, but thats it.
edit whoops the attached proejct

[RobDog888]

I think its an older version of WMP or there may be a setting to hide the controls. When I add a new WMP control to the form I get it just as you would expect: Play button, timeline slider, volume control etc.

[Justin M]

Yes me too, I use wmp 11

[RobDog888]

Me too. Maybe Bytes can post what version or how he got it to be control-less.

[RobDog888]

Ah found it.

Custom properties > General tab > Controls layout > Select a mode (dropdown) > select "Full" > click OK.

[Justin M]

Thanks for finding it, umm where are the custom properties? lol

[Zach_VB6]

In Properties Explorer, I think it is Custom

[RobDog888]

Select the WMP on your form. Then in the propertygrid its the first property - "Custom" and there will be an elipsis button "(...)". Click it and then you will be at the property page to change the setting.

[Justin M]

awesome thanks!!