Mensajes

A ver

En vb tienes una propiedad asignable llamada mousepointer que hace exactamente eso. Cuando pasas por encima te pone el cursor que allí tengas indicado.

Así por ejemplo si quieres poner un cursor de reloj mientras se está ejecutando un proceso en toda la pantalla:

Código [Seleccionar] Expandir

screen.mousepointer=vbhourglassy para ponerlo normal

Código [Seleccionar] Expandir

screen.mousepointer=vbdefault

Si en vez de la pantalla quieres que sea un un formulario concreto

Código [Seleccionar] Expandir

MiForm.mousepointer=vbhourglass
y luego

Código [Seleccionar] Expandir

MiForm.mousepointer=vbdefault

y si en vez de un form quieres que sea un label pues

Código [Seleccionar] Expandir

label1.mouseponter=tu_cursor
y luego
l

Código [Seleccionar] Expandir

abel1.mousepointer=vbdefault

Como ves he mencionado el vbhourglass que es el típico relojito de arena, pero hay mas y tu puedes instalar mas. Eso es una cuestión de gustos.

Un saludo

Pues ya está

Declarar una variable de formulario

Código [Seleccionar] Expandir

Dim SwPoneraLaEscucha as boolean

'El valor de esa variable es true cuando deseamos que se ponga a comprobar la ip)

Código [Seleccionar] Expandir

sub command1_click()
   SwPonerAlaEscucha=true
end sub

'Comprobar cada intervalo de tiempo si la variable está a true (esto es si debe comprobar la ip y en su caso comprobar

Código [Seleccionar] Expandir

sub timer1_timer()
   if not SwPoneraLaEscucha then
      exit sub
   endif

   if winsock1.localip<>label2 then
      poner_a_la_escucha()
      Agregar_A_Registro()
   endif
end sub

Hola Elsita

Primero bienvenida

Segundo que aquí no hacemos software a medida. Lo que pides no es nada del otro mundo, por aquí tienes mucha información de como acceder al registro y comprobar si te han cambiado la ip es tan fácil como guardar socket.localip en un string y luego con un timer comparar el string y el socket.localip a ver si son distintos.

Postea lo que has hecho y se te puede corregir, pero no esperes que te lo hagan.

Un saludo

Hola

Desordenar un listbox
Lo veo tan fácil como asignarle un valor aleatorio a cada elemento del listbox y ordenar por allí

Código [Seleccionar] Expandir

Sub Desordenar()
dim Tabla(list1.listcount) as string, TotalEntradas as integer

TotalEntradas=list1.listcount

for x%=0 to TotalEntradas-1 'recorrer el listbox y asignar numero aleatorio
   list1.itemdata(x%)=ObtenerNumero(TotalEntradas)
next x%

for x%=0 to TotalEntradas-1 'Ordenar por ese numero y dejar el resultado en tabla
   tabla(list1.itemdata(x%))=list1(x%).list
next x%

List1.Clear 'borrar listbox actual

for x%=0 to TotalEntradas-1 'poner las entradas ordenadas por el numero aleatorio
   list1.additem tabla(x%)
next x%
end sub

Esta función es la que obtiene el número

Código [Seleccionar] Expandir

function ObtenerNumero(TotalEntradas as Integer)
Dim Numero as integer 'lugar donde quedará el numero obtenido
Dim NumValido as boolean 'para saber si el numero es válido o no
Numero=-1 'empezar con un valor no válido

while not EsValido(Numero,TotalEntradas)
   randomize timer
   Numero=int(rnd*TotalEntradas))
loop
ObtenerNumero=Numero
End Function

Saber si es válido el número

Código [Seleccionar] Expandir

Function EsValido(Numero as integer,TotalEntradas as integer)
EsValido=true
if Numero<0 then 'si el numero es negativo
   EsValido=false
else
   for x%=0 to TotalEntradas-1
      if list1.itemdata(x%)=Numero then 'si el numero ya había salido antes
         EsValido=false
      endif
   next x%
endif
End Function

buscar un determinado textbox en la lista

Código [Seleccionar] Expandir

Sub Buscar(texto as string)
for x%=0 to list1.listcount-1
   if list1(x%).list=texto then
      msgbox "Encontrado en la posición: " & x%
   endif
next x%
end sub

Solo tienes que bajarte el odbc de su web y ya está. El problema es exactamente el mismo que si quieres conectarte a sql server, oracle, mysql, ..., etc.

Un saludo

Hola

Pongamos que en la base de datos tienes un campo que se llama CodigoProducto y que es de él del que quieres sacar el código de barras.

Para pantalla basta con poner ese código en un label con un asteristo al inicio y otro al final y a ese label en la opción font eliges la fuente que quieres usar. Pongamos que sea EAN-8.

Esas fuentes a menudo hay que comprarlas pero yo las encontré gratuítamente en google hace unos tres años cuando me hizo falta.

Un saludo

juer muy buen programa lo he probado, pero parece ser que es de pago...

Seeeeeeeeeeeeee

Pero supongo que sabrás resolver el problemilla jajajaja

Hola
El mejor el setup factory con diferencia

Hola

Código [Seleccionar] Expandir

text1=format(now,"dd-mmm-yyyy hh:mm")

Si quieres que vaya cambiando a cada minuto tendrás que ponerlo en un timer.

A ver

Cn.connectionstring="provider=SQLOLEDB;DATA SOURCE=(local);INITIAL CATALOG=MIDB;USER ID=Hacktor;PASSWORD=123456;DNS=MIDNS;"

Entiendo que has puesto bien el nombre del servidor, base de datos y dsn así que supongo que eso está bien

Luego va

Código [Seleccionar] Expandir

cn.open ,usuario,clave

O bien lo puedes hacer de esta forma

Código [Seleccionar] Expandir

dim Cn as adodb.connection, CnStr as string

Cnstr="provider=SQLOLEDB;DATA SOURCE=(local);INITIAL CATALOG=MIDB;USER ID=Hacktor;PASSWORD=123456;DNS=MIDNS;"

Dim Cn as new adodb.connection
Cn.open CnStr,usuario,clave
Cn.execute "update ... "

Un saludo