SoloCodigo

HOLA, MI DUDA ES HAY APLICACIONES EN LAS QUE EN LA ESQUINA O EN ALGUN MENU HAY UN BOTON O UN MENU QUE PON '¿QUE ES ESTO?', SI LE DAS EL CURSOR DEL RATON CAMBIAN Y APARECE UN SIGNO DE INCOGNITA, SI PULSAS SOBRE CUALQUIER CONTROL TE DICE UNA EXPLICACIÓN DETALLADA DE QUE ACCIÓN HACE AL HACER CLICK.

ALGUIEN TIENE ALGUN CODIGO FUENTE DE COMO SE HACE ESTO, O ME PUEDE DECIR COMO SE HACE.

ADIOS,

ATENTAMENTE:
MAESTROMANU.-

HOLA, HAY ALGUIEN QUE TENGA POR HAY ALGUN CODIGO FUENTE DE UNA APLICACIÓN DE FACTURACIÓN, EL OBJETIVO ES INICIARME EN ESTE TIPO DE APLICACIONES.

ADIOS.

HOLA, HE ESTADO VIENDO LO QUE ME DIJISTE, ESTA BIEN, SOLO QUE NO SE TODAVIA COMO SE HACE EL EFECTO, EL EFECTO NO ES QUE EL FORM SE CONVIERTA EN UNA ELIPSE, SINO QUE ENCIMA DEL FORM SE CREA UNA ELIPSE HE INVIERTE EL CONTENIDO DE LA ELIPSE ES LO UNICO QUE SE VE.

ADJUNTO UNO DE SUS PROGRAMAS POR SI A ALGUIEN SE LE OCURRE COMO SE HACE O TIENE ALGUNA OTRA IDEA.

HOLA, COMO CASI SIEMPRE QUE PUEDO AYUDAR AYUDO, HABER SI ALGUIEN PODRIA DECIRME COMO SE HACE O ORIENTARME UN POCO, SE QUE SE PUEDE HACER PUESTO QUE HE VISTO UN CODIGO DE EJEMPLO, PERO NO RECUERDO DONDE, ME ESTOY MACHACANDO Y TAMBIEN MACHACANDO LA COMPUTADORA, BUENO OS DEJO TAMBIEN UN ZIP CON UN FORMULARIO DE COMO SERIA EL PROYECTO.

BUENO ADIOS

HOLA, LO MAS FACIL SERIA AÑADIR UN MODULO Y EN EL PONER ESTO.

'/////////COMIENZA EL MODULO///////////

Public Sub CreateKey(Folder As String, Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value
End Sub
Public Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value, "REG_DWORD"
End Sub
Public Function ReadKey(Value As String) As String
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
r = b.RegRead(Value)
ReadKey = r
End Function
Public Sub DeleteKey(Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("Wscript.Shell")
b.RegDelete Value
End Sub

'/////////////FIN DEL MODULO////////////////


SUPONIENDO QUE QUIERES LEER ALGUN VALOR DEL REGISTRO AL CARGAR SERIA ALGO COMO ESTO


'///////////////////////////////////////////////////
PRIVATE SUB FORM_LOAD()

     DIM REGISTRADO AS STRING
     REGISTRADO = ReadKey("HKCUSoftwareMICOMPAÑIAMIPROGRAMAREGISTRADO")
END SUB

AHORA JUEGAS CON EL VALOR

IF REGISTRADO = "" THEN
     MSGBOX "NO ESTAS REGISTRADO"
ELSEIF REGISTRADO = "SI" THEN
     MSGOBX "ESTAS REGISTRADO"
ENDIF


'///////////////////////////////////////////////////


CUANDO QUIERAS GUARDAR EL VALOR SUPONIENDO DESDE UN FORM O DESDE UN INPUTBOX, O DESDE DONDE QUIERAS PONES ALGO COMO ESTO.


'///////////////////////////////////////////////////


PRIVATE SUB COMMAND1_CLICK()
CreateKey "HKCUSoftwareMIEMPRESAMIPROGRAMAREGISTRADO", SERIAL.Text
End Sub


'///////////////////////////////////////////////////

LO ANTERIOR SUPONIENDO QUE LO HAGAS DESDE UN FORM Y EN ESTE HAYA UN BOTON LLAMADO COMMAND1 Y UN TEXTBOX LLAMADO SERIAL.

BUENO, ADIOS,
ESPERO QUE TE SIRVA, ESTE ES EL CODIGO MÁS SIMPLE QUE HAY PARA GUARDAR EN EL REGISTRO, HAY OTRO PERO TE ORIENTO DICIENDOTE QUE TRAE TRES PAGINAS EL MODULO.

BUENO SI TE SIRVE A SEGUIR TRABAJANDO

ATENTAMENTE:
MAESTROMANU.-