private sub command1_click() Call SetPixel(Form2.Picture1.hdc, 0, 0, 16696982) Form2.Picture1.Picture = Form2.Picture1.Image SavePicture Form2.Picture1.Picture, "C:\Documents and Settings\Propriétaire\Mes documents\Mes images\Images Jasc Paint Shop Photo Album\test2.bmp" end sub private sub command2_click() Form2.Show Form2.Picture1.Picture = LoadPicture("C:\Documents and Settings\Propriétaire\Mes documents\Mes images\Images Jasc Paint Shop Photo Album\test2.bmp") color = GetPixel(Form2.Picture1.hdc, 0, 0) text1.text = color end sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question