Temas

hola, por mas que busque no encontre la manera de borrar todos mis temas creados...no son muchos pero me gustaria borrar los que he creado en los ultimos...2 o 3 años...se puede ???

Seguramente no soy el unico con esta duda existencial: "Como se logra razonar como un programador???" resulta que hace mas de un año que empece la carrera de analista de sistemas a distancia pero al no tener contacto laboral con un ambiente de desarrollo, ni gente amiga o familiares del ambito y no habiendo nunca incursionado en el tema se complica mucho poder enfocar la resolucion de los temas pensando desde una vision de sistema de informacion...entiendo que hay que meterle horas y horas y dias...pero despues de un año haciendolo no creo tener la habilidad aun como para lograr resultados que me permitan creer que estoy haciendo las cosas bien o que mi razonamiento es orientado a los sistemas...no se si logro explicarme bien, pero si alguien tiene libros, apuntes o tips como para lograr "entender" como se debe razonar "correctamente" se los agradeceria..

[AMD Phenom II x4 955 B.E 3.2GHZ 125W 8MB AM3]

Hola gente despues de mucho ahorro  ... y tanto tiempo esperando, finalmente llego!! les presento a mi nueva PC:

AMD Phenom II x4 955 B.E 3.2GHZ 125W 8MB AM3



Mother ASUS AM3 M4A88T-V EVO



RAM Kingston DDR3 1333 4G KIT X2 (8 GIGAS DUAL CHANNEL)



PLACA DE VIDEO PCI-E 2.0 MSI N210-MD 1G



MONITOR LED LG 23"



MAS HD 500 GIGAS + GRABADORA DVD SAMSUNG 22X+GABINETE CON FUENTE INTEGRADA DE 600W+LECTOR DE TARJETA+ESTABILIZADOR DE TENSION

El S.O es Windows 7 64bits, aunque estoy pensando en alguna distribucion de linux. La utilizare para programas como affter effects, cinema 4d, photoshop cs4 y similares. Para estudiar corriendo compiladores, etc, para java, c, c++, vb, visual net, etc. Y por supuesto: para juegos como crissis, far cry2, elder scrolls oblivion, mafia II, gta 4, etc...¿ustedes como la ven? me coparia conocer vuestra opinion mil gracias!!!

Hola amigos, tengo una duda... cambie la PC, mi querido y viejo AMD Athlon 64 por un Phenom x4 955 +Asus M4A88T+ MSI N210...La placa de video es la GeForce N210-MD1G que tiene fichas HDMI y DVI-I Dual Link...ahora bien, tambien cambie el monitor y compre un LG Led, de 23" con HDMI y DVI_D Dual Link...el tema es que como podran ver las 2 conexiones DVI son diferentes!!! sera que puedo encontrar algun adaptador para poder enchufar el DVI-I al DVI-D sin ningun problema??? o quizas tenga que comprar un cable HDMI, enchufarlo ese y arreglarme de esa manera???

Bueno si alguien tiene experiencia con esto agradeceria la ayuda, la maquina me la estaran entregando en unos dias, asi que bue...espero que salga todo bien...gracias!!

Hola amigos, en la facultad estamos por empezar a ver Java....nos dieron el compilador Ready To Program...solo habiamos hecho algunas cosas en C y este es el tercer lenguaje que vemos, pero la pregunta es: les parece que alcanzara por ahora con instalar ese Ready to Program o sera que voy a tener que buscar por mi lado un compilador mas completo??
Bueno gracias a quienes tengan mas experiencia por tirarme un consejo, saludos!!

Hola amigos tannnto tiempo, si bien encontre algo sobre diagramas estadisticos, la verdad es que estoy queriendo hacer uno a partir de los datos de un ABM...pero no doy pie con bola...si son tan amables de tirarme algunos ejemplos o links del tema les agradeceria mucho.

Este es el codigo que tengo desarrollado sobre el tema:

Código [Seleccionar] Expandir


#include <iostream.h>
#include <conio.h>
#include <stdio.h>
#include <string.h>
#include <graphics.h>
#include <stdlib.h>

struct TArticulo
{
int codigo;
char nombre [20];
char rubro [20];
float precio;
};

void CargarVector (TArticulo V[100], int n)
{
for (int i=0; i<n;i++)
{
clrscr();
cprintf("ingrese codigo de producto : ");  cin>>V[i].codigo;
cprintf("ingrese nombre del producto : "); gets (V[i].nombre);
cprintf("ingrese rubro del producto : ") ; gets (V[i].rubro);
cprintf("ingrese precio de producto : ") ;  cin>>V[i].precio;
}
}

void Listado (TArticulo V[100], int n)
{
clrscr();

//Mostrar los datos del comercio
gotoxy (25,1); cprintf ("Listado completo");
gotoxy (25,2); cprintf ("----------------");
gotoxy (5,3); cprintf ("Codigo");
gotoxy (5,4); cprintf ("      ");
gotoxy (10,3); cprintf ("Nombre");
gotoxy (10,4); cprintf ("     ");
gotoxy (15,3); cprintf ("Rubro");
gotoxy (15,4); cprintf ("     ");
gotoxy (20,3); cprintf ("Precio");
gotoxy (20,4); cprintf ("       ");

//Imprimir los datos del comercio
int L=5;
for (int i=0; i<n;i++)
{
gotoxy (5,L);  cprintf ("%i", V[i].codigo);
gotoxy (10,L); cprintf ("%s", V[i].nombre);
gotoxy (15,L); cprintf ("%i", V[i].rubro);
gotoxy (20,L); cprintf ("%0.2f", V[i].precio);
L++;
}
getch();
}

void ConsultaPorNombre (TArticulo V[100], int n)
{
int b;
char Nx[20];
char op;
do
{
b=0;
clrscr();
gotoxy(20,2); cprintf("Funcion para la consulta por nombre de articulo");
gotoxy(20,3); cprintf("_______________________________________________");
gotoxy(10,5); cprintf("Ingrese nombre para consulta"); gets(Nx);
for (int i=0; i<n; i++)
  { if (strcmpi(Nx, V[i].nombre)==0)
    {
      gotoxy(10,7);  cprintf("Codigo: %i", V[i].codigo);
      gotoxy(10,9);  cprintf("Nombre:%s", V[i].nombre);
      gotoxy(10,11); cprintf("Rubro:%s", V[i].rubro);
      gotoxy(10,13); cprintf("Precio:%0.2f", V[i].precio);
b=1;
    }
  }
if(b==0)
{
gotoxy (10,5); cprintf("Nombre inexistente");
}
gotoxy(10,25); cprintf("¿Otra consulta para ingresar? (S/N)");

cin>>op;

}
while(op=="s" ||op=="S");
}

void MenorPrecio (TArticulo V[100], int n)
{
float Menor =V[i].precio;
int posicion=0;
for (int i=1, i<n; i++)
{
if (V[i].precio < Menor)
{
Menor = V[i].precio;
posicion =i;
}
}
cprintf("\n\nr");
cprintf("El producto mas economico es: %0.2f" V[posicion].precio);
getchar();
}

void DibujarTarta (float v[50]; int n)
{
int i, Color;
float AngIni, AngFinal, Radio;
float suma =0;
Radio =150;
randomize();
for (i=0; i<n; i++) suma = suma + v[i];
setcolor (8);
AngIni=0;
for (i=0; i<n; i++)
{
AngFinal = v[i]/suma * 360 + AngIni;
if (i==n-1) AngFinal= 360;
Color=Random (14)+1;
setfillstyle (1,Color);
pieslice (320, 240, AngIni, AngFinal, Radio);
AngIni=AngFinal;
}
getchar();
}

void Diagrama (TArticulo V[100], int n)
{
//indicamos las variables de los rubros, que pueden ser: bebidas, hogar y electronica y contamos.
int beb, hog, elec;
beb=hog=elec =0;
for (int i=0; i<n; i++)
{
if (strcmpi (V[i].rubro, "B")==0) beb++;
if (strcmpi (V[i].rubro, "H")==0) hog++;
if (strcmpi (V[i].rubro, "E")==0) elec++;

float z[3];
z[0]=beb;
z[1]=hog;
z[2]=elec;
}
//Llamamos a la funcion DibujarTarta
int Gd, Gm;
Gd=DETECT;
initgraph(&Gd, &Gm, "C:\Borland\Bgi");
DibujarTarta(z,3);
closegraph();
}

void main()
{
  TArticulo V[100];
  int n= 5;
  int op, estado;
  estado =0;
do
{
  clrscr();
  gotoxy(25,2);cprintf("Menu Principal");
  gotoxy(25,3);cprintf("---- ---------");
  gotoxy(10,5);cprintf("1-Carga de articulos");
  gotoxy(10,6);cprintf("2-Listado Completo");
  gotoxy(10,7);cprintf("3-Consultas por Nombre");
  gotoxy(10,8); cprintf("4-Datos del articulo de menor valor");
  gotoxy(10,9); cprintf("5-Ver Diagrama estadistico");
  gotoxy(10,11);cprintf("6-Salir");
  gotoxy(10,15);cprintf("Seleccione una opcion: ");
  cin>>op;
if (estado==0 && op!=1 && op!=6)
    {
       clrscr();
       gotoxy(10,10); cprintf("Faltan cargar datos");
       gotoxy(10,20); cprintf("Presione Enter para ir al Menu");
       getchar();
    }
    else
      switch(op)
       {
         case 1: CargarVector(V,n); estado=1; break;
         case 2: Listado(V,n); break;
         case 3: ConsultaPorNombre(V,n); break;
         case 4: MenorPrecio(V,n); break;
         case 5: Diagrama(V,n); break;
       }
  }
  while (op !=6);
}





Hola alguien sabria decirme donde descargar la version completa del borland c++ 5 ?? Muchas gracias !! 

Hola amigos, aca de nuevo con preguntas en este caso con los sistemas de numeracion...por ejemplo si quiero conocer en que bases esta un determinado numero, por ejemplo el numero 3567...que pasos se siguen ??? a primera vista podriamos decir que esta en decimal y NO en binario, o base 12, 13 o hexadecimal...pero para saber el resto de las bases ? Bueno, desde ya muchas gracias !!

[PREGUNTAS]

"Vamos a crear un script que llamaremos Memoria.vbe, que podremos ejecutar cada vez que queramos liberar la memoria RAM en Windows XP.
Abrimos el Notepad y escribimos la linea: MYSTRING = (xxxxxxxxxxxxx)

Las xxxx deben ser sustituidas por 16000000 si dispones de 128Mb de RAM, y por 80000000 si dispones de más.

Lo guardamos con el nombre indicado antes (Memoria.vbe) y ya está listo para ejecutarlo cuando necesitemos liberar la memoria RAM."

PREGUNTAS

*La sintaxis: que lenguaje se ha empleado para codificar?

* Como se explican las instancias?

* Cual es la logica de programacion del script?

* Es a partir de API´S?

*Por que "MYSTRING" ?? Por que el valor tratado como una constante ??

*Por que los valores tienen que ser esos ? Es de acuerdo a que condiciones ?

[Option Button]

Digamos que la duda es si yo para hacer un INSERT INTO tablax (campo1,campo2,campo3) VALUES(TEXT1,TEXT2,TEXT3) puedo agregar el dato en la BD, en el caso de los controles Option Button como seria la mano ??

Pasando al proyecto en si, el tema es que Intente la siguiente formula pero no funciona:

Código [Seleccionar] Expandir

Private Sub cmdGuarda_Click()

cnn.Execute "INSERT INTO Tabla1 " & "(campo1,campo2,campo3,campo4,campo5) VALUES('" & _
                                 Option1(0) & "','" & _
                                 Option1(1) & "','" & _
                                 Option1(2) & "','" & _
                                 Option1(3) & "','" & _
                                 Combo8 & "','" & "')"
rs.Requery 1
DoEvents
Unload Me
Set FrmDatos = Nothing

Desde ya les agradezco la ayuda, hace tiempo que no participo por razones de indole laboral pero volvi a las fuentes digamos, 

[Bueno el tema es asi: resulta que estoy comenzando un nuevo curso y estudiando a full el tema de Visual Basic Net pero resulta que me empantane con una pregunta que se les ha ocurrido a los prof del instituto y es:]

Bueno el tema es asi: resulta que estoy comenzando un nuevo curso y estudiando a full el tema de Visual Basic Net pero resulta que me empantane con una pregunta que se les ha ocurrido a los prof del instituto y es:

"Busque información y realice un resumen explicando las siguientes herramientas y menús":

o   Menú Editar --> Marcadores
o   Menú Proyecto --> Agregar windows Forms
o   Menú Proyecto --> Agregar módulo
y esta que esta remarcada me ha generado una buena confusion por que no encuentro como definir algo que aparece sencillo pero no lo es....
Busque por cada rincon, tengo los manuales del bueno del Guille Som, tengo tutoriales, etc, pero no puedo ponerme de acuerdo con todas esas fuentes para definir esta bendita tarea que me han impuesto...carajo...si me tiran una ayuda agradecido....

el resto de la tarea escolar es:
...o   Menú Proyecto --> Agregar referencia
o   Menú Depurar --> Iniciar depuración
o   Menú Depurar --> Paso a paso por instrucciones
Saludos!

Tengo una aplicacion terminada, sencilla, pero terminada. La comprobe y salve los errores. Ahora bien, una vez que la llevo a distintas pc o notebooks con distintos SO funciona bien, pero el problema es que como son distintas resoluciones de pantallas en la notebook de 15" sale la ventanita gigante y se pierden detalles, botones, etc, en el lcd de 21" sale excelente ( es donde la trabaje) y en un CRT de 17 " sale mas o menos, pero bien...como deberia hacer para que se autoajuste o por lo menos que en un monitor CRT de 15 " o en la notebook salga bien ??

Probe con el metodo Resize y no me sale...busque en google pero no es lo que necesito....y en el buscador de aqui tampoco encontre...por ahora, pero seguire buscando...si alguien tiene idea paseme el aviso, gracias !! 

[Saludos y feliz año 2010 !]

Hola foro, estoy descargando Alice 2.2, me gustaria saber si alguien tiene idea y/o experiencia en cuanto a las bondades de este soft libre y gratuito para iniciar a los jovenes en la programacion...

Saludos y feliz año 2010 !


P/D. Si necesitan saber donde lo descargue y criterios generales me avisan y pongo algo, pero presumo que ya la mayoria debe tener idea de que se trata todo esto del Alice 2.2 muchas gracias !!!  

Ingresar para conocer, descargar y difundir software libre ->> http://www.cdlibre.org

Hola foro me hablaron del instituto CBTech para proponerme un curso para "Experto en Visual Net" y quisiera saber si alguien tiene referencias de esta institucion educativa y si es asi...pues bueno... si me convendria hacerlo dura un año el mencionado curso.

Ya hice este año un curso de Visual Basic en mi pueblo en otra institucion terciaria y calculo me serviria de "base" para este de .Net lo haria a distancia a un valor de 300 euros mas o menos...saludos  

[Bueno desde ya muchas gracias si alguno me tira una idea y saludos gente!]

Buenas de vuelta al pedido de vuestra ayuda... Como bien me aconsejo Sebas me pase a ADO y estoy en eso...ahora bien, pude crear la conexion, el recordset...pero tengo problemas con las altas y bajas de los registros:

Cuando agrego un registro, me lo pasa al flexgrid, ordenado y bien. Cuando lo selecciono de la grilla y lo paso a los txt y combos para darle a "modificar" que lo unico que hace es poner su propiedad locked en false, modifico sobre estos controles, pero al darle aceptar nuevamente solo me muestra en la grilla el registro modificado...si salgo e ingreso nuevamente ahora si, estan todos los datos alli...

Cuando borro un registro me saca de la grilla TODOS los datos. Si salgo y entro, estan de nuevo, salvo el que borre, claro. Ahora si cuando  le doy al boton borrar y despues en el msgbox le doy a cancelar...se desordenan los registros en el flexgrid....

Bueno, el codigo lo tengo de la siguiente manera:

Código [Seleccionar] Expandir

Private Sub CmdBorrar_Click()
                                   'BOTON BORRAR

If fila <> 0 Then
A = MsgBox("Borrar el dato?", "49", "Sistema")
If A = 1 Then
rs1.Delete
MSFlexGrid1.Clear
MSFlexGrid1.TextMatrix(0, 0) = "Tipo"
MSFlexGrid1.TextMatrix(0, 1) = "Tema1"
MSFlexGrid1.TextMatrix(0, 2) = "Tema2"
MSFlexGrid1.TextMatrix(0, 3) = "Tema3 "
MSFlexGrid1.TextMatrix(0, 4) = " Tema4 "
MSFlexGrid1.TextMatrix(0, 5) = "Tema5"
MSFlexGrid1.TextMatrix(0, 6) = "Tema6"
End If

f = 0

If rs1.EOF = False Then rs1.MoveFirst
While rs1.EOF = False
f = f + 1
MSFlexGrid1.TextMatrix(f, 0) = rs1("Tipo")
MSFlexGrid1.TextMatrix(f, 1) = rs1("Tema1")
MSFlexGrid1.TextMatrix(f, 2) = rs1("Tema2")
MSFlexGrid1.TextMatrix(f, 3) = rs1("Tema3")
MSFlexGrid1.TextMatrix(f, 4) = rs1("Tema4")
MSFlexGrid1.TextMatrix(f, 5) = rs1("Tema5")
MSFlexGrid1.TextMatrix(f, 6) = rs1("Tema6")
rs1.MoveNext
Wend
End If

' BLANQUEO DE CONTROLES
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
End Sub


'-------------------------------------------------------------------'

Código [Seleccionar] Expandir

Private Sub CmdAceptar_Click()
                                                     '* BOTON ACEPTAR *'
If señal = 1 Then
     If rs1.EOF = False Then
     MsgBox "Error", vbCritical, "Campos en blanco, nulo o repetido"
     GoTo 100
     Else
     rs1.AddNew
     End If
     End If

rs1("Tipo") = Combo1
rs1("Tema1") = Text1
rs1("Tema2") = Combo2
rs1("Tema3") = Combo3
rs1("Tema4") = Text2
rs1("Tema5") = Text3
rs1("Tema6") = Text4
rs1.Update


Rem blanqueo de grilla
   MSFlexGrid1.Clear
   MSFlexGrid1.TextMatrix(0, 0) = "Tipo"
   MSFlexGrid1.TextMatrix(0, 1) = "Tema1"
   MSFlexGrid1.TextMatrix(0, 2) = "Tema2"
   MSFlexGrid1.TextMatrix(0, 3) = " Tema3"
   MSFlexGrid1.TextMatrix(0, 4) = "Tema4"
   MSFlexGrid1.TextMatrix(0, 5) = "Tema5 "
   MSFlexGrid1.TextMatrix(0, 6) = "Tema6"

   f = 0
     
   If rs1.EOF = False Then rs1.MoveFirst
   While rs1.EOF = False
   f = f + 1
   MSFlexGrid1.TextMatrix(f, 0) = rs1("Tipo")
   MSFlexGrid1.TextMatrix(f, 1) = rs1("Tema1")
   MSFlexGrid1.TextMatrix(f, 2) = rs1("Tema2")
   MSFlexGrid1.TextMatrix(f, 3) = rs1("Tema3")
   MSFlexGrid1.TextMatrix(f, 4) = rs1("Tema4")
   MSFlexGrid1.TextMatrix(f, 5) = rs1("Tema5")
   MSFlexGrid1.TextMatrix(f, 6) = rs1("Tema6")
   rs1.MoveNext
   Wend
100
Rem blanquear todos los controles y botones
Combo1 = ""
Combo2 = ""
Combo3 = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

Bueno desde ya muchas gracias si alguno me tira una idea y saludos gente!  

Esto esta en el manual "VB Teoria ADO" (Ing J. Paredes - descargado de la webdelprogramador)

"Antes de proseguir con estos objetos vamos a explicar donde y porqué se deben utilizar objetos ADO en vez de objetos DAO u objetos RDO

Hasta ahora habíamos utilizado bases de datos Access, y también otras bases de datos sencillas como dBase. Acceder a Access es extremadamente fácil. Y ello es debido a que Access es una base de datos sin grandes aspiraciones en cuanto a seguridad. Es una gran base de datos, y tiene sus dispositivos de seguridad en cuanto a permisos de acceso (Vea El dbEngine. Visión desde DAO y la propiedad SystemDB en el Capítulo 12) sin embargo estas posibilidades se usan en muy pocas ocasiones, y estos mecanismos de seguridad de Access tampoco son una maravilla. Por lo tanto Access se ha quedado como una gran base de datos para aplicaciones que no pasen de algunos centenares de miles de registros y con pocos puestos de operación. En esta base de datos, el método ideal de acceso es DAO, bien directamente o a través de ODBC Direct"

Ustedes que piensan ? Por el momento yo no use mucho ado, casi nada... y con dao y accss 97 safamos...que onda ?

Hola busque y no encontre Como se pone una pic en el costado derecho ? Ya se...que pregunta bolud@ pero bueno,....algunos todavia no sabemos ni lo basico, juaz !

[Hola, gracias a Sebas que me aconsejo conoci al famoso Inno setup para poder tener en un solo exe mi aplicacion.]

Hola, gracias a Sebas que me aconsejo conoci al famoso Inno setup para poder tener en un solo exe mi aplicacion.

Pero no todo salio como esperaba, ya que utilizo este buen programa Inno Setup, hago mi aplicacion, el desinstalador, etc....instalo mi programa...busco su acceso directo en el escritorio, le doy click, ejecuto... se abre la pantalla de inicio... luego de unos segundos se carga la aplicacion, que es una pantalla de ABM, una base de datos...en Access...

Todo bien mientras agrego registros, etc. Ahora bien, cuando le doy a "borrar" la aplicacion se cierra. Asi nomas te digo. Se cierra...y entonces yo digo para mis adentros: "carajo" y vuelvo a ejecutarla y el registro "borrado" se borro efectivamente! pero por que se cierra la aplicacion ? revise todo el codigo y no encontre el sentido del problema. Si alguien se le ocurre que podra ser se los agradezco. Saludos. 

tengo XP, hice una aplicacion con buttonmac.ocx, msflexgrid, msmaskedbox, con un cursor .cur, eeeehhh...y una bd en access con una sola tabla y seis campos...la prueba en VB, funciona bien. Excelente. AHora cuando compilo y genero el .exe no funciona, me da el "Error 429 Runtime activex dont create objet" a pesar de que tengo las DLL en la carpeta System32 y en la carpeta del proyecto tambien !!! 

Tengo la version portable de VB6, descarge una especie de parche para errores que se llama "VB6CLI" y claro, pues me dice que no encuentra el VB6 !! en fin...no tengo el asistente para empaquetar y hacer el .exe, cdo lo hago desde el VB me da ese error que nombre, probe con el programa "fusion" para compilarlo agregando las dll pero no pasa nada, el mismo error....asi que el pedido de ayuda es:

COMO HAGO ?????????????????'

p/d: este es mi tercera pregunta, en la primera me contestaron 2, en la segundo nadie, cero...esperemos que ALGUIEN en este foro me conteste esta pregunta, por lo menos para no sentir que estoy perdiendo el tiempo sin que nadie me de una mano...carajo...

Buenas amigos mi problema es:
*estoy trabajando con DAO
*tengo una bd en access con 1 tabla
*tengo un MSFlexgrid, 1 textbox, 3 combos
*hago las tres operaciones basicas, ALTA, BAJA, MODIFICACION.
*cuando hago la BAJA, es decir, BORRAR, me borra el registro pero tambien el encabezado del MSFlexgrid...no le encuentro la vuelta...aca esta el codigo del boton borrar:

'BOTON BORRAR

If fila <> 0 Then
A = MsgBox("Borrar el dato?", "49", "Sistema BDLegis")
If A = 1 Then
rs1.Delete
MSFlexGrid1.Clear
End If
f = 0
Set rs1 = BDLegis.OpenRecordset("SELECT * " & "FROM Legis")

'If rs1.EOF = False Then rs1.MoveFirst
While rs1.EOF = False
f = f + 1
MSFlexGrid1.TextMatrix(f, 0) = rs1.Fields("Tipo")
MSFlexGrid1.TextMatrix(f, 1) = rs1.Fields("Tema")
MSFlexGrid1.TextMatrix(f, 2) = rs1.Fields("Comision")
MSFlexGrid1.TextMatrix(f, 3) = rs1.Fields("Estado")
MSFlexGrid1.TextMatrix(f, 4) = rs1.Fields("Ordenar")
rs1.MoveNext
Wend
End If

' BLANQUEO DE CONTROLES
Text1 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
CmdAceptar.Enabled = False
CmdModificar.Enabled = False
CmdBorrar.Enabled = False
CmdImprimir.Enabled = False

[hola estoy haciendo un programa en vb6 pero me falta solo anular la tecla Inicio o sea la tecla windows con la banderita , y sus combinaciones]

hola estoy haciendo un programa en vb6 pero me falta solo anular la tecla Inicio o sea la tecla windows con la banderita , y sus combinaciones encontre algo por el estilo pero la verdad me anula todo el teclado, me clava la pc y no sirve pa naa si se puede ayuden porfas y la 2º es : como puedo hacer para que una vez que tengo todo esto hecho, es decir la anulacion de las teclas, al finalizar el programa, (por ejemplo poniendo user pass) estas funciones dejen de estar y las teclas queden reutilizables nuevamente sin necesidad de reiniciar la pc ??

Muchas gracias por la colaboracion !!