MultiSelect Dialog Stumper

[MrMoocow]

Okay my user will be loaded up to 36 images, (whic are placed in a listbox as a path), andd making them click a button 36 times is a bit unrealistic. So I want a multiselect Common Dialog Show open, In other words you can select maybe 8 or nine at a time. I have seen this in other programs.

I would rather not use dir list boxes and such, as that gives the program a really "dated" look.


MoO? Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.

 

[MrMoocow]

Another Question,

Active X controls can be put in websites right? Well how to you pass a varable to them? I need to pass the path to a binary file, so that then the program err control can get images out of it.

How hard is this? Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.

 

[JustinEzequiel]

From one of my old programs

With CommonDialog1
.DialogTitle = App.Title & " - Open"
.FileName = vbNullString
.Filter = sFileFilter
.MaxFileSize = 32767
.Flags = cdlOFNAllowMultiselect _
Or cdlOFNLongNames _
Or cdlOFNExplorer _
Or cdlOFNFileMustExist _
Or cdlOFNHideReadOnly _
Or cdlOFNNoReadOnlyReturn _
Or cdlOFNPathMustExist
.ShowOpen
sReturnedString = .FileName
End With

sFileArray = Split(sReturnedString, vbNullChar)
if ubound(sfilearray)>0 then
' the sfilearray(0) will hold the foldername
' and the succeeding elements will hold the
' individual filenames
else
' the first element should hold the full path of
' the selected file

 

[harmmeijer]

Using Active X controls in IE could give a problem, if theire not digisigned IE will not download it.
I changed IE security settings on an NT machine but IE still did not want to download my control.

About passing variables see the code below:

<SCRIPT language=VBScript>
sub window_onload()
on error resume next
calDate.Month = DatePart(&quot;m&quot;,Now())
calDate.Year = DatePart(&quot;y&quot;,Now())
calDate.Value = Date()
end sub
</SCRIPT>

<OBJECT classid=&quot;clsid:8E27C92B-1264-101C-8A2F-040224009C02&quot; id=calDate codeBase=

http://mypath/mySignedmscal.ocx

name=calDate>
<PARAM NAME=&quot;_Version&quot; VALUE=&quot;524288&quot;>
<PARAM NAME=&quot;_ExtentX&quot; VALUE=&quot;7938&quot;>
<PARAM NAME=&quot;_ExtentY&quot; VALUE=&quot;5292&quot;>
<PARAM NAME=&quot;_StockProps&quot; VALUE=&quot;1&quot;>
<PARAM NAME=&quot;Year&quot; VALUE=&quot;1999&quot;>
<PARAM NAME=&quot;Month&quot; VALUE=&quot;1&quot;>


In this case variables are passed both by PARAM NAME tag ass well as setting the Month Year Value property by vbScript (you have to set the id in the OBJECT tag)

 

[MrMoocow]

The actual ocx will not use any otheres, I have a program to compile files for the OCX. Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.

 

[strongm]

Your OCX is an ActiveX control, hence harmmeijer's comments should be borne in mind.

 

[MrMoocow]

Arg, sorry was at school, so I was hurring.

My OCX does not use any other controls (well I think maybe some Windows Common ones...). The multiselect is for a program to compile files, that needs to be reference to my control.

Thanks for tthe info. Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.