PointToScreen PointToClient

justefe — Wed, 19 Mar 2008 11:13:32 +0000

You can better understand what PointToScreen stands for.

Heroes Episode 23 Direct Http Link

justefe — Tue, 22 May 2007 17:45:44 +0000

http://www.telly-direct.com/tv/heroes.123.hdtv-lol.avi

Heroes Episode 21 Direct HTTP Link

justefe — Tue, 08 May 2007 13:55:10 +0000

Download link:
http://shopgameonlinevn.com/rapidkill/heroes.121.hdtv-lol.avi

HS-422 Super Sport Servo

justefe — Wed, 02 May 2007 14:05:05 +0000

4 Adet hiç kullanılmamış HiTec servo sadece Ankara içinden alıcılar için satılıktır. Tanesi 30 YTL.

http://www.hitecrcd.com/servos/show?name=HS-422

good looking windows form

justefe — Wed, 25 Apr 2007 14:28:55 +0000

If you want to have a good looking windows form,
1. Add this class to your project
Public Class FormPanel

Inherits PanelPrivate BorderPen As Pen = New Pen(Color.FromArgb(101, 147, 207)) Private FillBrush As Brush = New Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(0, Me.Height), Color.White, Color.FromArgb(179, 192, 227)) Private FillBrushHeaderTop As Brush = New Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(0, 11), Color.White, Color.FromArgb(179, 192, 227)) Private FillBrushHeaderBottom As Brush = New Drawing2D.LinearGradientBrush(New PointF(0, 10), New PointF(0, 22), Color.FromArgb(179, 192, 227), Color.White) Private ResizeBrush As Brush = New SolidBrush(Color.Gray) Private HeaderFont As Font = New Font("Trebuchet MS", 12, FontStyle.Bold, GraphicsUnit.Pixel) Private ModeMove As Boolean = False Private ClickLocation As New Point Private ControlBox As Boolean = FalseProtected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) e.Graphics.FillRectangle(FillBrush, 0, 12, Me.Width, Me.Height) e.Graphics.FillRectangle(FillBrushHeaderTop, 12, 0, Me.Width - 24, 11) e.Graphics.FillRectangle(FillBrushHeaderBottom, 12, 11, Me.Width - 24, 11) e.Graphics.FillRectangle(FillBrushHeaderBottom, 0, 12, Me.Width, 10) e.Graphics.DrawLine(Me.BorderPen, 0, 22, Me.Width, 22)e.Graphics.FillPie(FillBrushHeaderTop, 0, 0, 24, 24, -90, -90) e.Graphics.FillPie(FillBrushHeaderTop, Me.Width - 25, 0, 24, 24, -90, 90) e.Graphics.DrawLine(BorderPen, 12, 0, Me.Width - 12, 0) e.Graphics.DrawLine(BorderPen, 0, Me.Height - 1, Me.Width, Me.Height - 1) e.Graphics.DrawLine(BorderPen, 0, 12, 0, Me.Height - 1) e.Graphics.DrawLine(BorderPen, Me.Width - 1, 12, Me.Width - 1, Me.Height - 1)e.Graphics.InterpolationMode = Drawing.Drawing2D.InterpolationMode.HighQualityBilinear e.Graphics.SmoothingMode = Drawing.Drawing2D.SmoothingMode.HighQualitye.Graphics.DrawArc(BorderPen, 0, 0, 24, 24, -90, -90) e.Graphics.DrawArc(BorderPen, Me.Width - 25, 0, 24, 24, -90, 90)


e.Graphics.FillRectangle(ResizeBrush, Me.Width - 9, Me.Height - 6, 2, 2)

  e.Graphics.FillRectangle(ResizeBrush, Me.Width - 6, Me.Height - 6, 2, 2)

  e.Graphics.FillRectangle(ResizeBrush, Me.Width - 9, Me.Height - 9, 2, 2)

  e.Graphics.FillRectangle(ResizeBrush, Me.Width - 6, Me.Height - 9, 2, 2)

  e.Graphics.FillRectangle(ResizeBrush, Me.Width - 12, Me.Height - 6, 2, 2)

  e.Graphics.FillRectangle(ResizeBrush, Me.Width - 6, Me.Height - 12, 2, 2)
e.Graphics.DrawString("Elegant Form", Me.HeaderFont, Brushes.Black, 15, 3)
MyBase.OnPaint(e)
End Sub
Protected Overrides Sub OnSizeChanged(ByVal e As System.EventArgs)

  Me.FillBrush = New Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(0, Me.Height), Color.White, Color.FromArgb(179, 192, 227))

  MyBase.OnSizeChanged(e)

  End Sub
Private Sub Form_Activated(ByVal sender As Object, ByVal e As System.EventArgs)

  Me.FillBrushHeaderTop = New Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(0, 22 / 2), Color.White, Color.FromArgb(179, 192, 227))

  Me.FillBrushHeaderBottom = New Drawing2D.LinearGradientBrush(New PointF(0, 22 / 2 - 1), New PointF(0, 22), Color.FromArgb(179, 192, 227), Color.White)

  Me.FillBrush = New Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(0, Me.Height), Color.White, Color.FromArgb(179, 192, 227))

  Me.Invalidate()

  End Sub
Private Sub Form_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs)

  Me.FillBrushHeaderTop = New Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(0, 22 / 2), Color.White, Color.FromArgb(192, 192, 192))

  Me.FillBrushHeaderBottom = New Drawing2D.LinearGradientBrush(New PointF(0, 22 / 2 - 1), New PointF(0, 22), Color.FromArgb(192, 192, 192), Color.White)

  Me.FillBrush = New Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(0, Me.Height), Color.White, Color.FromArgb(192, 192, 192))

  Me.Invalidate()

  End Sub
Private Sub Form_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

  If e.Y < 22 Then

  Me.FillBrushHeaderTop = New Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(0, 22 / 2), Color.White, Color.FromArgb(139, 152, 187))

  Me.FillBrushHeaderBottom = New Drawing2D.LinearGradientBrush(New PointF(0, 22 / 2 - 1), New PointF(0, 22), Color.FromArgb(139, 152, 187), Color.White)

  ModeMove = True

  ClickLocation = e.Location

  Me.Invalidate()

  End If

  End Sub
Private Sub Form_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

  If Me.ModeMove = True Then

  Me.Parent.Location += (e.Location - ClickLocation)

  End If

  End Sub
Private Sub Form_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

  If ModeMove Then

  ModeMove = False

  Me.FillBrushHeaderTop = New Drawing2D.LinearGradientBrush(New PointF(0, 0), New PointF(0, 22 / 2), Color.White, Color.FromArgb(179, 192, 227))

  Me.FillBrushHeaderBottom = New Drawing2D.LinearGradientBrush(New PointF(0, 22 / 2 - 1), New PointF(0, 22), Color.FromArgb(179, 192, 227), Color.White)

  Me.Invalidate()

  End If

  End Sub
Private Sub Panel_ParentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ParentChanged

  If Me.Parent.GetType.BaseType Is GetType(Form) Then

  AddHandler CType(Me.Parent, Form).Activated, AddressOf Form_Activated

  AddHandler CType(Me.Parent, Form).Deactivate, AddressOf Form_Deactivate

  End If

  End Sub
End Class
2. Add this control on to a Form.
3. Set TransparencyKey of the Form to color "Control".
4. Dock the control in the form.

“TAJ Hero” A Song To Remember

justefe — Fri, 06 Apr 2007 19:35:12 +0000

A raising R&B star shows much promise. For those who find it difficult to searh TAJ Hero, see the link below. http://www.myspace.com/tajsongs28

XamlPresentation2006.xsd

justefe — Wed, 04 Apr 2007 14:09:12 +0000

If you need XamlPresentation2006.xsd, you must install “Cider CTP”. The installation copies the file to “C:\Program Files\Microsoft Visual Studio 8\Xml\Schemas”