Mensajes

A ver, si tenes que convertir una letra (o su valor numerico ASCII) al formato xH:

Código [Seleccionar] Expandir


Private function Conv(byval Letra as string) as string
  Conv=asc(letra) & "H"
End Function


si queres que esa funcion te devuelva 0H  llamala asi:

Código [Seleccionar] Expandir


Dim a as string, Res as string
  a=chr(0)
  res= conv(a) 'res vale 0H


si no es lo que necesitas preguntá

saludos

No se si entiendo el problema, el numero 0 en ASCII es nulo, o sea si haces:

Código [Seleccionar] Expandir


Dim a as string
  a=chr(0)


la variable 'a' no está vacia, tiene un caracter (nulo), si te fijas con LEN(a)=1, osea que el valor 0H seria un caracter nulo.

Acá hay un ejemplo:

http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=37001&strZipAccessCode=tp%2FA370011073

El problema es que si las imagenes del formulario original no son visibles,  no van a recibir el evento Click.
Para asignar una imagen a otro formulario:

Código [Seleccionar] Expandir


  Form2.Picture1.Picture =  Form1.Picture1.Picture


Usa una variable publica en un modulo:

Código [Seleccionar] Expandir


Public Firma as string


"Visualmente" no se me ocurre nada, pero podes recorrer la coleccion Forms y jugar un poco con eso (ver si está minimizado, etc)

Saludos

En principio tendrias que poner el formulario siempre visible:

Código [Seleccionar] Expandir

Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = 1
Private Const SWP_NOMOVE = 2
Private Const HWND_NOTOPMOST = -2
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)


Luego tendrias que llevar el tamaño del form al de la pantalla con los datos del objeto Screen, el problema es que no reconoce los cambios de resolucion cuando se está ejecutando, asi que también deberías usar alguna llamada de la API, no se cual.

El CommonDialog lo necesitas para seleccionar la ruta y el nombre del archivo. Si la imagen la tenes en un Picture:

Código [Seleccionar] Expandir


Call SavePicture(Picture1.image, NombreArchivo)


Que era lo que hacían?

Podes cargar controles en tiempo de ejecucion con el comando LOAD
Para el ejemplo crea un boton Command1 y en la propiedad index ponele 0 (estas creando una matriz de controles)

Código [Seleccionar] Expandir


Private Sub Command1_Click(Index As Integer)
Dim Cant As Long
  Cant = Command1.UBound + 1
  Load Command1(Cant)
  Command1(Cant).Top = 100
  Command1(Cant).Left = 100
  Command1(Cant).Visible = True
End Sub


Saludos