Public Class Form1
Dim newBtm As New Bitmap("F:\test.jpg")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Image = OptBtm(newBtm, 0.5)
End Sub
Function OptBtm(ByVal xImage As Bitmap, ByVal xAlpha As Single) As Bitmap
If xAlpha < 0 Or xAlpha > 1 Then Exit Function
Dim xi As Integer, yi As Integer, tmp As Color
xi = xImage.Width
yi = xImage.Height
Dim nImage As New Bitmap(xi, yi)
For j As Integer = 0 To xi - 1
For k As Integer = 0 To yi - 1
tmp = xImage.GetPixel(j, k)
tmp = Color.FromArgb(Fix(xAlpha * 255), tmp.R, tmp.G, tmp.B)
nImage.SetPixel(j, k, tmp)
Next
Next
OptBtm = nImage
End Function
End Class
Полупрозрачность картинок на форме
Здравствуйте. Помогите пожайлуста с этим вопросом
У меня на форме расположен Picture Box, в нём картинка. Как сделать так, чтобы эта картинка была полупрозрачной, как например форма при изменении свойства opacity. Желательно без API.
[COLOR="SeaGreen"]VB.NET[/COLOR]
У меня на форме расположен Picture Box, в нём картинка. Как сделать так, чтобы эта картинка была полупрозрачной, как например форма при изменении свойства opacity. Желательно без API.
[COLOR="SeaGreen"]VB.NET[/COLOR]
По моему никак. Либо пнг использовать, либо АПИ, либо бросить затею вообще.
Но могу врать, я такой.
Но могу врать, я такой.
Всё же можно. Решение найдено. Тема закрыта. Всем спасибо.
Здесь принято делиться найденными решениями, если что.
Думаю, он имел ввиду это:
Если картинка боьшая будет притормаживать, а так - как вариант.
Код:
Да так, но если в момент загрузки формы полученные изображения сохранить в переменные, потом тормозить не будет (например при создании анимации)
Могу предложить такой вариант: http://www.gotdotnet.ru/forums/3/124762/588508/#post588508
