Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

As soon as i click a button on the form,it mnimises.

Posted on 2016-11-21
11
Medium Priority
?
43 Views
Last Modified: 2016-11-23
Hwo can I prevent to minimise when I click a button on it.

Cheers
0
Comment
Question by:RIAS
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 5
11 Comments
 
LVL 34

Expert Comment

by:it_saige
ID: 41895928
A button?  Can you provide an example?

-saige-
0
 

Author Comment

by:RIAS
ID: 41895929
Its a runtime button created on the form.
As soon as i click on the form minmises.
The runtime button click event creates a runtime form
0
 
LVL 34

Expert Comment

by:it_saige
ID: 41895931
What is the code used for the runtime button click event?

-saige-
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

by:RIAS
ID: 41895933
  Private Sub LoadFrmInvoice(ByVal StrPosition As String)
        Dim StrGrossValue As String
        Dim dt As New DataTable
        StrGrossValue = TxtTotSpPayProactis.Text
        StrGrossValue = StrGrossValue.Replace(",", String.Empty)

        '************************New

        Dim GetRowFrorInvoice As New ClsSpPayProactis(Me.TxtInvNumberproc.Text,,,,, ,,, StrPosition,, ,,,,,, ,,,,,,,,
                                                 , ,,,,, , ObjMain_SpPayProactisID)

        dt = GetRowFrorInvoice.ClsSpPayProactis_FillDirectoryGrid(4, False)

        '**************************

        For Each dr As DataRow In dt.Rows
            'This is what I am doing now
            Dim AddrowinForm As New ClsSpPayProactis(dr.Item(dt.Columns("InvoiceNumber")),,,,, ,,, dr.Item(dt.Columns("Position")),, dr.Item(dt.Columns("TravelExpenseType")),,,,,, dr.Item(dt.Columns("GrossValue")),,,,,,,
                                               , dr.Item(dt.Columns("Description")), dr.Item(dt.Columns("Note")),,,,,, ObjMain_SpPayProactisID)
            Dim objFrm2 As New FrmInvoices(AddrowinForm, True)

            'Me.StartPosition = FormStartPosition.Manual

            'Me.Location = New Point(30,
            '30)  'Screen.GetWorkingArea(Me).Location
            Me.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - Me.Width) \ 2, 0)

            With objFrm2
                .StartPosition = FormStartPosition.Manual
                'Select Case StrPosition
                'Case 1
                If IntLocationBase = 0 Then

                    .Location = New Point(Me.Left, Me.Bottom + objFrm2.Top)

                    IntLocationBase = Me.Bottom + objFrm2.Height

                Else
                    .Location = New Point(Me.Left, IntLocationBase + objFrm2.Top)
                    IntLocationBase += objFrm2.Height
                End If
                .WindowState = FormWindowState.Maximized
                .Show()
            End With
        Next
    End Sub

Open in new window

0
 
LVL 34

Expert Comment

by:it_saige
ID: 41895981
Nothing that you have shown so far would produce this effect, there must be something else in your code that is causing this.

-saige-
0
 

Author Comment

by:RIAS
ID: 41895991
When I create a runtime form , the previously created runtime form minmises

  Dim objFrm2 As New FrmInvoices(AddrowinForm, True) 

Open in new window

0
 
LVL 34

Expert Comment

by:it_saige
ID: 41895994
What is the code for your FrmInvoices?

-saige-
0
 

Author Comment

by:RIAS
ID: 41895996
It just passes the values from the class to it.
0
 
LVL 34

Accepted Solution

by:
it_saige earned 2000 total points
ID: 41896000
What you are pointing to as a problem is not normal, it is not something that happens by default.  This is a case of something in your code that is causing the defect.  I cannot reproduce the issue based on the code that has been provided which means that you need to either create an example project (in the case where you are dealing with sensitive data) or provide more of your code.  I was asking for the FrmInvoices code (Designer and all).

-saige-
0
 

Author Comment

by:RIAS
ID: 41896004
Yes Sir, Will try to work it out with your guidance.

Thanks
0
 

Author Closing Comment

by:RIAS
ID: 41898935
Cheers!
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In my previous two articles we discussed Binary Serialization (http://www.experts-exchange.com/A_4362.html) and XML Serialization (http://www.experts-exchange.com/A_4425.html). In this article we will try to know more about SOAP (Simple Object Acces…
Real-time is more about the business, not the technology. In day-to-day life, to make real-time decisions like buying or investing, business needs the latest information(e.g. Gold Rate/Stock Rate). Unlike traditional days, you need not wait for a fe…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

721 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question