Scribd
Upload
53 views

Menu de Excel

This document contains Visual Basic code for a user interface. It includes code for clicking and hovering over different objects to change their appearance and open additional forms. It also contains code to show, hide and close submenus. The codes are provided so users can practice the tutorial shown in a related video.

Uploaded by

Jahir
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
53 views

Menu de Excel

This document contains Visual Basic code for a user interface. It includes code for clicking and hovering over different objects to change their appearance and open additional forms. It also contains code to show, hide and close submenus. The codes are provided so users can practice the tutorial shown in a related video.

Uploaded by

Jahir
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 9

THIS FILE CONTAINS THE CODES USED IN THE VIDEO SO THAT YOU CAN PRACTICE THE

TUTORIAL
IF YOU WOULD LIKE US TO CONTINUE MAKING THIS TYPE OF MATERIAL, PLEASE SHARE THE
VIDEO, LIKE AND SUBSCRIBE TO THE CHANNEL, THANK YOU!!

EN ESTE ARCHIVO DEJO LOS CODIGOS DEL VIDEO CON LOS CUALES PUEDES PRACTICAR EL
TUTORIAL
PARA QUE SIGAMOS HACIENDO ESTE TIPO DE MATERIAL PORFA COMPARTE EL VIDEO DALE LIKE Y
SUSCRIBETE AL CANAL, GRACIAS!!

-----------------------------------------------------------------------------------
------------------------

NAMES OF THE OBJECTS USED IN THE VIDEO

NOMBRES DE LOS OBJETOS USADOS EN EL VIDEO

IPR - Productos
ICL - Clientes
IPV - Proveedores
ICO - Cotizaciones
IRE - Reportes
IEM - Empresa
IUS - Usuarios
ICF - Config
ICE - Cerrar

Lpr - Productos
Lcl - Clientes
Lpv - Proveedores
Lco - Cotizaciones
Lre - Reportes
Lem - Empresa
Lus - Usuarios
Lcf - Config
Lce - Cerrar

-----------------------------------------------------------------------------------
------------------------
Private Sub ICO_Click()
If Lco.BackColor = &HF0B000 Then
Lco.BackColor = &HFF&
SMcoa.Visible = True
SMcob.Visible = True
SMcoc.Visible = True

Lpr.BackColor = &HF0B000
SMprda.Visible = False
SMprdb.Visible = False
SMprdc.Visible = False

ElseIf Lco.BackColor = &HFF& Then


Lco.BackColor = &HF0B000
SMcoa.Visible = False
SMcob.Visible = False
SMcoc.Visible = False
End If
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub IPR_Click()
If Lpr.BackColor = &HF0B000 Then
Lpr.BackColor = &HFF&
SMprda.Visible = True
SMprdb.Visible = True
SMprdc.Visible = True

Lco.BackColor = &HF0B000
SMcoa.Visible = False
SMcob.Visible = False
SMcoc.Visible = False

ElseIf Lpr.BackColor = &HFF& Then


Lpr.BackColor = &HF0B000
SMprda.Visible = False
SMprdb.Visible = False
SMprdc.Visible = False
End If
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub SMcoa_Click()
COTI.Show
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub SMprda_Click()
SPRD.Show
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub UserForm_Click()
Call CloseSubMenu
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub ICE_Click()
Unload Me
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub ICE_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)

IPR.BackColor = &H332122
ICL.BackColor = &H332122
IPV.BackColor = &H332122
ICO.BackColor = &H332122
IRE.BackColor = &H332122
IEM.BackColor = &H332122
IUS.BackColor = &H332122
ICF.BackColor = &H332122
ICE.BackColor = 16751001

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub ICF_Click()
CFG.Show
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub ICF_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)

IPR.BackColor = &H332122
ICL.BackColor = &H332122
IPV.BackColor = &H332122
ICO.BackColor = &H332122
IRE.BackColor = &H332122
IEM.BackColor = &H332122
IUS.BackColor = &H332122
ICF.BackColor = 16751001
ICE.BackColor = &H332122

End Sub
-----------------------------------------------------------------------------------
------------------------

Private Sub IUS_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X


As Single, ByVal Y As Single)

IPR.BackColor = &H332122
ICL.BackColor = &H332122
IPV.BackColor = &H332122
ICO.BackColor = &H332122
IRE.BackColor = &H332122
IEM.BackColor = &H332122
IUS.BackColor = 16751001
ICF.BackColor = &H332122
ICE.BackColor = &H332122

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub IEM_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)

IPR.BackColor = &H332122
ICL.BackColor = &H332122
IPV.BackColor = &H332122
ICO.BackColor = &H332122
IRE.BackColor = &H332122
IEM.BackColor = 16751001
IUS.BackColor = &H332122
ICF.BackColor = &H332122
ICE.BackColor = &H332122

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub IRE_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)

IPR.BackColor = &H332122
ICL.BackColor = &H332122
IPV.BackColor = &H332122
ICO.BackColor = &H332122
IRE.BackColor = 16751001
IEM.BackColor = &H332122
IUS.BackColor = &H332122
ICF.BackColor = &H332122
ICE.BackColor = &H332122

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub ICO_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)

IPR.BackColor = &H332122
ICL.BackColor = &H332122
IPV.BackColor = &H332122
ICO.BackColor = 16751001
IRE.BackColor = &H332122
IEM.BackColor = &H332122
IUS.BackColor = &H332122
ICF.BackColor = &H332122
ICE.BackColor = &H332122

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub IPV_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)

IPR.BackColor = &H332122
ICL.BackColor = &H332122
IPV.BackColor = 16751001
ICO.BackColor = &H332122
IRE.BackColor = &H332122
IEM.BackColor = &H332122
IUS.BackColor = &H332122
ICF.BackColor = &H332122
ICE.BackColor = &H332122

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub ICL_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)

IPR.BackColor = &H332122
ICL.BackColor = 16751001
IPV.BackColor = &H332122
ICO.BackColor = &H332122
IRE.BackColor = &H332122
IEM.BackColor = &H332122
IUS.BackColor = &H332122
ICF.BackColor = &H332122
ICE.BackColor = &H332122

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub IPR_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)

IPR.BackColor = 16751001
ICL.BackColor = &H332122
IPV.BackColor = &H332122
ICO.BackColor = &H332122
IRE.BackColor = &H332122
IEM.BackColor = &H332122
IUS.BackColor = &H332122
ICF.BackColor = &H332122
ICE.BackColor = &H332122

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub ViewMenu_Click()

Dim i As Long
For i = 0 To 170
DoEvents
Next
Me.Frame1.Width = 170

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub HideMenu_Click()

Dim i As Long
i = 170
Do Until i = 0
DoEvents
i = i - 1
Loop
Me.Frame1.Width = 0
Call CloseSubMenu

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub CloseSubMenu()

SMprda.Visible = False
SMprdb.Visible = False
SMprdc.Visible = False

Lpr.BackColor = &HF0B000
Lcl.BackColor = &HF0B000
Lpv.BackColor = &HF0B000
Lco.BackColor = &HF0B000
Lre.BackColor = &HF0B000
Lem.BackColor = &HF0B000
Lus.BackColor = &HF0B000
Lcf.BackColor = &HF0B000
Lce.BackColor = &HF0B000

IPR.BackColor = &H332122
ICL.BackColor = &H332122
IPV.BackColor = &H332122
ICO.BackColor = &H332122
IRE.BackColor = &H332122
IEM.BackColor = &H332122
IUS.BackColor = &H332122
ICF.BackColor = &H332122
ICE.BackColor = &H332122

SMprda.BackColor = &H800000
SMprdb.BackColor = &H800000
SMprdc.BackColor = &H800000

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub UserForm_Initialize()

Me.Frame1.Width = 0

With Me
.Left = 0
.Height = Application.Height
.Width = Application.Width
End With

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,
ByVal X As Single, ByVal Y As Single)

IPR.BackColor = &H332122
ICL.BackColor = &H332122
IPV.BackColor = &H332122
ICO.BackColor = &H332122
IRE.BackColor = &H332122
IEM.BackColor = &H332122
IUS.BackColor = &H332122
ICF.BackColor = &H332122
ICE.BackColor = &H332122

SMprda.Visible = False
SMprdb.Visible = False
SMprdc.Visible = False

SMcoa.Visible = False
SMcob.Visible = False
SMcoc.Visible = False

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal
X As Single, ByVal Y As Single)

IPR.BackColor = &H332122
ICL.BackColor = &H332122
IPV.BackColor = &H332122
ICO.BackColor = &H332122
IRE.BackColor = &H332122
IEM.BackColor = &H332122
IUS.BackColor = &H332122
ICF.BackColor = &H332122
ICE.BackColor = &H332122

End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub SMprda_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal
X As Single, ByVal Y As Single)
SMprda.BackColor = 16751001
SMprdb.BackColor = &H800000
SMprdc.BackColor = &H800000
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub SMprdb_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal
X As Single, ByVal Y As Single)
SMprda.BackColor = &H800000
SMprdb.BackColor = 16751001
SMprdc.BackColor = &H800000
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub SMprdc_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal
X As Single, ByVal Y As Single)
SMprda.BackColor = &H800000
SMprdb.BackColor = &H800000
SMprdc.BackColor = 16751001
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub SMcoa_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal
X As Single, ByVal Y As Single)
SMcoa.BackColor = 16751001
SMcob.BackColor = &H800000
SMcoc.BackColor = &H800000
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub SMcob_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal
X As Single, ByVal Y As Single)
SMcoa.BackColor = &H800000
SMcob.BackColor = 16751001
SMcoc.BackColor = &H800000
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub SMcoc_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal
X As Single, ByVal Y As Single)
SMcoa.BackColor = &H800000
SMcob.BackColor = &H800000
SMcoc.BackColor = 16751001
End Sub

-----------------------------------------------------------------------------------
------------------------
FORM CONFIGURATION
FORMULARIO DE CONFIGURACION
-----------------------------------------------------------------------------------
------------------------
NOMBRES PARA LOS OBJETOS O LABELS

OptionDark
OptionBlue
OptionWhit
OptionStand

OptionDarkF
OptionBlueF
OptionWhiteF
OptionStandF

-----------------------------------------------------------------------------------
------------------------

Private Sub OptionBlue_Click()


MENP.Frame1.BackColor = &H643820
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub OptionDark_Click()
MENP.Frame1.BackColor = &H80000012
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub OptionStand_Click()
MENP.Frame1.BackColor = &H996666
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub OptionWhit_Click()
MENP.Frame1.BackColor = &H808080
End Sub
-----------------------------------------------------------------------------------
------------------------

Private Sub OptionDarkF_Click()


MENP.BackColor = &H80000012
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub OptionBlueF_Click()
MENP.BackColor = &H643820
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub OptionWhiteF_Click()
MENP.BackColor = &HFFFFFF
End Sub
-----------------------------------------------------------------------------------
------------------------
Private Sub OptionStandF_Click()
MENP.BackColor = &H996666
End Sub

You might also like