Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 45
  • Last Modified:

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

Hwo can I prevent to minimise when I click a button on it.

Cheers
0
RIAS
Asked:
RIAS
  • 6
  • 5
1 Solution
 
it_saigeDeveloperCommented:
A button?  Can you provide an example?

-saige-
0
 
RIASAuthor Commented:
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
 
it_saigeDeveloperCommented:
What is the code used for the runtime button click event?

-saige-
0
Get your Conversational Ransomware Defense e‑book

This e-book gives you an insight into the ransomware threat and reviews the fundamentals of top-notch ransomware preparedness and recovery. To help you protect yourself and your organization. The initial infection may be inevitable, so the best protection is to be fully prepared.

 
RIASAuthor Commented:
  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
 
it_saigeDeveloperCommented:
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
 
RIASAuthor Commented:
When I create a runtime form , the previously created runtime form minmises

  Dim objFrm2 As New FrmInvoices(AddrowinForm, True) 

Open in new window

0
 
it_saigeDeveloperCommented:
What is the code for your FrmInvoices?

-saige-
0
 
RIASAuthor Commented:
It just passes the values from the class to it.
0
 
it_saigeDeveloperCommented:
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
 
RIASAuthor Commented:
Yes Sir, Will try to work it out with your guidance.

Thanks
0
 
RIASAuthor Commented:
Cheers!
0

Featured Post

Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

  • 6
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now