DIMENSION cMyArray(3)
cMyArray[1] = 'img\1.bmp'
cMyArray[2] = 'img\2.bmp'
cMyArray[3] = 'img\3.bmp'
it = 0
thisform.pageframe1.page2.image1.Picture = cMyArray[it]
it = (it + 1) % 3
Visual FoxPro. Массивы
Как мне организовать правильно вот ЭТО, но только чтобы ЭТО работало
Код:
Вопрос не совсем понятен . Наверно имелось в виду ЭТО:
Procedure Init &&Form1
Public it
it=0
Endproc
Procedure Click && Command1
Local p
Dimension cMyArray(3)
cMyArray[1] = '\img\1.bmp'
cMyArray[2] = '\img\2.bmp'
cMyArray[3] = '\img\3.bmp'
* выбор номера элемента массива
If it<3
it = it+1
Else
it=1
Endif
p= Sys(5)+Sys(2003)+cMyArray[it]
Thisform.pageframe1.page2.image1.Visible=.F.
Thisform.pageframe1.page2.image1.Enabled=.F.
Thisform.pageframe1.page2.image1.Picture=p
Thisform.pageframe1.page2.Refresh
Thisform.pageframe1.page2.image1.Enabled=.T.
Thisform.pageframe1.page2.image1.Visible=.T.
Endproc
Procedure Init &&Form1
Public it
it=0
Endproc
Procedure Click && Command1
Local p
Dimension cMyArray(3)
cMyArray[1] = '\img\1.bmp'
cMyArray[2] = '\img\2.bmp'
cMyArray[3] = '\img\3.bmp'
* выбор номера элемента массива
If it<3
it = it+1
Else
it=1
Endif
p= Sys(5)+Sys(2003)+cMyArray[it]
Thisform.pageframe1.page2.image1.Visible=.F.
Thisform.pageframe1.page2.image1.Enabled=.F.
Thisform.pageframe1.page2.image1.Picture=p
Thisform.pageframe1.page2.Refresh
Thisform.pageframe1.page2.image1.Enabled=.T.
Thisform.pageframe1.page2.image1.Visible=.T.
Endproc