Private Sub Picture_Paint(sender As Object, e As PaintEventArgs)
Dim i As Integer
Dim X As Single
Dim Y As Single
Dim c As Single
Dim bmp As New Bitmap(256, 384, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
Using g As Graphics = Graphics.FromImage(bmp)
With g
.DrawImage(My.Resources.Buy_sell, 0, 0)
For i = 0 To 63
c = i \ 8
X = (i - c * 8) * 32
Y = c * 32
.DrawImage(My.Resources._0, X, Y)
.DrawString("9999", Font, Brushes.White,
X, (Y + 15))
Next
End With
End Using
Picture.Image = bmp
End Sub
Res5 писал(а):Обработчик.
Res5 писал(а):Без обработчика paint не обойтись
Res5 писал(а):Проблема в том что при ресизе память с 8 мегабайт увеличивается до 50 мегабайт. Запускать планирую много копий причем на слабом компе
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 38