Hi, I have done the following:
Dim PathSD
Dim MSB(8)
Dim MpicName
Dim X, Y, I
MSB(1) = "ScnMdiaB.bmp"
MSR(2) = "ScnMdiaR.bmp"
MSB(3) = "ComntsB.bmp"
MSR(4) = "ComntsR.bmp"
MSB(5) = "AttnRqdB.bmp"
MSR(6) = "AttnRqdR.bmp"
MSB(7) = "RevwB.bmp"
MSR(8) = "RevwR.bmp"
PathSD = "\Storage Card\Comments\" ' Comments a folder name on the
' Storage Card
For I = 1 To 8
If I <= 4 Then
X = 15
Y = 75 + (( I-1)*100)
End If
If (I > 4) And (I <=8) Then
X = 360
Y = 75 + (( I-5)*100)
End If
MpicName = "MPic" & CStr(I)
AddObject "NSCEPictureBox.NSCEPictureBoxCtrl.1",MpicName,X,Y,340,90
Execute MpicName & ".ScaleMode = 3" ' pixels
Execute MpicName & ".BorderStyle = 0" ' none
Execute MpicName & ".hide" ' hide the object
'Execute MpicName & ".Picture = PathSD & MSB(I)" ' show a picture
Next
This creates 8 picture objects ( 340 x 90 pixels ), 4 rows, two columns
You can access an individaul picture box as:
Mpic1.Picture = PathSD & MSB(1)
or
I=8
MpicName = "MPic" & CStr(I)
Execute MpicName & ".Picture = PathSD & MSB(I)"
Is this what you meant by an array?
Ben
--- In [email protected], "skywamker34" <skywamke...@...> wrote:
>
> I would like to use Picturebox array
> I notice there is not index property in NSBASIC object
>
> Is there a way to solve this ?
>
> On http://www.efsoft.it/NSBfaq.htm#6 they spoke about "execute" instruction
> but sample link is broken :-((
>
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"nsb-ce" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/nsb-ce?hl=en
-~----------~----~----~----~------~----~------~--~---
