RESIZE EM TABSTRIP
Pessoal
Tenho um TabStrip que é um control de usuario que achei na net (não recordo onde)
O problema é seguinte:
- TabStrip tem cinco tabs e dentro de cada tab vários controles.
- Tenho um control que redimenciona o Form e objetos
- O formulario e o objetos são redimencimencionado normalmente da tab que abre ativa quando carrega o form, mas, os controles das outras tabs ficam invisivel.
alguém ai sabe como resolver isso?
Jair
Tenho um TabStrip que é um control de usuario que achei na net (não recordo onde)
O problema é seguinte:
- TabStrip tem cinco tabs e dentro de cada tab vários controles.
- Tenho um control que redimenciona o Form e objetos
- O formulario e o objetos são redimencimencionado normalmente da tab que abre ativa quando carrega o form, mas, os controles das outras tabs ficam invisivel.
alguém ai sabe como resolver isso?
Jair
Bom, como vc mesmo sabe, é um controle personalizado, ou vc pega o código dele e arruma, ou usa outro controle...
Jair2002
verifica se nesse controle que baixou o TABSTRIP não esta com alguma rotina que o deixa invisivel quando ativa o form
ou posta seu código aqui para verificarmos
verifica se nesse controle que baixou o TABSTRIP não esta com alguma rotina que o deixa invisivel quando ativa o form
ou posta seu código aqui para verificarmos
Pessoal obrigado pela ajuda,
é o seguinte já tentei vários controles entre eles o xTab o problema e que quando ocorre o resize os controles que estão nas outras abas ficam invisivel.ou por baixo da Tab não sei.
usei tambem esse codigo que encotrei na net
Public Function ResizeAll(FormName As Form)
Dim tmpControl As Control
[ô]If a control doesnot have width or height property then
[ô]ignore it and continue with next control on the form
On Error Resume Next
[ô]If the previous form width was 0
[ô]Which means that this function wasn[ô]t run before
[ô]then change prevresize x and y and exit function
If PrevResizeX = 0 Then
PrevResizeX = FormName.ScaleWidth
PrevResizeY = FormName.ScaleHeight
Exit Function
End If
[ô]looping till all the controls on the form are covered
For Each tmpControl In FormName
tmpControl.Left = tmpControl.Left / PrevResizeX * FormName.ScaleWidth
tmpControl.Top = tmpControl.Top / PrevResizeY * FormName.ScaleHeight
tmpControl.Width = tmpControl.Width / PrevResizeX * FormName.ScaleWidth
tmpControl.Height = tmpControl.Height / PrevResizeY * FormName.ScaleHeight
Next tmpControl
[ô]setting the Prevsize to the current form width and height
PrevResizeX = FormName.ScaleWidth
PrevResizeY = FormName.ScaleHeight
End Function
no resize do form mas continua acontecedo a mesma coisa
quero que redimencione todos os objetos do form e que tambem os objetos que estão dentro das demais tabs fiquem visiveis o que não estar acontecendo.
é o seguinte já tentei vários controles entre eles o xTab o problema e que quando ocorre o resize os controles que estão nas outras abas ficam invisivel.ou por baixo da Tab não sei.
usei tambem esse codigo que encotrei na net
Public Function ResizeAll(FormName As Form)
Dim tmpControl As Control
[ô]If a control doesnot have width or height property then
[ô]ignore it and continue with next control on the form
On Error Resume Next
[ô]If the previous form width was 0
[ô]Which means that this function wasn[ô]t run before
[ô]then change prevresize x and y and exit function
If PrevResizeX = 0 Then
PrevResizeX = FormName.ScaleWidth
PrevResizeY = FormName.ScaleHeight
Exit Function
End If
[ô]looping till all the controls on the form are covered
For Each tmpControl In FormName
tmpControl.Left = tmpControl.Left / PrevResizeX * FormName.ScaleWidth
tmpControl.Top = tmpControl.Top / PrevResizeY * FormName.ScaleHeight
tmpControl.Width = tmpControl.Width / PrevResizeX * FormName.ScaleWidth
tmpControl.Height = tmpControl.Height / PrevResizeY * FormName.ScaleHeight
Next tmpControl
[ô]setting the Prevsize to the current form width and height
PrevResizeX = FormName.ScaleWidth
PrevResizeY = FormName.ScaleHeight
End Function
no resize do form mas continua acontecedo a mesma coisa
quero que redimencione todos os objetos do form e que tambem os objetos que estão dentro das demais tabs fiquem visiveis o que não estar acontecendo.
Alguém !!
Pessoal,
Agradeço aos que tentaram ajudar, conseguir resolver o problema com uma classe que encontrei na net.
grato.
Agradeço aos que tentaram ajudar, conseguir resolver o problema com uma classe que encontrei na net.
grato.
Tópico encerrado , respostas não são mais permitidas