Drawing und Select Case

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von Dksksm.

    @VaporiZed What :?: C&P-Fehler habe ich gepachtet :!: ;)

    Amelie schrieb:

    VB.NET-Quellcode

    1. Public Sub DrawCanvasContent(_fform As Form, g As Graphics)
    Wenn Du statt der Form deren Size übergibst, ist das ganze sicherer und verständlicher.
    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!

    @VaporiZed
    OK nochgmal deutlich anders. Das mit dem Disposen muss ich nochmal nachlesen.
    Hier nun meine Draw-Class wo ich auch meine Labels "aufhübsche". Kann man bestimmt auch noch verbessern?
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. Public Class drawClass
    2. Private ReadOnly Pen1 As New Pen(Color.FromArgb(255, 10, 10, 10), 6)
    3. Private ReadOnly Pen2 As New Pen(Color.FromArgb(255, 90, 90, 90), 20)
    4. Private ReadOnly Pen3 As New Pen(Color.FromArgb(255, 90, 90, 90), 10)
    5. Private ReadOnly Pen4 As New Pen(Color.FromArgb(255, 130, 130, 130), 2)
    7. #Region "Retangle Draw Form"
    8. Public Sub DrawCanvasContent(_fform As Form, g As Graphics)
    9. g.DrawRectangle(Pen1, New Rectangle(New Point(0, 0), New Size(_fform.Width, _fform.Height)))
    10. g.DrawLine(Pen2, 10, 22, _fform.Width - 7, 22)
    11. g.DrawRectangle(Pen3, New Rectangle(New Point(7, 7), New Size(_fform.Width - 14, _fform.Height - 14)))
    12. g.DrawRectangle(Pen4, New Rectangle(New Point(13, 31), New Size(_fform.Width - 26, _fform.Height - 44)))
    13. End Sub
    15. Friend Sub CleanUp()
    16. Pen1.Dispose()
    17. Pen2.Dispose()
    18. Pen3.Dispose()
    19. Pen4.Dispose()
    20. End Sub
    21. #End Region
    23. #Region "Menue-Labels AS Button"
    24. Sub lblLoad(Obj As Control)
    25. For Each lbl As Control In frm_main.PN_topmenu.Controls()
    26. If TypeOf lbl Is Label Then
    27. Dim lblb As Label = DirectCast(lbl, Label)
    28. lblb.ForeColor = Color.Peru
    29. lblb.BackColor = Drawing.Color.FromArgb(35, 35, 35)
    30. 'lbl.Height = 15 : lbl.Width = 85
    31. End If
    32. Next
    33. End Sub
    35. Sub AddEvent(Obj As Control)
    36. For Each Ctrl In frm_main.PN_topmenu.Controls
    37. If TypeOf Ctrl Is Label Then
    38. Dim lbl As Label = DirectCast(Ctrl, Label)
    39. AddHandler lbl.MouseEnter, AddressOf Mouse_ENTER
    40. AddHandler lbl.MouseLeave, AddressOf Mouse_LEAVE
    41. Else
    42. For Each SubCtrl In frm_main.PN_topmenu.Controls
    43. AddEvent(CType(SubCtrl, Control))
    44. Next
    45. End If
    46. Next
    47. End Sub
    49. Sub Mouse_ENTER(sender As Object, e As EventArgs)
    50. Dim lbl As Label = DirectCast(sender, Label)
    51. lbl.ForeColor = Color.WhiteSmoke
    52. lbl.BackColor = Color.DodgerBlue
    53. End Sub
    55. Sub Mouse_LEAVE(sender As Object, e As EventArgs)
    56. Dim lbl As Label = DirectCast(sender, Label)
    57. lbl.ForeColor = Color.Peru
    58. lbl.BackColor = Color.Transparent
    59. End Sub
    60. #End Region

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Amelie“ ()

    Amelie schrieb:

    Kann man bestimmt auch noch verbessern?
    Ja.

    RodFromGermany schrieb:

    Wenn Du statt der Form deren Size übergibst, ist das ganze sicherer und verständlicher.

    VB.NET-Quellcode

    1. Public Sub DrawCanvasContent(_size As Size, g As Graphics)
    2. g.DrawRectangle(Pen1, New Rectangle(New Point(0, 0), New Size(_size.Width, _size.Height)))
    3. g.DrawLine(Pen2, 10, 22, _size.Width - 7, 22)
    4. g.DrawRectangle(Pen3, New Rectangle(New Point(7, 7), New Size(_size.Width - 14, _size.Height - 14)))
    5. g.DrawRectangle(Pen4, New Rectangle(New Point(13, 31), New Size(_size.Width - 26, _size.Height - 44)))
    6. End Sub
    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!

    Amelie schrieb:

    For Each Ctrl In frm_main.PN_topmenu.Controls
    :cursing:
    Deaktivier mal die Möglichkeit, sowas überhaupt schreiben zu können. Wie das geht, steht in einem meiner Threads.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed
    Deaktivier mal die Möglichkeit, sowas überhaupt schreiben zu können.


    Ich habe ja schon den Namespace "Microsoft VisualBasic" rausgeschmissen.
    Wollte eh nochmal nachfragen, was von den automatisch generierten Verweisen braucht man eigentlich zwingend und was kann raus?
    Woher weiß ich wann ich welchen Namespace importieren muß??

    Hier der Code von meiner frm_main: Welche läuft.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frm_main
    2. Dim MyApp As New MyApp
    3. Dim drawClass As New drawClass
    5. Public Sub New()
    6. InitializeComponent()
    7. End Sub
    9. ' Das hier sind die Labels welche ich aufgehübscht habe!!
    10. #Region "Menu_top"
    11. Private Sub llbl_Datei_Click(sender As Object, e As EventArgs) Handles llbl_Datei.Click
    12. Application.Exit()
    13. End Sub
    15. Private Sub llbl_sets_Click(sender As Object, e As EventArgs) Handles llbl_sets.Click
    16. Using frm As New frm_settings()
    17. frm.ShowDialog(Me)
    18. End Using
    19. End Sub
    21. Private Sub frm_main_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    22. drawClass.DrawCanvasContent(Me, e.Graphics)
    23. End Sub
    24. #End Region
    25. Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    26. drawClass.AddEvent(Me) : drawClass.lblLoad(Me)
    27. End Sub

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Amelie schrieb:

    Woher weiß ich wann ich welchen Namespace importieren muß??
    Normalerweise wird Dir das vom IntelliSense vorgeschlagen, sofern auf die entsprechende DLL verwiesen ist.
    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!

    @RodFromGermany
    @VaporiZed

    Also ich habe nun mal ein Neues Project gestartet und das alles ist standardmäßig geladen.

    Was kann (muss) weg, was brauche ich unabdingbar....
    Woher weiß ich dann was ich wann noch benötige. Bei den etlichen Einträgen die es dort gibt ???? hmmmmm

    z.B. brauche ich das : " System.Net.Mail " wenn ich emails versenden möchte.
    Bilder

    • dfault-1.jpg

      478,77 kB, 1.112×598, 21 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Ich täte diese globalen Importe empfehlen.

    Je nach Aufgabe einer Code-Datei kann lokal was hinzugenommen werden.
    ZB In Dateien, wo du viele Controls deklarierst brauchste Imports System.Windows.Forms über die Datei zu schreiben.
    ZB In Dateien, wo du zeichnest, brauchste Imports System.Drawing.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Bei den Verweisen (oben) lass ich standardmäßig nur erstmal System, System.Windows.Forms und System.Drawing drin.
    Bei den importierten Namespaces (unten) nur System, System.Collections.Generic, System.Drawing, System.Windows.Forms und System.LINQ
    Als ich schrieb: Deaktivier mal die Möglichkeit, sowas überhaupt schreiben zu können, da hab ich absichtlich einen Link eingefügt. Da steht drin, wie man das macht. Von Haus aus kannst Du das nämlich nirgends einstellen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed
    Bin das so gut ich verstanden habe durchgegangen. Form1 usw benenne ich ja schon eh immer um.
    ​Die etwas versteckte und automatisch angelegte Einstiegsprozedur
    ???
    Da rebelliert bei mir jetzt nichts. hmmm?? Hab auch alles was Ihr vorgeschlagen hab an Verweisen / NameSpace rausgeschmissen.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class frm_main
    3. Dim MyApp As New MyApp
    4. Dim drawClass As New drawClass
    6. Public Shared Function CreateInstance() As frm_main
    7. Return New frm_main
    8. End Function
    10. Public Sub New()
    11. InitializeComponent()
    12. End Sub
    14. #Region "Menu_top"
    15. Private Sub llbl_Datei_Click(sender As Object, e As EventArgs) Handles llbl_Datei.Click
    16. Application.Exit()
    17. End Sub
    19. Private Sub llbl_sets_Click(sender As Object, e As EventArgs) Handles llbl_sets.Click
    20. Using frm As New frm_settings()
    21. frm.ShowDialog(Me)
    22. End Using
    23. End Sub
    25. Private Sub frm_main_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    26. drawClass.DrawCanvasContent(Me, e.Graphics)
    27. End Sub
    28. #End Region
    30. Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    31. drawClass.AddEvent(Me) : drawClass.lblLoad(Me)
    32. End Sub

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    z.B. brauche ich das : " System.Net.Mail " wenn ich emails versenden möchte.
    Das sind lediglich Verweise, die DLL dazu wird ja vom Framework bereit gestellt.
    Du musst da eigentlich außer dem VB6-Dingens nix rausnehmen.
    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!

    hmm - da habich wohl andere Prinzipien.
    Ich betrachte globale(!!) Importe weniger als etwas, wo man unappetitliches herausnimmt, sondern als etwas, was grundsätzlich leer sein sollte, und wo man dann bewusst Dinge hineintut, die man absehbar in wohl über 50% aller Code-Dateien des Projekts braucht - global eben.
    Etwa System.Collections ist auch ein Namespace mit einigem an Müll drin, und verleitet Anfänger, die olle untypisierte ArrayList einzubauen, anstatt den Stand der Technick List(of T).
    Oder was soll ich mit System.Threading.Tasks? Async/Await ist zwar dolle, aber in neun von zehn meiner Anwendungen taucht Nebenläufigkeit überhaupt nicht auf - in keiner Datei!
    Da wäre ich doch bescheuert, wenn ich diesen Namespace global importiert hätte.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    OK, VB.
    Ich arbeite mit C#, da gibt es solch nicht.
    Da kommt natürlich nur das rein, was benötigt wird.
    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!

Facebook
Telefonspende