[REBOL] Re: Access to Rebol forms converter
From: AJMartin:orcon at: 29-Sep-2003 21:26
> For those without Access, the module code can be found here:
> http://rebol.mustard.co.nz/rebTemplates/ExportForm_Module_code.txt
>
> (the code module is also included inside the zip file as a text file).
Case cvRebol
h = "REBOL [" & vbCrLf & _
vbTab & "Title: {" & frmName & "}" & vbCrLf & _
vbTab & "Author: {ACC-2-REBOL}" & vbCrLf & _
vbTab & "Date: " & Format(Date, "yyyy-mm-dd") & vbCrLf & _
vbTab & "Version: 0.1" & vbCrLf & _
vbTab & "Description: {Form export from MS Access to REBOL}" &
vbCrLf & _
vbTab & "History: " & vbCrLf & _
"]" & vbCrLf & _
"frm" & Replace(frmName, " ", "_") & ": make face [size: @size@
offset: @offset@ edge: none pane: copy [] color: @detail_color@" & vbCrLf
h = Replace(h, "@size@", pixelSize(Forms(frmName).Width) & "x" &
pixelSize(Forms(frmName).detail.Height))
h = Replace(h, "@offset@", "system/view/screen-face/size / 2 -
(self/size / 2)")
h = Replace(h, "@detail_color@",
rebColor(Forms(frmName).detail.BackColor))
f = interrogateControls(frmName, cvLang)
interrogateForm = h & f & "] view frm" & frmName
I sense the need for 'compose here. :)
Andrew J Martin
ICQ: 26227169
http://www.rebol.it/Valley/
http://valley.orcon.net.nz/
http://Valley.150m.com/
