codigos para aser programas de visual basic
What?
Explica mejor que necesitas, si necesitas ayuda en vb o algo?, pero se mas especifico que con gusto te ayudaremos.
+2
Dim TeclaShiftPresionada As Integer
Dim TeclaAltPresionada As Integer
Dim TeclaCtrlPresionada As Integer
TeclaShiftPresionada = (Shift And vbShiftMask)
TeclaAltPresionada = (Shift And vbAltMask)
TeclaCtrlPresionada = (Shift And vbCtrlMask)
If TeclaShiftPresionada > 0 And TeclaAltPresionada > 0 Then
MsgBox ("Usted presiono la tecla MAYUS y la tecla ALT")
ElseIf TeclaAltPresionada > 0 And TeclaCtrlPresionada > 0 Then
MsgBox ("Usted presiono la tecla ALT y la tecla CTRL")
ElseIf TeclaCtrlPresionada > 0 And TeclaShiftPresionada > 0 Then
MsgBox ("Usted presiono la tecla CTRL y la tecla MAYUS")
End If
Aqui esta un pequeño programa en Visual Basic 6.0
??????????????????????????????????????''
????????????????????????????????????''''''
explicar
Comments
What?
Explica mejor que necesitas, si necesitas ayuda en vb o algo?, pero se mas especifico que con gusto te ayudaremos.
+2
Dim TeclaShiftPresionada As Integer
Dim TeclaAltPresionada As Integer
Dim TeclaCtrlPresionada As Integer
TeclaShiftPresionada = (Shift And vbShiftMask)
TeclaAltPresionada = (Shift And vbAltMask)
TeclaCtrlPresionada = (Shift And vbCtrlMask)
If TeclaShiftPresionada > 0 And TeclaAltPresionada > 0 Then
MsgBox ("Usted presiono la tecla MAYUS y la tecla ALT")
ElseIf TeclaAltPresionada > 0 And TeclaCtrlPresionada > 0 Then
MsgBox ("Usted presiono la tecla ALT y la tecla CTRL")
ElseIf TeclaCtrlPresionada > 0 And TeclaShiftPresionada > 0 Then
MsgBox ("Usted presiono la tecla CTRL y la tecla MAYUS")
End If
Aqui esta un pequeño programa en Visual Basic 6.0
??????????????????????????????????????''
????????????????????????????????????''''''
explicar