Visual Basic

Victor Nijegorodov wrote:

... abd does it work?

jsc42 wrote:

why is the value to be subtracted converted to a String and then parsed to CInt only for it to be boxed (a Javaism) / wrappered (JSism) back to a String?

Public Class Form1
    Public Event Show_My_Message(ByVal message As String)

    Private Sub btnOpenForm2_Click(sender As Object, e As EventArgs) Handles btnOpenForm2.Click
        Dim form2 As New Form2(Me)         ' This passes the reference to the Form1 instance to the Form2 instance
        form2.Show()                       ' Show an instance of Form2
    End Sub

    Private Sub btnShowMessageOnForm2_Click(sender As Object, e As EventArgs) Handles btnShowMessageOnForm2.Click
        RaiseEvent Show_My_Message("Some message")
    End Sub
End Class

Public Class Form2
    Public Sub New(Form1 eventProvider)       ' THIS IS BAD PRACTICE! Form1 should be replaced by an interface!
        AddHandler eventProvider.Show_My_Message, AddressOf ShowMyMessageHandler
    End Sub

    Public Sub ShowMyMessageHandler(ByVal message As String)
        MsgBox(message)
    End Sub
End Class

Public Class Form1
    Private f2 As Form2 = Nothing

    Sub F2IsActive(Enabled As Boolean)
        btnStartForm2.Enabled = Not Enabled
        btnDoSomethingOnForm2.Enabled = Enabled
        btnCloseForm2.Enabled = Enabled

        If Enabled Then
            If Not FormIsOpen(f2) Then  ' Needs to be opened
                f2 = New Form2()
                f2.Show()
            End If
        ElseIf FormIsOpen(f2) Then   ' Needs to be closed
            f2.Close()
            f2 = Nothing
        End If
    End Sub

    Private Sub btnStartForm2_Click(sender As Object, e As EventArgs) Handles btnStartForm2.Click
        F2IsActive(True)
    End Sub

    Private Sub btnDoSomethingOnForm2_Click(sender As Object, e As EventArgs) Handles btnDoSomethingOnForm2.Click
        If f2 Is Nothing Then
            MsgBox("You have to open Form2 first")
        ElseIf FormIsOpen(f2) Then
            f2.DoSomethingOnForm2()
        Else    ' No longer exists
            MsgBox("Form2 has disappeared")
            F2IsActive(False)
        End If
    End Sub

    Private Function FormIsOpen(formToFind As Form) As Boolean
        For Each testform As Form In Application.OpenForms
            If testform.Equals(formToFind) Then
                Return True
            End If
        Next

        Return False
    End Function

    Private Sub btnCloseForm2_Click(sender As Object, e As EventArgs) Handles btnCloseForm2.Click
        If Not FormIsOpen(f2) Then
            MsgBox("Form2 has already been closed")
        End If

        F2IsActive(False)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        F2IsActive(False)
    End Sub
End Class

Public Class Form2
    Public Sub DoSomethingOnForm2()
        MsgBox("Hello from Form 1")
    End Sub
End Class

crmfghtr wrote:

he code below is inserting records from the Main database inventory table, and not from the backup database

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ProgressBar1.Maximum = ???? Here what should put?
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.RunWorkerAsync()
    End Sub

      Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       
       'We can measure this loop for example
       For t = 0 To myMax
            Label1.Text = t
            BackgroundWorker1.ReportProgress(t)
            Threading.Thread.Sleep(100)
        Next

      'But we need to measure process percentage of (My_Process()) , 
      'No have (t) digital counter to use in (BackgroundWorker1.ReportProgress(t))
      'So what is the solution here???


    End Sub

   Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        Label1.Text = e.ProgressPercentage.ToString() & " %"
        ProgressBar1.Value = e.ProgressPercentage
        ProgressBar1.Refresh()
   End Sub

Private Sub My_Process()
---- Code
End Sub

Sub ClearKBBuffer()
    While Console.KeyAvailable
        Console.ReadKey(True)
    End While
End Sub
Sub Main()
    Dim k As ConsoleKey
    Console.TreatControlCAsInput = True
    Randomize()
    Do
        Console.CursorVisible = False
        Dim nLijnen = Start()
        ClearKBBuffer
        Console.CursorVisible = True
        Dim hs As HighScores = HighScores.Load()
        Console.BackgroundColor = ConsoleColor.Red
        Console.ForegroundColor = ConsoleColor.Black
        Dim NewPLace As Integer = -1
        For i As Integer = 0 To 9
            If nLijnen > hs.Scores(i).Lines And NewPLace < 0 Then
                NewPLace = i
            End If
            Console.SetCursorPosition(10, 10 + i)
            Console.Write(hs.Scores(i).Name.PadRight(30) & hs.Scores(i).Lines.ToString.PadLeft(10) & "   " & hs.Scores(i).PlayDate.ToString("dd/MM/yyyy HH:mm:ss"))
        Next
        Console.Beep()
        If NewPLace >= 0 Then
            Dim NewHS As New Score
            With NewHS
                .Lines = nLijnen
                .PlayDate = Now
                Console.SetCursorPosition(10, 21)
                Console.Write("New highscore. " & nLijnen & " Your name please? ")
                .Name = Console.ReadLine
                .Name = .Name.Trim
                If .Name = "" Then .Name = "[No Name]"
            End With
            For i = 8 To NewPLace Step -1
                hs.Scores(i + 1) = hs.Scores(i)
            Next
            hs.Scores(NewPLace) = NewHS
            hs.Save()
        End If
        Console.SetCursorPosition(0, Console.WindowHeight - 2)
        Console.WriteLine("New game? (Y/N) ")
        Do
            k = Console.ReadKey.Key
        Loop While k <> ConsoleKey.Y And k <> ConsoleKey.N
    Loop While k = ConsoleKey.Y
End Sub

Sub ClearKBBuffer()
    While Console.KeyAvailable
        Console.ReadKey(True)
        Console.ReadKey()
    End While
End Sub

Sub ClearKBBuffer()
    While Console.KeyAvailable
        Console.ReadKey(True)
    End While
End Sub

lazy_dude wrote:

vb6