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:
'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 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
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:
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
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 ^^
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:
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
Mostrar Mensajes
