DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Wait for user response before doing anything.

•

Join Date: Jan 2005

Posts: 6

Reputation: amarsha4 is an unknown quantity at this point

Solved Threads: 0

amarsha4

Offline

Newbie Poster

Wait for user response before doing anything.

Jan 27th, 2009

Hi,

Apologies if I'm missing something really easy here:

I have a TabStrip with 4 tabs on my form. When the user is editing the information on one of the tabs I want to display a message box confirming whether the data should be saved. Here is what I have:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub tabMainForm_Click(PreviousTab As Integer)
    If editing Then
        If MsgBox("Save changes?", vbYesNoCancel, applicationTitle) = vbYes Then
            cmdSave_Click (tabMainForm.Tab)
        End If
    End If
    If tabMainForm.Tab = 1 Then
        staffRst.Fields("BI") = CalculateBI
        staffRst.Update
        txtBI.Text = staffRst.Fields("BI")
    End If
End Sub
Private Sub tabMainForm_Click(PreviousTab As Integer)
    If editing Then
        If MsgBox("Save changes?", vbYesNoCancel, applicationTitle) = vbYes Then
            cmdSave_Click (tabMainForm.Tab)
        End If
    End If
    If tabMainForm.Tab = 1 Then
        staffRst.Fields("BI") = CalculateBI
        staffRst.Update
        txtBI.Text = staffRst.Fields("BI")
    End If
End Sub

The program will switch to the new tab before displaying the message. Is there any way I can show the message box first then decide whether to switch tabs?

Thanks in advance,

Andy.

•

Join Date: Dec 2004

Posts: 2,413

Reputation: Comatose is a jewel in the rough

Solved Threads: 211

Comatose

Offline

Taboo Programmer

Re: Wait for user response before doing anything.

Jan 27th, 2009

can you put the code on the tab's mousedown event?

•

Join Date: Jul 2007

Posts: 300

Reputation: jireh is an unknown quantity at this point

Solved Threads: 42

jireh

Offline

Posting Whiz

Re: Wait for user response before doing anything.

Jan 27th, 2009

Try the change event, if there's an cancel property on their parameter then use it. or maybe the mousedown event.

A conclusion is the place where you got tired of thinking.
http://www.martin2k.co.uk/forums/index.php?showforum=4
http://www.a1vbcode.com/a1vbcode/vbforums/Forum3-1.aspx
http://www.developerfusion.co.uk/for...orum&ForumID=4

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: Wait for user response before doing anything.

Jan 27th, 2009

•

I have a TabStrip with 4 tabs on my form. When the user is editing the information on one of the tabs I want to display a message box confirming whether the data should be saved.

Hi, You have to display a message box, when closing a form or changing one tab to another.

If Changing from one tab to another,
set editing flag on All the controls change event (Current Tab) and clear it after the confirmation. Suppose Text1 is in First Tab, then

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim bEditing As Boolean
 
Private Sub tabMainForm_Click(PreviousTab As Integer)
    If bEditing Then
      Select Case MsgBox("Save changes?", vbYesNoCancel, applicationTitle) = vbYes
      Case vbYes
         cmdSave_Click (tabMainForm.Tab)
      Case vbNo
 
      Case vbCancel
         Exit Sub
      End Select
    End If
    'ClearFlag
    bEditing = False
End Sub
 
Private Sub Text1_Change()
   bEditing = True
End Sub
Dim bEditing As Boolean

Private Sub tabMainForm_Click(PreviousTab As Integer)
    If bEditing Then
      Select Case MsgBox("Save changes?", vbYesNoCancel, applicationTitle) = vbYes
      Case vbYes
         cmdSave_Click (tabMainForm.Tab)
      Case vbNo
         
      Case vbCancel
         Exit Sub
      End Select
    End If
    'ClearFlag
    bEditing = False
End Sub

Private Sub Text1_Change()
   bEditing = True
End Sub

Last edited by selvaganapathy; Jan 27th, 2009 at 11:11 pm.

KSG

•

Join Date: Jan 2005

Posts: 6

Reputation: amarsha4 is an unknown quantity at this point

Solved Threads: 0

amarsha4

Offline

Newbie Poster

Re: Wait for user response before doing anything.

Feb 11th, 2009

Thank you both for your replies, the MouseDown event worked fine, but I now have the same problem with a ListBox.

The names of items are listed in a ListBox, when an item is selected its details are filled into several TextBoxes underneath the list.

Basically I need the same kind of thing; if the user tries to select a different list item while editing = True then I want to display the message and perform no action. The MouseDown event is firing but the ListIndex is still changing.

Any ideas? I know I could set the ListBox.Enabled = False but I would rather use a simpler solution as before.

Hope someone can help,

Andy