Учитель информатики и ИКТ Кузнецова Aлёна Анатольевна МБОУ СОШ 121 г.Екатеринбург

На форме внизу кнопка управления со словом рисунок. Private sub button1_click() Draw.begin (DrawingArea1) ………………….. End

Public sub button1_click Dim hd as integer[] Hd=new integer[](6) Hd[0]=200 Hd[1]=200 Hd[2]=250 Hd[3]=150 Hd[4]=350 Hd[5]=200 Draw.begin(drawingarea1) Draw.fillstyle=1 Draw.forecolor=0 Draw.fillcolor=255 Draw.polygon(hd) Draw.end() End

Чтобы поместить картину в память нужно определить объект типа картина. Создать новый объект. Hpicture=new picture (300,200,true) Затем загрузить в эту переменную картину из файла Hpicture=picture(lico.jpeg) и « нарисовать » Draw.picture(hpicture,100,100). На форме внизу кнопка управления. Примечание. (300,200) – размер образа. (100,100) – левый верхний угол картины на форме. Public sub button1_click() Dim hpicture as picture Hpicture=new picture (300,200,true) Hpicture=picture(lico.jpeg) Draw.begin(form1) Draw.picture(hpicture,100,100) Draw.end End