Module mit Timer

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Quakxi.

    Module mit Timer

    Hallo,
    ich bastle momentan an einer Möglichkeit Anwendungen mit der vbc.exe zu kompilieren.
    Momentan bin ich so weit:

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    2. Imports System.Runtime.InteropServices
    3. Imports System.IO
    5. Module Module1
    6. Private i As Integer = 0
    7. Friend WithEvents Timer1 As New System.Windows.Forms.Timer
    8. Sub Main()
    9. MsgBox("hallo")
    10. Timer1.Interval = 10
    11. Timer1.Enabled = True
    13. While True
    15. End While
    17. End Sub
    19. Public Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
    20. MsgBox("hallo")
    21. i += 1
    22. File.WriteAllText("C:\TEMP\" & i & ".txt", "Hallo" & i)
    23. End Sub
    25. End Module


    Es gibt nun zwei Probleme, zum einen wird die Timer1_Tick Sub nicht aufgerufen, zum anderen beendet sie die Anwendung automatisch. Dies lässt sich nur mit der While True unterbinden, da es keine Console gibt und ich auch keine möchte, kann ich kein Console.ReadLine() Verwenden.
    Die Anwendung wird wie folgt kompiliert:

    Quellcode

    1. Shell(Environ("systemroot") & "\Microsoft.NET\Framework\v3.5\vbc.exe /target:winexe C:\TEMP\Blubb.vb", AppWinStyle.Hide)

    Hat jemand einen Tip, wie die beiden gennanten Probleme unterbunden werden könnten?
    Intel i7-4710HQ |Nvidia GTX 860M | 1TB SSHD| 8GB RAM 1600Mhz :saint:
    Intel Core Duo2 | 320GB | 4 GB RAM | Linux Debian :D
    AMD E-350 | 320GB| 6GB RAM :thumbdown:

    @Quakxi Warum bastelst Du einen System.Windows.Forms.Timer, der speziell für System.Windows.Forms gemacht ist, in eine Console-Applikation?
    Klar muss die Console ausgebremst werden, wenn der Timer zuschlagen soll.
    Bevor Du da iwas compilierst, sollte es im Studio korrekt funktionieren.
    Damit Dein Plan aber korrekt funktioniert, mach Dir lieber eine WinForms-Anwendung, die unsichtbar ist (Opacity = 0).
    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!

    Das hab ich mir auch schon überlegt, und habe dazu folgenden Code gehabt:

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    2. Imports System.Runtime.InteropServices
    3. Module Module1
    5. Sub Main()
    6. Dim frm As New Form1
    7. frm.InitializeComponent()
    8. frm.ShowDialog()
    9. Console.Readline()
    10. While True
    12. End While
    13. End Sub
    14. End Module
    16. Public Class Form1
    17. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    18. MsgBox("Hallo")
    19. Me.Visible = False
    20. Me.Hide()
    21. End Sub
    23. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    24. End Sub
    25. End Class
    27. Partial Class Form1
    28. Inherits System.Windows.Forms.Form
    30. Public Sub h()
    31. Me.Hide()
    32. End Sub
    33. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    34. '<System.Diagnostics.DebuggerNonUserCode()> _
    36. 'Wird vom Windows Form-Designer benötigt.
    37. Private components As System.ComponentModel.IContainer
    39. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    40. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    41. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    42. '<System.Diagnostics.DebuggerStepThrough()> _
    43. Public Sub InitializeComponent()
    44. Me.Button1 = New System.Windows.Forms.Button()
    45. Me.SuspendLayout()
    46. '
    47. 'Button1
    48. '
    49. Me.Button1.Location = New System.Drawing.Point(81, 151)
    50. Me.Button1.Name = "Button1"
    51. Me.Button1.Size = New System.Drawing.Size(75, 23)
    52. Me.Button1.TabIndex = 0
    53. Me.Button1.Text = "Button1"
    54. Me.Button1.UseVisualStyleBackColor = True
    55. '
    56. 'Form1
    57. '
    58. Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
    59. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    60. Me.ClientSize = New System.Drawing.Size(282, 253)
    61. Me.Controls.Add(Me.Button1)
    62. Me.Name = "Form1"
    63. Me.Text = "Form1"
    64. Me.ResumeLayout(False)
    66. End Sub
    68. Friend WithEvents Button1 As Button
    69. End Class

    Aber hier hab ich das selbe Problem, sobald die Prozedur in der Sub Main() abgelaufe ist beendet sich wieder mein Programm.
    Intel i7-4710HQ |Nvidia GTX 860M | 1TB SSHD| 8GB RAM 1600Mhz :saint:
    Intel Core Duo2 | 320GB | 4 GB RAM | Linux Debian :D
    AMD E-350 | 320GB| 6GB RAM :thumbdown:

    @Quakxi Mach mal Deine Klasse Program und die Prozedur Main so:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Diagnostics
    3. Imports System.Globalization
    4. Imports System.Threading
    5. Imports System.Windows.Forms
    7. Module Module1
    8. Sub Main()
    9. ' standard settings
    10. Application.EnableVisualStyles()
    11. Application.SetCompatibleTextRenderingDefault(False)
    13. Application.Run(New Form1)
    14. End Sub
    15. End Module

    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!

    Danke jetzt funktionierts mit folgenden Code:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Windows.Forms
    4. Imports System.Diagnostics
    5. Imports System.Globalization
    6. Imports System.Threading
    7. Imports System.Runtime.InteropServices
    9. Module Module1
    11. Sub Main()
    12. Application.EnableVisualStyles()
    13. Application.SetCompatibleTextRenderingDefault(False)
    14. Dim ding As New Form1
    15. ding.InitializeComponent()
    16. Application.Run(ding)
    17. End Sub
    19. End Module
    21. Public Class Form1
    22. Inherits System.Windows.Forms.Form
    23. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    25. MsgBox("Hallo")
    26. Me.Hide
    27. End Sub
    29. Private components As System.ComponentModel.IContainer
    31. Public Sub InitializeComponent()
    32. Me.Button1 = New System.Windows.Forms.Button()
    33. Me.SuspendLayout()
    34. '
    35. 'Button1
    36. '
    37. Me.Button1.Location = New System.Drawing.Point(81, 151)
    38. Me.Button1.Name = "Button1"
    39. Me.Button1.Size = New System.Drawing.Size(75, 23)
    40. Me.Button1.TabIndex = 0
    41. Me.Button1.Text = "Button1"
    42. Me.Button1.UseVisualStyleBackColor = True
    43. '
    44. 'Form1
    45. '
    46. Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
    47. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    48. Me.ClientSize = New System.Drawing.Size(282, 253)
    49. Me.Controls.Add(Me.Button1)
    50. Me.Name = "Form1"
    51. Me.Text = "Form1"
    52. Me.ResumeLayout(False)
    54. End Sub
    56. Friend WithEvents Button1 As Button
    57. End Class
    Intel i7-4710HQ |Nvidia GTX 860M | 1TB SSHD| 8GB RAM 1600Mhz :saint:
    Intel Core Duo2 | 320GB | 4 GB RAM | Linux Debian :D
    AMD E-350 | 320GB| 6GB RAM :thumbdown: