I have an edit control in a form and several variables containing text.
I want to plug the edit control with the text in one of these variables depending on certain circumstances. ( I can work out how to do that bit)
What I cannot figure out is the VB code to get the variable value into the field. I have been thrashing around the site and the help files for hours to no avail.
Can anyone offer any suggestions
Assuming Opus 12.0.7, I think it is editControl.value = "My Text"
I used this snippet of code to test filling a form field. The form is called metaiptc and the filed is called copyright
Function OnClick(ByRef ClickData)
Set dlg = ClickData.Func.Dlg
Set Dlg = DOpus.Dlg
Dlg.window = clickData.func.sourcetab
Dlg.template = "metaiptc"
Dlg.Show
dlg.control ("metaiptc", "copyright").EditContol.value = "My Text"
End Function
When I run the code the form appears but the copyright field contains nothing
What VB faux pas I am committing, please?
See the section in the Opus 12 release notes on the difference between simple and detached dialogs. You need to detach the dialog and run a message loop if you want to interact with the controls programatically.
(additionally, the .EditContol isn't needed; even if it were spelt right it wouldn't do anything).
Tried to follow the example code with no luck. the Copyright box is always empty
Function OnClick(ByRef clickData)
Set dlg = DOpus.Dlg
dlg.window = clickData.func.sourcetab
dlg.template = "metaiptc"
dlg.detach = true
dlg.Show
Do
Set msg = dlg.GetMsg()
'dlg.Control("metaiptc", "copyright").Value = "Hello"
Loop While msg
End Function
Is the line that sets the value supposed to be commented out?
Sorry no. But it does not work anyway.
It looks like you have the arguments for the Control method around the wrong way. Control name first, followed by dialog name (if needed).
Wow, sorry, Jon this really has me confused:
I do not really get what you mean, being a total newcomer to VB and painfully trying to hack my way into it. The following code:
Function OnClick(ByRef clickData)
Set dlg = DOpus.Dlg
dlg.window = clickData.func.sourcetab
dlg.template = "metaiptc"
dlg.detach = true
dlg.Show
Do
Set msg = dlg.GetMsg()
dlg.Control.Value("metaiptc","copyright") = "Hello"
Loop While msg
End Function
Produces the following error:
Error at line 9, position 1
Invalid procedure call or argument: 'dlg.Control' (0x800a0005)
It is probably just that I am not understanding your instructions.
I meant that you need to swap the arguments (the values you are passing) to the Control method.
You originally had:
dlg.Control("metaiptc", "copyright").Value = "Hello"
But the method is documented as taking the control name as the first argument, and the dialog name as the second argument. As far as I can tell, "metaiptc" is the name of the dialog, and "copyright" is the control. So what this should actually be is:
dlg.Control("copyright", "metaiptc").Value = "Hello"
I did not misunderstand your previous message. I had already tried your most recent suggestion of changing round the form name and dialog entry name, but it simply does not work.
Even with the fields switched around the copyright field remains empty and there is an error message generated. In other words switching the fields around makes no difference, so, obviously the problem lies elsewhere. But where is beyond me.
This is the code as you suggest: [code]Function OnClick(ByRef clickData)
Set dlg = DOpus.Dlg
dlg.window = clickData.func.sourcetab
dlg.template = "metaiptc"
dlg.detach = true
dlg.Show
Do
Set msg = dlg.GetMsg()
dlg.Control("copyright", "metaiptc").Value = "Hello"
Loop While msg
End Function
[/code]
And this is the error message
Error at line 10, position 1
Invalid procedure call or argument: 'dlg.Control' (0x800a0005)
Could I make a very small suggestion? In the documentation the example you give involves a form called "books and a control also called "books". It would make things plainer for a dolt like me if they had different names.
In the meantime I would be very grateful for any help in what is actually wrong.
It might be easier if you give the full example including the resource XML that defines the dialog you're trying to control, so we can see all the details and also run the code ourselves.
If it's in a button, you should be able to right-click it (while still in Customize mode) and copy it to the clipboard, then paste that here.
The button is here:
<?xml version="1.0"?>
<button backcol="none" display="both" label_pos="right" separate="yes" textcol="none">
<label>New Button</label>
<icon1>#newcommand</icon1>
<function type="script">
<instruction>@script VBScript</instruction>
<instruction>Function OnClick(ByRef clickData)</instruction>
<instruction>Set dlg = DOpus.Dlg</instruction>
<instruction>dlg.window = clickData.func.sourcetab</instruction>
<instruction>dlg.template = "metaiptc"</instruction>
<instruction>dlg.detach = true</instruction>
<instruction>dlg.Show</instruction>
<instruction>Do</instruction>
<instruction>Set msg = dlg.GetMsg()</instruction>
<instruction />
<instruction>dlg.Control("copyright", "metaiptc").Value = "Hello"</instruction>
<instruction>Loop While msg</instruction>
<instruction>End Function</instruction>
<instruction />
<instruction>==SCRIPT RESOURCES</instruction>
<instruction><resources></instruction>
<instruction> <resource name="Metaiptc" type="dialog"></instruction>
<instruction> <dialog fontsize="10" height="220" lang="english" standard_buttons="ok,cancel" title="ENTER IPTC METADATA" width="325"></instruction>
<instruction> <control halign="left" height="8" name="static1" title="Enter the IPTC metadata, and click a button." type="static" width="159" x="9" y="6" /></instruction>
<instruction> <control halign="left" height="12" name="copyright" tip="Copyright Holder" type="edit" width="185" x="60" y="27" /></instruction>
<instruction> <control halign="left" height="30" max="512" multiline="yes" name="caption" type="edit" width="243" x="18" y="92" /></instruction>
<instruction> <control halign="left" height="8" name="static2" title="Copyright:" type="static" width="37" x="15" y="27" /></instruction>
<instruction> <control halign="left" height="8" name="static3" title="Caption:" type="static" width="33" x="20" y="80" /></instruction>
<instruction> <control halign="left" height="8" name="static4" title="Subject:" type="static" width="26" x="19" y="135" /></instruction>
<instruction> <control halign="left" height="12" name="subject" tip="Enter the Subject" type="edit" width="252" x="52" y="134" /></instruction>
<instruction> <control halign="left" height="12" name="photog" tip="Photographer&apos;s name" type="edit" width="123" x="71" y="45" /></instruction>
<instruction> <control halign="left" height="8" name="Photographer" title="Photographer" type="static" width="44" x="17" y="47" /></instruction>
<instruction> <control halign="left" height="8" name="Title" title="Title:" type="static" width="22" x="23" y="160" /></instruction>
<instruction> <control halign="left" height="12" name="title" tip="Enter the Title" type="edit" width="115" x="56" y="158" /></instruction>
<instruction> <control halign="left" height="8" name="static7" title="Keywords:" type="static" width="35" x="19" y="184" /></instruction>
<instruction> <control halign="left" height="12" name="keyword" tip="Add keywords separated by semi-colons" type="edit" width="246" x="63" y="182" /></instruction>
<instruction> <control halign="left" height="8" name="static8" title="rec sets copyright and photographer to Rodger Clark" type="static" width="237" x="74" y="57" /></instruction>
<instruction> </dialog></instruction>
<instruction> </resource></instruction>
<instruction></resources></instruction>
</function>
</button>
Basically what I am trying to do is to create my own IPTC data entry form that gives me the ability to have a multi-line caption field, which makes text entry much easier than the metadata panel, when the caption is pretty long. Going along the single line field to alter words here and there can be a frustrating experience, I find.
I have that part working just fine. But to add to it I would like to check if any of the IPTC fields I am interested in already contain data, and if they do I want to plug that data in the form.
The code on this button is an attempt to plug just one field - copyright. The eventual idea is to gather any values in the IPTC fields into variables and then plug the fields in the form with those variables. ( With your help, I have a code snippet to do that part)
The error is because you're specifying "metaiptc" as the second argument for the Control method. This is only intended for use when you have a tab control in your dialog - it's to let you specify which child dialog hosts the control you're referring to. Since you don't have a tab on your dialog you should leave this parameter out.
If you try the following code it should work for you:
Function OnClick(ByRef clickData)
Set dlg = clickData.func.Dlg ' Better than DOpus.Dlg if running from a button
' dlg.window = clickData.func.sourcetab ' Not needed if using clickData.func.dlg
dlg.template = "metaiptc"
dlg.detach = true
dlg.Show
dlg.Control("copyright").value = "Hello"
Do
Set msg = dlg.GetMsg()
Loop While msg
End Function
Sir, you are a scholar and a gentleman. Thank you so much.