20021009版ソース

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

dim mainframe
set mainframe = new MainWindow

class MainWindow
        public Instance
        public sub class_initialize
                set Instance = CreateObject("SeraphyScriptTools.Instance")
                with Instance.Mainframe
                        .ClassObject = me
                        .Open "sample4"
                        .DoModal
                end with
        end sub

        public sub OnClickOut
                Instance.Dialog.MessageBox "CLICK"
        end sub
end class