Formulario 3D

  • 4 Respuestas
  • 3364 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5636
  • Actividad:
    56.67%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Formulario 3D

  • en: Julio 26, 2010, 04:08:02 pm
Este es un efecto para simular un formulario 3d:
pone un boton en el form.

Código: Visual Basic
  1. Public Sub ThreeDForm(frmForm As Form)
  2.  
  3. Const cPi = 3.1415926
  4.  
  5. Dim intLineWidth As Integer
  6.  
  7. intLineWidth = 5
  8.  
  9. Dim intSaveScaleMode As Integer
  10.  
  11. intSaveScaleMode = frmForm.ScaleMode
  12.  
  13. frmForm.ScaleMode = 3
  14.  
  15. Dim intScaleWidth As Integer
  16.  
  17. Dim intScaleHeight As Integer
  18.  
  19. intScaleWidth = frmForm.ScaleWidth
  20.  
  21. intScaleHeight = frmForm.ScaleHeight
  22.  
  23. frmForm.Cls
  24.  
  25. frmForm.Line (0, intScaleHeight)-(intLineWidth, 0), &HFFFFFF, BF
  26.  
  27. frmForm.Line (0, intLineWidth)-(intScaleWidth, 0), &HFFFFFF, BF
  28.  
  29. frmForm.Line (intScaleWidth, 0)-(intScaleWidth - intLineWidth, intScaleHeight), &H808080, BF
  30.  
  31. frmForm.Line (intScaleWidth, intScaleHeight - intLineWidth)-(0, intScaleHeight), &H808080, BF
  32.  
  33. Dim intCircleWidth As Integer
  34.  
  35. intCircleWidth = Sqr(intLineWidth * intLineWidth + intLineWidth * intLineWidth)
  36.  
  37. frmForm.FillStyle = 0
  38.  
  39. frmForm.FillColor = QBColor(15)
  40.  
  41. frmForm.Circle (intLineWidth, intScaleHeight - intLineWidth), intCircleWidth, QBColor(15), -3.1415926, -3.90953745777778
  42.  
  43. frmForm.Circle (intScaleWidth - intLineWidth, intLineWidth), intCircleWidth, QBColor(15), -0.78539815, -1.5707963
  44.  
  45. frmForm.Line (0, intScaleHeight)-(0, 0), 0
  46.  
  47. frmForm.Line (0, 0)-(intScaleWidth - 1, 0), 0
  48.  
  49. frmForm.Line (intScaleWidth - 1, 0)-(intScaleWidth - 1, intScaleHeight - 1), 0
  50.  
  51. frmForm.Line (0, intScaleHeight - 1)-(intScaleWidth - 1, intScaleHeight - 1), 0
  52.  
  53. frmForm.ScaleMode = intSaveScaleMode
  54.  
  55. End Sub
  56.  
  57.  
  58. Private Sub Command1_Click()
  59.  
  60. ThreeDForm Me
  61.  
  62. End Sub
  63.  
  64. Private Sub Form_Resize()
  65.  
  66. ThreeDForm Me
  67.  
  68. End Sub
« Última modificación: Mayo 12, 2014, 03:26:41 pm por Expermicid »


Desconectado hacker403

  • *
  • Underc0der
  • Mensajes: 55
  • Actividad:
    0%
  • Reputación 0
  • no soy hacker pero intento serlo
    • Ver Perfil
    • Email

Re:Formulario 3D

  • en: Julio 26, 2010, 08:01:03 pm
con que programa abro eso disculpa mi ignorancia  ;)

Desconectado d33k40

  • *
  • Underc0der
  • Mensajes: 94
  • Actividad:
    0%
  • Reputación 0
  • En la tierra de los ciegos, el tuerto es el rey.
    • Ver Perfil
    • Email

Re:Formulario 3D

  • en: Julio 26, 2010, 08:10:15 pm
Mira el apartado en el que está ;)

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

Saludos. ;)

Desconectado hacker403

  • *
  • Underc0der
  • Mensajes: 55
  • Actividad:
    0%
  • Reputación 0
  • no soy hacker pero intento serlo
    • Ver Perfil
    • Email

Re:Formulario 3D

  • en: Julio 26, 2010, 08:42:34 pm
si parce se que esta en visual basic pero no se con que se puede abrir con bloc  de notas o con cual

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5636
  • Actividad:
    56.67%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Re:Formulario 3D

  • en: Julio 27, 2010, 04:33:00 pm
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


 

Llamada de un formulario mediante el nombre como string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2095
Último mensaje Julio 26, 2010, 04:08:58 pm
por ANTRAX
Como Bloquear el Boton Cerrar del Formulario

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2043
Último mensaje Julio 26, 2010, 12:46:46 pm
por ANTRAX
Formulario transparente con controles visibles

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2114
Último mensaje Julio 26, 2010, 12:05:45 pm
por ANTRAX
Aplicar transparencia a un formulario

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2103
Último mensaje Julio 27, 2010, 04:37:57 pm
por ANTRAX