Prikazi cijelu temu 15.02.2014 08:58
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Ili možda isto sa VBA
Pa evo ovako.
Kod je sliedeći_
PreuzmiIzvorni kôd (vbnet):
  1. Option Compare Database
  2. Option Explicit
  3. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  4. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  5. Const WM_CLOSE = &H10
  6.  
  7. Function OtvoriFolder()
  8. Dim ImeFoldera As String
  9. ImeFoldera = "D:"
  10.  
  11. Shell "C:\WINDOWS\explorer.exe """ & ImeFoldera & "", vbNormalFocus
  12.  
  13. End Function
  14.  
  15. Function ZatvoriFolder()
  16. Dim winHwnd As Long
  17. Dim RetVal As Long
  18. Dim ImeFoldera As String
  19. ImeFoldera = "D:"
  20. winHwnd = FindWindow(vbNullString, ImeFoldera)
  21. If winHwnd <> 0 Then
  22. PostMessage winHwnd, WM_CLOSE, 0&, 0&
  23. Else
  24. MsgBox "NIJE OTVOREN"
  25. End If
  26. End Function

Ovo sam spremio u jedan modul.
zatim sam napravo makor kojem sam dao ime Autoexec, tako da se pokrene pri otvaranju aplikacije.
Makro ima dvije naredbe
RunCode
Function Name: OtvoriFolder()
i
OpenForm
Form Name: npr. Login Forma

I sad na formi koja se prva otvara na OnClose napisao sam
Call ZatvoriFolder.

E sada opet dolazi problem. Na poslu sam na WindowsXP i sve radi OK, a sada sam kod kuće i tu imam Windows 7 i kada se podigne prozor na njemu ne piÅ¡e ime kao u Win Xp.
Tako da opet neće da se zatvori.
Pozdrav