Valley Theme

SUBMITTED BY: Guest

DATE: Aug. 1, 2014, 10:16 p.m.

FORMAT: C#

SIZE: 32.7 kB

Raw Download

HITS: 24859

Report
  1. Imports System.Drawing
  2. Imports System.Drawing.Drawing2D
  3. Imports System.ComponentModel
  4. Imports System.Drawing.Text
  6. ''' <summary>
  7. ''' Valley Theme
  8. ''' Created by Earn
  9. ''' from HackForums.net
  10. ''' </summary>
  11. ''' <remarks></remarks>
  14. #Region "Properties"
  16. #Region " Mouse States"
  18. Enum MouseState As Byte
  19. None = 0
  20. Over = 1
  21. Down = 2
  22. Block = 3
  23. End Enum
  25. #End Region
  27. #End Region
  29. Class ValleyTheme
  30. Inherits ContainerControl
  32. #Region "Variables"
  33. Private Cap As Boolean = False
  34. Private MousePoint As New Point(0, 0)
  35. Private MoveHeight = 36
  36. #End Region
  38. #Region "Properties"
  40. Public WriteOnly Property TransparencyKey As Color
  41. Set(ByVal value As Color)
  42. value = Color.Fuchsia
  43. End Set
  44. End Property
  46. Protected Overrides Sub OnCreateControl()
  47. MyBase.OnCreateControl()
  48. ParentForm.FormBorderStyle = FormBorderStyle.None
  49. ParentForm.AllowTransparency = False
  50. ParentForm.TransparencyKey = Color.Fuchsia
  51. ParentForm.FindForm.StartPosition = FormStartPosition.CenterScreen
  52. Dock = DockStyle.Fill
  53. Invalidate()
  54. End Sub
  56. Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
  57. MyBase.OnMouseDown(e)
  58. If e.Button = Windows.Forms.MouseButtons.Left And New Rectangle(0, 0, Width, MoveHeight).Contains(e.Location) Then
  59. Cap = True
  60. MousePoint = e.Location
  61. End If
  62. End Sub
  65. Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
  66. MyBase.OnMouseUp(e) : Cap = False
  67. End Sub
  69. Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
  70. MyBase.OnMouseMove(e)
  71. If Cap Then
  72. Parent.Location = MousePosition - MousePoint
  73. End If
  74. End Sub
  75. #End Region
  77. Sub New()
  78. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
  79. DoubleBuffered = True
  80. BackColor = Color.FromArgb(242, 242, 242)
  81. Font = New Font("Segoe UI", 9)
  82. End Sub
  84. Protected Overrides Sub OnPaint(e As PaintEventArgs)
  85. Dim G = e.Graphics
  87. G.Clear(Color.FromArgb(22, 22, 22))
  88. G.DrawRectangle(New Pen(Color.FromArgb(38, 38, 38)), New Rectangle(0, 0, Width - 1, Height - 1))
  89. G.FillRectangle(New LinearGradientBrush(New Point(0, 0), New Point(0, 36), Color.FromArgb(50, 50, 50), Color.FromArgb(47, 47, 47)), New Rectangle(1, 1, Width - 2, 36))
  90. G.FillRectangle(New LinearGradientBrush(New Point(0, 0), New Point(0, Height), Color.FromArgb(45, 45, 45), Color.FromArgb(23, 23, 23)), New Rectangle(1, 36, Width - 2, Height - 46))
  92. G.DrawRectangle(New Pen(Color.FromArgb(38, 38, 38)), New Rectangle(9, 35, Width - 19, Height - 45))
  93. G.FillRectangle(New SolidBrush(BackColor), New Rectangle(10, 36, Width - 20, Height - 46))
  95. G.FillRectangle(New SolidBrush(Color.FromArgb(47, 47, 47)), New Rectangle(9, 35, 1, 1))
  96. G.FillRectangle(New SolidBrush(Color.FromArgb(47, 47, 47)), New Rectangle(Width - 10, 35, 1, 1))
  98. G.FillRectangle(New SolidBrush(Color.Fuchsia), New Rectangle(0, 0, 1, 1))
  99. G.FillRectangle(New SolidBrush(Color.Fuchsia), New Rectangle(Width - 1, 0, 1, 1))
  100. G.FillRectangle(New SolidBrush(Color.Fuchsia), New Rectangle(0, Height - 1, 1, 1))
  101. G.FillRectangle(New SolidBrush(Color.Fuchsia), New Rectangle(Width - 1, Height - 1, 1, 1))
  103. G.DrawString(FindForm.Text, New Font("Segoe UI", 10), New SolidBrush(Color.FromArgb(242, 242, 242)), New Point(12, 6))
  104. MyBase.OnPaint(e)
  105. End Sub
  106. End Class
  108. Class ValleyButton
  109. Inherits Control
  111. #Region "Variables"
  112. Private State As MouseState = MouseState.None
  113. #End Region
  115. #Region "Properties"
  117. #Region " Mouse States"
  119. Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
  120. MyBase.OnMouseDown(e)
  121. State = MouseState.Down : Invalidate()
  122. End Sub
  123. Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
  124. MyBase.OnMouseUp(e)
  125. State = MouseState.Over : Invalidate()
  126. End Sub
  127. Protected Overrides Sub OnMouseEnter(e As EventArgs)
  128. MyBase.OnMouseEnter(e)
  129. State = MouseState.Over : Invalidate()
  130. End Sub
  131. Protected Overrides Sub OnMouseLeave(e As EventArgs)
  132. MyBase.OnMouseLeave(e)
  133. State = MouseState.None : Invalidate()
  134. End Sub
  136. #End Region
  138. #End Region
  140. Sub New()
  141. Size = New Size(150, 50)
  142. End Sub
  144. Protected Overrides Sub OnPaint(e As PaintEventArgs)
  145. Dim G = e.Graphics
  147. G.Clear(Color.FromArgb(34, 122, 247))
  148. G.DrawRectangle(New Pen(Color.FromArgb(42, 59, 252)), New Rectangle(0, 0, Width - 1, Height - 1))
  150. Select Case State
  151. Case MouseState.Over
  152. G.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.White)), New Rectangle(1, 1, Width - 2, Height - 2))
  153. Case MouseState.Down
  154. G.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.Black)), New Rectangle(1, 1, Width - 2, Height - 2))
  155. End Select
  157. G.FillRectangle(New SolidBrush(BackColor), New Rectangle(0, 0, 1, 1))
  158. G.FillRectangle(New SolidBrush(Color.FromArgb(134, 144, 253)), New Rectangle(0, 1, 1, 1))
  159. G.FillRectangle(New SolidBrush(Color.FromArgb(134, 144, 253)), New Rectangle(1, 0, 1, 1))
  160. G.FillRectangle(New SolidBrush(Color.FromArgb(56, 72, 251)), New Rectangle(0, 2, 1, 1))
  161. G.FillRectangle(New SolidBrush(Color.FromArgb(56, 72, 251)), New Rectangle(2, 0, 1, 1))
  162. G.FillRectangle(New SolidBrush(Color.FromArgb(62, 107, 249)), New Rectangle(1, 1, 1, 1))
  163. G.FillRectangle(New SolidBrush(BackColor), New Rectangle(Width - 1, 0, 1, 1))
  164. G.FillRectangle(New SolidBrush(Color.FromArgb(134, 144, 253)), New Rectangle(Width - 1, 1, 1, 1))
  165. G.FillRectangle(New SolidBrush(Color.FromArgb(134, 144, 253)), New Rectangle(Width - 2, 0, 1, 1))
  166. G.FillRectangle(New SolidBrush(Color.FromArgb(56, 72, 251)), New Rectangle(Width - 1, 2, 1, 1))
  167. G.FillRectangle(New SolidBrush(Color.FromArgb(56, 72, 251)), New Rectangle(Width - 3, 0, 1, 1))
  168. G.FillRectangle(New SolidBrush(Color.FromArgb(62, 107, 249)), New Rectangle(Width - 2, 1, 1, 1))
  169. G.FillRectangle(New SolidBrush(BackColor), New Rectangle(0, Height - 1, 1, 1))
  170. G.FillRectangle(New SolidBrush(Color.FromArgb(134, 144, 253)), New Rectangle(0, Height - 2, 1, 1))
  171. G.FillRectangle(New SolidBrush(Color.FromArgb(134, 144, 253)), New Rectangle(1, Height - 1, 1, 1))
  172. G.FillRectangle(New SolidBrush(Color.FromArgb(56, 72, 251)), New Rectangle(0, Height - 3, 1, 1))
  173. G.FillRectangle(New SolidBrush(Color.FromArgb(56, 72, 251)), New Rectangle(2, Height - 1, 1, 1))
  174. G.FillRectangle(New SolidBrush(Color.FromArgb(62, 107, 249)), New Rectangle(1, Height - 2, 1, 1))
  175. G.FillRectangle(New SolidBrush(BackColor), New Rectangle(Width - 1, Height - 1, 1, 1))
  176. G.FillRectangle(New SolidBrush(Color.FromArgb(134, 144, 253)), New Rectangle(Width - 1, Height - 2, 1, 1))
  177. G.FillRectangle(New SolidBrush(Color.FromArgb(134, 144, 253)), New Rectangle(Width - 2, Height - 1, 1, 1))
  178. G.FillRectangle(New SolidBrush(Color.FromArgb(56, 72, 251)), New Rectangle(Width - 1, Height - 3, 1, 1))
  179. G.FillRectangle(New SolidBrush(Color.FromArgb(56, 72, 251)), New Rectangle(Width - 3, Height - 1, 1, 1))
  180. G.FillRectangle(New SolidBrush(Color.FromArgb(62, 107, 249)), New Rectangle(Width - 2, Height - 2, 1, 1))
  182. G.DrawString(Text, Font, Brushes.White, New Point((Width / 2) - (TextRenderer.MeasureText(Text, Font).Width / 2), (Height / 2) - (TextRenderer.MeasureText(Text, Font).Height / 2)))
  184. MyBase.OnPaint(e)
  185. End Sub
  187. End Class
  189. <DefaultEvent("CheckedChanged")>
  190. Class ValleyRadioButton
  191. Inherits Control
  193. #Region " Variables"
  195. Private State As MouseState = MouseState.None
  196. Private W, H As Integer
  197. Private _Checked As Boolean
  199. #End Region
  201. #Region " Properties"
  202. Property Checked() As Boolean
  203. Get
  204. Return _Checked
  205. End Get
  206. Set(value As Boolean)
  207. _Checked = value
  208. InvalidateControls()
  209. RaiseEvent CheckedChanged(Me)
  210. Invalidate()
  211. End Set
  212. End Property
  213. Event CheckedChanged(ByVal sender As Object)
  214. Protected Overrides Sub OnClick(e As EventArgs)
  215. If Not _Checked Then Checked = True
  216. MyBase.OnClick(e)
  217. End Sub
  218. Private Sub InvalidateControls()
  219. If Not IsHandleCreated OrElse Not _Checked Then Return
  220. For Each C As Control In Parent.Controls
  221. If C IsNot Me AndAlso TypeOf C Is ValleyRadioButton Then
  222. DirectCast(C, ValleyRadioButton).Checked = False
  223. Invalidate()
  224. End If
  225. Next
  226. End Sub
  227. Protected Overrides Sub OnCreateControl()
  228. MyBase.OnCreateControl()
  229. InvalidateControls()
  230. End Sub
  233. Protected Overrides Sub OnResize(e As EventArgs)
  234. MyBase.OnResize(e)
  235. Height = 16
  236. End Sub
  238. #Region " Mouse States"
  240. Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
  241. MyBase.OnMouseDown(e)
  242. State = MouseState.Down : Invalidate()
  243. End Sub
  244. Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
  245. MyBase.OnMouseUp(e)
  246. State = MouseState.Over : Invalidate()
  247. End Sub
  248. Protected Overrides Sub OnMouseEnter(e As EventArgs)
  249. MyBase.OnMouseEnter(e)
  250. State = MouseState.Over : Invalidate()
  251. End Sub
  252. Protected Overrides Sub OnMouseLeave(e As EventArgs)
  253. MyBase.OnMouseLeave(e)
  254. State = MouseState.None : Invalidate()
  255. End Sub
  257. #End Region
  258. #End Region
  260. Protected Overrides Sub OnPaint(e As PaintEventArgs)
  261. Dim G = e.Graphics
  263. G.SmoothingMode = 2
  264. G.TextRenderingHint = 5
  265. G.Clear(BackColor)
  267. G.DrawEllipse(New Pen(Color.FromArgb(191, 191, 191)), New Rectangle(0, 0, 15, 15))
  269. Select Case State
  270. Case MouseState.Over
  271. G.DrawEllipse(New Pen(Color.FromArgb(160, 160, 160)), New Rectangle(0, 0, 15, 15))
  272. End Select
  274. If Checked Then
  275. G.FillEllipse(New SolidBrush(Color.FromArgb(56, 56, 56)), New Rectangle(4, 4, 7, 7))
  276. End If
  278. G.DrawString(Text, Font, New SolidBrush(Color.FromArgb(131, 131, 131)), New Point(18, -3))
  279. MyBase.OnPaint(e)
  280. End Sub
  282. End Class
  284. <DefaultEvent("CheckedChanged")>
  285. Class ValleyCheckBox
  286. Inherits Control
  288. #Region "Variables"
  289. Private W, H As Integer
  290. Private State As MouseState = MouseState.None
  291. Private _Checked As Boolean
  292. #End Region
  294. #Region " Properties"
  295. Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
  296. MyBase.OnTextChanged(e)
  297. Invalidate()
  298. End Sub
  300. Property Checked() As Boolean
  301. Get
  302. Return _Checked
  303. End Get
  304. Set(ByVal value As Boolean)
  305. _Checked = value
  306. Invalidate()
  307. End Set
  308. End Property
  310. Event CheckedChanged(ByVal sender As Object)
  311. Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
  312. _Checked = Not _Checked
  313. RaiseEvent CheckedChanged(Me)
  314. MyBase.OnClick(e)
  315. End Sub
  317. Protected Overrides Sub OnResize(e As EventArgs)
  318. MyBase.OnResize(e)
  319. Height = 16
  320. End Sub
  322. #End Region
  324. #Region " Mouse States"
  326. Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
  327. MyBase.OnMouseDown(e)
  328. State = MouseState.Down : Invalidate()
  329. End Sub
  330. Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
  331. MyBase.OnMouseUp(e)
  332. State = MouseState.Over : Invalidate()
  333. End Sub
  334. Protected Overrides Sub OnMouseEnter(e As EventArgs)
  335. MyBase.OnMouseEnter(e)
  336. State = MouseState.Over : Invalidate()
  337. End Sub
  338. Protected Overrides Sub OnMouseLeave(e As EventArgs)
  339. MyBase.OnMouseLeave(e)
  340. State = MouseState.None : Invalidate()
  341. End Sub
  343. #End Region
  345. Protected Overrides Sub OnPaint(e As PaintEventArgs)
  346. Dim G = e.Graphics
  347. G.Clear(BackColor)
  349. G.DrawRectangle(New Pen(Color.FromArgb(192, 192, 192)), New Rectangle(0, 0, 15, 15))
  351. Select Case State
  352. Case MouseState.Over
  353. G.DrawRectangle(New Pen(Color.FromArgb(160, 160, 160)), New Rectangle(0, 0, 15, 15))
  354. End Select
  356. If Checked Then
  357. G.DrawString("ü", New Font("Wingdings", 9), New SolidBrush(Color.FromArgb(56, 56, 56)), New Point(0, 2))
  358. End If
  360. G.FillRectangle(New SolidBrush(BackColor), New Rectangle(0, 0, 1, 1))
  361. G.FillRectangle(New SolidBrush(BackColor), New Rectangle(15, 15, 1, 1))
  362. G.FillRectangle(New SolidBrush(BackColor), New Rectangle(0, 15, 1, 1))
  363. G.FillRectangle(New SolidBrush(BackColor), New Rectangle(15, 0, 1, 1))
  365. G.DrawString(Text, Font, New SolidBrush(Color.FromArgb(131, 131, 131)), New Point(18, -3))
  367. MyBase.OnPaint(e)
  368. End Sub
  369. End Class
  371. Class ValleyProgressbar
  372. Inherits Control
  374. #Region " Variables"
  376. Private W, H As Integer
  377. Private _Value As Integer = 0
  378. Private _Maximum As Integer = 100
  380. #End Region
  382. #Region " Control"
  383. <Category("Control")>
  384. Public Property Maximum() As Integer
  385. Get
  386. Return _Maximum
  387. End Get
  388. Set(V As Integer)
  389. Select Case V
  390. Case Is < _Value
  391. _Value = V
  392. End Select
  393. _Maximum = V
  394. Invalidate()
  395. End Set
  396. End Property
  398. <Category("Control")>
  399. Public Property Value() As Integer
  400. Get
  401. Select Case _Value
  402. Case 0
  403. Return 0
  404. Invalidate()
  405. Case Else
  406. Return _Value
  407. Invalidate()
  408. End Select
  409. End Get
  410. Set(V As Integer)
  411. Select Case V
  412. Case Is > _Maximum
  413. V = _Maximum
  414. Invalidate()
  415. End Select
  416. _Value = V
  417. Invalidate()
  418. End Set
  419. End Property
  420. #End Region
  422. #Region "Events"
  423. Protected Overrides Sub OnResize(e As EventArgs)
  424. MyBase.OnResize(e)
  425. Height = 25
  426. End Sub
  428. Protected Overrides Sub CreateHandle()
  429. MyBase.CreateHandle()
  430. Height = 25
  431. End Sub
  433. Public Sub Increment(ByVal Amount As Integer)
  434. Value += Amount
  435. End Sub
  436. #End Region
  438. Sub New()
  439. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
  440. ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
  441. DoubleBuffered = True
  442. End Sub
  444. Protected Overrides Sub OnPaint(e As PaintEventArgs)
  445. Dim G = e.Graphics
  447. G.TextRenderingHint = TextRenderingHint.ClearTypeGridFit
  448. G.SmoothingMode = SmoothingMode.HighQuality
  449. G.PixelOffsetMode = PixelOffsetMode.HighQuality
  450. G.Clear(Color.FromArgb(223, 223, 223))
  451. Dim ProgVal As Integer = CInt(_Value / _Maximum * Width)
  452. Select Value
  453. Case 0
  454. G.FillRectangle(New SolidBrush(Color.FromArgb(223, 223, 223)), New Rectangle(0, 0, Width, Height))
  455. G.FillRectangle(New SolidBrush(Color.FromArgb(50, 124, 244)), New Rectangle(0, 0, ProgVal - 1, Height))
  456. Case _Maximum
  457. G.FillRectangle(New SolidBrush(Color.FromArgb(223, 223, 223)), New Rectangle(0, 0, Width, Height))
  458. G.FillRectangle(New SolidBrush(Color.FromArgb(50, 124, 244)), New Rectangle(0, 0, ProgVal - 1, Height))
  459. Case Else
  460. G.FillRectangle(New SolidBrush(Color.FromArgb(223, 223, 223)), New Rectangle(0, 0, Width, Height))
  461. G.FillRectangle(New SolidBrush(Color.FromArgb(50, 124, 244)), New Rectangle(0, 0, ProgVal - 1, Height))
  462. End Select
  463. G.InterpolationMode = CType(7, InterpolationMode)
  464. MyBase.OnPaint(e)
  465. End Sub
  466. End Class
  468. <DefaultEvent("TextChanged")>
  469. Class ValleyTextBox
  470. Inherits Control
  472. #Region " Variables"
  474. Private W, H As Integer
  475. Private State As MouseState = MouseState.None
  476. Private WithEvents TB As Windows.Forms.TextBox
  478. #End Region
  480. #Region " Properties"
  482. #Region " TextBox Properties"
  484. Private _TextAlign As HorizontalAlignment = HorizontalAlignment.Left
  485. <Category("Options")> _
  486. Property TextAlign() As HorizontalAlignment
  487. Get
  488. Return _TextAlign
  489. End Get
  490. Set(ByVal value As HorizontalAlignment)
  491. _TextAlign = value
  492. If TB IsNot Nothing Then
  493. TB.TextAlign = value
  494. End If
  495. End Set
  496. End Property
  497. Private _MaxLength As Integer = 32767
  498. <Category("Options")> _
  499. Property MaxLength() As Integer
  500. Get
  501. Return _MaxLength
  502. End Get
  503. Set(ByVal value As Integer)
  504. _MaxLength = value
  505. If TB IsNot Nothing Then
  506. TB.MaxLength = value
  507. End If
  508. End Set
  509. End Property
  510. Private _ReadOnly As Boolean
  511. <Category("Options")> _
  512. Property [ReadOnly]() As Boolean
  513. Get
  514. Return _ReadOnly
  515. End Get
  516. Set(ByVal value As Boolean)
  517. _ReadOnly = value
  518. If TB IsNot Nothing Then
  519. TB.ReadOnly = value
  520. End If
  521. End Set
  522. End Property
  523. Private _UseSystemPasswordChar As Boolean
  524. <Category("Options")> _
  525. Property UseSystemPasswordChar() As Boolean
  526. Get
  527. Return _UseSystemPasswordChar
  528. End Get
  529. Set(ByVal value As Boolean)
  530. _UseSystemPasswordChar = value
  531. If TB IsNot Nothing Then
  532. TB.UseSystemPasswordChar = value
  533. End If
  534. End Set
  535. End Property
  536. Private _Multiline As Boolean
  537. <Category("Options")> _
  538. Property Multiline() As Boolean
  539. Get
  540. Return _Multiline
  541. End Get
  542. Set(ByVal value As Boolean)
  543. _Multiline = value
  544. If TB IsNot Nothing Then
  545. TB.Multiline = value
  547. If value Then
  548. TB.Height = Height - 11
  549. Else
  550. Height = TB.Height + 11
  551. End If
  553. End If
  554. End Set
  555. End Property
  556. <Category("Options")> _
  557. Overrides Property Text As String
  558. Get
  559. Return MyBase.Text
  560. End Get
  561. Set(ByVal value As String)
  562. MyBase.Text = value
  563. If TB IsNot Nothing Then
  564. TB.Text = value
  565. End If
  566. End Set
  567. End Property
  568. <Category("Options")> _
  569. Overrides Property Font As Font
  570. Get
  571. Return MyBase.Font
  572. End Get
  573. Set(ByVal value As Font)
  574. MyBase.Font = value
  575. If TB IsNot Nothing Then
  576. TB.Font = value
  577. TB.Location = New Point(3, 5)
  578. TB.Width = Width - 6
  580. If Not _Multiline Then
  581. Height = TB.Height + 11
  582. End If
  583. End If
  584. End Set
  585. End Property
  587. Protected Overrides Sub OnCreateControl()
  588. MyBase.OnCreateControl()
  589. If Not Controls.Contains(TB) Then
  590. Controls.Add(TB)
  591. End If
  592. End Sub
  593. Private Sub OnBaseTextChanged(ByVal s As Object, ByVal e As EventArgs)
  594. Text = TB.Text
  595. End Sub
  596. Private Sub OnBaseKeyDown(ByVal s As Object, ByVal e As KeyEventArgs)
  597. If e.Control AndAlso e.KeyCode = Keys.A Then
  598. TB.SelectAll()
  599. e.SuppressKeyPress = True
  600. End If
  601. If e.Control AndAlso e.KeyCode = Keys.C Then
  602. TB.Copy()
  603. e.SuppressKeyPress = True
  604. End If
  605. End Sub
  606. Protected Overrides Sub OnResize(ByVal e As EventArgs)
  607. TB.Location = New Point(5, 5)
  608. TB.Width = Width - 10
  610. If _Multiline Then
  611. TB.Height = Height - 11
  612. Else
  613. Height = TB.Height + 11
  614. End If
  616. MyBase.OnResize(e)
  617. End Sub
  619. #End Region
  621. #Region " Colors"
  623. <Category("Colors")> _
  624. Public Property TextColor As Color
  625. Get
  626. Return _TextColor
  627. End Get
  628. Set(value As Color)
  629. _TextColor = value
  630. End Set
  631. End Property
  633. Public Overrides Property ForeColor() As Color
  634. Get
  635. Return _TextColor
  636. End Get
  637. Set(value As Color)
  638. _TextColor = value
  639. End Set
  640. End Property
  642. #End Region
  644. #Region " Mouse States"
  646. Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
  647. MyBase.OnMouseDown(e)
  648. State = MouseState.Down : Invalidate()
  649. End Sub
  650. Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
  651. MyBase.OnMouseUp(e)
  652. State = MouseState.Over : TB.Focus() : Invalidate()
  653. End Sub
  654. Protected Overrides Sub OnMouseEnter(e As EventArgs)
  655. MyBase.OnMouseEnter(e)
  656. State = MouseState.Over : TB.Focus() : Invalidate()
  657. End Sub
  658. Protected Overrides Sub OnMouseLeave(e As EventArgs)
  659. MyBase.OnMouseLeave(e)
  660. State = MouseState.None : Invalidate()
  661. End Sub
  663. #End Region
  665. #End Region
  667. #Region " Colors"
  669. Private _BaseColor As Color = BackColor
  670. Private _TextColor As Color = Color.FromArgb(131, 131, 131)
  671. Private _BorderColor As Color = Color.FromArgb(191, 191, 191)
  673. #End Region
  675. Sub New()
  676. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
  677. ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or _
  678. ControlStyles.SupportsTransparentBackColor, True)
  679. DoubleBuffered = True
  681. BackColor = Color.Transparent
  683. TB = New Windows.Forms.TextBox
  684. TB.Font = Font
  685. TB.Text = Text
  686. TB.BackColor = _BaseColor
  687. TB.ForeColor = _TextColor
  688. TB.MaxLength = _MaxLength
  689. TB.Multiline = _Multiline
  690. TB.ReadOnly = _ReadOnly
  691. TB.UseSystemPasswordChar = _UseSystemPasswordChar
  692. TB.BorderStyle = BorderStyle.None
  693. TB.Location = New Point(5, 5)
  694. TB.Width = Width - 10
  696. TB.Cursor = Cursors.IBeam
  698. If _Multiline Then
  699. TB.Height = Height - 11
  700. Else
  701. Height = TB.Height + 11
  702. End If
  704. AddHandler TB.TextChanged, AddressOf OnBaseTextChanged
  705. AddHandler TB.KeyDown, AddressOf OnBaseKeyDown
  706. End Sub
  708. Protected Overrides Sub OnPaint(e As PaintEventArgs)
  709. Dim G = e.Graphics
  710. G.Clear(Color.FromArgb(242, 242, 242))
  711. G.DrawRectangle(New Pen(_BorderColor), New Rectangle(0, 0, Width - 1, Height - 1))
  712. MyBase.OnPaint(e)
  713. End Sub
  715. End Class
  717. Class ValleyClose
  718. Inherits Control
  720. #Region " Variables"
  722. Private State As MouseState = MouseState.None
  723. Private x As Integer
  725. #End Region
  727. #Region " Properties"
  729. #Region " Mouse States"
  731. Protected Overrides Sub OnMouseEnter(e As EventArgs)
  732. MyBase.OnMouseEnter(e)
  733. State = MouseState.Over : Invalidate()
  734. End Sub
  735. Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
  736. MyBase.OnMouseDown(e)
  737. State = MouseState.Down : Invalidate()
  738. End Sub
  739. Protected Overrides Sub OnMouseLeave(e As EventArgs)
  740. MyBase.OnMouseLeave(e)
  741. State = MouseState.None : Invalidate()
  742. End Sub
  743. Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
  744. MyBase.OnMouseUp(e)
  745. State = MouseState.Over : Invalidate()
  746. End Sub
  747. Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
  748. MyBase.OnMouseMove(e)
  749. x = e.X : Invalidate()
  750. End Sub
  752. Protected Overrides Sub OnClick(e As EventArgs)
  753. MyBase.OnClick(e)
  754. Environment.Exit(0)
  755. End Sub
  757. #End Region
  759. Protected Overrides Sub OnResize(e As EventArgs)
  760. MyBase.OnResize(e)
  761. Size = New Size(16, 16)
  762. End Sub
  763. #End Region
  765. Sub New()
  766. SetStyle(ControlStyles.SupportsTransparentBackColor, True)
  767. SetStyle(ControlStyles.Opaque, True)
  768. Anchor = AnchorStyles.Top Or AnchorStyles.Right
  769. End Sub
  770. Protected Overrides Sub OnPaint(e As PaintEventArgs)
  771. Dim G = e.Graphics
  772. G.Clear(Color.FromArgb(49, 49, 49))
  773. G.SmoothingMode = SmoothingMode.HighQuality
  774. G.FillEllipse(New SolidBrush(Color.FromArgb(39, 39, 39)), New Rectangle(0, 0, 15, 15))
  775. G.FillEllipse(New SolidBrush(Color.FromArgb(254, 97, 82)), New Rectangle(2, 2, 11, 11))
  777. Select Case State
  778. Case MouseState.Over
  779. G.FillEllipse(New SolidBrush(Color.FromArgb(40, Color.White)), New Rectangle(2, 2, 11, 11))
  780. Case MouseState.Down
  781. G.FillEllipse(New SolidBrush(Color.FromArgb(40, Color.Black)), New Rectangle(2, 2, 11, 11))
  783. End Select
  784. MyBase.OnPaint(e)
  785. End Sub
  786. End Class
  788. Class ValleyMax
  789. Inherits Control
  791. #Region " Variables"
  793. Private State As MouseState = MouseState.None
  794. Private x As Integer
  796. #End Region
  798. #Region " Properties"
  800. #Region " Mouse States"
  802. Protected Overrides Sub OnMouseEnter(e As EventArgs)
  803. MyBase.OnMouseEnter(e)
  804. State = MouseState.Over : Invalidate()
  805. End Sub
  806. Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
  807. MyBase.OnMouseDown(e)
  808. State = MouseState.Down : Invalidate()
  809. End Sub
  810. Protected Overrides Sub OnMouseLeave(e As EventArgs)
  811. MyBase.OnMouseLeave(e)
  812. State = MouseState.None : Invalidate()
  813. End Sub
  814. Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
  815. MyBase.OnMouseUp(e)
  816. State = MouseState.Over : Invalidate()
  817. End Sub
  818. Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
  819. MyBase.OnMouseMove(e)
  820. x = e.X : Invalidate()
  821. End Sub
  823. Protected Overrides Sub OnClick(e As EventArgs)
  824. MyBase.OnClick(e)
  825. Select Case FindForm.WindowState
  826. Case FormWindowState.Maximized
  827. FindForm.WindowState = FormWindowState.Normal
  828. Case FormWindowState.Normal
  829. FindForm.WindowState = FormWindowState.Maximized
  830. End Select
  831. End Sub
  833. #End Region
  835. Protected Overrides Sub OnResize(e As EventArgs)
  836. MyBase.OnResize(e)
  837. Size = New Size(16, 16)
  838. End Sub
  839. #End Region
  841. Sub New()
  842. SetStyle(ControlStyles.SupportsTransparentBackColor, True)
  843. SetStyle(ControlStyles.Opaque, True)
  844. Anchor = AnchorStyles.Top Or AnchorStyles.Right
  845. End Sub
  846. Protected Overrides Sub OnPaint(e As PaintEventArgs)
  847. Dim G = e.Graphics
  848. G.Clear(Color.FromArgb(49, 49, 49))
  849. G.SmoothingMode = SmoothingMode.HighQuality
  850. G.FillEllipse(New SolidBrush(Color.FromArgb(39, 39, 39)), New Rectangle(0, 0, 15, 15))
  851. G.FillEllipse(New SolidBrush(Color.FromArgb(254, 190, 4)), New Rectangle(2, 2, 11, 11))
  853. Select Case State
  854. Case MouseState.Over
  855. G.FillEllipse(New SolidBrush(Color.FromArgb(40, Color.White)), New Rectangle(2, 2, 11, 11))
  856. Case MouseState.Down
  857. G.FillEllipse(New SolidBrush(Color.FromArgb(40, Color.Black)), New Rectangle(2, 2, 11, 11))
  859. End Select
  860. MyBase.OnPaint(e)
  861. End Sub
  862. End Class
  864. Class ValleyMini
  865. Inherits Control
  867. #Region " Variables"
  869. Private State As MouseState = MouseState.None
  870. Private x As Integer
  872. #End Region
  874. #Region " Properties"
  876. #Region " Mouse States"
  878. Protected Overrides Sub OnMouseEnter(e As EventArgs)
  879. MyBase.OnMouseEnter(e)
  880. State = MouseState.Over : Invalidate()
  881. End Sub
  882. Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
  883. MyBase.OnMouseDown(e)
  884. State = MouseState.Down : Invalidate()
  885. End Sub
  886. Protected Overrides Sub OnMouseLeave(e As EventArgs)
  887. MyBase.OnMouseLeave(e)
  888. State = MouseState.None : Invalidate()
  889. End Sub
  890. Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
  891. MyBase.OnMouseUp(e)
  892. State = MouseState.Over : Invalidate()
  893. End Sub
  894. Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
  895. MyBase.OnMouseMove(e)
  896. x = e.X : Invalidate()
  897. End Sub
  899. Protected Overrides Sub OnClick(e As EventArgs)
  900. MyBase.OnClick(e)
  901. Select Case FindForm.WindowState
  902. Case FormWindowState.Normal
  903. FindForm.WindowState = FormWindowState.Minimized
  904. Case FormWindowState.Maximized
  905. FindForm.WindowState = FormWindowState.Minimized
  906. End Select
  907. End Sub
  909. #End Region
  911. Protected Overrides Sub OnResize(e As EventArgs)
  912. MyBase.OnResize(e)
  913. Size = New Size(16, 16)
  914. End Sub
  915. #End Region
  917. Sub New()
  918. SetStyle(ControlStyles.SupportsTransparentBackColor, True)
  919. SetStyle(ControlStyles.Opaque, True)
  920. Anchor = AnchorStyles.Top Or AnchorStyles.Right
  921. End Sub
  922. Protected Overrides Sub OnPaint(e As PaintEventArgs)
  923. Dim G = e.Graphics
  924. G.Clear(Color.FromArgb(49, 49, 49))
  925. G.SmoothingMode = SmoothingMode.HighQuality
  926. G.FillEllipse(New SolidBrush(Color.FromArgb(39, 39, 39)), New Rectangle(0, 0, 15, 15))
  927. G.FillEllipse(New SolidBrush(Color.FromArgb(23, 205, 58)), New Rectangle(2, 2, 11, 11))
  929. Select Case State
  930. Case MouseState.Over
  931. G.FillEllipse(New SolidBrush(Color.FromArgb(40, Color.White)), New Rectangle(2, 2, 11, 11))
  932. Case MouseState.Down
  933. G.FillEllipse(New SolidBrush(Color.FromArgb(40, Color.Black)), New Rectangle(2, 2, 11, 11))
  935. End Select
  936. MyBase.OnPaint(e)
  937. End Sub
  938. End Class
comments powered by Disqus