تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اكواد التعامل مع الفورم : خلفية متدرجة للفورم بعدة طرق مختلفة
#21
السلام عليكم

هذا الموضوع استكمال لدورة الاكواد الشاملة


'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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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-تحميل صورة بخلفية الفورم 
الرد
تم الشكر بواسطة: baha , asemshahen5
#22
مشكور اخي على تصميم الجميل للفورم
الرد
تم الشكر بواسطة: asemshahen5 , علي بنيان , علي بنيان
#23
حياك الله اخي وتدلل Smile
الرد
تم الشكر بواسطة: asemshahen5
#24
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'37-تحميل صورة بخلفية الفورم عن طريق مربع حوار

PHP كود :
Public Class Form1

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 ObjectByVal e As System.Windows.Forms.PaintEventArgsHandles Me.Paint

        Dim rec 
As Rectangle = New Rectangle _
        
(00Me.WidthMe.Height)
        Dim myBrush As Brush = New Drawing.Drawing2D_
        LinearGradientBrush
(recColor.AquaColor.Yellow_
        Drawing
.Drawing2D.LinearGradientMode.ForwardDiagonal)
        e.Graphics.FillRectangle(myBrushrec)

    End Sub
End 
Class

'38-جعل خلفية الفورم متدرجة 
الرد
تم الشكر بواسطة: asemshahen5
#25
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'39-جعل خلفية فورم بطريقة متدرجة

PHP كود :
Public Class Form1

    
Private Sub Form1_Paint(ByVal sender As ObjectByVal e As System.Windows.Forms.PaintEventArgsHandles Me.Paint

        Dim grbrush 
As System.Drawing_
        Drawing2D
.LinearGradientBrush
        grbrush 
= New System.Drawing.Drawing2D_
        LinearGradientBrush
(New Point(00), _
        
New Point(Me.WidthMe.Height), _
        Color
.GoldColor.Blue)
        Me.CreateGraphics.FillRectangle _
        
(grbrush, New Rectangle(00Me.WidthMe.Height))


    End Sub
End 
Class

'39-جعل خلفية فورم بطريقة متدرجة 


السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'40-وضع لون متدرج بطريقة اخرى

PHP كود :
Public Class Form1

    
Private Sub DrawGradient(ByVal color1 As  _
    Color
ByVal color2 As ColorByVal mode As  _
     System
.Drawing.Drawing2D.LinearGradientMode)
        Dim a As New Drawing2D.LinearGradientBrush _
        
(New RectangleF(00Me.WidthMe.Height), _
         color1
color2mode)
        Dim g As Graphics Me.CreateGraphics
        g
.FillRectangle(a, New RectangleF _
        
(00Me.WidthMe.Height))
        g.Dispose()
    End Sub

    
Protected Overrides Sub OnPaint _
    
(ByVal pe As PaintEventArgs)
        DrawGradient(Color.AquaColor.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 _
        
(00Me.WidthMe.Height)
        gPath.AddRectangle(r)
        Dim lb As LinearGradientBrush _
        
New LinearGradientBrush _
        
(rColor.WhiteColor.Blue_
        LinearGradientMode
.Vertical)
        g.FillPath(lbgPath)
    End Sub

End 
Class

'41-طريقة اخرى لوضع لون متدرج لخلفية الفورم 



'42-عمل تدرج لوني بطريقة مبسطة

PHP كود :
Imports System.Drawing.Drawing2D

Public Class Form1

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Dim rect 
As New Rectangle(00Me.WidthMe.Height)
        Dim gc As Graphics Me.CreateGraphics
        Dim gradientBrush 
As New LinearGradientBrush(rect_
        Color
.BlueColor.BlackLinearGradientMode.Horizontal)
        gc.FillRectangle(gradientBrushrect)

    End Sub
End 
Class

'42-عمل تدرج لوني بطريقة مبسطة 
الرد
تم الشكر بواسطة: asemshahen5
#26
بارك الله فيك و جزاك الله عنا كل خير .

تم دمج المواضيع في موضوع واحد و الله الموفق .
الرد
تم الشكر بواسطة:
#27
الله يبارك فيك اخي عاصم وشكرا لتواجدك الكريم

انا كنت مخطط من اكمل اكواد التعامل مع الفورم اسوي موضوع جديد ويشمل جميع روابط المواضيع السابقة بصورة منظمة حتى ما تتداخل المواضيع فيما بينها

اشوف في حالة دمج جميع المواضيع في واحد يصعب الوصول للمواضيع مو مثل كل موضوع مستقل وبعنوان مستقل هيج يكون الفرز و الوصول اسهل

هذا رأيي واشكرك اخي الرائع على جهودك القيمة الرائعة Smile
الرد
تم الشكر بواسطة: asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم