Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How to keep a dialogbox open?

Status
Not open for further replies.
yufoon

yufoon

Technical User
Oct 27, 2010
3
US
Hello All,
I've learned a lot from this this forum, such as getting data from AttachMate to Excel, writing subroutines, and much more.
Finally have a chance to post some code and ask for help!
Decided to be more productive at work, i have programmed a panel of buttons to go to various screens of AttachMate. The problem is that i am having is that every time i click on a button AttachMate would open/go-to the screen but the dialog box will close afterward.

I would like the dialog box to stay open so that i can go from screen to screen by clicking the buttons to view various data for the customer.

I read that in another post that the Function will need to be set to true, but i don't have a function, nor do i know how to write one...sorry if i am not clear. Please point me in the right direction.

Thanks

Code: 
Sub Main()

'--------------------------------------------------------------------------------
            Dim Sessions As Object
            Dim System As Object
            Set System = CreateObject("EXTRA.System")     ' Gets the system object
            If (System is Nothing) Then
                        Msgbox "Could not create the EXTRA System object.  Stopping macro playback."
                        STOP
            End If
            Set Sessions = System.Sessions
            If (Sessions is Nothing) Then
                        Msgbox "Could not create the Sessions collection object.  Stopping macro playback."
                        STOP
            End If
'--------------------------------------------------------------------------------
' Set the default wait timeout value
            g_HostSettleTime = 500             ' milliseconds
            OldSystemTimeout& = System.TimeoutValue
            If (g_HostSettleTime > OldSystemTimeout) Then
                        System.TimeoutValue = g_HostSettleTime
            End If
' Get the necessary Session Object
            Dim Sess0 As Object
            Set Sess0 = System.ActiveSession
            If (Sess0 is Nothing) Then
                        Msgbox "Could not create the Session object.  Stopping macro playback."
                        STOP
            End If
            If Not Sess0.Visible Then Sess0.Visible = TRUE
            Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
'--------------------------------------------------------------------------------

Dim strMembersNumber as String
Dim strMembersID as String
Dim strAH as String
Dim strI2  as String
Dim strXX as String
strAH= "ah"
strI2  = "i2"

Begin Dialog dlgGetMembersNumber 126, 61, 110, 45, "members info"
      OkButton 4, 30, 31, 15
      CancelButton  75, 29, 31, 10
      TextBox 3, 16, 105, 12, .tbxNumber
     Text 5, 4, 105, 8, "Enter Member's Number"
End Dialog

Begin Dialog dlgSearchPanel 0, 0, 244, 128, "selection box"
   ButtonGroup .AllButtons
   PushButton  1, 32, 45, 12, "Screen1.btnDoSendkeys1
   PushButton  48,32, 45,12, "Screen2",   .btnDoSendkeys2
   PushButton  1, 52, 45, 12, "Screen3",   .btnDoSendkeys3
   PushButton  48,52, 45,12, "Screen4",  .btnDoSendkeys4
   PushButton  1, 72, 45, 12, "Screen5",   .btnDoSendkeys5
   PushButton  47,72, 45,12, "Screen6.", .btnDoSendkeys6
   PushButton  0, 92, 45, 12, "Screen7",   .btnDoSendkeys7
   PushButton  48,92, 45,12, "Non-US ATM", .btnDoSendkeys8
   OptionGroup .OptionGroup1
      OptionButton  3, 21, 31, 8, "AH",.OptionButton1
      OptionButton  46,21,31,8,"I2",   .OptionButton2
   GroupBox  0, 10, 100, 99, "Transaction History"
   PushButton  104, 33, 45, 12, "Screen8",    .btnDoSendkeys9
   PushButton  150, 32, 45, 12, "Screen9",    .btnDoSendkeys10
   PushButton  104, 53, 45, 12, "Screen10",    .btnDoSendkeys11
   PushButton  151, 53, 45, 12, "Screen11",    .btnDoSendkeys12
   PushButton  104, 73, 45, 12, "Screen12",    .btnDoSendkeys13
   PushButton  152, 72, 45, 12, "Screen13",    .btnDoSendkeys14
   PushButton  102, 92, 45, 12, "Screen14",    .btnDoSendkeys15
   PushButton  150, 92, 45, 12, "Screen15", .btnDoSendkeys16
   PushButton  198, 53, 45, 12, "Screen16",    .btnDoSendkeys17
   PushButton  198, 32, 45, 12, "Screen17",.btnDoSendkeys18
   PushButton  89, 115, 45, 12, "Next",    .btnDoSendkeys19
   PushButton  140, 115, 45, 12,"Close",   .btnDoSendkeys20
End Dialog

Dim GetMembersNumber as dlgGetMembersNumber
On Error Resume next
Dim SearchPanel as dlgSearchPanel
On Error Resume next

Dialog GetMembersNumber
strMembersNumber= GetMembersNumber.tbxNumber
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.Screen.Sendkeys("<Clear>")           
        Sess0.Screen.Sendkeys("xxxx<Enter>")
        Sess0.Screen.Sendkeys("<Enter>")
        Sess0.Screen.Sendkeys(strMembersNumber)
        Sess0.Screen.Sendkeys("<Enter>")
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
strMembersID= Sess0.screen.GetString(21,16,10,0)

haha = Dialog(SearchPanel)
    Select Case haha
Case 1      
    Select Case SearchPanel.OptionGroup1 'SELECT CASE OPTION GROUP
    Case 0
    strXX= strAH
    Case 1
    strXX= strI2 
    End Select
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.screen.PutString strIMXX, 1,1
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")   
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)        
        Sess0.screen.PutString strMemberIDr, 7,40 
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.screen.PutString "0108", 13,36        
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")

                   

Case 2     
    Select Case SearchPanel.OptionGroup1 'SELECT CASE OPTION GROUP
    Case 0
    strXX= strAH
    Case 1
    strXX= strI2 
    End Select

        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.screen.PutString strIMXX, 1,1
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")   
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)       
        Sess0.screen.PutString strMemberIDr, 7,40 
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.screen.PutString "0136", 13,36        
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")
    
Case 3     
    Select Case SearchPanel.OptionGroup1 'SELECT CASE OPTION GROUP
    Case 0
    strXX= strAH
    Case 1
    strXX= strI2 
    End Select
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.screen.PutString strIMXX, 1,1
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")   
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)       
        Sess0.screen.PutString strMemberIDr, 7,40 
        Sesss.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.screen.PutString "0170", 13,36        
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")

Case 4     
    Select Case SearchPanel.OptionGroup1 'SELECT CASE OPTION GROUP
    Case 0
    strXX= strAH
    Case 1
    strXX= strI2 
    End Select
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.screen.PutString strIMXX, 1,1
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")   
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)       
        Sess0.screen.PutString strMemberIDr, 7,40 
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.screen.PutString "0155", 13,36      
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")

       

Case 5     

    Select Case SearchPanel.OptionGroup1 'SELECT CASE OPTION GROUP

    Case 0
    strXX= strAH
    Case 1
    strXX= strI2 
    End Select

        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.screen.PutString strIMXX, 1,1
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")   
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)       
        Sess0.screen.PutString strMemberIDr, 7,40
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.screen.PutString "0165", 13,36       
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")  

Case 6     

    Select Case SearchPanel.OptionGroup1 'SELECT CASE OPTION GROUP
    Case 0
    strXX= strAH
    Case 1
    strXX= strI2 
    End Select

        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.screen.PutString strIMXX, 1,1
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")   
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)       
        Sess0.screen.PutString strMemberIDr, 7,40 
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.screen.PutString "0151", 13,36        
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")  

Case 7     

    Select Case SearchPanel.OptionGroup1 'SELECT CASE OPTION GROUP

    Case 0
    strXX= strAH
    Case 1
    strXX= strI2 
    End Select

        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.screen.PutString strIMXX, 1,1
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")   
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)       
        Sess0.screen.PutString strMemberIDr, 7,40 
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.screen.PutString "0144", 13,36        
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")                   

Case 7     

    Select Case SearchPanel.OptionGroup1 'SELECT CASE OPTION GROUP
    Case 0
    strXX= strAH
    Case 1
    strXX= strI2 
    End Select
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.Screen.Sendkeys("<Clear>")
        Sess0.screen.PutString strIMXX, 1,1
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")   
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)       
        Sess0.screen.PutString strMemberIDr, 7,40 
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.screen.PutString "0138", 13,36        
        Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
        Sess0.Screen.Sendkeys("<Enter>")              

Case 8   
Case 9
Case 10  
Case 11 
Case 12   
Case 13
Case 14   
Case 15
Case 16   
Case 17
Case 18 
Case 19 'USE SENDKEY ,<ENTER> TO MOVE TO NEXT SCREEN
Case 20 'CLOSE THE SearchPanel DIALOGBOX

End Select

End Sub 'ENDS SUB MAIN()
 
Sort by date Sort by votes
hehe...found the answer in the forums, guess i wasnt looking hard enough!
 
Upvote 0 Downvote


Hi,

It is both customary and courteous to share your solution with other Tek-Tip members who will be browsing this forum.

Skip,

[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

247xavi
  • Locked
  • Question
Attachmate to BlueZone
Replies
0
Views
179
247xavi
247xavi
Daneyuleb
  • Locked
  • Question
Waitfortext1 -- How on earth does the RegularExpression option work?
Replies
2
Views
223
SkipVought
S
S
  • Locked
  • Question
Reflection Workspace extract all screen/pages
Replies
0
Views
368
SSS27
S
nightrider69
  • Locked
  • Question
Micro mainframe transmission issues using Attachmate myExtra
Replies
0
Views
206
nightrider69
nightrider69
Mike.and.H
  • Locked
  • Question
How to display date in EXTRA! X-treme window status bar?
Replies
0
Views
148
Mike.and.H
Mike.and.H

Part and Inventory Search

Sponsor

Back
Top