**

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN
    **************************************************
*-- Form:         form1 (e:\xp2\temp3.scx)
*-- 父类:  form
*-- 基类:    form
*-- 时间戳:   04/18/20 06:36:11 PM
*
DEFINE CLASS form1 AS form


    Top = 0
    Left = 0
    Height = 233
    Width = 334
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT olecontrol1 AS olecontrol WITH ;
        Top = 48, ;
        Left = 36, ;
        Height = 96, ;
        Width = 228, ;
        Visible = .T., ;
        Name = "Olecontrol1"


    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 168, ;
        Left = 84, ;
        Height = 25, ;
        Width = 60, ;
        Caption = "Command1", ;
        Name = "Command1"


    PROCEDURE command1.Click
        thisform.Olecontrol1.url='temp.mp3'
    ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************

of = CREATEOBJECT("form1")
of.show(1)
CLEAR ALL
RETURN

DEFINE CLASS form1 as Form
    ADD OBJECT play  AS Olecontrol WITH Top=10,Left=10,Width=300,Height=200,OleClass="WMPlayer.OCX",Visible=.T.
    PROCEDURE init
        this.play.url="C:\TEMP\茉莉花.mp3"
    ENDPROC
ENDDEFINE