الفريق العربي للبرمجةأرشيف المنتديات · 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.

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