Dim MyPic As Bitmap
Dim PixelColor(400, 500) As System.Drawing.Color
Dim path As String = ":\Documents and Settings\Zarineh\Desktop\ZARINEH.bmp"
MyPic = Image.FromFile(path)
Dim i, j As Integer
For i = 0 To 400
For j = 0 To 500
ReDim Preserve PixelColor(i, j)
PixelColor(i, j) = MyPic.GetPixel(i, j)
Next j
Next iبه نقل از زرينه :من كه هر كدي مي نويسم جواب نميده!
لطفا يكي به من بگه كجاش مشكل داره، خسته شدم...
کد:Dim MyPic As Bitmap Dim PixelColor(400, 500) As System.Drawing.Color Dim path As String = ":\Documents and Settings\Zarineh\Desktop\ZARINEH.bmp" MyPic = Image.FromFile(path) Dim i, j As Integer For i = 0 To 400 For j = 0 To 500 ReDim Preserve PixelColor(i, j) PixelColor(i, j) = MyPic.GetPixel(i, j) Next j Next i
dim mypic as bitmap=new bitmap("c:/pic.bmp")dim mypic as bitmap= new bitmap("400,500)Dim bm As New Bitmap(file_name)به نقل از Omi:D :
به نقل از Omi:D :
Dim MyPic As Bitmap
MyPic = NewBitmap(file_name)اگه منظورتون با من بوده، بايد بگم درسته كه دانش برنامه نويسي شما صد برابر از من بيشتره، ولي حداقل اون قدر مسلط به زبان انگلبسي هستم كه بخونم ببينم ارور چي ميده. ولي شما زبان فارسي رو هم درست نميدونين. به نظر شما "زره" درسته يا "ذره"؟به نقل از فراز :
Dim MyPic As Bitmap
Dim MyCanvas As Bitmap
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
MyPic = New Bitmap("C:\Documents and Settings\Zarineh\Desktop\ZARINEH.bmp")
MyCanvas = New Bitmap(400, 500)
Dim i, j As Integer
For i = 0 To 399
For j = 0 To 499
' MyPic.GetPixel(i, j)
MyCanvas.SetPixel(i, j, MyPic.GetPixel(i, j))
Next j
Next i
PictureBox2.Image = MyCanvas
End Sub