Mensajes

[manuales, tutoriales y ejemplos]

Ale!
A manuales, tutoriales y ejemplos

Gracias Celaya

Pues ahora te pongo un reto:

busca la manera de encapsular ese código de forma que consigas un control que puedas insertar en un formulario  y que tenga las propiedades 'para', 'de' y 'asunto'

jajaja

Claro, el keypress sirve para detectar pulsaciones por teclado.

Si quieres controlar el copy paste deberías controlar también las rutinas de  conversaciones DDE que permiten también manejar el portapapeles

Un saludo

esta bien....... pero para hacer el servidor \\Servidor\dir\foto.jpg pero el problema que les digo que es en access.. no es sql....

Aquí no estamos para hacerle el trabajo a nadie. Si quieres enseñar lo que has hecho y que te lo miren vale, que te lo hagan no. Solo que sospecho que no tienes nada que enseñar.

Ni siquiera sabes que acces usa sql o sea que no te has molestado en mirar ni un solo texto y ni una sola línea. Desde luego tampoco has mirado nada en vb porque eso que te ha puesto celaya viene en las primeras líneas de cualquier texto que hayas mirado, pero claro, para verlo hay que leerlo y para eso hay que haberse molestado en buscarlo primero.

No digo nada ya de molestarse en darle al botón de buscar aqui.

RTFM

Hola

if not isnumeric(txt1.text) then
   txt1.text=""
else
endif

así sabes si es numérico o no el textbox entero, mientras que de la forma que yo puse se comprueba caracter a caracter.

Ambas cosas están bien, depende de como lo quieras conseguir.

Un saludo

hola
Aceptar números

Código [Seleccionar] Expandir

sub text1_keypress(keyascii as integer)
if not isnumeric(chr(keyascii)) then
   if keyascii<>8 then
      keyascii=0
   endif
endif
end sub

Convertir números, y la coma

Código [Seleccionar] Expandir

sub text1_keypress(keyascii as integer)
if not isnumeric(chr(keyascii)) then
   if keyascii=asc(".") then
       keyascii=asc(",")
   endif
   if keyascii<>asc(",") then
      if keyascii<>8 then
         exit sub
      endif
   endif
end sub

Aceptar solo letras y convertirlas a mayúsculas

Código [Seleccionar] Expandir

sub text1_keypress(keyascii as integer)
keyascii=asc(ucase(chr(keyascii)))
if keyascii<asc("A") or keyascii>asc("Z") then
   if keyascii<>asc("Ñ") then
      if keyascii<>8 then
         keyascii=0
      endif
   endif
endif
end sub

Un saludo

Hola
En vb existe la posibilidad de crear "clases" y con ellas "objetos"

Un objeto puede ser un textbox que tu pongas en un formulario y pertenece a la clase "textbox" y por tanto le corresponden una serie de propiedades y comportamientos.

Si no te gustan puedes hacer otra clase y sobre ella otros objetos con otras propiedades, ...,etc.

Las clases son MUY potentes. Se puede hacer de todo.

Cuando te compras vb microsoft te lo da con unas clases hechas. Algunas para una cosa y otras para otra. Puedes utilizarlas o crearte una clase que haga lo que tu quieras y con los comportamientos que quieras.

Digo todo esto porque es común la idea equivocada de que en vb todo se tiene que hacer con apis. Pues eso es una tontería y además impide la correcta comprensión del lenguaje. Si no te gusta algún comportamiento de algún objeto (o lo que sea) en vb pues hazte otro.

Las apis están para aquello que está mas allá del lenguaje. Sirven para acceder a rutinas propias de windows y con ellas puedes hacer por ejemplo que un formulario esté permanentemente a la vista.

Lo que es absurdo es pretender hacer todo con apis. Eso demuestra una ignorancia supina. Eso es dedicarse a goglear y hacer copypastes a trocho y mocho cuando tienes objetos que te pueden hacer eso igual o mas rápido.

Un ejemplo clásico es que quieras enviar un email. Pues como no hay nngún objeto que sea capaz de hacerlo puedes averiguar como lo hace outlook y crearte un objeto que sirva para enviar emails. En las propiedades le pones 'emisor', 'receptor','asunto' , 'mensaje' y adjunto. Luego le programas el comportamiento enviar así que cuando haces objeto.enviar envia el email.

Y es posible que en algunos casos para conseguir esas cosas necesites alguna api.

Un saludo

A ver:
Los puertos no son flores. No se ponen ni se quitan ni se meten en floreros.

Si activas emule activas el puerto tcp/4662 ¿no? ¿y que pasa cuando lo quitas? pues que ya no hay puerto tcp/4662 porque no hay nadie allí.

Cuando tu pones un programa que usa un socket y se queda a la escucha, ese programa está usando un puerto (el que tu le digas) y escuchando por ahí. Si le dices que envie algo por ese puerto lo hace y cuando ya no esté el programa ya no habrá puerto.

Así que ni apis ni flores. Si quieres tener el puerto X abierto activa un programa que haga algo (lo que tu quieras) en ese puerto.

Un saludo

Hola

luego añadia
text1.text = keyascii y me seguia dando el mismo problema. El asunto es que aun sin entender pq, no ahi que ponerle al texto del la caja el keyascii pq ahi es cuando lo repite.

Cuando profundices mas verás que puedes construir clases. Una clase es un conjunto de código que puede hacer muchas cosas (entre ellas un objeto) y definir sus propiedades y eventos.

Cuando tu inicias vb te vienen hechas unas clases (la clase form, la clase textbox, la clase label, ...) que tienen ya unas propiedades intrínsecas.

De esta forma tu puedes hacer tu propia clase y crear tus propios objetos con las propiedades y comportamiento que tu quieras, si usas un objeto de una clase ya existente este tendrá sus propiedades y tu tendras que aceptarlas o no usarlo.

El objeto textbox tiene varios eventos programados. Uno de ellos es el keypress que recoge el valor ascii de la tecla pulsada y lo agrega al resultado. Por eso tu no tienes que hacer text1=keyascii, porque ya lo hace él. Tu solo tienes que validar el código (o transformarlo) sabiendo que cuando salga será agregado (a menos que keyascii sea 0).

El control textbox funciona así y así tendrás que aceptarlo. Si quieres cambiarlo eres libre de hacer otra clase con otras propiedades y eventos que se comporten de distinta forma.

Un saludo

Hola
Si pruebas a pulsar la tecla 'a' en un textbox verás que en el evento keydown se guarda en la variable keycode el valor 67 que se corresponde con A, en cambio en el evento keypress se guarda en la variable keyascii el valor 'a' que es el que pulsaste.

Esto es porque keydown y keyup miran que tecla física se ha pulsado mientras que keypress miran que caracter has pulsado y no es lo mismo. Por eso en keypress no puedes controlar las teclas F!...F12, los control, los shift, los alt, ... porque no tienen correspondencia con ningún caracter.

Pongamos por caso que yo quiero en Visual Lisp decir que si una tecla es pulsada en minuscula, me de el resultado en mayuscula. Yo lo haria asi:
(setq letra (strcase (chr 97)))

pues aquí haces

Código [Seleccionar] Expandir

sub keypress(keyascii as integer)
keyascii=asc(ucase(chr(keyascii)))
end sub

Esto hace lo siguiente
en keyascii hay un código ascii.
Con chr(keyascii) obtengo el caractar correspondiente ('a')
con ucase('a') obtengo ese caracter en mayúsculas ('A')
con asc('A') obtengo el código ascii de lo obtenido (65)
así que cuando entré keyascii era 97 ('a') y al salir es 65 ('A')

Un saludo