Jump to content
a3deluxe

Janela Form com TopMoust

Recommended Posts

a3deluxe

Boas,

Precisava de uma ajudinha,

Na Minha Form coloquei TopMost = True para que o form fique sempre por cima das outras Janelas de outros aplicativos,

A Form esta a chamar uma Picturebox em fullscrenn

Mas na realidade não esta a acontecer para a barra do iniciar.

o que podera ser?

cumps

Share this post


Link to post
Share on other sites
ruiribeiro

é em c# mas dá para ver como é:

           this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
           this.TopMost = true;
           this.WindowState = FormWindowState.Maximized;

Edited by thoga31
GeSHi

.NET/T-SQL, JAVA, PHP, Javascript Developer | Business Intelligence | Gestão de Sistemas de Informação Empresariais

Share this post


Link to post
Share on other sites
a3deluxe

Boas,

Não é em VB.net

esta definido nas propriedades da Form - true

quando arranca a picturebox em fullscrenn aparece a barra no iniciar.

tenho que clicar sobre a picturebox para ela ficar sobreposta ao menu.

cumps

Share this post


Link to post
Share on other sites
Dotinho

Boas,

Em primeiro lugar, o topmost é apenas sobre outras aplicações, para sobrepor á barra iniciar, tens que usar a propriedade fullscreen, que é mais ou menos isto:

   Public Sub New()
    ' This call is required by the designer.
    InitializeComponent()
    Me.TopMost = True
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
    ' Add any initialization after the InitializeComponent() call.
   End Sub


Luis Lourenço

Share this post


Link to post
Share on other sites
a3deluxe

Dotinho

muito obrigado pela ajuda,

não sei bem onde colocar o código que me inicas-te, será aqui???

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Shell("C:\Program Files\Microsoft Virtual PC\Virtual PC.exe", AppWinStyle.MinimizedFocus, False, -1)

       ' This call is required by the designer.
       janela()
       Me.TopMost = True
       Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
       Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
       ' Add any initialization after the InitializeComponent() call.

   End Sub

outra questão se me podessem ajudar era com o seguinte código:

queria que o Virtual PC inicializa-se Minimizado, não ficando visivel.

  Public Sub Minizewindow(ByVal processoname As String)

       For Each p As Process In Process.GetProcessesByName(processoname)
           ShowWindow(p.MainWindowHandle, SHOW_window.SW_HIDE)
       Next p
       Exit Sub
   End Sub

Edited by thoga31
Tags code + GeSHi

Share this post


Link to post
Share on other sites
Dotinho

Boas,

O código está no sitio certo, basicamente puses-te no mesmo sitio que eu, mas de forma diferente.

Em relação á minização de uma aplicação não sei..

Mas podes ensaiar o que está neste link: http://bytes.com/topic/visual-basic-net/answers/382333-how-minimize-maximize-external-running-program-through-my-vb-net-application

Private Declare Function ShowWindow Lib "user32.dll" ( _
ByVal hWnd As IntPtr, _
ByVal nCmdShow As SHOW_WINDOW _
) As Boolean


<Flags()> _
Private Enum SHOW_WINDOW As Integer
SW_HIDE = 0
SW_SHOWNORMAL = 1
SW_NORMAL = 1
SW_SHOWMINIMIZED = 2
SW_SHOWMAXIMIZED = 3
SW_MAXIMIZE = 3
SW_SHOWNOACTIVATE = 4
SW_SHOW = 5
SW_MINIMIZE = 6
SW_SHOWMINNOACTIVE = 7
SW_SHOWNA = 8
SW_RESTORE = 9
SW_SHOWDEFAULT = 10
SW_FORCEMINIMIZE = 11
SW_MAX = 11
End Enum

Private Sub MaximizeAllNotepads()
For Each p As Process In Process.GetProcessesByName("notepad")
ShowWindow(p.MainWindowHandle, SHOW_window.SW_MAXIMIZE)
Next p
End Sub

Edited by Dotinho

Luis Lourenço

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.