Mensajes

Graciaaaaaaas por el cristal . Ahora ya desarrollo más el propulsor hyperespacial y ataco más rápido .

Por cierto ya que estamos podrían poner un resumen de su estado, yo dejo el mío:

Código [Seleccionar] Expandir


Metal: 3.697
Cristal: 2.658 (hasta que llegue lo de punkerman xD)
Deuterio: 1.723
Energía: 175/2.434

Planetas: 3 (Levinmind[2:283:7], Eureka[2:283:3], Lorelei[2:283:2])

Edificios:
Mina de metal (Nivel 15)
Mina de cristal (Nivel 16)
Sintetizador de deuterio (Nivel 13)
Planta de energia solar (Nivel 14)
Planta de fusión (Nivel 6)
Fábrica de robots (Nivel 7)
Hangár (Nivel 7)
Almacén de metal (Nivel 4)
Almacén de cristal (Nivel 5)
Contenedor de deuterio (Nivel 3)
Laboratorio de investigación (Nivel 7)
Silo (Nivel 1)

Investigción:
Tecnología de espionaje (Nivel 4)
Tecnología de computación (Nivel 5)
Tecnología militar (Nivel 5)
Tecnología de defensa (Nivel 6)
Tecnología de blindaje (Nivel 5)
Tecnología de energía (Nivel 6)
Tecnología de hyperespacio (Nivel 3)
Motor de combustión (Nivel 6)
Motor de impulso (Nivel 4)
Propulsor hyperespacial (Nivel 1)
Tecnología laser (Nivel 7)
Tecnología iónica (Nivel 4)

Hangar:
Nave pequeña de carga (1 disponible)
Nave grande de carga (3 disponible)
Cazador ligero (6 disponible)
Cazador pesado (5 disponible)
Crucero (3 disponible)
Sonda de espionaje (5 disponible)
Satélite solar (28 disponible)

Defensa:
Lanzamisíles (1 disponible)
Laser pequeño (25 disponible)
Laser grande (13 disponible)
Cañón de gauss (2 disponible)
Cañón iónico (2 disponible)
Cúpula pequeña de protección (1 disponible)



Saludos.

Para que no salga en el formulario establece la propiedad ControlBox a False.

Para que no se vea ningún icono en la barra de tareas agrega como recurso un icono vacío y establece la propiedad Icon del formulario cuando se cargue.

Código [Seleccionar] Expandir


Private Sub Form_Load()
  Set Icon = LoadResPicture("MYICON", vbResIcon)
End Sub


Saludos.

[Funciones para manipular el registro utilizando la API]

Para ocultar la pestaña de configuración del wallpaper lee sobre políticas del sistema, más exactamente sobre una llamada NoDispBackgroundPage

Funciones para manipular el registro utilizando la API

Para cambiar el wallpaper mira la función SystemParametersInfo, constante SPI_SETDESKWALLPAPER

Saludos.

EDIT: Políticas del sistema

[Recopilación de enlaces de VIsual Basic]

Recopilación de enlaces de VIsual Basic

Si lo que querés hacer es una especie de teclas rápidas entonces sí es como dijo reydelmundo11, en el evento KeyDown, pero no te olvides de establecer la propiedad KeyPreview del formulario a True para que las pulsaciones se le pasen primero al formulario.

Si lo que querés es que la ventana principal aparezca con una combinación de teclas entonces tenés que usar GetAsyncKeyState, de esta función ya hay mucha info en el foro.

Saludos.

[FindFirstChangeNotification]

Como existen las funciones de monitoreo del registro también están las de archivos, pero lo ideal sería hacerlo con un driver como lo hace el RegMon o el FileMon (dos programas excelentes).

Las funciones son FindFirstChangeNotification y FindNextChangeNotification. Primero se llama a la primera función y luego en un bucle a la segunda.

Cuando no se necesite más el handle se debe liberar llamando a FindCloseChangeNotification.

Saludos.

El RealBasic es muy lento, no sólo el compilador sino también la plataforma en si. Como dijo p0w3r f1y Gambas es lo mejor para linux, y para Windows VB

Saludos.

También podrías bloquear el archivo al abrirlo y así cuando la otra aplicación intente abrirlo le da un error de acceso.

Código [Seleccionar] Expandir


            Dim hFile%

hFile = FreeFile
Open "C:\MyArchivo.ext" For Binary Lock Read Write As #hFile

'Usar el archivo...
'

Close #hFile


Saludos.

Select Case no se usa así. Lo mejor es crear una matriz de controles OptionButton y luego cuando se hace click en el botón se usaría un código como el siguiente:

Código [Seleccionar] Expandir


Private Sub CommandBtn_Click()
         Dim i%

  For i = 0 To OptionBtn.Count -1
    If OptionBtn(i).Value = True Then Exit Sub
  Next

  Call MsgBox("No hay ninguna opción seleccionada", vbCritical)
End Sub


Saludos.

[cifrar en MD5]

cifrar en MD5