SCROLL X SETFOCUS
Pessoal é o seguinte:
Tenho um sistema que está usando um MDIForm
Onde chamo alguns FORMs
Um deles: frmUsers
Tem bastante campos Text e algumas Pictures
Sendo assim, para não ter problemas na visualização em micro com resolução 800x600, resolvi colocar um Scroll no Form.
Pesquisando aqui no site encontrei um código que "rola" o conteúdo de um picture, a qual eu coloquei todo o conteúdo do principais campos.
Testando em um projeto separado funciona perfeitamente.
Porém quando coloquei o mesmo código no projeto final
Ele dá erro num linha do FORM MDI (frmInicial)
Se eu comentar esta linha frmUsers.SetFocus, não dá erro, porém o form (frmUsers) não é carregado na tela, dentro do MDI.
O código que estou usando para executar o scroll é este:
O que o SetFocus tem haver com o Scroll?
Tenho um sistema que está usando um MDIForm
Onde chamo alguns FORMs
Um deles: frmUsers
Tem bastante campos Text e algumas Pictures
Sendo assim, para não ter problemas na visualização em micro com resolução 800x600, resolvi colocar um Scroll no Form.
Pesquisando aqui no site encontrei um código que "rola" o conteúdo de um picture, a qual eu coloquei todo o conteúdo do principais campos.
Testando em um projeto separado funciona perfeitamente.
Porém quando coloquei o mesmo código no projeto final
Ele dá erro num linha do FORM MDI (frmInicial)
frmUsers.Show
frmUsers.SetFocus
Se eu comentar esta linha frmUsers.SetFocus, não dá erro, porém o form (frmUsers) não é carregado na tela, dentro do MDI.
O código que estou usando para executar o scroll é este:
Dim iFullFormHeigth As Integer
Dim iDisplayHeight As Integer
iFullFormHeigth = 3765
iDisplayHeight = 1800
Me.Height = iDisplayHeight
With VScroll1
.Height = Me.ScaleHeight
.Min = 0
.Max = iFullFormHeigth - iDisplayHeight
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = .SmallChange
End With
O que o SetFocus tem haver com o Scroll?
Qual o número do erro ?
pq vc não usa
frmUsers.ZOrder 0
pq vc não usa
frmUsers.ZOrder 0
Tópico encerrado , respostas não são mais permitidas