Registrovat    Přihlášení
Domů Odkazy Fórum Ke stažení Web hosting Registrace do katalogů
Přihlásit
Jméno:

Heslo:

Pamatuj si mně



Zapomenuté heslo

Nová registrace
Partner a hosting webu
zserver.cz
Spolupráce
Odkazy
česká sociální síť rexVoX.com
Informace a projekty na rodinné domy naleznete v našem blogu.

Navštívit můžete také pasivní rodinné domy - dřevostavby, kde naleznete informace o pasivních stavbách.



Kategorie a fóra
Různé : VB .net - externí aplikace do popředí - předání focus
Napsal/a Kozoroh dne 25. 11. 2009 23:25:59 (1544 x otevřeno) Články od stejného autora





* Ohlásit tento příspěvek
* Odpovědět s citací

VB .net - externí aplikace do popředí - předání focus

Odeslatod Kozoroh v Úte 04. Zář, 2007 23:30
Někdy je potřeba přenést externí aplikaci do popředí - předat jí focus. Např. při ukončování externího programu, atd.

Pozor některé programy mají více procesů, je potřeba zvolit správný proces.

    Dim PrevHndl As Long
                'zjištění, zda je ukončen program - proces
                Dim mojeProcesses() As Process
                Dim mujProcess As Process
                mojeProcesses = Process.GetProcesses
                For Each mujProcess In mojeProcesses
                    If mujProcess.ToString = "System.Diagnostics.Process (jmeno_procesu)" Then

                        If MsgBox("Program xxx není ještě pravděpodobně ukončen. Jestliže jej chcete ukončit nyní zvolte ANO, pro přerušení  zvolte NE", MsgBoxStyle.YesNo) = DialogResult.Yes Then

    'preneseni do popredi
                            PrevHndl = mujProcess.MainWindowHandle.ToInt32()
                            SetForegroundWindow(PrevHndl)
                            'MsgBox(PrevHndl)

                            Sleep(1000) 'pockame 1 s
                            mujProcess.CloseMainWindow() 'ukonceni ext. programu
                            mujProcess.Close() 'ukonceni ext. programu

                            Sleep(8000) 'pockame 8 s

    Else
                            MsgBox("zprava")
                            Exit Sub
                        End If
                    End If
                Next
                          

Známka: 0.00 (0 hlasů) - Oznámkuj tyto články -


Jiné články
23. 9. 2011 14:44:42 - GoPay - akční nabídka 2011
10. 12. 2010 10:40:00 - Postupy Joomla II. - hacky kódu apod. - vložení článků - automatické schválení bez kontroly administrátora
13. 11. 2010 20:10:00 - Postupy Joomla - hacky kódu apod. adsmanager, sobi2, captcha
30. 8. 2010 21:50:00 - Zajímavé stránky a skripty - PHP, MYSQL, Javascript
17. 4. 2010 14:14:59 - Kalkulačka v html a javascriptu s polem pro poznámky

Za obsah komentáře zodpovídá jeho pisatel. Komentář vyjadřuje jeho názory, ne názory a postoje provozovatelů webu.
Komentuje Vlákno
JardaR
Zasláno: 4. 11. 2005 20:08  Aktualizováno: 4. 11. 2005 20:08
Webmaster
Reg: 29. 8. 2005
Z: Louny
Příspěvků: 1888
 Re: SignupSplit
Nějak ten popis nechápu. Trochu jinak pro blbé.
Odkazy



Zen-Cart ke stažení

Vyšel nový Zencart 1.5.0

Originální moduly můžete stahovat na
www.zen-cart.com

Reklama
Nejaktivnější autoři
1 Melodic
Melodic
1002997
2 Kozoroh
Kozoroh
2124
3 JardaR
JardaR
1888
4 garden
garden
1419
5 Nismo
Nismo
1389
6 hbxx 1131
7 jandik01
jandik01
1070
8 PeterB
PeterB
1017
9 Dedek
Dedek
990
10 bambulko
bambulko
775