Mensajes

ok gracias eso el lo que buscaba

eso ya lo se y con eso creo lo textbox en el form cuando pluso en boton pero ahora quiero usar esos textbox que he creado

hola tengo este codigo para crear y eliminar textbox y labels pulsando a un boton
pero no se como usar estos textbox creados individualmente

el codigo que uso para crear los texbox es

Código [Seleccionar] Expandir


'Ejemplo de creación de controles en tiempo de ejecución
Option Explicit

'Llevará la cuenta de los controles creados
Private numControles As Long

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()
   'Crear un nuevo control de cada tipo

   
   'está declarada a nivel de módulo
   numControles = numControles + 1
   'Crear los controles
   Load Label3(numControles)
   Load Text1(numControles)
   Load Text2(numControles)
   'Posicionarlos y hacerlos visibles
   With Label3(numControles)
       .Visible = True
       .Top = Label3(numControles - 1).Top + .Height + 60
       .Caption = "" & numControles + 1 & ""
   End With
   With Text1(numControles)
       .Visible = True
       .Top = Text1(numControles - 1).Top + .Height + 30
     
   End With
   With Text2(numControles)
       .Visible = True
       .Top = Text2(numControles - 1).Top + .Height + 30
   End With
End Sub

Private Sub Label2_Click()
   'Eliminar un elemento de cada control anteriormente creado

   'El control CERO no se puede eliminar
   If numControles > 0 Then
       'Descargarlos de la memoria
       Unload Label3(numControles)
       Unload Text1(numControles)
       Unload Text2(numControles)
       numControles = numControles - 1
   End If
End Sub



espero que alguien me ayude ya que quiero usar estos textbox creados individualmente

ya no se por q sera por q uso windows 7 pero he probado con otras funciones y si funciona cuando pego el texto por ejemplo he probado con text2 = text1 y me funciona

hola gracias pero solo me funciona cuando tecleo sabe como puedo hacer cuando pege un texto en el textbox

hola
no se como hacer que al limitar el numero de letras de un textbox1 salte el texto restante a otro textbox2
por ejemplo tengo
textbox1 admite 10 letras y la palabra que tengo que escribir tiene 20
quiero que las otras diez restantes letras pasen a un textbox2
si alguien me puede ayudar gracias!

gracias. me puedes ayudar a como pasar el tiempo en segundos a formato
semanas, dias, horas, minutos, y segundos,

por ejemplo tengo tengo un unixtime cualquier y tengo el unixtime actual
si los resto el resuldo es los segundos entre esas dos fechas
y necesito pasar ese resultado a ( semanas:dias:horas:minutos:segundos )
si alguien sabe como hacer algo asi ayuda por favor

hola a todos

tengo una base de datos mysql en la tabla tengo creado un apartado llamado date y el tiempo lo inserto en formato unixtime

Esta linea de aqui abajo coresponde al unixtime extraido de la base de datos

Código [Seleccionar] Expandir


date = rs.getString(8); //unixtime en formato 1250442076 por ejemplo

ahora mi pregunta es como puedo convertir estos numeros a un formato leible en java por ejemplo: 08/16/2009 @ 12:01pm o algo parecido
espero que alguien me ayude gracias

hola a todos ^^

tengo un bot para irc echo en java que es para guardar nocias del canal en una base de datos con el comando !addnews <news>
pero no se como añadir el Timestamp de cunado la noticia fue añadida y guardarla en la tabla de la base de datos  ya esta creada y puedo añadir la notica pero no Timestamp si alguien me puede ayudar gracias ^^

[MODULO]

gracias ya lo he solucionado con este modulo

MODULO

Código [Seleccionar] Expandir


Option Explicit

Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_GETLINE = &HC4

Private Declare Function SendMessage Lib "user32" _
                                         Alias "SendMessageA" _
                                         (ByVal hwnd As Long, _
                                         ByVal wMsg As Long, _
                                         ByVal wParam As Long, _
                                         ByVal lParam As String) _
                                         As Long
'

Public Function GetLine(txtTextBox As TextBox, Optional Linea As Long) As String
    Dim LineaActual As String * 255
    Dim LineaNumero As Long
    Dim Longitud As Long
    If Linea = 0 Then 'No se pasó línea
        'La que está en la posición del cursor:
        LineaNumero = SendMessage(txtTextBox.hwnd, EM_LINEFROMCHAR, txtTextBox.SelStart, 0&)
    Else
        LineaNumero = Linea - 1 '(Base 0)
    End If
    LineaActual = String(255, Chr(255))

    Call SendMessage(txtTextBox.hwnd, EM_GETLINE, LineaNumero, LineaActual)
    Longitud = InStr(LineaActual, Chr(255))
    If Longitud > 0 Then
        GetLine = Left(LineaActual, Longitud - 1)
    Else
        GetLine = LineaActual
    End If
End Function



Replace Code

Código [Seleccionar] Expandir

largo = Len(GetLine(Text1, 5))
busco = "email:"
For i = 0 To largo Step 1
busco = busco & " "
Next
txt_Contenido = Replace(txt_Contenido, busco, "email: " & GetLine(Text1, 5))

funciona bien y facil de entender gracias por su ayuda de todos modos