17-10-12, 07:08 PM
كاتب الموضوع : egyption-coder
السلام عليكماليكم الكود
zoomauto
كود:
كود :
private sub zoomauto_click(byval sender as system.object , _
byval e as system.eventargs)handles zoomauto.click
if picturebox1.image.width>picturebox1.image.height then
picturebox1.height = me.height
picturebox1.width = picturebox1.height*-
(picturebox1.image.width/picturebox1.image.height)
else
picturebox1.height = picturebox1.width*_
(picturebox1.image.height/picturebox1.image.width)
end if
end sub