Re: [perl-win32-gui-users] Access control in a child

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

<br><font size=2 face="sans-serif">Use $CB-&gt;InsertItem($DSNo);</font>
<br><font size=2 face="sans-serif">instead of </font>
<br><tt><font size=2>$Win-&gt;CBox1-&gt;Add($DSNo);</font></tt><font size=2 face="sans-serif"><br>
</font>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td width=40%><font size=1 face="sans-serif"><b>dwinkjr &lt;dav...@gm...&gt;</b>
</font>
<br><font size=1 face="sans-serif">Sent by: per...@li...</font>
<p><font size=1 face="sans-serif">16/04/2008 03:57 PM</font>
<td width=59%>
<table width=100%>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">To</font></div>
<td><font size=1 face="sans-serif">per...@li...</font>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">cc</font></div>
<td>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">Subject</font></div>
<td><font size=1 face="sans-serif">[perl-win32-gui-users] &nbsp;Access
control in a child</font></table>
<br>
<table>
<tr valign=top>
<td>
<td></table>
<br></table>
<br>
<br>
<br><tt><font size=2><br>
ok I am new to the whole Win32::Gui stuff.. But here is my problem. &nbsp;I
am<br>
trying to load a combobox with ODBC datasources. &nbsp;The problem I am
having is<br>
that the combobox is a child. &nbsp;I cant seem to address it correctly.
&nbsp;Here is<br>
my code.<br>
my $GB3 = Win32::GUI::Groupbox-&gt;new($Win,<br>
 &nbsp; &nbsp; &nbsp; -text &nbsp; &nbsp;=&gt; &quot;Database Parameters:&quot;,<br>
 &nbsp; &nbsp; &nbsp; -name &nbsp; &nbsp;=&gt; &quot;GroupBox_3&quot;,<br>
 &nbsp; &nbsp; &nbsp; -left &nbsp; &nbsp;=&gt; 12,<br>
 &nbsp; &nbsp; &nbsp; -top &nbsp; &nbsp; =&gt; 151,<br>
 &nbsp; &nbsp; &nbsp; -width &nbsp; =&gt; 349,<br>
 &nbsp; &nbsp; &nbsp; -height &nbsp;=&gt; 174,<br>
 &nbsp; &nbsp; &nbsp;);<br>
my $CB= $Win-&gt;AddCombobox(<br>
 &nbsp; &nbsp; &nbsp; -name &nbsp; &nbsp;=&gt; &quot;CBox1&quot;,<br>
 &nbsp; &nbsp; &nbsp; -dropdown =&gt; 0,<br>
 &nbsp; &nbsp; &nbsp; -left &nbsp; &nbsp;=&gt; 5,<br>
 &nbsp; &nbsp; &nbsp; -top &nbsp; &nbsp; =&gt; 41,<br>
 &nbsp; &nbsp; &nbsp; -width &nbsp; =&gt; 93,<br>
 &nbsp; &nbsp; &nbsp; -height &nbsp;=&gt; 400,<br>
 &nbsp; &nbsp; &nbsp; -parent &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; =&gt; $GB3,<br>
 &nbsp; &nbsp; &nbsp;);<br>
my %DataSources = Win32::ODBC::DataSources();<br>
foreach $DSNo ( keys( %DataSources ) )<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
{<br>
 &nbsp; &nbsp; &nbsp; &nbsp;my %Config = Win32::ODBC::GetDSN( $DSNo );<br>
 &nbsp; &nbsp; &nbsp; &nbsp;$Win-&gt;CBox1-&gt;Add($DSNo);<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
}<br>
<br>
$Win-&gt;CBox1-&gt;SetCurSel(0);<br>
<br>
Can someone help me out here?<br>
Thanks in advance.<br>
Dave W.<br>
-- <br>
View this message in context: http://www.nabble.com/Access-control-in-a-child-tp16732261p16732261.html<br>
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.<br>
<br>
<br>
-------------------------------------------------------------------------<br>
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference <br>
Don't miss this year's exciting event. There's still time to save $100.
<br>
Use priority code J8TL2D2. <br>
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone<br>
_______________________________________________<br>
Perl-Win32-GUI-Users mailing list<br>
Per...@li...<br>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users<br>
http://perl-win32-gui.sourceforge.net/<br>
</font></tt>
<br>