Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 2 de 2
Ir a la página Anterior  1, 2
 
Esta Función Esta Correcta?
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Re: Esta Función Esta Correcta? 
 
Codificador....

Si lo de Inherits Export lo se lo que decía es que no creía que apareciera, peeeero hice las pruebas y acá traigo los resultados. si se puede pero deben colocarse varias constantes necesarias mi prueba para que sea mas o menos viables usarlo así como tu dices seria así...

Inherits TextBox

Export

'------------------------estas deben estar para que se vea en tiempo real en el ide
Public Const _IsControl As Boolean = True
Public Const _DefaultSize As String = "6,6"
Public Const _Family As String = "*"
Public Const _Group As String = "Special"
Public Const _DefaultEvent As String = "Click"
Public Const _DrawWith As String = "TextBox"
Public Const _DefaultArrangement As String = "V" ' Arrange.Vertical

'******************************************************************************************************
'esta de las properti las saque porqu no tengo gana de declarar todas las propiedades
'ya que si pones una nueva al parecer no las suma a las heredas sino que solo te muestra
'la que pones ahi, puede que lo este haciendo mal
'NOTE: Seguir viendo esto.
'
'Public Const _Properties As String = "X{Position},Y{Position}"

Public Sub _new()
'------------------------Se mira
    Dim oChusma As Observer
    oChusma = New Observer(Me) As "TextBox"
End Sub

Public Sub TextBox_Change()
'------------------------puede que sea
 Debug "algo esta sucediendo"

End

 

 




===================
No mames wey...
 
osunaosuna - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Esta Función Esta Correcta? 
 
Y como dice jsbsan... ahí esta la documentación solo que a mi no me funco lo de la posición, al ejecutar nunca aparecía en la posición que le daba yo en ide.
 




===================
No mames wey...
 
osunaosuna - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Esta Función Esta Correcta? 
 
Hola amigos

Puede que haya encontrado la solución
Y la explicación ...

Aquí hay un código que funciona para mí.

Debe crear una hoja con
1 TextBox1
1 Label1
1 Botón para salir de nombre cmd_Quitter
1 botón para limpiar el nombre cmd_Effacer
1 Nombre del botón cmd_Calculer para calcular

Coloque el código siguiente en la hoja FMain.Class ...

' gambas class file

Public Sub _new()

End

Public Sub Form_Open()
TextBox1.Text = ""                                  'que salga del cuadro de texto
Label1.Caption = ""                                 'borra la etiqueta
End
Public Sub cmd_Effacer_Click()                      'cuando alguno de vosotros al pulsar este botón
Label1.Caption = ""                                 'borra la etiqueta
TextBox1.Text = ""                                  'que salga del cuadro de texto
TextBox1.SetFocus                                   'ponemos el foco
End

Public Sub TextBox1_Change()                        'cuando el valor cambia
TextBox1.Text = UCase$(TextBox1.Text)               'al presionar una tecla en los cambios en CAPS
End

Public Sub cmd_calculer_Click()                     'Se utiliza para calcular el peso de una palabra
Dim i, j, count As Integer = 0
Dim LeMot, LeComm As String

j = Len(TextBox1.Text)                              'j contiene el número de cartas de TextBox1
If j < 2 Then                                       'si j es menos de 2 ...
i = Asc(TextBox1.Text)                              'i es el valor ASCII de la carta que figura en Cuadrodetexto1
Else                                                'de otra manera
  For count = j To 1 Step -1                          'contamos x ... 1 en pasos de -1
    i = i + Asc(TextBox1.Text, count)                   'el valor ASCII de todas las letras se cuentan
  Next
Endif
Label1.Caption = i                                  '(el peso de la palabra) se muestra el valor ASCII de las letras
TextBox1.SetFocus                                   'el foco está en TextBox1 contraseña para una nueva palabra ...
End

Public Sub cmd_Quitter_Click()
Me.Close
End

Y conseguir una calculadora de peso palabras.
Heuuu ... El peso en curso ASCII

Vamos a jugar ...

No entiendo por qué usted quiere poner una cadena en el evento de cambio de TextBox?

De hecho, el evento de cambio se produce antes de la cadena a traducir.

Nada impide establecer la secuencia de la secuencia después de entrar en el texto ...

Traté de comentar el código en español, puede no ser muy claro, pero es más fácil para que usted entienda ...

Buen día
 



 
didier18 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Esta Función Esta Correcta? 
 
jsbsan escribió: [Ver mensaje]
Codificador:

Aqui teneis la información que da la documentación oficial sobre como crear componentes  para gambas3:

Enlace

Saludos

no eso no eso es para crear controles desde cero

esto es diferente es usando la herencia añadirle   funcionalidades  a los controles existentes
eso es algo muy util

por ejemplo en este hilo podemos añadirle una opcion de que sea un texbox de solo mayusculas
escribiendo el codigo una sola vez  y reutilizar el archivo de clase en los  proyectos futuros

o  puedes hacer un texbox que cambie de color si es que tiene algo escrito
'-------------------


osunaosuna escribió: [Ver mensaje]
Codificador....

Si lo de Inherits Export lo se lo que decía es que no creía que apareciera, peeeero hice las pruebas y acá traigo los resultados. si se puede pero deben colocarse varias constantes necesarias mi prueba para que sea mas o menos viables usarlo así como tu dices seria así...


 solo en gambas 3 en las versiones anteriores no aparece
en ides de otro lenguaje parecido a gambas  aparece y  por  eso busque el como hacer lo mismo en gambas

'-----------------



con esto es suficiente no es necesario colocar esas constantes

no se ve bien en el ide pero al ejecutar funciona perfectamente
imagino que falta algo par que se vea bien en el ide
quizas una constante nose

pero como funciona bien al ejecutar nunca lo investigue



fuentes->nuevo->clase  marcar export
 

Inherits TextBox

Export
 
Public Sub _new()
'------------------------Se mira
    Dim oChusma As Observer
    oChusma = New Observer(Me) As "TextBox"
End Sub

Public Sub TextBox_Change()
 -
 message("algo esta sucediendo","nose")

End

 


ejecutar  para que aparezca el control  nuevo en el ide
 



 
última edición por codificador el Martes, 24 Junio 2014, 20:06; editado 3 veces 
codificador - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Esta Función Esta Correcta? 
 
codificador...  

Definitivamente así fue... excelente... Ya estoy reescribiendo mi biblioteca que antes funcionaba pasando le el objeto para que realice las funciones necesarias.

Creería yo que si compilo el código en una biblioteca al agregarla al proyecto la tomara... investigare pero de antemano creo que si... gracias y éxitos...
 




===================
No mames wey...
 
osunaosuna - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Esta Función Esta Correcta? 
 
osunaosuna escribió: [Ver mensaje]
codificador...  

Definitivamente así fue... excelente... Ya estoy reescribiendo mi biblioteca que antes funcionaba pasando le el objeto para que realice las funciones necesarias.

Creería yo que si compilo el código en una biblioteca al agregarla al proyecto la tomara... investigare pero de antemano creo que si... gracias y éxitos...


compilar??

si me referia a un archivo.class de codigo fuente

para reutilizar  en este caso el texbox
fuentes->nuevo->clase ----------------->pestaña existente

buscar el archivo de clase estara en .src   en eldirectorio donde guardaron el proyecto que lo crearon

ok y ejecutar para que aparezca en el ide



prefiero este modo que compilar  componente adicionales
en caso de cualquier ajuste es mas rapido modificar  y  queda todo en el ejecutable sin esas a veces molestas dependencias


edit

Public Const _DrawWith As String = "TextBox"

con eso se dibuja  como texbox en el ide

lo vi en un mensaje del hilo y en el http://gambaswiki.org/wiki/dev/gambas?l=es que sirve parcialmente para esto
 



 
última edición por codificador el Miercoles, 25 Junio 2014, 01:32; editado 2 veces 
codificador - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Esta Función Esta Correcta? 
 
Si lo de la constante también le agregue:

Public Const _Group As String = "Special"
 


Para poder seleccionar la pestaña donde quiero que estén.

Y si entiendo perfectamente lo que dices. Pero a mi forma de verlo  Crear una biblioteca compilada es mas fácil que estar agregando archivos de código, yo lo trabaje siempre así casi todas las aplicaciones que he echo son así de modulares y ahora mas aun...

Siempre cree las bibliotecas con funciones que utilizo mucho y las compile luego las agrego al proyecto en el cual las necesito y las tengo accesibles como si fueran nativas mis clases.... Siempre las creo las "Soluciones" para que sean lo mas amplias posibles así no necesito estar re acomodando el código:

Me explayo un poco mas como lo hago yo...

Tengo una clase que la llamo Conex que se dedica conectar con bases de datos y en esta misma ya tengo incluidas búsquedas por parámetros listados y rellenado de las grillas del tipo GridView con funciones para editar las celdas buscar dentro de la grilla sumar columnas cambiar a formato moneda fecha ext.

cada ves que necesito trabajar con bases de datos la incluyo en el ide y ya las tengo listas para usar en cualquier parte del código...

En definitiva seria lo mismo, desde mi humilde punto de vista a esta forma la veo mas parecida al famoso POO.

Pero vuelvo a insistir es prácticamente lo mismo.
 




===================
No mames wey...
 
osunaosuna - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes PcDuino3 Que Tal Es Esta Placa?? tincho Mundo Linux 1 Martes, 13 Diciembre 2016, 15:40 Ver último mensaje
tincho
No hay nuevos mensajes Gb.v4l Esta En Desuso Y No Esta En Gambas ... v3ctor Controles/Librerías/Componentes 10 Viernes, 02 Febrero 2018, 10:26 Ver último mensaje
Shell
No hay nuevos mensajes GauchoCAD Esta En GitHub tercoIDE Proyecto gauchoCAD 0 Domingo, 24 May 2020, 12:58 Ver último mensaje
tercoIDE
No hay nuevos mensajes Ya Esta Disponible Gambas 3.15 alessandri General 6 Sabado, 11 Julio 2020, 11:03 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 2 de 2
Ir a la página Anterior  1, 2

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron