Xojo Conferences
MBSSep2018MunichDE
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/Util/Windows Environment Variables
Function:
Required plugins for this example: MBS Util Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Util/Windows Environment Variables
This example is the version from Sun, 17th Mar 2012.
Project "Windows Environment Variables.rbp"
Class Window1 Inherits Window
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control List Inherits ListBox
ControlInstance List Inherits ListBox
End Control
Control UpdateButton Inherits PushButton
ControlInstance UpdateButton Inherits PushButton
EventHandler Sub Action() update End EventHandler
End Control
Control iName Inherits TextField
ControlInstance iName Inherits TextField
End Control
Control iValue Inherits TextField
ControlInstance iValue Inherits TextField
End Control
Control GetButton Inherits PushButton
ControlInstance GetButton Inherits PushButton
EventHandler Sub Action() ivalue.text=e.Get(iname.text) End EventHandler
End Control
Control SetButton Inherits PushButton
ControlInstance SetButton Inherits PushButton
EventHandler Sub Action() if not e.add(iname.text,ivalue.text) then msgBox "There was an error adding this value." end if End EventHandler
End Control
Control UpdateButton1 Inherits PushButton
ControlInstance UpdateButton1 Inherits PushButton
EventHandler Sub Action() MsgBox Join(E.Names, EndOfLine) End EventHandler
End Control
Control UpdateButton11 Inherits PushButton
ControlInstance UpdateButton11 Inherits PushButton
EventHandler Sub Action() MsgBox Join(E.Lines, EndOfLine) End EventHandler
End Control
EventHandler Sub Close() e=nil // prevent a Crash of RB!? End EventHandler
EventHandler Sub Open() e=new EnvironmentMBS End EventHandler
Sub update() dim i,c as integer list.deleteAllRows c=e.count-1 for i=0 to c list.addrow e.Name(i) list.cell(list.lastIndex,1)=e.value(i) next End Sub
Property e As environmentmbs
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:

Feedback, Comments & Corrections

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





Links
MBS Xojo Plugins