Class Window1 Inherits Window

Binding enablingBinder

EventHandler Sub EnableMenuItems() filecloseFIleinExcel.enable filenewSheetinExcel.enable fileupdatelist.enable End EventHandler

EventHandler Sub Open() update End EventHandler

Function FileCloseFIleinExcel() As Boolean excelexecute "[FILE.CLOSE(0)]" return true End Function

Function FileNewSheetinExcel() As Boolean excelexecute "[NEW(1)]" return true End Function

Function FileUpdatelist() As Boolean update return true End Function

Sub excelexecute(p as string) dim d as DDEMBS dim s,topic as DDEStringMBS dim g as DDEBinaryDataMBS dim t,enter,z as string dim i,c as integer dim b as boolean d=new DDEMBS if d.InitClient then s=d.newDDEString("Excel") topic=d.newDDEString("System") if topic<>nil and s<>nil and d.ConnectToServer(s,topic) then g=d.newDDEBinaryData(nil,p) if g<>nil then b=d.ClientTransactionBoolean(d.XTYP_EXECUTE,nil,g) if b then msgBox "Call okay." else msgBox "Failed to transfer." end if else msgBox "Fail to create second string." end if g=nil // must be released before close else msgBox "Fail to create connect." end if s=nil // must be released before close d.close else msgBox "Fail to init for Client." end if End Sub

Sub setvalue() dim d as DDEMBS dim s,topic as DDEStringMBS dim g as DDEStringMBS dim m as DDEBinaryDataMBS dim t,enter,z,n as string dim i,c as integer dim b as boolean d=new DDEMBS if d.InitClient then s=d.newDDEString("Excel") n=list.cell(list.ListIndex,0) topic=d.newDDEString(n) if topic<>nil and s<>nil and d.ConnectToServer(s,topic) then g=d.newDDEString(celle.text) m=d.newDDEBinaryData(nil, value.text) if g<>nil and m<>nil then b=d.ClientTransactionBoolean(d.XTYP_POKE,g,m) if b then msgBox "Transfer okay." else msgBox "Failed to transfer." end if else msgBox "Fail to create second string." end if g=nil // must be released before close else msgBox "Fail to create connect." end if s=nil // must be released before close d.close else msgBox "Fail to init for Client." end if End Sub

Sub update() dim d as DDEMBS dim s,topic as DDEStringMBS dim g as DDEStringMBS dim m as DDEBinaryDataMBS dim t,enter,z as string dim i,c as integer list.deleteAllRows d=new DDEMBS if d.InitClient then s=d.newDDEString("Excel") topic=d.newDDEString("System") if topic<>nil and s<>nil and d.ConnectToServer(s,topic) then g=d.newDDEString("Topics") if g<>nil then m=d.ClientTransaction(d.XTYP_REQUEST,g) if m<>nil then t=m.str t=left(t,len(t)-1) // remove chr(0) at end enter=chr(9) c=countfields(t,Enter) for i=1 to c z=nthfield(t,enter,i) list.addRow z next list.listindex=0 else msgBox "Failed to transfer." end if else msgBox "Fail to create second string." end if g=nil // must be released before close else msgBox "Fail to create connect." end if s=nil // must be released before close d.close else msgBox "Fail to init for Client." end if End Sub

End Class

MenuBar Menu

MenuItem UntitledMenu5 = ""

MenuItem UntitledMenu2 = "File"

MenuItem FileUpdatelist = "Update list"

MenuItem UntitledMenu4 = "-"

MenuItem FileNewSheetinExcel = "New Sheet in Excel"

MenuItem FileCloseFIleinExcel = "Close FIle in Excel"

MenuItem UntitledMenu3 = "-"

MenuItem FileQuit = "Quit"

MenuItem UntitledMenu0 = "Edit"

MenuItem EditUndo = "Undo"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "Cut"

MenuItem EditCopy = "Copy"

MenuItem EditPaste = "Paste"

MenuItem EditClear = "Clear"

End MenuBar

Class App Inherits Application

End Class