Autor Tópico: Truque para Visual Basic  (Lida 1392 vezes)

Offline Nobau

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
    • http://www.nobau.net
Truque para Visual Basic
« em: Setembro 18, 2006, 02:02:54 pm »
Deixo-vos uma pequena rotina que podem incluir nos vossos programas em Visual Basic, esta rotina faz um o unload dos form de forma artística.

Código: [Seleccione]
Sub FormExit(frm As Form)

Dim X As Long

Dim factor  As Double

Dim width As Integer

Dim height As Integer



height = frm.height

width = frm.width

factor = height / width

frm.width = 0

frm.height = 0



For X = width To 0 Step -800 \\'Aqui podem mudar os valores para ser mais rapido ou mais lento

frm.width = X

frm.height = X * factor

With frm

.Left = (Screen.width - .width) / 2

.Top = (Screen.height - .height) / 2

End With

Next X



End Sub


No evento form unload façam a chamada a rotina

Código: [Seleccione]
Private Sub Form_Unload(Cancel As Integer)

   Formexit Me

End Sub

Espero que gostem  :wink:

Leilões - On Line
http://www.nobau.net

Offline KTachyon

  • Global Moderator
  • Newbie
  • *****
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
    • http://twitter.com/KTachyon
Truque para Visual Basic
« Responder #1 em: Setembro 18, 2006, 05:35:23 pm »
Formatei o código para ficar mais legível.
My Q4 estimate: Macs: 5.89M; iPods: 4.19M; iPhones: 30.0M; iPads: 18.05M; Revenue: 37.00B; EPS: 9.50
AAPL Q3 result: Macs: 4.02M; iPods: 6.80M; iPhones: 26.0M; iPads: 17.04M; Revenue: 35.02B; EPS: 9.32

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49