Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Me.Opacity = 0.8
End Sub(18-02-17, 03:03 AM)khodor1985 كتب : [ -> ]السلام عليكم أخي العزيز ورحمة الله وبركاته
الكود هو :
PHP كود :
PictureBox1.Image.Dispose()
PictureBox1.Image = ChangeOpacity(Image.FromFile("D:\pic.png"), 0.3)
Private Sub onmessage4(ByVal sender As Object, ByVal msg As Message)
If MyBase.InvokeRequired Then
MyBase.BeginInvoke(New MessageHandler(AddressOf Me.onmessage4), New Object() {sender, msg})
Else
Try
P4.Image.Dispose()
If ((msg.Type = MessageType.groupchat) AndAlso (msg.From.Resource = "admin")) Then
Me.P4.Load(msg.Body.Replace("Enter the right answer to start chatting. ", ""))
End If
P4.Image = ChangeOpacity(Image.FromFile("D:\pic.png"), 0.3)
Catch
End Try
End If
End Sub(18-02-17, 04:49 AM)khodor1985 كتب : [ -> ]لقد تم التعديل على المشروع بناء لطلبك، ولكن نرجو تغيير مسار الصورة :
المشروع بعد التعديل :
أتمنى لك التوفيق
(19-02-17, 04:26 AM)khodor1985 كتب : [ -> ]مشي الحال ....
Private Sub onmessage1(ByVal sender As Object, ByVal msg As Message)
If MyBase.InvokeRequired Then
MyBase.BeginInvoke(New MessageHandler(AddressOf Me.onmessage1), New Object() {sender, msg})
Else
Try
P1.Dispose()
If ((msg.Type = MessageType.groupchat) AndAlso (msg.From.Resource = "admin")) Then
P1.Image = ChangeOpacity(Image.FromFile(msg.Body.Replace("Enter the right answer to start chatting. ", ""), 0.3))
End If
Catch
End Try
End If
End Sub