Solved

run an application in fi\ull screen

Posted on 2003-10-25
9
164 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
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
Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

 
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

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.

Question has a verified solution.

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

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
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…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

777 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