Steuerelement in Groupbox aus Modul ansprechen

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

Es gibt 59 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    sonne75 schrieb:

    Seiner läuft ja.
    Bei mir compiliert "mein" Code, läuft aber nicht.
    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!

    könnte mir vorstellen, er spricht die Default-Instanz an statt eines ordentlich instanzierten Forms.
    Und scheinbar hat er auch Option Strict Off.

    Also dieses Abholen, wo man grad steht ist mir nix. Ist mir nur Holzwege lang-latschen bis zum bitteren Ende.

    IMO musser Grundlagen lernen von Anfang an: Datenverarbeitungs-Vorraussetzungen

    Das Programm stürzt nicht ab, es arbeitet zumindest optisch einwandfrei und bringt auch keine Fehlermeldung. Nur der betreffende Progressbar wird nicht aktualisiert. "option strict on" ist auch aktiviert.
    Dass ich nun in einer Woche durch Lektüre nicht zum "optimalen Code" komme ist mir schon klar!!
    ==> seid .net zueinander :D <3 <==

    Axxxxxl schrieb:

    stürzt nicht ab
    Setz einen Haltepunkt auf die Zeile und überzeuge Dich, dass das Programm da ühaupt vorbeikommt.
    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!

    Der aktuelle Code ist:

    VB.NET-Quellcode

    1. CType(frm_main.Controls("grp_ma" & ma_nummer).Controls.Item("bar_" & ma_nummer), ProgressBar).Value = CInt(Speed)


    Einen Haltepunkt habe ich gesetzt und er hält auch brav dort an. Vielleicht liegt es daran, dass es "zu schnell" abläuft?
    Im Mainform ist ein Timer mit 1000er Interval. Dort wird jeweils die Sub "Druckmaschinen" im Modul1 aufgerufen, jeweils nur mit anderen Parameter (Maschinennummer):

    VB.NET-Quellcode

    1. 'Aktualisierung für Druckmaschinen aufrufen
    2. druckmaschinen(54, "54")
    3. druckmaschinen(55, "55")
    4. druckmaschinen(56, "56")
    ==> seid .net zueinander :D <3 <==

    Als ich für jede Maschine einzelnen Code geschrieben hatte, hat das auch mit dem Progressbar funktioniert. Er hat auch ein festes Maximum von 200 und der Speed der Maschinen steigt nie über 150!
    ICH HABE IHN ALSO SCHON EINMAL ANGESPROCHEN!!!
    Der zweite übergebene Stringwert "54" ist irrelevant, da habe ich anfangs nur getestet. Der Integer Wert 54 ist der, welcher in der Sub ausgewertet wird. Und hier nun, damit niemand heult ( :!: ) der komplette Code der Sub aus dem Modul 1:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Sub druckmaschinen(ByVal ma_nummer As Integer, ma_text As String)
    3. 'URLs für XML Daten der Maschinen festlegen
    4. 'Druckmaschinen
    5. If ma_nummer = 54 Then HTTPAdresse = "http://lblmeew131"
    6. If ma_nummer = 55 Then HTTPAdresse = "http://lblmeew132"
    7. If ma_nummer = 56 Then HTTPAdresse = "http://lblmeew120"
    9. XMLString = Client.DownloadString(HTTPAdresse)
    10. xml_Doc.LoadXml(XMLString) ' ... XML-Datei aus String laden
    12. '----------------------------------------------------------------------------------------------------------------
    13. 'Geschwindigkeit auslesen und anzeigen
    14. xml_Knoten = xml_Doc.SelectSingleNode("/bde/application/geschwindigkeit")
    15. Double.TryParse(xml_Knoten.InnerText.Replace(".", ","), Wert)
    16. Dim Speed As String = System.Math.Truncate(Wert).ToString
    17. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_speed" & ma_nummer).Text = Speed
    19. 'Progressbar anpassen
    20. 'MsgBox("Speed: " & Speed)
    22. CType(frm_main.Controls("grp_ma" & ma_nummer).Controls.Item("bar_" & ma_nummer), ProgressBar).Value = CInt(Speed)
    24. 'Hintergrund entsprechend Geschwindigkeit färben und LEDs laden
    25. If Speed <= 1 Then
    26. frm_main.Controls("grp_ma" & ma_nummer).BackColor = System.Drawing.Color.FromArgb(255, 192, 192)
    27. CType(frm_main.Controls("grp_ma" & ma_nummer).Controls("pic_led_" & ma_nummer), PictureBox).Image = CCL_Info_Monitor.My.Resources.Resources.Redlight
    28. Else
    29. frm_main.Controls("grp_ma" & ma_nummer).BackColor = Color.LightGreen
    30. CType(frm_main.Controls("grp_ma" & ma_nummer).Controls("pic_led_" & ma_nummer), PictureBox).Image = CCL_Info_Monitor.My.Resources.Resources.Greenlight
    31. End If
    33. '----------------------------------------------------------------------------------------------------------------
    34. 'Produktivstatus anzeigen
    35. Dim produktiv As String
    36. xml_Knoten = xml_Doc.SelectSingleNode("/bde/aktuell_produktiv") ' Mit XPath ab Anfang zum gesuchten Konten gehen
    37. produktiv = xml_Knoten.InnerText
    39. If produktiv = "1" Then
    40. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_produktiv" & ma_nummer).Text = "produktiv"
    41. Else
    42. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_produktiv" & ma_nummer).Text = "Störung"
    43. End If
    45. '----------------------------------------------------------------------------------------------------------------
    46. 'FA auslesen und anzeigen
    47. Dim FA As String
    48. xml_Knoten = xml_Doc.SelectSingleNode("/bde/fertigungsauftrag") ' Mit XPath ab Anfang zum gesuchten Konten gehen
    49. FA = Mid(xml_Knoten.InnerText, 6, 5)
    50. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_fa" & ma_nummer).Text = FA
    52. '----------------------------------------------------------------------------------------------------------------
    53. 'Auflage Stck. auslesen
    54. xml_Knoten = xml_Doc.SelectSingleNode("/bde/application/auflage") ' Mit XPath ab Anfang zum gesuchten Konten gehen
    55. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_auflage" & ma_nummer).Text = (xml_Knoten.InnerText)
    57. '----------------------------------------------------------------------------------------------------------------
    58. 'Auflage brutto m auslesen
    59. xml_Knoten = xml_Doc.SelectSingleNode("/bde/application/brutto") ' Mit XPath ab Anfang zum gesuchten Konten gehen
    60. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_brutto" & ma_nummer).Text = (xml_Knoten.InnerText)
    62. 'Maximum des Progressbar auf Bruttometer des FA setzen
    63. Auflage = CInt(xml_Knoten.InnerText)
    64. CType(frm_main.Controls("grp_ma" & ma_nummer).Controls.Item("bar_" & ma_nummer), ProgressBar).Maximum = Auflage
    66. '----------------------------------------------------------------------------------------------------------------
    67. 'Gutmeter auslesen und anzeigen
    68. xml_Knoten = xml_Doc.SelectSingleNode("/bde/laengegut") ' Mit XPath ab Anfang zum gesuchten Konten gehen
    69. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_metergut" & ma_nummer).Text = (xml_Knoten.InnerText)
    71. 'produzierte Gutmeter als Fortschritt% im Progressbar anzeigen und Text als Prozent anzeigen
    72. Gutmeter = CInt(xml_Knoten.InnerText)
    73. 'CType(frm_main.Controls("grp_ma" & ma_nummer).Controls.Item("bar_prod" & ma_nummer), ProgressBar).Value = Gutmeter
    75. Fortschritt = (Gutmeter * 100) / Auflage
    76. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_prod" & ma_nummer).Text = Fortschritt & "%"
    78. '----------------------------------------------------------------------------------------------------------------
    79. 'Schlechtmeter auslesen und anzeigen
    80. xml_Knoten = xml_Doc.SelectSingleNode("/bde/laengeschlecht") ' Mit XPath ab Anfang zum gesuchten Konten gehen
    81. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_meterschlecht" & ma_nummer).Text = (xml_Knoten.InnerText)
    83. '----------------------------------------------------------------------------------------------------------------
    84. 'produzierte Druckrollen auslesen
    85. xml_Knoten = xml_Doc.SelectSingleNode("/bde/mengegut") ' Mit XPath ab Anfang zum gesuchten Konten gehen
    86. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_drollengut" & ma_nummer).Text = (xml_Knoten.InnerText)
    88. End Sub

    8| :P
    ==> seid .net zueinander :D <3 <==

    Axxxxxl schrieb:

    ICH HABE IHN ALSO SCHON EINMAL ANGESPROCHEN!!!

    Du brauchst nicht zu schreien, hier ist niemand taub :rolleyes:

    Axxxxxl schrieb:

    Und hier nun, damit niemand heult

    Sag mal, in welchen Ton redest du mit mir? Ich habe dir DREI Mal eine Frage gestellt, weil DU Hilfe brauchst. Du ignorierst mich mehrmals und jetzt moserst du auch noch rum, oder was?

    Axxxxxl schrieb:

    VB.NET-Quellcode

    1. If ma_nummer = 54 Then HTTPAdresse = "http://lblmeew131"
    2. If ma_nummer = 55 Then HTTPAdresse = "http://lblmeew132"
    3. If ma_nummer = 56 Then HTTPAdresse = "http://lblmeew120"

    Dafür wurde Select Case erfunden:

    VB.NET-Quellcode

    1. Select Case ma_nummer
    2. Case 54
    3. HTTPAdresse = "http://lblmeew131"
    4. Case 55
    5. HTTPAdresse = "http://lblmeew132"
    6. Case 56
    7. HTTPAdresse = "http://lblmeew120"
    8. End Select


    Axxxxxl schrieb:

    VB.NET-Quellcode

    1. Dim Speed As String = System.Math.Truncate(Wert).ToString
    2. frm_main.Controls("grp_ma" & ma_nummer).Controls("lbl_speed" & ma_nummer).Text = Speed


    Geschwindigkeit misst sich in Zahlen und nicht in Buchstaben oder Zeichen. Also mach sie auch als Integer (wenn sie eine Ganzzahl ist), lass das erste .ToString weg und füg lieber in der zweiten Zeile eins hinzu.

    Axxxxxl schrieb:

    VB.NET-Quellcode

    1. CType(frm_main.Controls("grp_ma" & ma_nummer).Controls.Item("bar_" & ma_nummer), ProgressBar).Value = CInt(Speed)


    Und um erneut auf meine Frage zu kommen (du schaffst es immer noch nicht, sie zu beantworten, trotz der Großkotzigkeit):
    Hast du an DIESER Stelle die Progressbar angesprochen? Anstatt dem Codeungestüm einfach:

    VB.NET-Quellcode

    1. bar_54.Value=Speed 'ist ja dann schon Integer


    Dann siehst du erst, woran es liegt.

    @sonne75 (und nur an dich):
    jetzt sind wir wieder an dem Punkt, an dem scheinbar jedes 2. Forum im Internet "leidet". Es gibt immer jemand, der sich "mehrmals ignoriert" fühlt. (deswegen hab ich eben mal geschrien!), der mir "Großkotzigkeit" vorwirft und offensichtlich nervös wird, wenn mal jemand nicht gleich korrekt auf "seine" Fragen antwortet.
    Hey, ich bin dankbar für jeden Tipp und Hinweis hier, vor allem geht es hier sehr schnell mit Antworten (inklusive deiner!!!) und es ist für nen VB.net Laien auch nicht leicht, von der Lawine der Antworten nicht erschlagen zu werden. Deswegen bitte keine Streiterei und zurück zur eigentlichen Sache (per PN kannste mich gerne weiter maßregeln :* 8o :thumbup: )

    Mit folgenden Code:

    VB.NET-Quellcode

    1. frm_main.bar_54.Value = Speed
    2. frm_main.lbltest.Text = Speed
    3. frm_main.bar_test.Value = Speed


    passiert, dass das Label den korrekten Speedwert anzeigt und auch mein Testprogressbar (bar_test) korrekt aktualisiert wird.
    Der Bar "bar_54" hingegen in der Goupbox "grp_ma54" nicht.
    Versuche ich es mit

    VB.NET-Quellcode

    1. frm_main.grp_ma54.bar_54.Value = Speed
    meint er, dass es dieses Steuerelement nicht geben würde?!
    ==> seid .net zueinander :D <3 <==

    Was soll das dauernde frm_main eigentlich überhaupt? Sind die Controls nicht in derselben Form? Wie greifst du überhaupt dann auf sie zu?

    Axxxxxl schrieb:

    frm_main.bar_54.Value = Speed


    Axxxxxl schrieb:

    frm_main.grp_ma54.bar_54.Value = Speed


    Hast du zwei "bar_54" oder wie? Kann eigentlich nicht sein. Wenn sie direkt auf deiner Form liegt, dann ist es klar, warum sie in der Groupbox nicht gefunden wird. Anscheinend liegt sie zwar räumlich AUF der Groupbox, aber nicht IN der Groupbox.

    Axxxxxl schrieb:

    an dem scheinbar jedes 2. Forum im Internet "leidet". Es gibt immer jemand, der sich "mehrmals ignoriert" fühlt. (deswegen hab ich eben mal geschrien!), der mir "Großkotzigkeit" vorwirft und offensichtlich nervös wird


    Wie du siehst, bin ich bei weitem nicht die Einzige, die dein Verhalten nicht in Ordnung findet. Aber anstatt dass du dir überlegst, ob es an dir liegen könnte, schiebst du es natürlich an "immer jemand".
    Wie in dem Witz:
    "Achtung, ein Falschfahrer auf A6". "Einer? Hier sind Hunderte..."

    das "frm_main" daher, weil der Code in einem Modul läuft (was ich vielleicht ändern sollte?!) und nicht direkt im Code des Fensters "frm_main". Ich bin das halt so gewöhnt aus Excel VBA, dass man Code den man von verschiedenen Stellen verwendet, in ein Modul packt. Wenn das bei VB.net nicht der Fall ist, änder ich das auch. Brauch ihn ja nur zurück zu kopieren.

    Und es gibt nur für jede Maschine alles einmal, also für die 54 bswp. 1x grp_ma54 1x bar_54 1xlbl_speed54 usw.
    ==> seid .net zueinander :D <3 <==

    Du solltest das hier durchlesen:

    Instanziierung von Forms und Aufruf von Dialogen

    frm_Main ist eine Klasse und kein Objekt. Es ist zwar syntaktisch möglich, aber es passieren immer wieder Fehler, weil es nicht eindeutig definiert ist.

    Wenn du eine bar_54 hast, die direkt in der Form gefunden wurde, dann ist sie NICHT in einer Groupbox. Wie es hier schon gesagt wurde:

    sonne75 schrieb:

    Wenn sie direkt auf deiner Form liegt, dann ist es klar, warum sie in der Groupbox nicht gefunden wird. Anscheinend liegt sie zwar räumlich AUF der Groupbox, aber nicht IN der Groupbox.


    Und ja, ich fühle mich schon wieder ignoriert :rolleyes:

    Liest du eigentlich überhaupt, was ich schreibe, oder wozu mache ich das?

    So Freunde,

    ich habe heute allen Code aus dem Modul zurück in den Code meiner Form geholt und... uuunnnndddd.... es läuft, auch die Progressbars werden aktualisiert :thumbsup:
    Ich habe das Modul sicherheitshalber auch gleich gelöscht da dies lt. meiner kleinen Recherche nur noch ein "Relikt" in Anlehnung an die alte VB6 Zeit sein soll?!

    Nun ist mein Code sicher noch verbesserungswürdig. Ihr sagtet mal, dass ich "das ganze Maschinenzeugs in eine Klasse packen" soll. Deswegen (aber nur wenn ihr Lust habt!) hier nochmal der Code ausgeführt wird. Frage: Geht das überhaupt, diese Funktionen in eine Klasse für die Maschinen zu "transferieren"?!:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub druckmaschinen(ByVal ma_nummer As Integer)
    4. Select Case ma_nummer
    5. Case 54
    6. HTTPAdresse = "http://lblmeew131"
    7. Case 55
    8. HTTPAdresse = "http://lblmeew132"
    9. Case 56
    10. HTTPAdresse = "http://lblmeew120"
    11. End Select
    13. XMLString = Client.DownloadString(HTTPAdresse)
    14. xml_Doc.LoadXml(XMLString) ' ... XML-Datei aus String laden
    16. '----------------------------------------------------------------------------------------------------------------
    17. 'Geschwindigkeit auslesen und anzeigen
    18. xml_Knoten = xml_Doc.SelectSingleNode("/bde/application/geschwindigkeit")
    19. 'Double.TryParse(xml_Knoten.InnerText.Replace(".", ","), Wert)
    20. Dim Speed As Integer = CInt(xml_Knoten.InnerText)
    21. Controls("grp_ma" & ma_nummer).Controls("lbl_speed" & ma_nummer).Text = CStr(Speed)
    23. 'Progressbar anpassen
    24. CType(Controls("grp_ma" & ma_nummer).Controls.Item("bar_" & ma_nummer), ProgressBar).Value = Speed
    26. 'Hintergrund entsprechend Geschwindigkeit färben und LEDs laden
    27. If Speed <= 1 Then
    28. Controls("grp_ma" & ma_nummer).BackColor = System.Drawing.Color.FromArgb(255, 192, 192)
    29. CType(Controls("grp_ma" & ma_nummer).Controls("pic_led_" & ma_nummer), PictureBox).Image = CCL_Info_Monitor.My.Resources.Resources.Redlight
    30. Else
    31. Controls("grp_ma" & ma_nummer).BackColor = Color.LightGreen
    32. CType(Controls("grp_ma" & ma_nummer).Controls("pic_led_" & ma_nummer), PictureBox).Image = CCL_Info_Monitor.My.Resources.Resources.Greenlight
    33. End If
    35. '----------------------------------------------------------------------------------------------------------------
    36. 'Produktivstatus anzeigen
    37. Dim produktiv As String
    38. xml_Knoten = xml_Doc.SelectSingleNode("/bde/aktuell_produktiv")
    39. produktiv = xml_Knoten.InnerText
    41. If produktiv = "1" Then
    42. Controls("grp_ma" & ma_nummer).Controls("lbl_produktiv" & ma_nummer).Text = "produktiv"
    43. Else
    44. Controls("grp_ma" & ma_nummer).Controls("lbl_produktiv" & ma_nummer).Text = "Störung"
    45. End If
    47. '----------------------------------------------------------------------------------------------------------------
    48. 'FA auslesen und anzeigen
    49. Dim FA As String
    50. xml_Knoten = xml_Doc.SelectSingleNode("/bde/fertigungsauftrag")
    51. FA = Mid(xml_Knoten.InnerText, 6, 5)
    52. Controls("grp_ma" & ma_nummer).Controls("lbl_fa" & ma_nummer).Text = FA
    54. '----------------------------------------------------------------------------------------------------------------
    55. 'Auflage Stck. auslesen
    56. xml_Knoten = xml_Doc.SelectSingleNode("/bde/application/auflage")
    57. Controls("grp_ma" & ma_nummer).Controls("lbl_auflage" & ma_nummer).Text = (xml_Knoten.InnerText)
    59. '----------------------------------------------------------------------------------------------------------------
    60. 'Auflage brutto m auslesen
    61. xml_Knoten = xml_Doc.SelectSingleNode("/bde/application/brutto")
    62. Controls("grp_ma" & ma_nummer).Controls("lbl_brutto" & ma_nummer).Text = (xml_Knoten.InnerText)
    64. 'Maximum des Progressbar auf Bruttometer des FA setzen
    65. Auflage = CInt(xml_Knoten.InnerText)
    66. CType(Controls("grp_ma" & ma_nummer).Controls.Item("bar_prod" & ma_nummer), ProgressBar).Maximum = Auflage
    68. '----------------------------------------------------------------------------------------------------------------
    69. 'Gutmeter auslesen und anzeigen
    70. xml_Knoten = xml_Doc.SelectSingleNode("/bde/laengegut")
    71. Controls("grp_ma" & ma_nummer).Controls("lbl_metergut" & ma_nummer).Text = (xml_Knoten.InnerText)
    73. 'produzierte Gutmeter als Fortschritt% im Progressbar anzeigen und Text als Prozent anzeigen
    74. Gutmeter = CInt(xml_Knoten.InnerText)
    75. CType(Controls("grp_ma" & ma_nummer).Controls.Item("bar_prod" & ma_nummer), ProgressBar).Value = Gutmeter
    77. 'Fortschritt = CInt((Gutmeter * 100) / Auflage)
    78. Controls("grp_ma" & ma_nummer).Controls("lbl_prod" & ma_nummer).Text = Fortschritt & "%"
    80. '----------------------------------------------------------------------------------------------------------------
    81. 'Schlechtmeter auslesen und anzeigen
    82. xml_Knoten = xml_Doc.SelectSingleNode("/bde/laengeschlecht") ' Mit XPath ab Anfang zum gesuchten Konten gehen
    83. Controls("grp_ma" & ma_nummer).Controls("lbl_meterschlecht" & ma_nummer).Text = (xml_Knoten.InnerText)
    85. '----------------------------------------------------------------------------------------------------------------
    86. 'produzierte Druckrollen auslesen
    87. xml_Knoten = xml_Doc.SelectSingleNode("/bde/mengegut") ' Mit XPath ab Anfang zum gesuchten Konten gehen
    88. Controls("grp_ma" & ma_nummer).Controls("lbl_drollengut" & ma_nummer).Text = (xml_Knoten.InnerText)
    89. End Sub
    ==> seid .net zueinander :D <3 <==

    Axxxxxl schrieb:

    in eine Klasse für die Maschinen zu "transferieren"?
    Völlig problemlos. Falls Du Shared Variablen oder Variablen in einem Modul hast, solltest Du die ggf. auch in eine Klasse packen und je nach Verwendung nicht Shared machen.
    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