Sabe como é: Aplicações profissionais requerem alguns cuidados como o de deixar a estação de trabalho livre para a utilização do usuário.
Especialmente quando nossas aplicações tratarão de processos demorados, não fará sentindo deixar a máquina totalmente estagnada. Assim podemos usar alguns recursos para permitir que o usuário continue usufruindo a máquina em outras atividades.
Uma dessas técnicas é minimizar a aplicação e deixar um pequeno formulário indicando o posicionamento sobre a fase em andamento. Isso o manterá informado e ao mesmo tempo permitirá seu livre acesso a outros processos e demandas.
Ahh tá bom, mas como faço isso?
Seguem alguns exemplos para experimentar e escolher:
1º EXEMPLO
Sub RunUserForm()
Let Application.WindowState = xlMinimized
UserForm1.Show
End Sub
2º EXEMPLO
Private Sub Workbook_Open()
Let Application.WindowState = xlMinimized
DataReductionForm.Show
Let Application.WindowState = xlMaximized
End Sub
3º EXEMPLO
Private Sub UserForm_Initialize()
Let Application.WindowState = xlNormal
Let Application.Width = Me.Width
Let Application.Height = Me.Height
End Sub
4º EXEMPLO
Private Sub Workbook_Open()
Let Application.WindowState = xlMinimized
UserForm1.Show vbModeless
End Sub
5º EXEMPLO
Sub Workbook_BeforeClose(Cancel As Boolean)
Let Application.Visible = True
End Sub
Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly = True Then
Let Application.Visible = False
CBReq.Show
End If
End Sub
6º EXEMPLO
Private Sub UserForm_Activate()
Let Application.Left = Me.Left
Let Application.Top = Me.Top
Let Application.Width = Me.Width - 100
Let Application.Height = Me.Height - 100
End Sub
Private Sub UserForm_Layout()
Let Application.Left = Me.Left
Let Application.Top = Me.Top
End Sub
Envie comentários e sugestões. Compartilhe este artigo!
⬛◼◾▪ CONTATO ▪◾◼⬛
