Kein direktes Problem, eher Verbesserungsvorschläge ?

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Kein direktes Problem, eher Verbesserungsvorschläge ?

    Hi @ all,

    ich habe mich kürzlich mal mit dem Thema GDI/GDI+ beschäftigt und mir testweise eine neue Progressbar geschrieben, diese funktioniert soweit ich dies beeurteilen kann sehr gut, aber naja ich Anfänger, Ihr Profis ^^
    daher wollte ich nur Fragen / darum bitten ob Ihr euch meinen Code einmal anschauen/tesen wollt, und mir Verbesserungsvorschläge gebt, also in die Richtung das könnt eman besser gestalten oder das ist schlecht gelöst,
    damit ich weiss was ich zukünftig daran verbessern könnte.

    Danke und Greets


    Spoiler anzeigen

    Quellcode

    1. Public Class DKProgress
    3. Public Sub New()
    4. InitializeComponent()
    5. Me.SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True)
    6. Me.UpdateStyles()
    7. End Sub
    9. #Region "Deklaration"
    10. Public Event BarValueChanged()
    11. Public Event BarValueMinReached()
    12. Public Event BarValueMaxReached()
    14. Private BarValueVal As Double = 0
    15. Private BarValueMinVal As Double = 0
    16. Private BarValueMaxVal As Double = 100
    17. Private BarRightToLeftVal As Boolean = False
    19. Private BarEffectBorderVal As Boolean = True
    20. Private BarEffectGlassVal As Boolean = False
    21. Public Enum BarColorVersionEnum : Singlecolor : Gradient : End Enum
    22. Private BarColorVersionVal As BarColorVersionEnum = BarColorVersionEnum.Singlecolor
    23. Private BarColorSingleVal As Color = Color.DarkRed
    24. Private BarColorGradient1Val As Color = Color.LimeGreen
    25. Private BarColorGradient2Val As Color = Color.MidnightBlue
    26. Private BarColorBorderVal As Color = Color.Black
    27. Private BarColorGradientModeVal As LinearGradientMode = LinearGradientMode.Vertical
    28. Private BarColorGradientXOffsetVal As Integer = 0
    29. Private BarColorGradientYOffsetVal As Integer = 0
    30. Public BarQualitySmoothingModeVal As SmoothingMode = SmoothingMode.HighQuality
    31. Private BarQualityInterpolationModeVal As InterpolationMode = InterpolationMode.HighQualityBicubic
    32. Private BarQualityCompositingVal As CompositingQuality = CompositingQuality.HighQuality
    33. Private BarImageBarVal As Boolean = False
    34. Private BarImageVal As Bitmap
    36. Private LabelVal As Boolean = True
    37. Private LabelShowUpperValueVal As Boolean = False
    38. Private LabelDropShadowVal As Boolean = False
    39. Private LabelDropShadowXOffsetVal As Integer = 1
    40. Private LabelDropShadowYOffsetVal As Integer = 1
    41. Private LabelTextFontVal As Font = Me.Font
    42. Private LabelTextXOffsetVal As Integer = 0
    43. Private LabelTextYOffsetVal As Integer = 0
    44. Private LabelTextAdditionalVal As String = " %"
    45. Private LabelTextDelimeterVal As String = " / "
    46. Public Enum LabelTextAlignEnum : Left : Center : Right : End Enum
    47. Private LabelTextAlignVal As LabelTextAlignEnum = LabelTextAlignEnum.Center
    48. Public Enum LabelTextVersionEnum : Percent : Value : End Enum
    49. Private LabelTextVersionVal As LabelTextVersionEnum = LabelTextVersionEnum.Percent
    50. Private LabelColorSingleVal As Color = Color.Black
    51. Private LabelColorGradient1Val As Color = Color.LimeGreen
    52. Private LabelColorGradient2Val As Color = Color.MidnightBlue
    53. Private LabelColorDropShadowVal As Color = Color.Black
    54. Private LabelColorGradientModeVal As LinearGradientMode = LinearGradientMode.Vertical
    55. Public Enum LabelColorVersionEnum : Singlecolor : Gradient : End Enum
    56. Private LabelColorVersionVal As LabelColorVersionEnum = LabelColorVersionEnum.Singlecolor
    57. Private LabelTextQualityVal As TextRenderingHint = TextRenderingHint.ClearTypeGridFit
    58. #End Region
    60. #Region "Property get-set"
    61. Public Property BarValue As Double
    62. Get
    63. Return BarValueVal
    64. End Get
    65. Set(value As Double)
    66. If value < BarValueMinVal Then value = BarValueMinVal Else If value > BarValueMaxVal Then value = BarValueMaxVal
    67. BarValueVal = value
    68. RaiseEvent BarValueChanged()
    69. If BarValueVal = BarValueMinVal Then RaiseEvent BarValueMinReached() Else If BarValueVal = BarValueMaxVal Then RaiseEvent BarValueMaxReached()
    70. Me.Invalidate()
    71. End Set
    72. End Property
    73. Public Property BarValueMinimum As Double
    74. Get
    75. Return BarValueMinVal
    76. End Get
    77. Set(value As Double)
    78. If value > BarValueMaxVal Then value = BarValueMaxVal - 1
    79. BarValueMinVal = value
    80. Me.Invalidate()
    81. End Set
    82. End Property
    83. Public Property BarValueMaximum As Double
    84. Get
    85. Return BarValueMaxVal
    86. End Get
    87. Set(value As Double)
    88. If value < BarValueMinVal Then value = BarValueMinVal + 1
    89. BarValueMaxVal = value
    90. Me.Invalidate()
    91. End Set
    92. End Property
    93. Public Property BarRightToLeft As Boolean
    94. Get
    95. Return BarRightToLeftVal
    96. End Get
    97. Set(value As Boolean)
    98. BarRightToLeftVal = value
    99. Me.Invalidate()
    100. End Set
    101. End Property
    103. Public Property BarEffectBorder As Boolean
    104. Get
    105. Return BarEffectBorderVal
    106. End Get
    107. Set(value As Boolean)
    108. BarEffectBorderVal = value
    109. Me.Invalidate()
    110. End Set
    111. End Property
    112. Public Property BarEffectGlass As Boolean
    113. Get
    114. Return BarEffectGlassVal
    115. End Get
    116. Set(value As Boolean)
    117. BarEffectGlassVal = value
    118. Me.Invalidate()
    119. End Set
    120. End Property
    122. Public Property BarColorSingle As Color
    123. Get
    124. Return BarColorSingleVal
    125. End Get
    126. Set(value As Color)
    127. BarColorSingleVal = value
    128. Me.Invalidate()
    129. End Set
    130. End Property
    131. Public Property BarColorGradient1 As Color
    132. Get
    133. Return BarColorGradient1Val
    134. End Get
    135. Set(value As Color)
    136. BarColorGradient1Val = value
    137. Me.Invalidate()
    138. End Set
    139. End Property
    140. Public Property BarColorGradient2 As Color
    141. Get
    142. Return BarColorGradient2Val
    143. End Get
    144. Set(value As Color)
    145. BarColorGradient2Val = value
    146. Me.Invalidate()
    147. End Set
    148. End Property
    149. Public Property BarColorBorder As Color
    150. Get
    151. Return BarColorBorderVal
    152. End Get
    153. Set(value As Color)
    154. BarColorBorderVal = value
    155. BarEffectBorder = True
    156. Me.Invalidate()
    157. End Set
    158. End Property
    159. Public Property BarColorVersion() As BarColorVersionEnum
    160. Get
    161. Return BarColorVersionVal
    162. End Get
    163. Set(value As BarColorVersionEnum)
    164. BarColorVersionVal = value
    165. Me.Invalidate()
    166. End Set
    167. End Property
    168. Public Property BarColorGradientMode() As LinearGradientMode
    169. Get
    170. Return BarColorGradientModeVal
    171. End Get
    172. Set(value As LinearGradientMode)
    173. BarColorGradientModeVal = value
    174. Me.Invalidate()
    175. End Set
    176. End Property
    177. Public Property BarColorGradientXOffset As Integer
    178. Get
    179. Return BarColorGradientXOffsetVal
    180. End Get
    181. Set(value As Integer)
    182. BarColorGradientXOffsetVal = value
    183. Me.Invalidate()
    184. End Set
    185. End Property
    186. Public Property BarColorGradientYOffset As Integer
    187. Get
    188. Return BarColorGradientYOffsetVal
    189. End Get
    190. Set(value As Integer)
    191. BarColorGradientYOffsetVal = value
    192. Me.Invalidate()
    193. End Set
    194. End Property
    196. Public Property BarQualityInterpolationMode As InterpolationMode
    197. Get
    198. Return BarQualityInterpolationModeVal
    199. End Get
    200. Set(value As InterpolationMode)
    201. BarQualityInterpolationModeVal = value
    202. Me.Invalidate()
    203. End Set
    204. End Property
    205. Public Property BarQualityCompositing As CompositingQuality
    206. Get
    207. Return BarQualityCompositingVal
    208. End Get
    209. Set(value As CompositingQuality)
    210. BarQualityCompositingVal = value
    211. Me.Invalidate()
    212. End Set
    213. End Property
    215. Private Property BarWithImage As Boolean
    216. Get
    217. Return BarImageBarVal
    218. End Get
    219. Set(value As Boolean)
    220. BarImageBarVal = value
    221. Me.Invalidate()
    222. End Set
    223. End Property
    224. Public Property BarImage As Bitmap
    225. Get
    226. Return BarImageVal
    227. End Get
    228. Set(value As Bitmap)
    229. If Not value Is Nothing Then
    230. BarImageVal = value
    231. Me.Invalidate()
    232. BarWithImage = True
    233. Else
    235. BarImageVal = Nothing
    236. Me.Invalidate()
    237. BarWithImage = False
    238. End If
    239. End Set
    240. End Property
    242. Public Property Label As Boolean
    243. Get
    244. Return LabelVal
    245. End Get
    246. Set(value As Boolean)
    247. LabelVal = value
    248. Me.Invalidate()
    249. End Set
    250. End Property
    251. Public Property LabelShowUpperValue As Boolean
    252. Get
    253. Return LabelShowUpperValueVal
    254. End Get
    255. Set(value As Boolean)
    256. LabelShowUpperValueVal = value
    257. Me.Invalidate()
    258. End Set
    259. End Property
    261. Public Property LabelDropShadow As Boolean
    262. Get
    263. Return LabelDropShadowVal
    264. End Get
    265. Set(value As Boolean)
    266. LabelDropShadowVal = value
    267. Me.Invalidate()
    268. End Set
    269. End Property
    270. Public Property LabelDropShadowXOffset As Integer
    271. Get
    272. Return LabelDropShadowXOffsetVal
    273. End Get
    274. Set(value As Integer)
    275. LabelDropShadowXOffsetVal = value
    276. Me.Invalidate()
    277. End Set
    278. End Property
    279. Public Property LabelDropShadowYOffset As Integer
    280. Get
    281. Return LabelDropShadowYOffsetVal
    282. End Get
    283. Set(value As Integer)
    284. LabelDropShadowYOffsetVal = value
    285. Me.Invalidate()
    286. End Set
    287. End Property
    289. Public Property LabelColorVersion() As LabelColorVersionEnum
    290. Get
    291. Return LabelColorVersionVal
    292. End Get
    293. Set(value As LabelColorVersionEnum)
    294. LabelColorVersionVal = value
    295. Me.Invalidate()
    296. End Set
    297. End Property
    298. Public Property LabelColorSingle As Color
    299. Get
    300. Return LabelColorSingleVal
    301. End Get
    302. Set(value As Color)
    303. LabelColorSingleVal = value
    304. Me.Invalidate()
    305. End Set
    306. End Property
    307. Public Property LabelColorGradient1 As Color
    308. Get
    309. Return LabelColorGradient1Val
    310. End Get
    311. Set(value As Color)
    312. LabelColorGradient1Val = value
    313. Me.Invalidate()
    314. End Set
    315. End Property
    316. Public Property LabelColorGradient2 As Color
    317. Get
    318. Return LabelColorGradient2Val
    319. End Get
    320. Set(value As Color)
    321. LabelColorGradient2Val = value
    322. Me.Invalidate()
    323. End Set
    324. End Property
    325. Public Property LabelColorDropShadow As Color
    326. Get
    327. Return LabelColorDropShadowVal
    328. End Get
    329. Set(value As Color)
    330. LabelColorDropShadowVal = value
    331. Me.Invalidate()
    332. End Set
    333. End Property
    334. Public Property LabelColorGradientMode() As LinearGradientMode
    335. Get
    336. Return LabelColorGradientModeVal
    337. End Get
    338. Set(value As LinearGradientMode)
    339. LabelColorGradientModeVal = value
    340. Me.Invalidate()
    341. End Set
    342. End Property
    344. Public Property LabelTextXOffset As Integer
    345. Get
    346. Return LabelTextXOffsetVal
    347. End Get
    348. Set(value As Integer)
    349. LabelTextXOffsetVal = value
    350. Me.Invalidate()
    351. End Set
    352. End Property
    353. Public Property LabelTextYOffset As Integer
    354. Get
    355. Return LabelTextYOffsetVal
    356. End Get
    357. Set(value As Integer)
    358. LabelTextYOffsetVal = value
    359. Me.Invalidate()
    360. End Set
    361. End Property
    362. Public Property LabelTextDelimeter As String
    363. Get
    364. Return LabelTextDelimeterVal
    365. End Get
    366. Set(value As String)
    367. LabelTextDelimeterVal = value
    368. Me.Invalidate()
    369. End Set
    370. End Property
    371. Public Property LabelTextAdditional As String
    372. Get
    373. Return LabelTextAdditionalVal
    374. End Get
    375. Set(value As String)
    376. LabelTextAdditionalVal = value
    377. Me.Invalidate()
    378. End Set
    379. End Property
    380. Public Property LabelTextFont As Font
    381. Get
    382. Return LabelTextFontVal
    383. End Get
    384. Set(value As Font)
    385. LabelTextFontVal = value
    386. Me.Invalidate()
    387. End Set
    388. End Property
    389. Public Property LabelTextAlign() As LabelTextAlignEnum
    390. Get
    391. Return LabelTextAlignVal
    392. End Get
    393. Set(value As LabelTextAlignEnum)
    394. LabelTextAlignVal = value
    395. Me.Invalidate()
    396. End Set
    397. End Property
    398. Public Property LabelTextVersion() As LabelTextVersionEnum
    399. Get
    400. Return LabelTextVersionVal
    401. End Get
    402. Set(value As LabelTextVersionEnum)
    403. LabelTextVersionVal = value
    404. If value = LabelTextVersionEnum.Value AndAlso LabelTextAdditional = " %" Then LabelTextAdditional = " V"
    405. If value = LabelTextVersionEnum.Percent AndAlso LabelTextAdditional = " V" Then LabelTextAdditional = " %"
    406. Me.Invalidate()
    407. End Set
    408. End Property
    409. Public Property LabelTextQuality() As TextRenderingHint
    410. Get
    411. Return LabelTextQualityVal
    412. End Get
    413. Set(value As TextRenderingHint)
    414. LabelTextQualityVal = value
    415. Me.Invalidate()
    416. End Set
    417. End Property
    418. #End Region
    420. #Region "Drawing"
    421. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    422. With e.Graphics
    423. .TextRenderingHint = LabelTextQualityVal
    424. .SmoothingMode = BarQualitySmoothingModeVal
    425. .InterpolationMode = BarQualityInterpolationModeVal
    426. .CompositingQuality = BarQualityCompositingVal
    427. End With
    429. Dim Rect As New Rectangle(-1, -1, Me.Width + 1, Me.Height + 1)
    430. Dim percent As Decimal = CDec((BarValue - BarValueMinVal) / (BarValueMaxVal - BarValueMinVal))
    431. Rect.Width = CInt(Rect.Width * percent)
    433. If BarWithImage Then
    434. Dim TBrush As New TextureBrush(BarImageVal)
    436. If BarRightToLeftVal Then
    437. e.Graphics.FillRectangle(TBrush, New Rectangle(Me.Width - Rect.Width, Rect.Y, Rect.Width, Rect.Height))
    438. Else
    439. e.Graphics.FillRectangle(TBrush, New Rectangle(Rect.X, Rect.Y, Rect.Width, Rect.Height))
    440. End If
    441. TBrush.Dispose()
    442. Else
    443. If BarColorVersionVal = LabelColorVersionEnum.Gradient Then
    444. Dim LGBBrush As New LinearGradientBrush(New Rectangle(0, 0, Me.Width + BarColorGradientXOffsetVal, Me.Height + BarColorGradientYOffsetVal), BarColorGradient1Val, BarColorGradient2Val, BarColorGradientModeVal)
    445. If BarRightToLeftVal Then
    446. e.Graphics.FillRectangle(LGBBrush, New Rectangle(Me.Width - Rect.Width, Rect.Y, Rect.Width, Rect.Height))
    447. Else
    448. e.Graphics.FillRectangle(LGBBrush, Rect)
    449. End If
    450. LGBBrush.Dispose()
    451. Else
    452. Dim SCBrush As New SolidBrush(BarColorSingleVal)
    453. If BarRightToLeftVal Then
    454. e.Graphics.FillRectangle(SCBrush, New Rectangle(Me.Width - Rect.Width, Rect.Y, Rect.Width, Rect.Height))
    455. Else
    456. e.Graphics.FillRectangle(SCBrush, Rect)
    457. End If
    458. SCBrush.Dispose()
    459. End If
    460. End If
    462. If BarEffectGlassVal Then
    463. Dim BGEBrush As New LinearGradientBrush(New Rectangle(0, 0, Me.Width, CInt(Me.Height / 2)), Color.FromArgb(200, 255, 255, 255), Color.FromArgb(30, 255, 255, 255), LinearGradientMode.Vertical)
    464. If BarRightToLeftVal Then
    465. e.Graphics.FillRectangle(BGEBrush, New Rectangle(Me.Width - Rect.Width, Rect.Y, Rect.Width, CInt(Rect.Height / 2)))
    466. Else
    467. e.Graphics.FillRectangle(BGEBrush, New Rectangle(Rect.X, Rect.Y, Rect.Width, CInt(Rect.Height / 2)))
    468. End If
    469. BGEBrush.Dispose()
    470. End If
    472. If LabelVal Then
    473. Dim LabelString As String = GetFinalLabelString()
    474. Dim LabelStringSize As SizeF = e.Graphics.MeasureString(LabelString, LabelTextFontVal)
    475. Dim LabelPosition As PointF = GetFinalLabelPosition(LabelStringSize)
    477. If LabelColorVersionVal = LabelColorVersionEnum.Gradient Then
    478. If LabelDropShadowVal Then
    479. Dim LSCShadowBrush As New SolidBrush(LabelColorDropShadowVal)
    480. e.Graphics.DrawString(LabelString, LabelTextFontVal, LSCShadowBrush, LabelPosition.X + LabelDropShadowXOffsetVal, LabelPosition.Y + LabelDropShadowYOffsetVal, StringFormat.GenericTypographic)
    481. LSCShadowBrush.Dispose()
    482. End If
    483. Dim LLGBBrush As New LinearGradientBrush(New Rectangle(0, 0, CInt(LabelStringSize.Width), Me.Height), LabelColorGradient1Val, LabelColorGradient2Val, LabelColorGradientModeVal)
    484. e.Graphics.DrawString(LabelString, LabelTextFontVal, LLGBBrush, LabelPosition, StringFormat.GenericTypographic)
    485. LLGBBrush.Dispose()
    486. Else
    487. If LabelDropShadowVal Then
    488. Dim LSCShadowBrush As New SolidBrush(LabelColorDropShadowVal)
    489. e.Graphics.DrawString(LabelString, LabelTextFontVal, LSCShadowBrush, LabelPosition.X + LabelDropShadowXOffsetVal, LabelPosition.Y + LabelDropShadowYOffsetVal, StringFormat.GenericTypographic)
    490. LSCShadowBrush.Dispose()
    491. End If
    492. Dim LSCBrush As New SolidBrush(LabelColorSingleVal)
    493. e.Graphics.DrawString(LabelString, LabelTextFontVal, LSCBrush, LabelPosition, StringFormat.GenericTypographic)
    494. LSCBrush.Dispose()
    495. End If
    496. End If
    498. If BarEffectBorderVal Then
    499. Dim BBBrush As New SolidBrush(BarColorBorderVal)
    500. Dim BBPen As New Pen(BBBrush)
    501. e.Graphics.DrawRectangle(BBPen, New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
    502. BBPen.Dispose()
    503. BBBrush.Dispose()
    504. End If
    505. End Sub
    506. #End Region
    508. #Region "Private Subs/Functions"
    509. Private Function GetFinalLabelString() As String
    510. Dim LabelString As String = ""
    511. If LabelTextVersionVal = LabelTextVersionEnum.Percent Then
    512. If LabelShowUpperValueVal Then
    513. LabelString = CInt(CDec((BarValue - BarValueMinVal) / (BarValueMaxVal - BarValueMinVal)) * 100).ToString & LabelTextDelimeterVal & "100" & LabelTextAdditionalVal
    514. Else
    515. LabelString = CInt(CDec((BarValue - BarValueMinVal) / (BarValueMaxVal - BarValueMinVal)) * 100).ToString & LabelTextAdditionalVal
    516. End If
    517. Else
    518. If LabelShowUpperValueVal Then
    519. LabelString = BarValue.ToString & LabelTextDelimeterVal & BarValueMaximum & LabelTextAdditionalVal
    520. Else
    521. LabelString = BarValue.ToString & LabelTextAdditionalVal
    522. End If
    523. End If
    524. Return LabelString
    525. End Function
    527. Private Function GetFinalLabelPosition(ByVal LabelStringSize As SizeF) As PointF
    528. Dim LabelPosition As PointF
    530. If LabelTextAlignVal = LabelTextAlignEnum.Left Then
    531. LabelPosition = New PointF(5 + LabelTextXOffsetVal, CInt(((Me.Height / 2) - (LabelStringSize.Height / 2))) + LabelTextYOffsetVal)
    532. ElseIf LabelTextAlignVal = LabelTextAlignEnum.Center Then
    533. LabelPosition = New PointF(CInt(((Me.Width / 2) - (LabelStringSize.Width / 2)) + LabelTextXOffsetVal), CInt(((Me.Height / 2) - (LabelStringSize.Height / 2))) + LabelTextYOffsetVal)
    534. Else ' Right
    535. LabelPosition = New PointF(((Me.Width - 5) - LabelStringSize.Width) + LabelTextXOffsetVal, CInt(((Me.Height / 2) - (LabelStringSize.Height / 2))) + LabelTextYOffsetVal)
    536. End If
    537. Return LabelPosition
    538. End Function
    539. #End Region
    541. #Region "Public Subs/functions"
    542. ''' <summary>
    543. ''' Adds the Value to the ProgressValue
    544. ''' </summary>
    545. ''' <param name="Value">As Double, added to the ProgressValue</param>
    546. Public Sub PerformValueStep(ByVal Value As Double)
    547. Me.BarValue += Value
    548. End Sub
    550. ''' <summary>
    551. ''' Calculates how much have to be Added to the ProgressValue based on how much Percent you want to be added.
    552. ''' and adds this to the ProgressValue
    553. ''' </summary>
    554. ''' <param name="Value">As Double - Percent</param>
    555. Public Sub PerformPercentStep(ByVal Value As Double)
    556. Me.BarValue += ((BarValueMaxVal / 100) * Value)
    557. End Sub
    558. #End Region
    560. End Class
    Bilder

    • Bars.JPG

      35,07 kB, 733×184, 190 mal angesehen
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „asusdk“ ()

    Nimm mal die VB.NET tags und nicht die allgemeinen Quellcode Tags. Dann kann man den Code auch gescheit lesen :)
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    @asusdk Wenn Du die Klasse von UserControl ableitest, wird sie Dir im Designer angezeigt und Du kannst son Teil auf die GUI ziehen und im Designer parametrieren.
    Das UserControl von der IDE generieren lassen: Hinzufügen Benutzersteuerelement.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @asusdk Wenn Du die Klasse von UserControl ableitest, wird sie Dir im Designer angezeigt und Du kannst son Teil auf die GUI ziehen und im Designer parametrieren.


    @RodFromGermany Ich versteh die Aussage nicht ganz, es ist bei mir in der UsercontrolListe und wird auch in der Toolbox angezeigt, ich kanns normal auf die Form ziehen und da Einstellen, oder hab ich dich ganz falsch verstanden
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    asusdk schrieb:

    Ich versteh die Aussage nicht ganz
    OK.
    Poste mal den Code von DKProgress.Designer.vb
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Spoiler anzeigen

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class DKProgress
    3. Inherits System.Windows.Forms.UserControl
    5. 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Me.components = New System.ComponentModel.Container()
    26. Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
    27. Me.SuspendLayout()
    28. '
    29. 'Timer1
    30. '
    31. Me.Timer1.Enabled = True
    32. Me.Timer1.Interval = 10
    33. '
    34. 'DKProgress
    35. '
    36. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    37. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    38. Me.BackColor = System.Drawing.Color.LightGray
    39. Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
    40. Me.DoubleBuffered = True
    41. Me.ForeColor = System.Drawing.Color.Black
    42. Me.Margin = New System.Windows.Forms.Padding(2)
    43. Me.MinimumSize = New System.Drawing.Size(10, 9)
    44. Me.Name = "DKProgress"
    45. Me.Size = New System.Drawing.Size(152, 24)
    46. Me.ResumeLayout(False)
    48. End Sub
    50. Friend WithEvents Timer1 As System.Windows.Forms.Timer
    51. End Class
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    @asusdk Dies hat noch gefehlt:

    VB.NET-Quellcode

    1. Imports System.Drawing.Text
    2. Imports System.Drawing.Drawing2D
    Und eine kleine Bedienungsanleitung wäre auch nicht schlecht.
    Informier Dich mal im Unterforum Sourcecode-Austausch, wie so ne Präsentation aussehen kann und sollte.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Informier Dich mal im Unterforum Sourcecode-Austausch, wie so ne Präsentation aussehen kann und sollte.
    @RodFromGermany
    Klar, sobald ich es veröffentliche klar, mir ging es ja primär um den code, ob ich richtig zeichne, ob die IF´s nicht zu verschachtelt sind oder ob ich dabei generell was besser schreiben könnte, wenn nicht dann wirds gern veröffentlicht
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    also bei nur code gucken im Browser kann man zu sowas komplexen wie ein selbstgebasteltes Control nicht viel sagen.
    Und bei mehr als 50 Zeilen schon garnet.

    Dafür ist eiglich der SourceCode-Austausch wie geschaffen: Da hängste eine compilierbare gezippte Solution rein, mit Bitte um Code-Review, und dann kann man wirklich testen, was du gebastelt hast.

    Aber warm anziehen, weil herumkritteln ist bei Programmierern die "Königsdisziplin" ;)