comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Formulario 3D

  • 4 Respuestas
  • 2284 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5409
  • Actividad:
    20%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« 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
« Respuesta #1 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
« Respuesta #2 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
« Respuesta #3 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: 5409
  • Actividad:
    20%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #4 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


 

¿Te gustó el post? COMPARTILO!



Llamada de un formulario mediante el nombre como string

Iniciado por ANTRAX

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

Iniciado por ANTRAX

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

Iniciado por ANTRAX

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

Iniciado por ANTRAX

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