Solved

run an application in fi\ull screen

Posted on 2003-10-25
9
168 Views
Last Modified: 2010-05-03
Dear Experts,

Is there a way to run an application of visual basic in full screen?

I mean that I do not want to show the start menu, so the user can not do anything on the work station, only the application, he can not use any short cut to open explorer or find or …

And if no with VB6 is it with VB.NET?

And if it is possible can I run this application when the windows 2000 is not Logged on.

Thanks in advance

0
Comment
Question by:LeDaouk
[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
9 Comments
 
LVL 19

Expert Comment

by:Desp
ID: 9620395
just download this:
http://www.codearchive.com/vbasic/HideShowTaskBar.zip
and then set your form propert to full screen
0
 
LVL 19

Expert Comment

by:Desp
ID: 9620416
also change Form' s
BorderStyle to None
and
Windowstate to Maximised

you cannot run this application when the windows 2000 is not Logged on.. Only services can run at that time..
0
 
LVL 4

Author Comment

by:LeDaouk
ID: 9621866
Sorry, I could not access this link

I what I want is not just to maximize the form
I want to run it in full mode as the user can not do anything else working on this application

any comment ?
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 2

Expert Comment

by:Discofish
ID: 9622359
LeDaouk,

Do what Desp suggested.  Then, you can disable keys that you don't want the user to be able to press. What OS is this program designed for?
0
 
LVL 19

Expert Comment

by:Desp
ID: 9624803
0
 
LVL 1

Accepted Solution

by:
s_sarigul earned 250 total points
ID: 9625546
Option Explicit

Dim hWnd1 As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Private Sub Command1_Click()
'HIDING TASK BAR
     hWnd1 = FindWindow("Shell_traywnd", "")
     Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

Private Sub Command2_Click()
SHOWING TASKBAR
     Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

private sub form_load()
   'TRY THIS
    me.WindowState=2
   'OR
    me.width=screen.width
    me.height=screen.height
end Sub
0

Featured Post

PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

Question has a verified solution.

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

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

738 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