OPACITY NAO FUNCIONA
Pessoal,
Mudar a opacidade de um Formulário no VB.NET é muito fácil com a propiedade [Ô]Opacity[Ô].
Mas, preciso que meu Form abra invisivel e a opacidade va aumentando até ficar totalmente visivel.
Meu código abaixo:
[ô]Declara variáveis
Dim x As Integer
[ô]Opacidade inicial
Me.Opacity=1
Do Until x >= 100
[ô]Pausa
System.Threading.Thread.Sleep(100)
[ô]Muda opacidade do formulário
System.Windows.Forms.Application.DoEvents()
Me.Opacity = x
Select Case x
Case Is >= 100
[ô]Sair
Exit Do
Case Else
End Select
[ô]Incrementa variável
x = x + 1
Loop
O problema:
Coloquei este código no evento [Ô]Load[Ô], no [Ô]Paint[Ô], etc... do Form
Em todos os casos, quando o formulário abre ,Abre totalmente visivel, ele abre de uma vez. E não gradativamente como preciso
Algum colega sabe dizer qual o problema?
Mudar a opacidade de um Formulário no VB.NET é muito fácil com a propiedade [Ô]Opacity[Ô].
Mas, preciso que meu Form abra invisivel e a opacidade va aumentando até ficar totalmente visivel.
Meu código abaixo:
[ô]Declara variáveis
Dim x As Integer
[ô]Opacidade inicial
Me.Opacity=1
Do Until x >= 100
[ô]Pausa
System.Threading.Thread.Sleep(100)
[ô]Muda opacidade do formulário
System.Windows.Forms.Application.DoEvents()
Me.Opacity = x
Select Case x
Case Is >= 100
[ô]Sair
Exit Do
Case Else
End Select
[ô]Incrementa variável
x = x + 1
Loop
O problema:
Coloquei este código no evento [Ô]Load[Ô], no [Ô]Paint[Ô], etc... do Form
Em todos os casos, quando o formulário abre ,Abre totalmente visivel, ele abre de uma vez. E não gradativamente como preciso
Algum colega sabe dizer qual o problema?
Coloque isso no Load do form
Para ajustar o tempo, troque o valor da variável t
Dim t As Integer = 3000
For i As Integer = 1 To t
Me.Opacity = i / t
System.Windows.Forms.Application.DoEvents()
NextPara ajustar o tempo, troque o valor da variável t
Tópico encerrado , respostas não são mais permitidas