VB Code:
Private Sub Command1_Click() Picture1.Circle (1000, 500), 250, 10 Picture1.Line (1000, 750)-(1000, 2000), 10 'body Picture1.Line (1000, 1100)-(450, 900), 10 'left arm Picture1.Line (1000, 1100)-(1550, 900), 10 'right arm Picture1.Line (1000, 2000)-(450, 2700), 10 'left leg Picture1.Line (1000, 2000)-(1550, 2700), 10 'right leg Form1.ImageList1.ListImages.Add 1, , Picture1.Image End Sub Private Sub Command2_Click() Picture1.Cls End Sub Private Sub Command3_Click() Picture1.Picture = ImageList1.ListImages(1).Picture Picture1.Refresh End Sub
Basically I'm trying to come up with a way to write sprites using pictures in a picturebox made using code.
how ever I can't get the picture in the picturebox to load into imagelist, then loaded back into the picturebox after clearing the picture box...any ideas?




Reply With Quote