Has something changed in the gb.midi

Post

Posted
Rating:
#1 (In Topic #2053)
Enthusiast
AndyGable is in the usergroup ‘Enthusiast’

Has aything changed between 3.19.5 and the 3.20.3 version

Hi All,

Just wondering if someone has experiace the same as me or if it just my code

in 3.19.5 I can use

Public Sub btnSignOffUser_Click()
    Dim DisplayMessage As String = Null

     DisplayMessage = Null
    DisplayMessage &= "Please confirm your wish to Sign off from the Back" & gb.crlf
    DisplayMessage &= "Office system and allow another use to sign on" & gb.crlf

    If Global.ShowSyncReminder = "Yes" Then
        DisplayMessage &= gb.crlf & gb.crlf
        DisplayMessage &= "If you have done any changes to the database please" & gb.crlf
        DisplayMessage &= "Remeber to sync the PoS for the changes to be applied" & gb.crlf
        DisplayMessage &= gb.crlf
        DisplayMessage &= "Signed off menu -> User Menu -> Database Menu"
    End If

    Me.Enabled = False
    With frmQuestionBO
        .labFunction.Caption = "SignOffQuestion"
        .labSystemMessage.Caption = DisplayMessage
        .Stacking = Window.Above
    End With

    frmbackground.Workspace1.Add(frmQuestionBO, 0)
End


and it worked fine but when I ran this code in the 3.20.3 version in my virtal machine it did indeed disable my frmMainMenu but Did not show the FrmQuestion

but If I change the code to

Public Sub btnSignOffUser_Click()
    Dim DisplayMessage As String = Null

     DisplayMessage = Null
    DisplayMessage &= "Please confirm your wish to Sign off from the Back" & gb.crlf
    DisplayMessage &= "Office system and allow another use to sign on" & gb.crlf

    If Global.ShowSyncReminder = "Yes" Then
        DisplayMessage &= gb.crlf & gb.crlf
        DisplayMessage &= "If you have done any changes to the database please" & gb.crlf
        DisplayMessage &= "Remeber to sync the PoS for the changes to be applied" & gb.crlf
        DisplayMessage &= gb.crlf
        DisplayMessage &= "Signed off menu -> User Menu -> Database Menu"
    End If

    With frmQuestionBO
        .labFunction.Caption = "SignOffQuestion"
        .labSystemMessage.Caption = DisplayMessage
        .Stacking = Window.Above
    End With

    Me.Close
    frmbackground.Workspace1.Add(frmQuestionBO, 0)
End


It works and shows the FrmQuestion

So is it my error or has something changed (even if things have been tigtened up) Would I have to chage all enabled = false to .close (as some forms I need to hide for a seconds or two while the user selects a dept etc from another form that is being shown or do I need to use the hide form option?

I Hope I have made sese on this (as this is really the only thing that is stopping me from update to 3.20.3

Kind regards
Andy
 
Online now: No Back to the top

Post

Posted
Rating:
#2
Avatar
Guru
cogier is in the usergroup ‘Guru’
cogier is in the usergroup ‘GambOS Contributor’
There are better tools for what, I think, you are trying to do: -

Code (gambas)

  1. Me.Hide
  2. Me.Show
  3.  
  4. frmQuestionBO.Hide
  5. frmQuestionBO.Show
  6. frmQuestionBO.Close
  7.  
Online now: No Back to the top
1 guest and 0 members have just viewed this.