Visual Basic Foro

Por el tema de borrar no podia ir algo cutre dentro de las teclas que precionamos? Algo como esto.
If asciikey = 8 then
Text1.text = left(text1.text, len(text1.text) - 1)
End if
Perdon que sea algo cutre pero estoy del celular con una antena que no es 3G y tarda muchisimo en cargar.

Saludos

PD: creo que el valor de backspace en ascii era 8 verificadlo por las dudas

Claro me olvidé de ese caso! -.-"

Entonces tendrías que agregar algo así.

If lng = 1 Then
                if keyascii = 0 and Left(text1.text,1) = "0" then
                    KeyAscii = 0
                End if
                If KeyAscii < 48 Or KeyAscii > 49 Then
                        KeyAscii = 0
                        Exit Sub
                End If

Te contesto rápido por que estoy apurado. Saludos

Manuel ante todo muchas gracias por responder.

Antes de preguntar intente usar el Wizard pero como en esta PC tengo vb6 portable y sólo genera .exe no pude probarlo
Por el tema de la 1° pregunta yo deduzco que el uso de UserControl se refiere a propiedades relacionadas con Windows, por ejemplo .HdC y que las propiedades relacionadas solamente con el control llevan el nombre de text1 (en este caso).

Por otro lado te quería peguntar si el nombre de text1 lo colocaste vos en el Wizard y si se podría, por ejemplo, cambiar por DateTxtBox (por poner un nombre más acorde al uso del UC)

Yo la verdad es que todavía no comence con los UC's estoy viendo y leyendo los que han creados otros para aprender un poco e informarme.
De momento me gustaría poder hacer un TextBox que se pueda transparentar, ya que he intentado con el RichTextBox pero no lo he logrado. Igualmente trataría de hacerlo una vez que halla experimentado con UC's no creo que se pueda hacer de "golpe y tirón" sin saber nada

Saludos

Edito: El código que agregaste en el edit hay que hacerle una corrección ya que si colocas 0 lo acepta y la fecha queda como 00/xx/xxxx
Con sólo poner un <= ya funciona bien

         If lng = 1 Then
                If KeyAscii <= 48 Or KeyAscii > 49 Then
                        KeyAscii = 0
                        Exit Sub
                End If


Hola a todos, hoy quería saber si es posible hacer que un richtexbox sea semi-transparente.

Estuve leyendo este tema http://www.recursosvisualbasic.com.ar/htm/listado-api/100-menu-combo-transparente.htm
Que trata sobre un menu y combo-box transparente (se le puede aplicar cualquier valor de Opacidad) y traté de aplicarlo al richtextbox(Box) pero no obtengo ningún resultado, normalmente el box se queda con el color de fondo negro.

De momento tengo el Box totalmente transparente, pero como estoy usando DirectX 7(DX) y el Box estaría sobre el picture que se ejecuta DX queda oculto por los gráficos dibujados por DX y sólo se ven brevemente(durante menos de 1 segundo) cuando se actualiza el Box (se agrege un texto, muevas una scroll bar).
Aquí una imagen, La parte azul es donde esta el box Transparente(sigue hacia arriba) y se el texto tapado por DX (Parte verde).


Por si no se ve la imagen
http://img833.imageshack.us/img833/3200/dibujolqh.jpg

Lo que yo quiero hacer es que el Box sea Semi-transparente y de ser posible que no sea tapado por DX, aunque ese ya es un tema aparte ^^.

Desde ya muchas Gracias por leer.

Saludos

Edit: Ya lei los Post anteriores, pero en ellos el Box queda totalmente transparente y no me sirve.

Código que uso para Transparentar Totalmente al Box
Dim result as long
result = SetWindowLong(txtChat.hWnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal color As Long, ByVal bAlpha As Byte, ByVal Alpha As Long) As Boolean
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
Public Const WS_EX_TRANSPARENT = &H20&
Public Const LWA_ALPHA = &H2&


Edit2: Me olvide de decir que estoy usando vb6 sp6, aunque supongo que con el ejemplo del combobox se dieron cuenta ^^.