AUTO RESIZE

ALEXLUGON 01/11/2009 15:25:58
#326693

Gostaria de uma ajuda de vcs, estou usando a classe que segue e esta funcionando mas quando insiro um ImageList da erro, com faço para corrigir isso?

[Ã´] ======================================================================================== [Ã´]
[Ã´] Componente: clsResize Creata: 18/11/2002 [Ã´]
[Ã´] Nome del File: clsResize.cls Autore: Massimiliano Mazzoli [Ã´]
[Ã´] [Ã´]
[Ã´] Scopo: Ridimensionare e Riposizionare tutti i controlli all[Ã´]interno di una form [Ã´]
[Ã´] ======================================================================================== [Ã´]
[Ã´] Commenti: la classe Ã¨ stata creata prendendo spunto da altre due trovate in internet. [Ã´] [Ã´]
[Ã´] ======================================================================================== [Ã´]

Option Explicit
[Ã´] ======================================================================================== [Ã´]
[Ã´] Dichiarazione API. [Ã´]
[Ã´] ======================================================================================== [Ã´]
[Ã´] Questa API previene dall[Ã´]aggiornamento della Form in determinate situazione
Private Declare Function LockWindowUpdate Lib [Ã”]user32.dll[Ã”] (ByVal hwndLock As Long) As Long

[Ã´] ======================================================================================== [Ã´]
[Ã´] Dichiarazioni Costanti. [Ã´]
[Ã´] ======================================================================================== [Ã´]
Private Const ssTabOffset = -75000 [Ã´] Offeset per i controlli ssTab

[Ã´] ======================================================================================== [Ã´]
[Ã´] Dichiarazioni Tipi. [Ã´]
[Ã´] ======================================================================================== [Ã´]
Private Type udtControlloDati
lngLeft As Long [Ã´] Valore iniziale della proprietÃ Left del controllo
lngTop As Long [Ã´] Valore iniziale della proprietÃ Top del controllo
lngWidth As Long [Ã´] Valore iniziale della proprietÃ Width del controllo
lngHeight As Long [Ã´] Valore iniziale della proprietÃ Height del controllo
lngIndex As Long [Ã´] Contiene il numero progressivo del controllo all[Ã´]interno della form
lngLevel As Long [Ã´] Contiene il livello del controllo all[Ã´]interno di un container
lngGrigliaWidth As Integer [Ã´] Contiene l[Ã´]ampiezza della griglia qual[Ã´]ora lo sia
lngGrigliaTag As String [Ã´] Contiene il valore contenuto nel campo Tag
lngContainerWidth As Long [Ã´] Contiene la larghezza del container che contiene l[Ã´]oggetto
lngContainerHeight As Long [Ã´] Contiene l[Ã´]altezza del container che contiene l[Ã´]oggetto
End Type

[Ã´] ======================================================================================== [Ã´]
[Ã´] Dichiatazioni Enumerazioni. [Ã´]
[Ã´] ======================================================================================== [Ã´]

[Ã´] ======================================================================================== [Ã´]
[Ã´] Dichiarazioni Eventi. [Ã´]
[Ã´] ======================================================================================== [Ã´]

[Ã´] ======================================================================================== [Ã´]
[Ã´] Dichiarazioni Variabili Pubbliche. [Ã´]
[Ã´] ======================================================================================== [Ã´]

[Ã´] ======================================================================================== [Ã´]
[Ã´] Dichiarazioni Variabili Private. [Ã´]
[Ã´] ======================================================================================== [Ã´]
Private ctrControlli() As udtControlloDati [Ã´] Contiene tutti i controlli della Form
Private lngFormWidthMin As Long [Ã´] Contiene la larghezza minima della Form oltre il quale non si puÃ² ridimensionare
Private lngFormHeightMin As Long [Ã´] Contiene l[Ã´]altezza minima della Form oltre il quale non si puÃ² ridimensionare

[Ã´] ========================================================================================= [Ã´]
[Ã´] Routine: Class_Initialize Creata: 18/11/2002 [Ã´]
[Ã´] VisibilitÃ : Private Autore: Massimiliano Mazzoli [Ã´]
[Ã´] Descrizione: Costruttore utilizzato quando viene creata un[Ã´]istanza della classe, [Ã´]
[Ã´] cioÃ¨ un oggetto. [Ã´]
[Ã´] ========================================================================================= [Ã´]
Private Sub Class_Initialize()
Erase ctrControlli
lngFormHeightMin = 0
lngFormWidthMin = 0
End Sub

[Ã´] ======================================================================================== [Ã´]
[Ã´] Routine: Class_Terminate Creata: 18/11/2002 [Ã´]
[Ã´] VisibilitÃ : Private Autore: Massimiliano Mazzoli [Ã´]
[Ã´] Descrizione: Distruttore usato quando un[Ã´]istanza di questa classe Ã¨ distrutta. [Ã´]
[Ã´] ======================================================================================== [Ã´]
Private Sub Class_Terminate()
Erase ctrControlli
lngFormHeightMin = 0
lngFormWidthMin = 0
End Sub

[Ã´] ========================================================================================= [Ã´]
[Ã´] Routine: Inizializza Creata: 18/11/2002 [Ã´]
[Ã´] VisibilitÃ : Public Autore: Massimiliano Mazzoli [Ã´]
[Ã´] Descrizione: Memorizza le dimensioni e le posizioni di tutti i controlli inseriti nella [Ã´]
[Ã´] Form. [Ã´]
[Ã´] ========================================================================================= [Ã´]
Public Sub Inizializza(ByRef frmForm As Form, _
Optional lngHeightMin As Long = 0, _
Optional lngWidthMin As Long = 0)

Dim lngCont01 As Long
Dim lngLeft As Long
Dim lngCont02 As Long
Dim ctrControlloTemp As udtControlloDati
Dim strTag As String

If (lngHeightMin <> 0) Then
lngFormHeightMin = lngHeightMin
End If

If (lngWidthMin <> 0) Then
lngFormWidthMin = lngWidthMin
End If

Erase ctrControlli

ReDim ctrControlli(0 To (frmForm.Controls.Count - 1))

For lngCont01 = 0 To frmForm.Controls.Count - 1

ctrControlli(lngCont01).lngIndex = lngCont01
ctrControlli(lngCont01).lngGrigliaWidth = -1
ctrControlli(lngCont01).lngGrigliaTag = [Ã”][Ã”]
ctrControlli(lngCont01).lngLevel = LivelloConta(frmForm.Controls(lngCont01))
ctrControlli(lngCont01).lngContainerHeight = frmForm.Controls(lngCont01).Container.Height
ctrControlli(lngCont01).lngContainerWidth = frmForm.Controls(lngCont01).Container.Width

If (TypeOf frmForm.Controls(lngCont01) Is Line) Then
ctrControlli(lngCont01).lngLeft = frmForm.Controls(lngCont01).X1
ctrControlli(lngCont01).lngTop = frmForm.Controls(lngCont01).Y1
ctrControlli(lngCont01).lngWidth = frmForm.Controls(lngCont01).X2
ctrControlli(lngCont01).lngHeight = frmForm.Controls(lngCont01).Y2
Else
On Error Resume Next
lngLeft = frmForm.Controls(lngCont01).Left

If (lngLeft < 0) Then
lngLeft = Abs(ssTabOffset - frmForm.Controls(lngCont01).Left)
End If

ctrControlli(lngCont01).lngLeft = lngLeft
ctrControlli(lngCont01).lngTop = frmForm.Controls(lngCont01).Top
ctrControlli(lngCont01).lngWidth = frmForm.Controls(lngCont01).Width
ctrControlli(lngCont01).lngHeight = frmForm.Controls(lngCont01).Height

strTag = TagEstrai(frmForm.Controls(lngCont01).Tag, [Ã”]rs=[Ã”])
strTag = UCase(strTag)

If (CBool(InStr(strTag, [Ã”]G[Ã”]))) Then

ctrControlli(lngCont01).lngGrigliaWidth = frmForm.Controls(lngCont01).Width

For lngCont02 = 0 To frmForm.Controls(lngCont01).Cols - 1

ctrControlli(lngCont01).lngGrigliaTag = ctrControlli(lngCont01).lngGrigliaTag & Format(frmForm.Controls(lngCont01).ColWidth(lngCont02), [Ã”]00000[Ã”])

Next lngCont02

End If

End If

Next lngCont01

If (frmForm.Controls.Count > 0) Then
For lngCont01 = 0 To (frmForm.Controls.Count - 2)
For lngCont02 = lngCont01 + 1 To (frmForm.Controls.Count - 1)
If (ctrControlli(lngCont01).lngLevel > ctrControlli(lngCont02).lngLevel) Then
ctrControlloTemp = ctrControlli(lngCont01)
ctrControlli(lngCont01) = ctrControlli(lngCont02)
ctrControlli(lngCont02) = ctrControlloTemp
End If
Next lngCont02
Next lngCont01
End If

End Sub
[Ã´] ========================================================================================= [Ã´]
[Ã´] Routine: Ridimensiona Creata: 23/11/2002 [Ã´]
[Ã´] VisibilitÃ : Public Autore: Massimiliano Mazzoli [Ã´]
[Ã´] Descrizione: Ridimensiona i controlli posizionati su di una Form

FISH40 01/11/2009 18:38:06
#326705

Amigo Verifique Bem Suas Variaveis,Não Sou Tão Bom Com Essas Coisas ^^

ALEXLUGON 01/11/2009 20:25:38
#326713

Deixa eu te explicar melhor, a classe esta funcionando so não funciona quando o coloco um ImageList no form, ai da erro.

Como poço resolver esse problema.

MARCOLACERA 01/11/2009 20:58:26
#326714

Caro colega o controle ImageList não aceita redimensionamento, você tem que alterar a classe para que não aplique o processo no controle ImageList!

Citação:
For lngCont01 = 0 To frmForm.Controls.Count - 1

[Ã´]\\marco
If (TypeOf frmForm.Controls(lngCont01) Is ImageList) Then GoTo NaoAltera
[Ã´]//marco

ctrControlli(lngCont01).lngIndex = lngCont01
ctrControlli(lngCont01).lngGrigliaWidth = -1
ctrControlli(lngCont01).lngGrigliaTag = [Ã”][Ã”]
ctrControlli(lngCont01).lngLevel = LivelloConta(frmForm.Controls(lngCont01))
ctrControlli(lngCont01).lngContainerHeight = frmForm.Controls(lngCont01).Container.Height
ctrControlli(lngCont01).lngContainerWidth = frmForm.Controls(lngCont01).Container.Width

If (TypeOf frmForm.Controls(lngCont01) Is Line) Then
ctrControlli(lngCont01).lngLeft = frmForm.Controls(lngCont01).x1
ctrControlli(lngCont01).lngTop = frmForm.Controls(lngCont01).y1
ctrControlli(lngCont01).lngWidth = frmForm.Controls(lngCont01).X2
ctrControlli(lngCont01).lngHeight = frmForm.Controls(lngCont01).Y2
Else
On Error Resume Next
lngLeft = frmForm.Controls(lngCont01).Left

If (lngLeft < 0) Then
lngLeft = Abs(ssTabOffset - frmForm.Controls(lngCont01).Left)
End If

ctrControlli(lngCont01).lngLeft = lngLeft
ctrControlli(lngCont01).lngTop = frmForm.Controls(lngCont01).Top
ctrControlli(lngCont01).lngWidth = frmForm.Controls(lngCont01).Width
ctrControlli(lngCont01).lngHeight = frmForm.Controls(lngCont01).Height

strTag = TagEstrai(frmForm.Controls(lngCont01).Tag, [Ã”]rs=[Ã”])
strTag = UCase(strTag)

If (CBool(InStr(strTag, [Ã”]G[Ã”]))) Then

ctrControlli(lngCont01).lngGrigliaWidth = frmForm.Controls(lngCont01).Width

For lngCont02 = 0 To frmForm.Controls(lngCont01).Cols - 1

ctrControlli(lngCont01).lngGrigliaTag = ctrControlli(lngCont01).lngGrigliaTag & Format(frmForm.Controls(lngCont01).ColWidth(lngCont02), [Ã”]00000[Ã”])

Next lngCont02

End If

End If

[Ã´]\\marco
NaoAltera:
[Ã´]//marco

Next lngCont01

HARRY.POTTER 03/11/2009 22:33:41
#326862

Ou coloque um

on error goto proximo

e um label [Ã”]proximo[Ã”] antes do next, pois assim não há perigo de dar este erro quando você colocar outro componente (que não o imagelist) que não aceite redimensionamento...

on error goto proximo
For lngCont01 = 0 To frmForm.Controls.Count - 1
        ctrControlli(lngCont01).lngIndex = lngCont01
        ctrControlli(lngCont01).lngGrigliaWidth = -1
        ctrControlli(lngCont01).lngGrigliaTag = [Ã”][Ã”]
        ctrControlli(lngCont01).lngLevel = LivelloConta(frmForm.Controls(lngCont01))
        ctrControlli(lngCont01).lngContainerHeight = frmForm.Controls(lngCont01).Container.Height
        ctrControlli(lngCont01).lngContainerWidth = frmForm.Controls(lngCont01).Container.Width
        
        If (TypeOf frmForm.Controls(lngCont01) Is Line) Then
            ctrControlli(lngCont01).lngLeft = frmForm.Controls(lngCont01).x1
            ctrControlli(lngCont01).lngTop = frmForm.Controls(lngCont01).y1
            ctrControlli(lngCont01).lngWidth = frmForm.Controls(lngCont01).X2
            ctrControlli(lngCont01).lngHeight = frmForm.Controls(lngCont01).Y2
        Else
            On Error Resume Next
            lngLeft = frmForm.Controls(lngCont01).Left
            
            If (lngLeft < 0) Then
                lngLeft = Abs(ssTabOffset - frmForm.Controls(lngCont01).Left)
            End If

            ctrControlli(lngCont01).lngLeft = lngLeft
            ctrControlli(lngCont01).lngTop = frmForm.Controls(lngCont01).Top
            ctrControlli(lngCont01).lngWidth = frmForm.Controls(lngCont01).Width
            ctrControlli(lngCont01).lngHeight = frmForm.Controls(lngCont01).Height

            strTag = TagEstrai(frmForm.Controls(lngCont01).Tag, [Ã”]rs=[Ã”])
            strTag = UCase(strTag)
            
            If (CBool(InStr(strTag, [Ã”]G[Ã”]))) Then
            
                ctrControlli(lngCont01).lngGrigliaWidth = frmForm.Controls(lngCont01).Width
                
                For lngCont02 = 0 To frmForm.Controls(lngCont01).Cols - 1
                
                    ctrControlli(lngCont01).lngGrigliaTag = ctrControlli(lngCont01).lngGrigliaTag & Format(frmForm.Controls(lngCont01).ColWidth(lngCont02), [Ã”]00000[Ã”])
                
                Next lngCont02
            
            End If
            
        
        End If

proximo:
    Next lngCont01

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar