loading...
ویدئو لرن
آخرین ارسال های انجمن
karim_orooji بازدید : 1959 جمعه 04 مهر 1393 نظرات (2)

برای ایجاد طیف نوری برای فرم ابتدا یک برنامه ویندوزی ایجاد کرده و سپس با زدن دکمه F7 به محیط کدنویسی رفته

 و کدهای زیر را در جایگزین کدهای آن کنید :

کد گرادیانت برای سی شارپ :

 

using System.Drawing;
using System.Windows.Forms;
using System.Drawing.Drawing2D;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        public void PaintGradient(Control control1, LinearGradientMode _direction, Color _gradientColorStart, Color _gradientColorEnd)
        {

            LinearGradientBrush gradBrush;

            gradBrush = new LinearGradientBrush(new Rectangle(0, 0, control1.Width, control1.Height), _gradientColorStart, _gradientColorEnd, _direction);

            Bitmap bmp = new Bitmap(control1.Width, control1.Height);

            Graphics g = Graphics.FromImage(bmp);

            g.FillRectangle(gradBrush, new Rectangle(0, 0, control1.Width, control1.Height));

            control1.BackgroundImage = bmp;

            control1.BackgroundImageLayout = ImageLayout.Stretch;

        }

        private void Form1_Paint(object sender, PaintEventArgs e)
        {
            PaintGradient(this, LinearGradientMode.Vertical, Color.RoyalBlue, Color.DarkBlue);
        }
    }
}

 کد گرادیانت برای VB.NET

Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Drawing2D

Public Class Form1

Public Sub PaintGradient(control1 As Control, _direction As LinearGradientMode, _gradientColorStart As Color, _gradientColorEnd As Color)

Dim gradBrush As LinearGradientBrush

gradBrush = New LinearGradientBrush(New Rectangle(0, 0, control1.Width, control1.Height), _gradientColorStart, _gradientColorEnd, _direction)

Dim bmp As New Bitmap(control1.Width, control1.Height)

Dim g As Graphics = Graphics.FromImage(bmp)

g.FillRectangle(gradBrush, New Rectangle(0, 0, control1.Width, control1.Height))

control1.BackgroundImage = bmp

control1.BackgroundImageLayout = ImageLayout.Stretch

End Sub

Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
PaintGradient(Me, LinearGradientMode.Vertical, Color.RoyalBlue, Color.DarkBlue)
End Sub


End Class

 حالا نتیجه را مشاهده نمایید :

grad

 

 

 

ارسال نظر برای این مطلب
این نظر توسط مسعود در تاریخ 1393/10/27 و 23:01 دقیقه ارسال شده است

سلا م و خسته نباشید

دوست من اگه حال کردی به ما هم سر بزن و کمی با اطلاعات به ما کمک کن منتظر شما هستم اگه تمایل داشتی نویسنده وب ما بشی

مرسی................

این نظر توسط ::::: در تاریخ 1393/07/07 و 20:41 دقیقه ارسال شده است

بسیار کاربردی و جالب بود


کد امنیتی رفرش
درباره ما
Profile Pic
در این سایت با کیفیت ترین و کم حجم ترین ویدئو های آموزشی برنامه نویسی و همچنین سورس کدها جهت دانلود "رایگان" گذاشته میشود. همچنین شما عزیزان میتوانید با استفاده از "انجمن تخصصی" سوالات خود را مطرح کنید.
اطلاعات کاربری
  • فراموشی رمز عبور؟
  • نظرسنجی
    چه نوع مطلبی را میپسندید ؟
    آمار سایت
  • کل مطالب : 275
  • کل نظرات : 460
  • افراد آنلاین : 1
  • تعداد اعضا : 616
  • آی پی امروز : 83
  • آی پی دیروز : 196
  • بازدید امروز : 219
  • باردید دیروز : 1,154
  • گوگل امروز : 1
  • گوگل دیروز : 13
  • بازدید هفته : 2,945
  • بازدید ماه : 15,764
  • بازدید سال : 114,822
  • بازدید کلی : 2,303,454