Media Browser using Visual Basic

‘*************FRMFIL******************

Personal Sub Dir1_Change()

File1.Path = Dir1.Path

Finish Sub

Personal Sub Drive1_Change()

Dir1.Path = Drive1.Drive

Finish Sub

Personal Sub File1_DblClick()

frmmed.Tag = File1.Path + “/” + File1.FileName

Load frmmed

frmmed.Present

Form1.Conceal

Finish Sub

Personal Sub Form_Activate()

Drive1.Drive = “c:”

Name Drive1_Change

optmed.Worth = True

File1.Sample = “*.wma”

Finish Sub

Personal Sub optall_Click()

optall.Worth = True

File1.Sample = “*.*”

Finish Sub

Personal Sub optmed_Click()

optmed.Worth = True

File1.Sample = “*.wma”

Finish Sub

‘****************FRMMED**********************************

Personal Sub Form_Activate()

wmp.URL = frmmed.Tag

Finish Sub

Personal Sub Form_Unload(Cancel As Integer)

Form1.Present

Finish Sub

 

Project Download