Formulario 3D

Iniciado por ANTRAX, Julio 26, 2010, 04:08:02 PM

Tema anterior - Siguiente tema

0 Miembros y 3 Visitantes están viendo este tema.

Julio 26, 2010, 04:08:02 PM Ultima modificación: Mayo 12, 2014, 03:26:41 PM por Expermicid
Este es un efecto para simular un formulario 3d:
pone un boton en el form.

Código: vb
Public Sub ThreeDForm(frmForm As Form)

Const cPi = 3.1415926

Dim intLineWidth As Integer

intLineWidth = 5

Dim intSaveScaleMode As Integer

intSaveScaleMode = frmForm.ScaleMode

frmForm.ScaleMode = 3

Dim intScaleWidth As Integer

Dim intScaleHeight As Integer

intScaleWidth = frmForm.ScaleWidth

intScaleHeight = frmForm.ScaleHeight

frmForm.Cls

frmForm.Line (0, intScaleHeight)-(intLineWidth, 0), &HFFFFFF, BF

frmForm.Line (0, intLineWidth)-(intScaleWidth, 0), &HFFFFFF, BF

frmForm.Line (intScaleWidth, 0)-(intScaleWidth - intLineWidth, intScaleHeight), &H808080, BF

frmForm.Line (intScaleWidth, intScaleHeight - intLineWidth)-(0, intScaleHeight), &H808080, BF

Dim intCircleWidth As Integer

intCircleWidth = Sqr(intLineWidth * intLineWidth + intLineWidth * intLineWidth)

frmForm.FillStyle = 0

frmForm.FillColor = QBColor(15)

frmForm.Circle (intLineWidth, intScaleHeight - intLineWidth), intCircleWidth, QBColor(15), -3.1415926, -3.90953745777778

frmForm.Circle (intScaleWidth - intLineWidth, intLineWidth), intCircleWidth, QBColor(15), -0.78539815, -1.5707963

frmForm.Line (0, intScaleHeight)-(0, 0), 0

frmForm.Line (0, 0)-(intScaleWidth - 1, 0), 0

frmForm.Line (intScaleWidth - 1, 0)-(intScaleWidth - 1, intScaleHeight - 1), 0

frmForm.Line (0, intScaleHeight - 1)-(intScaleWidth - 1, intScaleHeight - 1), 0

frmForm.ScaleMode = intSaveScaleMode

End Sub


Private Sub Command1_Click()

ThreeDForm Me

End Sub

Private Sub Form_Resize()

ThreeDForm Me

End Sub


con que programa abro eso disculpa mi ignorancia  ;)

Mira el apartado en el que está ;)

    * ASH-LABS Forum »
    * Programacion General »
    * Visual Basic »
    * Codigos Fuentes »
    * Formulario 3D

Saludos. ;)

si parce se que esta en visual basic pero no se con que se puede abrir con bloc  de notas o con cual

bajate el Visual Basic 6 o el Visual Studio y lo compilas ahi.
Te recomiendo que mires los videos de VB6 que posteo Xa0s que estan espectaculares para empezar