هل من الممكن تكبير حجم البكسل في الصورة

 

Dim Img [color= #b1b100;]As Bitmap [color= #339933;]= Image[color= #339933;].FromFile[color= #009900;]( [color= #0000ff;]"SomeFileName" [color= #009900;])

Dim Bmp [color= #b1b100;]As [color= #000000; font-weight: bold;]New Bitmap[color= #009900;]( Img[color= #339933;].Width[color= #339933;], Img[color= #339933;].Height [color= #009900;])

Dim X[color= #339933;], Y [color= #b1b100;]As Integer

Dim MaxX[color= #339933;], MaxY [color= #b1b100;]As Integer

Dim CColor [color= #b1b100;]As Color

MaxX [color= #339933;]= CInt[color= #009900;]( Img[color= #339933;].Width [color= #339933;]/ [color= #cc66cc;]2[color= #009900;]) [color= #339933;]: MaxY [color= #339933;]= CInt[color= #009900;]( Img[color= #339933;].Height [color= #339933;]/[color= #cc66cc;]2 [color= #009900;])

Dim Rect [color= #b1b100;]As [color= #000000; font-weight: bold;]New Rectangle[color= #009900;]( [color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]2[color= #339933;], [color= #cc66cc;]2 [color= #009900;])

Using G [color= #b1b100;]As Graphics [color= #339933;]= Graphics[color= #339933;].FromImage[color= #009900;]( Bmp [color= #009900;])

[color= #b1b100;]Do [color= #b1b100;]While Y [color= #339933;]< MaxY

X [color= #339933;]= [color= #cc66cc;]0

[color= #b1b100;]Do [color= #b1b100;]While X [color= #339933;]< MaxX

CColor [color= #339933;]= Img[color= #339933;].GetPixel[color= #009900;]( X[color= #339933;], Y [color= #009900;])

Rect[color= #339933;].Left [color= #339933;]= [color= #009900;](X [color= #339933;]*[color= #cc66cc;]2 [color= #009900;])

Rect[color= #339933;].Top [color= #339933;]= [color= #009900;](Y [color= #339933;]*[color= #cc66cc;]2 [color= #009900;])

G[color= #339933;].FillRectangle[color= #009900;]( [color= #000000; font-weight: bold;]New SolidBrush[color= #009900;]( CColor[color= #339933;], Rect [color= #009900;])

X [color= #339933;]+= [color= #cc66cc;]1

Loop

Y [color= #339933;]+= [color= #cc66cc;]1

Loop

[color= #990000;]End Using

PictureBox1[color= #339933;].Image [color= #339933;]= Bmp

 

Dim Img [color= #b1b100;]As Bitmap [color= #339933;]= Image[color= #339933;].FromFile[color= #009900;]( [color= #0000ff;]"SomeFileName" [color= #009900;])

Dim Bmp [color= #b1b100;]As [color= #000000; font-weight: bold;]New Bitmap[color= #009900;]( Img[color= #339933;].Width[color= #339933;], Img[color= #339933;].Height [color= #009900;])

Dim MaxX[color= #339933;], MaxY [color= #b1b100;]As Integer

MaxX [color= #339933;]= CInt[color= #009900;]( Img[color= #339933;].Width [color= #339933;]/ [color= #cc66cc;]2[color= #009900;]) [color= #339933;]: MaxY [color= #339933;]= CInt[color= #009900;]( Img[color= #339933;].Height [color= #339933;]/[color= #cc66cc;]2 [color= #009900;])

Using G [color= #b1b100;]As Graphics [color= #339933;]= Graphics[color= #339933;].FromImage[color= #009900;]( Bmp [color= #009900;])

G[color= #339933;].DrawRectangle[color= #009900;]( Img[color= #339933;], [color= #000000; font-weight: bold;]New Rectangle[color= #009900;]( [color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]0[color= #339933;], Img[color= #339933;].Width[color= #339933;], Img[color= #339933;].Height[color= #009900;])[color= #339933;], [color= #000000; font-weight: bold;]New Rectange[color= #009900;]( [color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]0[color= #339933;], MaxX[color= #339933;], Ma
xY [color= #009900;]) [color= #339933;], Pixel [color= #009900;])