+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] اكواد التعامل مع الفورم : خلفية متدرجة للفورم بعدة طرق مختلفة (/showthread.php?tid=32986)
اكواد التعامل مع الفورم : وميض الفورم عن طريق API - تحميل صورة بالخلفية - علي بنيان - 13-01-20
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'35-جعل الفورم تقوم بعملية وميض بأستخدام API
PHP كود :
Public Class Form1
Public Structure FLASHWINFO
Public cbSize As Int32
Public hwnd As IntPtr
Public dwFlags As Int32
Public uCount As Int32
Public dwTimeout As Int32
End Structure
Private Declare Function FlashWindowEx _
Lib "user32.dll" (ByRef pfwi As _
FLASHWINFO) As Int32
Private Const FLASHW_CAPTION As Int32 = &H1
Private Const FLASHW_TRAY As Int32 = &H2
Private Const FLASHW_ALL As Int32 = _
(FLASHW_CAPTION Or FLASHW_TRAY)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim flash As New FLASHWINFO
flash.cbSize = System.Runtime. _
InteropServices.Marshal.SizeOf(flash)
flash.hwnd = MyBase.Handle
flash.dwFlags = FLASHW_ALL
flash.uCount = 5
flash.dwTimeout = 1000
FlashWindowEx(flash)
End Sub
End Class
'35-جعل الفورم تقوم بعملية وميض بأستخدام API
'36-تحميل صورة بخلفية الفورم
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundImage = New Bitmap("mypicture.bmp")
'Me.BackgroundImageLayout = ImageLayout.Stretch
'Me.BackgroundImageLayout = ImageLayout.Center
'Me.BackgroundImageLayout = ImageLayout.Tile
End Sub
End Class
'36-تحميل صورة بخلفية الفورم
RE: اكواد التعامل مع الفورم : وضع icon للفورم بشريط المهام - فورم على شكل قلب - mohanad almalty - 14-01-20
مشكور اخي على تصميم الجميل للفورم
RE: اكواد التعامل مع الفورم : وضع icon للفورم بشريط المهام - فورم على شكل قلب - علي بنيان - 14-01-20
حياك الله اخي وتدلل
اكواد التعامل مع الفورم : تحميل صورة بخلفية الفورم - خلفية متدرجة - علي بنيان - 14-01-20
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'37-تحميل صورة بخلفية الفورم عن طريق مربع حوار
PHP كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Me.OpenFileDialog1.ShowDialog()
Me.BackgroundImage = Image.FromFile _
(Me.OpenFileDialog1.FileName)
Catch ex As Exception
MsgBox("من فضلك اختر صورة")
End Try
End Sub
End Class
'37-تحميل صورة بخلفية الفورم عن طريق مربع حوار
'38-جعل خلفية الفورم متدرجة
PHP كود :
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim rec As Rectangle = New Rectangle _
(0, 0, Me.Width, Me.Height)
Dim myBrush As Brush = New Drawing.Drawing2D. _
LinearGradientBrush(rec, Color.Aqua, Color.Yellow, _
Drawing.Drawing2D.LinearGradientMode.ForwardDiagonal)
e.Graphics.FillRectangle(myBrush, rec)
End Sub
End Class
'38-جعل خلفية الفورم متدرجة
اكواد التعامل مع الفورم : خلفية متدرجة للفورم بعدة طرق مختلفة - علي بنيان - 14-01-20
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'39-جعل خلفية فورم بطريقة متدرجة
PHP كود :
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim grbrush As System.Drawing. _
Drawing2D.LinearGradientBrush
grbrush = New System.Drawing.Drawing2D. _
LinearGradientBrush(New Point(0, 0), _
New Point(Me.Width, Me.Height), _
Color.Gold, Color.Blue)
Me.CreateGraphics.FillRectangle _
(grbrush, New Rectangle(0, 0, Me.Width, Me.Height))
End Sub
End Class
'39-جعل خلفية فورم بطريقة متدرجة
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'40-وضع لون متدرج بطريقة اخرى
PHP كود :
Public Class Form1
Private Sub DrawGradient(ByVal color1 As _
Color, ByVal color2 As Color, ByVal mode As _
System.Drawing.Drawing2D.LinearGradientMode)
Dim a As New Drawing2D.LinearGradientBrush _
(New RectangleF(0, 0, Me.Width, Me.Height), _
color1, color2, mode)
Dim g As Graphics = Me.CreateGraphics
g.FillRectangle(a, New RectangleF _
(0, 0, Me.Width, Me.Height))
g.Dispose()
End Sub
Protected Overrides Sub OnPaint _
(ByVal pe As PaintEventArgs)
DrawGradient(Color.Aqua, Color.Blue, _
Drawing.Drawing2D.LinearGradientMode.Vertical)
End Sub
End Class
'40-وضع لون متدرج بطريقة اخرى
'41-طريقة اخرى لوضع لون متدرج لخلفية الفورم
PHP كود :
Imports System.Drawing.Drawing2D
Public Class Form1
Protected Overrides Sub OnPaint _
(ByVal e As PaintEventArgs)
MyBase.OnPaint(e)
Dim g As Graphics = e.Graphics
g.SmoothingMode = SmoothingMode.HighQuality
Dim gPath As GraphicsPath = New GraphicsPath
Dim r As Rectangle = New Rectangle _
(0, 0, Me.Width, Me.Height)
gPath.AddRectangle(r)
Dim lb As LinearGradientBrush = _
New LinearGradientBrush _
(r, Color.White, Color.Blue, _
LinearGradientMode.Vertical)
g.FillPath(lb, gPath)
End Sub
End Class
'41-طريقة اخرى لوضع لون متدرج لخلفية الفورم
'42-عمل تدرج لوني بطريقة مبسطة
PHP كود :
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rect As New Rectangle(0, 0, Me.Width, Me.Height)
Dim gc As Graphics = Me.CreateGraphics
Dim gradientBrush As New LinearGradientBrush(rect, _
Color.Blue, Color.Black, LinearGradientMode.Horizontal)
gc.FillRectangle(gradientBrush, rect)
End Sub
End Class
'42-عمل تدرج لوني بطريقة مبسطة
RE: اكواد التعامل مع الفورم : خلفية متدرجة للفورم بعدة طرق مختلفة - asemshahen5 - 14-01-20
بارك الله فيك و جزاك الله عنا كل خير .
تم دمج المواضيع في موضوع واحد و الله الموفق .
RE: اكواد التعامل مع الفورم : خلفية متدرجة للفورم بعدة طرق مختلفة - علي بنيان - 16-01-20
الله يبارك فيك اخي عاصم وشكرا لتواجدك الكريم
انا كنت مخطط من اكمل اكواد التعامل مع الفورم اسوي موضوع جديد ويشمل جميع روابط المواضيع السابقة بصورة منظمة حتى ما تتداخل المواضيع فيما بينها
اشوف في حالة دمج جميع المواضيع في واحد يصعب الوصول للمواضيع مو مثل كل موضوع مستقل وبعنوان مستقل هيج يكون الفرز و الوصول اسهل
هذا رأيي واشكرك اخي الرائع على جهودك القيمة الرائعة
RE: اكواد التعامل مع الفورم : خلفية متدرجة للفورم بعدة طرق مختلفة - ابراهيم عمر ابراهيم - 13-02-20
شباب أولا أشكر المندي علي قبول انشاء حساب ثاني شكرا إلكم علي هذه الأكواد بس عندي سؤال إلأكواد المكتوبة عنوانها php طيب بتشتغل في الفيجوال بيسك ولا php