Vollständiger TwitLib v2.3cc Quellcode

MarcoQuinten · 23. August 2012, 17:55

Hi

Zu meinem 16. Geburtstag Release ich den kompletten Quellcode meiner TwitLib!
Der Quellcode ist auf dem neuesten Stand (v2.3cc)

Das hier ist der erste Teil, weil nicht alles hingepasst hat.
Den zweiten Teil findet ihr weiter unten :)

View code

VB.NET-Quellcode

Option Strict On
Option Explicit On
Option Compare Binary
Imports System
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Text
Imports System.Drawing.Drawing2D
Imports System.Runtime.InteropServices
'
' CustomColors finished! :)
'
'FINISHED: Form
'Update: changing the Font is now possible
'Update: CustomColors
<Description("TwitterStyle Form"), DesignerCategory("Twitter Style")> _
Public Class TwitForm
Inherits Form
<DefaultValue(False)> _
Property UseCustomFont As Boolean
Private Declare Function ReleaseCapture _
Lib "user32" () As Integer
Private Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Integer, _
ByVal wMsg As Integer, _
ByVal wParam As Integer, _
ByRef lParam As Object) As Integer
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private internalStyle As FormTwitStyle = FormTwitStyle.CLASSIC_blue
'
'CustomColors
Private iccg1 As Color = Color.White
Private iccg2 As Color = Color.Blue
Property cc_Gradient1 As Color
Get
Return iccg1
End Get
Set(ByVal value As Color)
iccg1 = value
Invalidate()
End Set
End Property
Property cc_Gradient2 As Color
Get
Return iccg2
End Get
Set(ByVal value As Color)
iccg2 = value
Invalidate()
End Set
End Property
'/CustomColors
'
Enum FormTwitStyle As Integer
CustomColors
CLASSIC_blue
NEW_black
End Enum
Property FormStyle As FormTwitStyle
Get
Return internalStyle
End Get
Set(ByVal value As FormTwitStyle)
internalStyle = value
'CustomColors
If Not internalStyle = FormTwitStyle.CustomColors AndAlso value = FormTwitStyle.CustomColors Then
MessageBox.Show("CustomColors aktivated!" & vbCrLf & "Properties: cc_Gradient1 | cc_Gradient2")
End If
'/CustomColors
Me.Invalidate()
End Set
End Property
Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaintBackground(e)
Dim pnt1 As New Point(CInt(Me.Width / 2), 0)
Dim pnt2 As New Point(CInt(Me.Width / 2), 40)
Dim fillcolor As LinearGradientBrush
e.Graphics.SmoothingMode = SmoothingMode.HighQuality
e.Graphics.CompositingQuality = CompositingQuality.HighQuality
e.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
e.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
Select Case FormStyle
Case FormTwitStyle.CLASSIC_blue
fillcolor = New LinearGradientBrush(pnt1, pnt2, Color.FromArgb(255, 0, 160, 209), Color.FromArgb(255, 0, 141, 185))
e.Graphics.FillRectangle(fillcolor, New Rectangle(0, 0, Me.Width, 40))
Case FormTwitStyle.NEW_black
fillcolor = New LinearGradientBrush(pnt1, pnt2, Color.FromArgb(255, 63, 63, 63), Color.FromArgb(255, 47, 47, 47))
e.Graphics.FillRectangle(fillcolor, New Rectangle(0, 0, Me.Width, 40))
Case FormTwitStyle.CustomColors
fillcolor = New LinearGradientBrush(pnt1, pnt2, Me.cc_Gradient1, Me.cc_Gradient2)
e.Graphics.FillRectangle(fillcolor, New Rectangle(0, 0, Me.Width, 40))
End Select
With e.Graphics
.DrawImage(My.Resources.bar_close, New Point(Me.Width - 32, 8))
End With
ApplyBorder(e)
End Sub
Sub ApplyBorder(ByVal e As PaintEventArgs)
Dim pnt1 As New Point(CInt(e.ClipRectangle.Width / 2), 0)
Dim pnt2 As New Point(CInt(e.ClipRectangle.Width / 2), e.ClipRectangle.Height)
Dim stylebrush As LinearGradientBrush
Select Case FormStyle
Case FormTwitStyle.CLASSIC_blue
stylebrush = New LinearGradientBrush(pnt1, pnt2, Color.FromArgb(255, 0, 160, 209), Color.FromArgb(255, 0, 141, 185))
e.Graphics.DrawRectangle(New Pen(stylebrush, 6), e.ClipRectangle)
Case FormTwitStyle.NEW_black
stylebrush = New LinearGradientBrush(pnt1, pnt2, Color.FromArgb(255, 63, 63, 63), Color.FromArgb(255, 47, 47, 47))
e.Graphics.DrawRectangle(New Pen(stylebrush, 6), e.ClipRectangle)
Case Else
stylebrush = New LinearGradientBrush(pnt1, pnt2, Me.cc_Gradient1, Me.cc_Gradient2)
e.Graphics.DrawRectangle(New Pen(stylebrush, 6), e.ClipRectangle)
End Select
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
e.Graphics.SmoothingMode = SmoothingMode.HighQuality
e.Graphics.CompositingQuality = CompositingQuality.HighQuality
e.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
e.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
With e.Graphics
.TextRenderingHint = Drawing.Text.TextRenderingHint.SystemDefault
End With
Dim flags As TextFormatFlags = TextFormatFlags.Left Or TextFormatFlags.VerticalCenter
Dim twitterfont As Font
If UseCustomFont Then
twitterfont = Me.Font
Else
twitterfont = TwitterFontLoader.GetFont(14, FontStyle.Bold)
End If
TextRenderer.DrawText(e.Graphics, Me.Text, twitterfont, New Rectangle(0, 0, Me.Width, 40), Color.White, Color.Transparent, flags)
End Sub
Private Sub appclose()
Me.Close()
End Sub
Private Sub twitform_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
Dim tloc As Point = Me.PointToClient(Control.MousePosition)
If tloc.Y <= 40 AndAlso e.Button = MouseButtons.Left Then
Call ReleaseCapture()
SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub
Private Sub twitform_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick
Dim tloc As Point = Me.PointToClient(Control.MousePosition)
If tloc.X >= (Me.Width - 32) AndAlso tloc.X <= (Me.Width - 8) _
AndAlso (tloc.Y >= 8) AndAlso tloc.Y <= (32) Then
appclose()
End If
End Sub
Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
MyBase.OnTextChanged(e)
Me.Refresh()
End Sub
Sub New()
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
End Sub
End Class
'FINISHED: Button
'Update: Now Double-Buffered
'Thank you ThuCommix! :)
'Update: CustomColors
<Description("TwitterStyle Button"), DesignerCategory("Twitter Style")> _
Public Class TwitButton
Inherits Control
Dim internalmouseover As Boolean = False
Dim internaltwitstyle As ButtonTwitStyle = ButtonTwitStyle.Classic_Blue
'
'CustomColors
Private iccg1 As Color = Color.White
Private iccg2 As Color = Color.Blue
Property cc_Gradient1 As Color
Get
Return iccg1
End Get
Set(ByVal value As Color)
iccg1 = value
Invalidate()
End Set
End Property
Property cc_Gradient2 As Color
Get
Return iccg2
End Get
Set(ByVal value As Color)
iccg2 = value
Invalidate()
End Set
End Property
'/CustomColors
'
Enum ButtonTwitStyle As Integer
CustomColors
Classic_Silver
Classic_Blue
End Enum
Property Style As ButtonTwitStyle
Get
Return internaltwitstyle
End Get
Set(ByVal value As ButtonTwitStyle)
internaltwitstyle = value
Me.Refresh()
End Set
End Property
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaintBackground(pevent)
Dim pnt1 As New Point(CInt(Me.Width / 2), 0)
Dim pnt2 As New Point(CInt(Me.Width / 2), Me.Height)
Dim fillcolor As LinearGradientBrush
pevent.Graphics.SmoothingMode = SmoothingMode.HighQuality
pevent.Graphics.CompositingQuality = CompositingQuality.HighQuality
pevent.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
pevent.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
If Not internalmouseover Then
Select Case Style
Case ButtonTwitStyle.Classic_Silver
fillcolor = New LinearGradientBrush(pnt1, pnt2, Color.FromArgb(255, 254, 254, 254), Color.FromArgb(255, 225, 225, 225))
pevent.Graphics.FillRectangle(fillcolor, New Rectangle(0, 0, Me.Width, Me.Height))
pevent.Graphics.DrawRectangle(New Pen(Brushes.Silver, 4), pevent.ClipRectangle)
Case ButtonTwitStyle.Classic_Blue
fillcolor = New LinearGradientBrush(pnt1, pnt2, Color.FromArgb(255, 76, 181, 214), Color.FromArgb(255, 0, 160, 209))
pevent.Graphics.FillRectangle(fillcolor, New Rectangle(0, 0, Me.Width, Me.Height))
pevent.Graphics.DrawRectangle(New Pen(Brushes.LightBlue, 4), pevent.ClipRectangle)
Case ButtonTwitStyle.CustomColors
fillcolor = New LinearGradientBrush(pnt1, pnt2, Me.cc_Gradient1, Me.cc_Gradient2)
pevent.Graphics.FillRectangle(fillcolor, New Rectangle(0, 0, Me.Width, Me.Height))
pevent.Graphics.DrawRectangle(New Pen(Brushes.LightBlue, 4), pevent.ClipRectangle)
End Select
Else
Select Case Style
Case ButtonTwitStyle.Classic_Silver
fillcolor = New LinearGradientBrush(pnt1, pnt2, Color.FromArgb(255, 250, 250, 250), Color.FromArgb(255, 220, 220, 240))
pevent.Graphics.FillRectangle(fillcolor, pevent.ClipRectangle)
pevent.Graphics.DrawRectangle(New Pen(Brushes.Silver, 4), pevent.ClipRectangle)
Case ButtonTwitStyle.Classic_Blue
fillcolor = New LinearGradientBrush(pnt1, pnt2, Color.FromArgb(255, 70, 175, 200), Color.FromArgb(255, 0, 144, 200))
pevent.Graphics.FillRectangle(fillcolor, New Rectangle(0, 0, Me.Width, Me.Height))
pevent.Graphics.DrawRectangle(New Pen(Brushes.LightBlue, 4), pevent.ClipRectangle)
End Select
End If
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
Dim flags As TextFormatFlags = TextFormatFlags.HorizontalCenter Or TextFormatFlags.VerticalCenter
TextRenderer.DrawText(e.Graphics, Me.Text, Me.Font, e.ClipRectangle, Me.ForeColor, Color.Transparent, flags)
End Sub
Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
MyBase.OnTextChanged(e)
Me.Refresh()
End Sub
Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
MyBase.OnMouseEnter(e)
internalmouseover = True
Me.Refresh()
End Sub
Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
MyBase.OnMouseLeave(e)
internalmouseover = False
Me.Refresh()
End Sub
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
End Sub
End Class

ErfinderDesRades · 23. August 2012, 19:44

Der Code ist in dieser Form gänzlich unbrauchbar, weil die TwitForm.Designer.vb fehlt.
Bitte häng ein lauffähiges Projekt an. thx!

Manawyrm · 24. August 2012, 00:17

@EdR: Na klar ist der läuffähig. Das ist ne Klasse, von der man eine Form instanzieren kann...

Was wirklich fehlt ist die My.Resources.bar_close...

Gruß,
Manawyrm

ErfinderDesRades · 24. August 2012, 00:57

sry - ich kriege damit nix gebacken. Fehlt auch eine Klasse TwitterFontLoader.

und was soll man damit machen?

MarcoQuinten · 24. August 2012, 14:57

Sorry, hat nicht alles in den ersten Post gepasst

Code anzeigen

VB.NET-Quellcode

'FINISHED: ProgressBar
'Update: Now with Marquee!
'Thank you ThuCommix! :)
'Update: CustomColors
<Description("TwitterStyle ProgressBar"), DesignerCategory("Twitter Style")> _
Public Class TwitProgressBar
Inherits UserControl
'
'CustomColors
Private iccg1 As Color = Color.White
Private iccg2 As Color = Color.Blue
Property cc_Gradient1 As Color
Get
Return iccg1
End Get
Set(ByVal value As Color)
iccg1 = value
Invalidate()
End Set
End Property
Property cc_Gradient2 As Color
Get
Return iccg2
End Get
Set(ByVal value As Color)
iccg2 = value
Invalidate()
End Set
End Property
'/CustomColors
'
Private ivalue_max As Integer = 100
Private ivalue_min As Integer = 0
Private ivalue As Integer = 0
Private icc As Boolean = False
Property UseCustomColors As Boolean
Get
Return icc
End Get
Set(ByVal value As Boolean)
icc = value
Invalidate()
End Set
End Property
Property Maximum As Integer
Get
Return ivalue_max
End Get
Set(ByVal extvalue As Integer)
If extvalue > Minimum Then
ivalue_max = extvalue
Me.Invalidate()
Else
Throw New ArgumentException("Das Wert muss größer als Minimum sein")
End If
End Set
End Property
Property Minimum As Integer
Get
Return ivalue_min
End Get
Set(ByVal extvalue As Integer)
If extvalue < Maximum Then
ivalue_min = extvalue
Me.Invalidate()
Else
Throw New ArgumentException("Das Wert muss kleiner als Maximum sein")
End If
End Set
End Property
Property Value As Integer
Get
Return ivalue
End Get
Set(ByVal extvalue As Integer)
If extvalue >= Minimum AndAlso extvalue <= Maximum Then
ivalue = extvalue
Me.Invalidate()
Else
Throw New ArgumentException("Der Wert muss zwischen Minimum und Maximum liegen")
End If
End Set
End Property
Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaintBackground(e)
With e.Graphics
.FillRectangle(New SolidBrush(Color.LightGray), e.ClipRectangle)
.DrawRectangle(New Pen(Brushes.Silver, 2.0!), e.ClipRectangle)
End With
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
'
'Alles schön Darstellen :)
'
e.Graphics.SmoothingMode = SmoothingMode.HighSpeed
e.Graphics.CompositingQuality = CompositingQuality.HighQuality
e.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
e.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
'
'Rectangle zur ordnungsgemäßen Anzeige des Values berechnen
'
Dim valrect As New Rectangle(New Point(2, 2), New Size(2, e.ClipRectangle.Height - 2) + New Size(CInt(((MyBase.Width / Maximum) * Value) - 2), -2))
'
'ProgressBar zeichnen
'
Dim pnt1 As New Point(CInt(e.ClipRectangle.Width / 2), 0)
Dim pnt2 As New Point(CInt(e.ClipRectangle.Width / 2), e.ClipRectangle.Height)
Dim stylebrush As LinearGradientBrush
If Not UseCustomColors Then
stylebrush = New LinearGradientBrush(pnt1, pnt2, Color.FromArgb(255, 76, 181, 214), Color.FromArgb(255, 0, 160, 209))
Else
stylebrush = New LinearGradientBrush(pnt1, pnt2, Me.cc_Gradient1, Me.cc_Gradient2)
End If
With e.Graphics
If ProgressBarStyle = Style.Continuous Then
.FillRectangle(stylebrush, valrect)
Else
'Animated Marquee
animationTimer.Start()
.FillRectangle(stylebrush, SpinningRect)
End If
End With
End Sub
Sub New()
Me.Height = 20
Me.Width = 100
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
AddHandler animationTimer.Tick, New EventHandler(AddressOf animationTimer_Tick)
SpinningRect = New Rectangle(1, 1, Width \ 10, Height - 2)
End Sub
#Region "Marquee Code by ThuCommix THANX!"
Private SpinningRect As New Rectangle()
Private Sub animationTimer_Tick(ByVal sender As Object, ByVal e As EventArgs)
'Balken bewegen, vorsicht:wird auch im Designer ausgeführt, eventuell optimieren.
animationTimer.Interval = Me.MarqueeAnimationSpeed
If SpinningRect.Location.X >= Width - 5 Then
SpinningRect.Location = New Point(2 - SpinningRect.Size.Width, 1)
Me.Invalidate()
Else
SpinningRect.Location = New Point(SpinningRect.Location.X + 4, 1)
Me.Invalidate()
End If
End Sub
Protected Overrides Sub OnResize(ByVal eventargs As EventArgs)
'Marquee Balken an die Größe Anpassen
SpinningRect = New Rectangle(SpinningRect.Location.X + 1, SpinningRect.Location.Y + 1, Width \ 4, Height - 2)
Me.Invalidate()
MyBase.OnResize(eventargs)
End Sub
Private animationTimer As New Timer()
Private iinterval As Integer = 50
Public Property MarqueeAnimationSpeed() As Integer
Get
Return iinterval
End Get
Set(ByVal value As Integer)
iinterval = value
animationTimer.Stop()
animationTimer.Interval = iinterval
animationTimer.Start()
Me.Invalidate()
End Set
End Property
Public Property ProgressBarStyle() As Style
Get
Return m_ProgressBarStyle
End Get
Set(ByVal value As Style)
m_ProgressBarStyle = value
End Set
End Property
Private m_ProgressBarStyle As Style
Public Enum Style
Continuous
Marquee
End Enum
#End Region
End Class
'FINISHED: Twitter FontLoader
Public Module TwitterFontLoader
'PRIVATE FONT COLLECTION TO HOLD THE DYNAMIC FONT
Private _pfc As PrivateFontCollection = Nothing
Public ReadOnly Property GetFont(ByVal Size As Single, _
ByVal style As FontStyle) As Font
Get
'IF THIS IS THE FIRST TIME GETTING AN INSTANCE
'LOAD THE FONT FROM RESOURCES
If _pfc Is Nothing Then LoadFont()
'RETURN A NEW FONT OBJECT BASED ON THE SIZE AND STYLE PASSED IN
Return New Font(_pfc.Families(0), Size, style)
End Get
End Property
Private Sub LoadFont()
Try
'INIT THE FONT COLLECTION
_pfc = New PrivateFontCollection
'LOAD MEMORY POINTER FOR FONT RESOURCE
Dim fontMemPointer As IntPtr = _
Marshal.AllocCoTaskMem( _
My.Resources.PICOBLA_.Length)
'COPY THE DATA TO THE MEMORY LOCATION
Marshal.Copy(My.Resources.PICOBLA_, _
0, fontMemPointer, _
My.Resources.PICOBLA_.Length)
'LOAD THE MEMORY FONT INTO THE PRIVATE FONT COLLECTION
_pfc.AddMemoryFont(fontMemPointer, _
My.Resources.PICOBLA_.Length)
'FREE UNSAFE MEMORY
Marshal.FreeCoTaskMem(fontMemPointer)
Catch ex As Exception
'ERROR LOADING FONT. HANDLE EXCEPTION HERE
End Try
End Sub
End Module
'FINISHED: CheckBox
<Description("TwitterStyle CheckBox"), DesignerCategory("Twitter Style")> _
Public Class twitCheckBox
Inherits CheckBox
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
e.Graphics.SmoothingMode = SmoothingMode.HighQuality
e.Graphics.CompositingQuality = CompositingQuality.HighQuality
e.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
e.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
Dim siz As Size = CheckBoxRenderer.GetGlyphSize(e.Graphics, VisualStyles.CheckBoxState.UncheckedNormal)
Dim pnt1 As New Point(CInt(e.ClipRectangle.Width / 2), 0)
Dim pnt2 As New Point(CInt(e.ClipRectangle.Width / 2), e.ClipRectangle.Height)
Dim stylebrush As New LinearGradientBrush(pnt1, pnt2, Color.FromArgb(255, 76, 181, 214), Color.FromArgb(255, 0, 160, 209))
If Me.Checked = False Then
e.Graphics.FillRectangle(stylebrush, New Rectangle(New Point(0, 0), siz))
Else
e.Graphics.FillRectangle(stylebrush, New Rectangle(New Point(0, 0), siz))
e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(255, 22, 22, 22)), New Rectangle(New Point(2, 2), New Size(siz.Width - 4, siz.Height - 4)))
End If
End Sub
Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
MyBase.OnTextChanged(e)
Me.Refresh()
End Sub
End Class
'FINISHED: FollowBox
'Update: added AntiAliasing
Public Class FollowBox
Inherits Control
<DefaultValue("Follow Me")> _
Public Overrides Property Text As String
Get
Return (MyBase.Text)
End Get
Set(ByVal value As String)
MyBase.Text = value
Me.Refresh()
End Set
End Property
Sub New()
Me.Width = 200
Me.Height = 64
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
With e.Graphics
.SmoothingMode = SmoothingMode.HighQuality
.TextRenderingHint = TextRenderingHint.SystemDefault
.InterpolationMode = InterpolationMode.HighQualityBicubic
.DrawImage(My.Resources.twitterbird, New Rectangle(0, 0, 64, 64))
End With
Dim rect As New Rectangle(64, 0, e.ClipRectangle.Width, e.ClipRectangle.Height)
Dim flags As TextFormatFlags = TextFormatFlags.SingleLine Or TextFormatFlags.VerticalCenter Or TextFormatFlags.Left
TextRenderer.DrawText(e.Graphics, Me.Text, TwitterFontLoader.GetFont(Me.Font.Size, FontStyle.Bold), rect, Me.ForeColor, Color.Transparent, flags)
End Sub
End Class
'FINISHED: TweetBox
Public Class TweetBox
Inherits Control
Dim isubtext As String = "gerade eben"
Dim ititle As String = "@Twitter_Username"
Dim iavatar As Image = My.Resources.twitterbird
Property Text_Sub As String
Get
Return isubtext
End Get
Set(ByVal value As String)
isubtext = value
RaiseEvent SubTextChanged(isubtext)
Me.Refresh()
End Set
End Property
Property Text_Title As String
Get
Return ititle
End Get
Set(ByVal value As String)
ititle = value
RaiseEvent TitleChanged(ititle)
Me.Refresh()
End Set
End Property
Property Text_Avatar As Image
Get
Return iavatar
End Get
Set(ByVal value As Image)
iavatar = value
RaiseEvent AvatarChanged(iavatar)
Me.Refresh()
End Set
End Property
Property TitleFont As Font = New Font(FontFamily.GenericSerif, 12.25)
Property TitleColor As Color = Color.Black
Property SubColor As Color = Color.DimGray
Property SubFont As Font = New Font(FontFamily.GenericMonospace, 8.25)
Event TitleChanged(ByVal newTitle As String)
Event SubTextChanged(ByVal newSubText As String)
Event AvatarChanged(ByVal newAvatar As Image)
Sub New()
MyBase.Height = 64
MyBase.Width = 250
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
With e.Graphics
.InterpolationMode = InterpolationMode.HighQualityBicubic
.SmoothingMode = SmoothingMode.HighQuality
.PixelOffsetMode = PixelOffsetMode.HighQuality
.TextRenderingHint = TextRenderingHint.SystemDefault
'
'Border
'
.DrawRectangle(New Pen(Brushes.SkyBlue, -4.0!), e.ClipRectangle)
.DrawRectangle(New Pen(Brushes.DeepSkyBlue, 2.0!), e.ClipRectangle)
'
'Avatar
'
.DrawImage(Me.Text_Avatar, New Rectangle(0, 0, 64, 64))
.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(75, Color.White)), 2.0!), New Rectangle(0, 0, 64, 64))
'
'Title
'
TextRenderer.DrawText(e.Graphics, Me.Text_Title, Me.TitleFont, New Rectangle(66, 0, e.ClipRectangle.Width - 25, 20), Me.TitleColor, Color.Transparent, TextFormatFlags.Left Or TextFormatFlags.SingleLine)
'
'Text
'
TextRenderer.DrawText(e.Graphics, Me.Text, Me.Font, New Rectangle(66, 20, e.ClipRectangle.Width, e.ClipRectangle.Height), Me.ForeColor, Color.Transparent, TextFormatFlags.Left Or TextFormatFlags.Top)
'
'SubText
'
TextRenderer.DrawText(e.Graphics, Me.Text_Sub, Me.SubFont, New Rectangle(66, 0, e.ClipRectangle.Width, e.ClipRectangle.Height), Me.SubColor, Color.Transparent, TextFormatFlags.Bottom Or TextFormatFlags.Left)
End With
End Sub
Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
MyBase.OnTextChanged(e)
Me.Refresh()
End Sub
End Class

Die Resourcen sind hier zu finden (müssen noch umbenannt werden :)):

Vollständiger TwitLib v2.3cc Quellcode

Vollständiger TwitLib v2.3cc Quellcode

VB.NET-Quellcode

Teil 2

VB.NET-Quellcode

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben