DIMENSIONAMENTO DE FORM VB-6

DANLEONHART 31/12/2010 13:22:01
#360785
Pessoal...
Quero deixar meu form configurado para quando chegar em determinada Largura & Altura (Width $ Height), não seja possível encolher mais que o determinado...
Tipo assim:
Form começa com Height=5000 & Width=3000
Se o usuário começar a diminuir o form aceitará até o permitido...

Já bolei a Condição, só não encontrei o bloqueio...

If Form.Heigth = 800 Then
????????????????????
Elseif Form.Widht = 500 Then
????????????????????
End If


Onde as interrogações é o código que tem de ser usado para impedir que o form fique menor do que já está...
TECLA 31/12/2010 13:35:26
#360786
Tente assim:

Private Sub Form_Resize()
    If Me.Height < 4000 Or Me.Width < 4000 Then
        Me.Height = 4000
        Me.Width = 4000
    End If
End Sub
DANLEONHART 31/12/2010 17:39:23
#360807
Já tentei, e não funcionou... fica desfocando, desfocando e finda permitindo diminuir...
a idéia é fazer com que o form fique com o dimensionamento travado...
Tentei:
   
If Me.Height < 4000 Or Me.Width < 4000 Then
        Me.BorderStyle = 1
    End If


Onde o [Ô]BorderStyle = Fixed Single[Ô], deixando o form sem redimensionamento... mas não funfou também...
GOMES1980 31/12/2010 21:51:14
#360814
No Resize do form coloque em ifs separados, comigo sempre deu certo, não sei porque:

Não se esqueça do on error resume next antes

If Me.Height < 4000 Then Me.Height = 4000
If Me.Width < 4000 Then Me.Height = 4000
DANLEONHART 31/12/2010 23:00:39
#360815
O problema é somente o desfoque que fica nas abas quando se insiste em reduzir o form...
mas realmente funciona...
ADRIANOM 01/01/2011 02:34:31
#360817 Resposta escolhida
Feliz ano novo parceiro

olha se esse link te ajuda..
http://www.vbweb.com.br/download.asp?Download=Projetos&Modulo=VB&CodigoLink=86
DANLEONHART 01/01/2011 14:19:26
#360825
Valeu AdrianoM !

Era isso mesmo
Cara ! mais uma vez API[ô]s ! sinceramente detesto trabalhar com API[ô]s... mas tenho consciencia que para interagir diretamente com o sistema elas são fundamentais.

Meu desamor por elas é que não as compreendo muito...alguém sabe de alguma Apostila totalmente voltada para API ( Visual Basic 6.0)

Obrigado a todos !
ADRIANOM 01/01/2011 19:56:36
#360830
Caro amigo Danleonhart

Quando tenho uma dúvida, eu garimpo a net em busca de uma solução... mas quando não consigo posto aqui a pergunta... em uma dessas garimpadas achei algo similar ao seu... nada mais humano do que te passar...

Caso esteja satisfeito.. encerre e me pontue...
Obrigado!!!
MARCOSLING 01/01/2011 20:24:25
#360834
nesse caso, API é a solução mais elegante.
Tópico encerrado , respostas não são mais permitidas
Voltar