20021009版ソース

[seraphyscrtools/SeraphyScriptTools.git] / TestScript / class1.vbs

'---------------------------------------------------
' VBScript Ver5\82Ì\83N\83\89\83X\82ð\97\98\97p\82µ\82½
' \83C\83x\83\93\83g\82Ì\83n\83\93\83h\83\8b

'---------------------------------------------------
' \83N\83\89\83X\82ð\90¶\90¬\82·\82é
dim obj
set obj = new mainframe

'----------------------------------------------------
' \83\81\83C\83\93\83t\83\8c\81[\83\80\82Ì\90¶\90¬\82Æ\83C\83x\83\93\83g\82ð\82¤\82¯\82é\83N\83\89\83X\82Ì\92è\8b`
class mainframe
        public instance

        public sub class_initialize
                set instance = createobject("seraphyscripttools.instance")
                with instance.mainframe
                        .classobject = me
                        .domodal
                end with
        end sub

        public sub OnClick
                dim x,y
                with instance.mainframe
                        with .event
                                x = .posx
                                y = .posy
                        end with
                        with .canvas.layer(0)
                                .fillcircle x,y,5
                        end with
                        .draw
                end with
        end sub

        public sub OnMouseMove
                dim x,y
                with instance.mainframe
                        with .event
                                x = .posx
                                y = .posy
                        end with
                        with .canvas.layer(1)
                                .clear
                                .setmappingmode 1
                                .text 0,0,x & "/" & y
                                .setmappingmode 0
                                .line 0,y,999,y
                                .line x,0,x,999
                        end with
                        .draw
                end with
        end sub
end class