[es] - Moduli za resize forme i hide (access) window

sule99
student

Član broj: 227708
Poruke: 93
*.dsl.iskon.hr.

+1 Profil

Moduli za resize forme i hide (access) window

^{23.11.2009. u 14:10 - pre 175 meseci}

ova dva modula (za resize forme (prilagođavanje rezoluciji) i hide access window) sam pronašao tu na forumu i iskoristio na svojoj formi. I sada sam primjetio da resize funcionira, a skrivanje access prozora više ne funkcionira. Neznam da li je netko pokušao koristiti ova dva modula zajedno na nekoj formi na on load forme, pa me zanima kako to izbječi, odnosno kako napraviti da funkcionira i jedno i drugo. Da li bi problem mogao biti što sam stvorio dva odvojena modula za svaku funkciju ili to ne bi trebalo imati nikakvog utjecaja?

Odgovor na temu

sule99
student

Član broj: 227708
Poruke: 93
*.dsl.iskon.hr.

+1 Profil

Re: Moduli za resize forme i hide (access) window

^{24.11.2009. u 10:25 - pre 175 meseci}

pošto je ovo što radim dio jednog većeg programa koji je prodan, ne smijem stavljati tu na forum. ali objasnim malo detaljnije. za prilagodbu na rezoluciju ekrana sam koristio kod sa ovog mjesta http://www.elitesecurity.org/t68006-0#433181 (samo promjeniš u kodu postavke za rezoluciju, sve je objašnjeno tamo i na on load forme staviš ReSizeForm Me). za skrivanje glavnog prozora sam koristio sljedeći modul:

Option Compare Database
Option Explicit

'************ Code Start **********
'
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
' Call fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' Call fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' Call fSetAccessWindow(SW_HIDE)
'Normal window:
' Call fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If err <> 0 Then 'no Activeform
loX = apiShowWindow(hWndAccessApp, nCmdShow)
err.Clear
End If
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function

'************ Code End **********

Od zakomentiranih poziva funkcija s početka ovog koda također na onload fome sam stavio Call fSetAccessWindow(SW_HIDE).

Još je bitno (barem sam ja tako shvatio) da forma treba biti na on load maksimizirana, tj. treba dodati u kodu na on load forme još docmd.Maximize. tek kad se to napravi onda će se forma prilagođavati rezoluciji ekrana (mjenjat će se veličina kontrola, teksta, prozora i sve šta treba automatski).

od opcija na formi sam stavio da je Pop up -> yes, i Modal -> No, Min Max buttons -> Max Enabled (ovo zadnje za max je isto jako važno, skužit ćeš već zašto)

i sad mi radi dobro, jedino se može u bilo kojem trenutko desnim klikom na formu otvoriti design view, ali ja napravim .accdr fajl i onda toga nema kod korisnika.

to bi bilo to. ako nešto ostane ne jasno samo pitaj.

Odgovor na temu