Solved

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

Posted on 2016-11-21
11
34 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
  • 6
  • 5
11 Comments
 
LVL 33

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 33

Expert Comment

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

-saige-
0
Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

 

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 33

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 33

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 33

Accepted Solution

by:
it_saige earned 500 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

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
VB.NET 2008 - SQL Timeout 9 34
location of a form 2 25
vb.net cycle through results of a sql query and capture variables 3 18
System.net.Sockets Error 5 26
Wouldn’t it be nice if you could test whether an element is contained in an array by using a Contains method just like the one available on List objects? Wouldn’t it be good if you could write code like this? (CODE) In .NET 3.5, this is possible…
Today I had a very interesting conundrum that had to get solved quickly. Needless to say, it wasn't resolved quickly because when we needed it we were very rushed, but as soon as the conference call was over and I took a step back I saw the correct …
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…

808 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