common sub to make different Form full screen

Discussion in 'Questions (Windows Mobile)' started by mozaharul, Nov 5, 2008.

  1. mozaharul

    mozaharul Active Member Licensed User

    Hi,

    I have 50 different Forms. Some with sequential name like Form1,Form2 and some like Form1a,Form1b. Is it possible to use a common sub to make all 50 Forms full screen using a common sub program ? like :

    Sub x_show ()
    flb.New1("x",B4PObject(1))
    If cPPC Then
    flb.FullScreen2(False,True)
    End If
    End Sub

    The click event of a button will assign Form name to x (x=Form1) and pass to the sub.

    regards,
     
    Last edited: Nov 5, 2008
  2. klaus

    klaus Expert Licensed User

    Your subroutine should look like this
    Code:
    Sub x_show (x)
      
    If cPPC Then
        flb.New1(
    "x",B4PObject(1))
        flb.FullScreen2(
    False,True)
      
    End If 
    End Sub
    and the call routine
    Code:
    x_show("Form1")
    Best regards.
     
  3. mozaharul

    mozaharul Active Member Licensed User

    Hi klaus,

    Thanks for the quick response, its working.

    best regards,
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice