الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشروع المُكبر

بدأه Bashar Rabat في 31 ديسمبر 2008 · 1 رد · 507 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع 
 

Imports System.[color= #0000FF;]Drawing

Imports System.[color= #0000FF;]Drawing.[color= #0000FF;]Drawing2D

Imports System.[color= #0000FF;]Drawing.[color= #0000FF;]Imaging

[color= #0000FF;]Public [color= #0000FF;]Class Form1

    [color= #0000FF;]Private WithEvents Tmr [color= #0000FF;]As [color= #0000FF;]New [color= #008000;]Timer

    [color= #0000FF;]Private _Zoom [color= #0000FF;]As [color= #008000;]Single [color= #FF0000;]= [color= #FF0080;]0.5F

    [color= #0000FF;]Private _Negative [color= #0000FF;]As [color= #008000;]Boolean [color= #FF0000;]= [color= #0000FF;]False

    [color= #0000FF;]Private WithEvents PSpe [color= #0000FF;]As [color= #0000FF;]New [color= #008000;]Panel

 

    [color= #0000FF;]Private Sub Form1_Click[color= #000000;](ByVal Sender [color= #0000FF;]As [color= #0000FF;]Object, _

ByVal E [color= #0000FF;]As System.[color= #008000;]EventArgs[color= #000000;]) Handles Me.[color= #0000FF;]Click

        _Negative [color= #FF0000;]= Not _Negative

    End Sub

 

    [color= #0000FF;]Private Sub Form1_KeyDown[color= #000000;](ByVal Sender [color= #0000FF;]As [color= #0000FF;]Object, _

ByVal E [color= #0000FF;]As System.[color= #0000FF;]Windows.[color= #0000FF;]Forms.[color= #008000;]KeyEventArgs[color= #000000;]) Handles Me.[color= #0000FF;]KeyDown

        [color= #0000FF;]If E.[color= #0000FF;]KeyCode [color= #FF0000;]= [color= #FF0080;]38 Then

            _Zoom [color= #FF0000;]-= [color= #FF0080;]0.1

        ElseIf E.[color= #0000FF;]KeyCode [color= #FF0000;]= [color= #FF0080;]40 Then

            _Zoom [color= #FF0000;]+= [color= #FF0080;]0.1

        ElseIf E.[color= #0000FF;]KeyCode [color= #FF0000;]= [color= #FF0080;]27 Then

            End

        End [color= #0000FF;]If

        [color= #0000FF;]If _Zoom [color= #FF0000;]<= [color= #FF0080;]0.1 Then

            _Zoom [color= #FF0000;]= [color= #FF0080;]0.1

        ElseIf _Zoom [color= #FF0000;]>= [color= #FF0080;]1 Then

            _Zoom [color= #FF0000;]= [color= #FF0080;]1

        End [color= #0000FF;]If

    End Sub

 

    [color= #0000FF;]Private Sub Form1_Load[color= #000000;](ByVal Sender [color= #0000FF;]As [color= #0000FF;]Object, _

ByVal E [color= #0000FF;]As System.[color= #008000;]EventArgs[color= #000000;]) Handles Me.[color= #0000FF;]Load

  BackgroundImageLayout [color= #FF0000;]= [color= #008000;]ImageLayout.[color= #0000FF;]Stretch [color= #FF0000;]: DoubleBuffered [color= #FF0000;]= [color= #FF0080;]1

Top [color= #FF0000;]= [color= #FF0080;]0 [color= #FF0000;]: Left [color= #FF0000;]= [color= #FF0080;]0 [color= #FF0000;]: Width [color= #FF0000;]= My.[color= #0000FF;]Computer.[color= #008000;]Screen.[color= #0000FF;]WorkingArea.[color= #0000FF;]Width

        Tmr.[color= #0000FF;]Interval [color= #FF0000;]= [color= #FF0080;]100 [color= #FF0000;]: Tmr.[color= #0000FF;]Enabled [color= #FF0000;]= [color= #0000FF;]True

        PSpe.[color= #0000FF;]Height [color= #FF0000;]= [color= #FF0080;]5 [color= #FF0000;]: PSpe.[color= #0000FF;]Dock [color= #FF0000;]= [color= #008000;]DockStyle.[color= #0000FF;]Bottom [color= #FF0000;]: PSpe.[color= #008000;]Cursor [color= #FF0000;]= [color= #008000;]Cursors.[color= #0000FF;]SizeNS

Controls.[color= #0000FF;]Add[color= #000000;](PSpe[color= #000000;])

    End Sub

 

    [color= #0000FF;]Private Sub Form1_MouseEnter[color= #000000;](ByVal Sender [color= #0000FF;]As [color= #0000FF;]Object, _

ByVal E [color= #0000FF;]As System.[color= #008000;]EventArgs[color= #000000;]) Handles Me.[color= #0000FF;]MouseEnter

        Tmr.[color= #0000FF;]Enabled [color= #FF0000;]= [color= #0000FF;]False

    End Sub

 

    [color= #0000FF;]Private Sub Form1_MouseLeave[color= #000000;](ByVal Sender [color= #0000FF;]As [color= #0000FF;]Object, _

ByVal E [color= #0000FF;]As System.[color= #008000;]EventArgs[color= #000000;]) Handles Me.[color= #0000FF;]MouseLeave

        Tmr.[color= #0000FF;]Enabled [color= #FF0000;]= [color= #0000FF;]True

    End Sub

 

    [color= #0000FF;]Private Sub Form1_Paint[color= #000000;](ByVal Sender [color= #0000FF;]As [color= #0000FF;]Object, _

ByVal E [color= #0000FF;]As System.[color= #0000FF;]Windows.[color= #0000FF;]Forms.[color= #008000;]PaintEventArgs[color= #000000;]) Handles Me.[color= #0000FF;]Paint

        [color= #0000FF;]If Tmr.[color= #0000FF;]Enabled Then

            Dim Bmp [color= #0000FF;]As [color= #0000FF;]New [color= #008000;]Bitmap[color= #000000;](CInt[color= #000000;](Width [color= #FF0000;]* _Zoom[color= #000000;]), CInt[color= #000000;](Height [color= #FF0000;]* _Zoom[color= #000000;])[color= #000000;])

            [color= #0000FF;]Using G [color= #0000FF;]As [color= #008000;]Graphics [color= #FF0000;]= [color= #008000;]Graphics.[color= #0000FF;]FromImage[color= #000000;](Bmp[color= #000000;])

                Dim X, Y [color= #0000FF;]As Integer

                X [color= #FF0000;]= [color= #008000;]Math.[color= #0000FF;]Min[color= #000000;](Windows.[color= #0000FF;]Forms.[color= #008000;]Cursor.[color= #0000FF;]Position.[color= #0000FF;]X, _

[color= #000000;](My.[color= #0000FF;]Computer.[color= #008000;]Screen.[color= #0000FF;]WorkingArea.[color= #0000FF;]Width [color= #FF0000;]- Bmp.[color= #0000FF;]Width[color= #000000;])[color= #000000;])

                Y [color= #FF0000;]= [color= #008000;]Math.[color= #0000FF;]Min[color= #000000;](Windows.[color= #0000FF;]Forms.[color= #008000;]Cursor.[color= #0000FF;]Position.[color= #0000FF;]Y, _

[color= #000000;](My.[color= #0000FF;]Computer.[color= #008000;]Screen.[color= #0000FF;]WorkingArea.[color= #0000FF;]Height [color= #FF0000;]- Bmp.[color= #0000FF;]Height[color= #000000;])[color= #000000;])

                [color= #A31515;]' يمكنك إضافة 28 
1604;طول منطقة عمل ا
604;شاشة لعرض شريط ( 
1573;بدأ )ز

[color= #A31515;]                '  Y [color= #FF0000;]= [color= #008000;]Math.[color= #0000FF;]Min[color= #000000;](Windows.[color= #0000FF;]Forms.[color= #008000;]Cursor.[color= #0000FF;]Position.[color= #0000FF;]Y, [color= #000000;]([color= #000000;](My.[color= #0000FF;]Computer.[color= #008000;]Screen.[color= #0000FF;]WorkingAr
ea.[color= #0000FF;]Height [color= #FF0000;]+ [color= #FF0080;]28[color= #000000;]) [color= #FF0000;]- Bmp.[color= #0000FF;]Height[color= #000000;])[color= #000000;])

                G.[color= #0000FF;]CopyFromScreen[color= #000000;]([color= #0000FF;]New [color= #008000;]Point[color= #000000;](X, Y[color= #000000;]), [color= #0000FF;]New [color= #008000;]Point[color= #000000;]([color= #FF0080;]0, [color= #FF0080;]0[color= #000000;]), Bmp.[color= #008000;]Size[color= #000000;])

            End [color= #0000FF;]Using

[color= #008000;]            BackgroundImage [color= #FF0000;]= Bmp

            [color= #0000FF;]If _Negative Then

                BackgroundImage [color= #FF0000;]= Negative[color= #000000;](BackgroundImage[color= #000000;])

            End [color= #0000FF;]If

        End [color= #0000FF;]If

    End Sub

 

    [color= #0000FF;]Private Function Negative[color= #000000;](ByVal CurrentImage [color= #0000FF;]As [color= #008000;]Image[color= #000000;]) [color= #0000FF;]As [color= #008000;]Bitmap

        Dim Bmp [color= #0000FF;]As [color= #008000;]Bitmap [color= #FF0000;]= CurrentImage.[color= #0000FF;]Clone[color= #000000;]([color= #000000;])

        Dim Rect [color= #0000FF;]As [color= #0000FF;]New [color= #008000;]Rectangle[color= #000000;]([color= #FF0080;]0, [color= #FF0080;]0, Bmp.[color= #0000FF;]Width, Bmp.[color= #0000FF;]Height[color= #000000;])

        [color= #0000FF;]Using G [color= #0000FF;]As [color= #008000;]Graphics [color= #FF0000;]= [color= #008000;]Graphics.[color= #0000FF;]FromImage[color= #000000;](Bmp[color= #000000;])

            Dim _Attributes [color= #0000FF;]As [color= #0000FF;]New [color= #008000;]ImageAttributes

            _Attributes.[color= #0000FF;]SetColorMatrix[color= #000000;]([color= #0000FF;]New [color= #008000;]ColorMatrix[color= #000000;]([color= #0000FF;]New [color= #008000;]Single[color= #000000;]([color= #000000;])[color= #000000;]([color= #000000;]) _

            [color= #000000;]{[color= #0000FF;]New [color= #008000;]Single[color= #000000;]([color= #000000;]) [color= #000000;]{[color= #FF0080;]-1, [color= #FF0080;]0, [color= #FF0080;]0, [color= #FF0080;]0, [color= #FF0080;]0[color= #000000;]}, [color= #0000FF;]New [color= #008000;]Single[color= #000000;]([color= #000000;]) [color= #000000;]{[color= #FF0080;]0, [color= #FF0080;]-1, [color= #FF0080;]0, [color= #FF0080;]0, [color= #FF0080;]0[color= #000000;]}, _

            [color= #0000FF;]New [color= #008000;]Single[color= #000000;]([color= #000000;]) [color= #000000;]{[color= #FF0080;]0, [color= #FF0080;]0, [color= #FF0080;]-1, [color= #FF0080;]0, [color= #FF0080;]0[color= #000000;]}, [color= #0000FF;]New [color= #008000;]Single[color= #000000;]([color= #000000;]) [color= #000000;]{[color= #FF0080;]0, [color= #FF0080;]0, [color= #FF0080;]0, [color= #FF0080;]1, [color= #FF0080;]0[color= #000000;]}, _

[color= #0000FF;]New [color= #008000;]Single[color= #000000;]([color= #000000;]) [color= #000000;]{[color= #FF0080;]1, [color= #FF0080;]1, [color= #FF0080;]1, [color= #FF0080;]0, [color= #FF0080;]1[color= #000000;]}[color= #000000;]}[color= #000000;])[color= #000000;])

            G.[color= #0000FF;]DrawImage[color= #000000;](Bmp, Rect, [color= #FF0080;]0, [color= #FF0080;]0, Bmp.[color= #0000FF;]Width, Bmp.[color= #0000FF;]Height, [color= #008000;]GraphicsUnit.[color= #0000FF;]Pixel, _Attributes
[color= #000000;])

        End [color= #0000FF;]Using

        [color= #0000FF;]Return Bmp

    End Function

 

    [color= #0000FF;]Private Sub Tmr_Tick[color= #000000;](ByVal Sender [color= #0000FF;]As [color= #0000FF;]Object, _

ByVal E [color= #0000FF;]As System.[color= #008000;]EventArgs[color= #000000;]) Handles Tmr.[color= #0000FF;]Tick

        Invalidate[color= #000000;]([color= #000000;])

    End Sub

 

    [color= #0000FF;]Private Sub PSpe_MouseMove[color= #000000;](ByVal Sender [color= #0000FF;]As [color= #0000FF;]Object, _

ByVal E [color= #0000FF;]As System.[color= #0000FF;]Windows.[color= #0000FF;]Forms.[color= #008000;]MouseEventArgs[color= #000000;]) Handles PSpe.[color= #0000FF;]MouseMove

        [color= #0000FF;]If E.[color= #008000;]Button [color= #FF0000;]= Windows.[color= #0000FF;]Forms.[color= #008000;]MouseButtons.[color= #0000FF;]Left Then

            Height [color= #FF0000;]+= E.[color= #0000FF;]Y

        End [color= #0000FF;]If

    End Sub

 

End [color= #0000FF;]Class

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 31 ديسمبر 2008 في 16:25

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#2

مرحباً أخي الكريم ASDen .

أريد أن استفسر عن العملية التي قمتَ بها ( تضمين الكود في حاوية خاصة ؟ ), جربت ذلك لكن الكود يظهر مع أوسمة الـ Html كـ ( Color= و Font= ) .

تم زيادة ( BackgroundImageLayout = ImageLayout.Stretch ) :$ .

اشكركم على هذا الموقع ( الرائع, العلمي :P ) .

____________________________

وصلت الفكرة, عليّ استخدام الوسم ( GCode ), شكراً لك .

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 31 ديسمبر 2008 في 16:27

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر ساعة · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…