[RaggiTech]

كاتب الموضوع : egyption-coder

كود :

[SIZE=2][COLOR=#0000ff]
Public[/COLOR][/SIZE][SIZE=2][color=#0000ff]Class[/color][/SIZE][SIZE=2] Form2
[/SIZE][SIZE=2][COLOR=#008000]' ?àه ?é*ي©، ?éêلéي ،
[/COLOR][/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] _skin [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Bitmap([/SIZE][SIZE=2][color=#0000ff]My[/color][/SIZE][SIZE=2].Resources.Resource1.Alens___01)
[/SIZE][SIZE=2][COLOR=#008000]' ?«¢¦§ê ?é api é¢م§ïé ?éهي©ê
[/COLOR][/SIZE][SIZE=2][color=#0000ff]Private[/color][/SIZE][SIZE=2][color=#0000ff]Declare[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE][SIZE=2] ReleaseCapture [/SIZE][SIZE=2][color=#0000ff]Lib[/color][/SIZE][SIZE=2][color=#a31515]"user32"[/color][/SIZE][SIZE=2] ()
[/SIZE][SIZE=2][color=#0000ff]Private[/color][/SIZE][SIZE=2][color=#0000ff]Declare[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE][SIZE=2] SendMessage [/SIZE][SIZE=2][color=#0000ff]Lib[/color][/SIZE][SIZE=2][color=#a31515]"user32"[/color][/SIZE][SIZE=2][color=#0000ff]Alias[/color][/SIZE][SIZE=2][color=#a31515]"SendMessageA"[/color][/SIZE][SIZE=2] ([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] _
hWnd [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Integer[/color][/SIZE][SIZE=2], [/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] wMsg [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Integer[/color][/SIZE][SIZE=2], [/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] wParam [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Integer[/color][/SIZE][SIZE=2], _
[/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] lParam [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Integer[/color][/SIZE][SIZE=2])
[/SIZE][SIZE=2][color=#0000ff]Private[/color][/SIZE][SIZE=2][color=#0000ff]Const[/color][/SIZE][SIZE=2] WM_NCLBUTTONDOWN [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Integer[/color][/SIZE][SIZE=2] = &HA1
[/SIZE][SIZE=2][color=#0000ff]Private[/color][/SIZE][SIZE=2][color=#0000ff]Const[/color][/SIZE][SIZE=2] HTCAPTION [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Integer[/color][/SIZE][SIZE=2] = 2

[/SIZE][SIZE=2][COLOR=#008000]' م©ه ImageAttributes object ي color key é?م§?§ ?éهي©ê
[/COLOR][/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] lowerColor [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] Color = Color.Magenta
[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] upperColor [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] Color = Color.Magenta
[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] attr [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] System.Drawing.Imaging.ImageAttributes
[/SIZE][SIZE=2][color=#0000ff]Protected[/color][/SIZE][SIZE=2][color=#0000ff]Overrides[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE][SIZE=2] OnPaint([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] e [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.Windows.Forms.PaintEventArgs)
[/SIZE][SIZE=2][color=#0000ff]MyBase[/color][/SIZE][SIZE=2].OnPaint(e)
[/SIZE][SIZE=2][COLOR=#008000]' م©ه graphic object
[/COLOR][/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] bmp [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Bitmap(_skin)
[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] g [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] Graphics = Graphics.FromImage(bmp)
[/SIZE][SIZE=2][COLOR=#008000]' çê ?م§?§ transparency color key مéî ?مéî è«é هî ?éï«?©
[/COLOR][/SIZE][SIZE=2][COLOR=#008000]' of the image (maneta color).
[/COLOR][/SIZE][SIZE=2]attr.SetColorKey(lowerColor, upperColor)

[/SIZE][SIZE=2][COLOR=#008000]' ?©«ê ?é*ي©، ë?? مéî ?é*ي©، ?éꥧ§،
[/COLOR][/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] dstRect [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Rectangle(0, 0, bmp.Width, bmp.Height)
e.Graphics.DrawImage(bmp, dstRect, 0, 0, bmp.Width, bmp.Height, _
GraphicsUnit.Pixel, attr)
[/SIZE][SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][COLOR=#0000ff]Sub
[/COLOR][/SIZE][SIZE=2][color=#0000ff]Private[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE][SIZE=2] Form2_MouseDown([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Object[/color][/SIZE][SIZE=2], [/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] e [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.Windows.Forms.MouseEventArgs) [/SIZE][SIZE=2][color=#0000ff]Handles[/color][/SIZE][SIZE=2][color=#0000ff]Me[/color][/SIZE][SIZE=2].MouseDown
[/SIZE][SIZE=2][COLOR=#008000]' ?©هم?éهي©ê
[/COLOR][/SIZE][SIZE=2][color=#0000ff]If[/color][/SIZE][SIZE=2] e.Button = MouseButtons.Left [/SIZE][SIZE=2][COLOR=#0000ff]Then
[/COLOR][/SIZE][SIZE=2]ReleaseCapture()
SendMessage([/SIZE][SIZE=2][color=#0000ff]Me[/color][/SIZE][SIZE=2].Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
[/SIZE][SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][COLOR=#0000ff]If
[/COLOR][/SIZE][SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][COLOR=#0000ff]Sub
[/COLOR][/SIZE]