Platforms to show: All Mac Windows Linux Cross-Platform

/Win/Windows DDE/Programmanger Groups


Required plugins for this example: MBS Win Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/Windows DDE/Programmanger Groups

This example is the version from Sun, 17th Mar 2012.

Project "Programmanger Groups.xojo_binary_project"
Class Window1 Inherits Window
Control ListBox1 Inherits Listbox
ControlInstance ListBox1 Inherits Listbox
EventHandler Sub Open() dim d as DDEMBS dim s as DDEStringMBS dim g as DDEStringMBS dim m as DDEBinaryDataMBS dim t,enter,z as string dim i,c as integer d=new DDEMBS if d.InitClient then s=d.newDDEString("PROGMAN") if s<>nil and d.ConnectToServer(s,s) then g=d.newDDEString("Groups") if g<>nil then m=d.ClientTransaction(8368,g) if m<>nil then t=m.str enter=chr(13)+chr(10) c=countfields(t,Enter) for i=1 to c z=nthfield(t,enter,i) if z<>"" and left(z,1)<>chr(0) then me.addrow z end if next 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 EventHandler
End Control
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
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
End Project

See also:

The items on this page are in the following plugins: MBS Win Plugin.


The biggest plugin in space...