Madre mia!!!!!

Que guapo se ve......

Pero tengo un problema,no se como funciona webfrom.Si me pasas como lo as hecho te lo agradezco,para ver como funciona.

Saludos y Gracias.

Madre mia!!!!!
Que guapo se ve......
Pero tengo un problema,no se como funciona webfrom.Si me pasas como lo as hecho te lo agradezco,para ver como funciona.

No esperaba esa reacción... , te comento que la imagen del de ese post no es WebForm, es tu programa en Form.

En tu programa, solo he modificado dos propiedades en cada button:

• Picture: con esta propiedad puedes elegir las imágenes del Stock que te presenta Gambas.
  
• Font: con esta propiedad puedes eligir el estilo de letra: BOLD (Negrita).
  

Para la sombra agregas un objeto Label para cada Button, le cambias las propiedades:

• Background: &HA0808080
  
• BorderColor: &HA0808080
  
• BorderRadius: 5
  
• Height: 72
  
• Width: 216
  

Ordenamiento:

• Ajusta la jerarquía  de cada Label (sombra) para que aparezca debajo de cada button, para eso usa el Tab Jerarquía que esta a la derecha del Tab Propiedades, seleccionas cada Label (sombra) y pulsas el boton de flecha: Mover a la parte superior.
  
• Arrastra cada Label justo por debajo de cada button para que simule una sombra.
  

Nota: Con  WebForm hay mas opciones de diseño del tipo Web, pero algunas cosas en la lógica de procesos cambian, cuando termines este proyecto y tengas tiempo, verifica las guías que están en: WebApp/WebForms y luego migra este proyecto a WebForm seria un buen reto tipo practica.

Saludos.

Muchisimas Gracias,me pongo en ello y si tengo duda ya te digo..

Gracias,por todo omoreno.

Saludos.

Bueno creo que he pillado tu idea y es otra cosa.....

Archivos adjuntos

---

Os ha quedado muy bien!!.

Los bordes de las etiquetas en Gambas se pueden redondear.
Lo principal es que el borde de esta sea plano.

Os muestro la creación de una etiqueta desde código, la he dejado centrada en el formulario.
De esta forma se ve en el código que propiedades influyen para lograrlo y que hace si se cambian
sus propiedades.

Código:

Const ANCHOETIQUETA As Integer = 200
Const ALTOETIQUETA As Integer = 100

Private Label1 As Label

Public Sub Form_Open()

  Label1 = New Label(Me) As "EtiquetaRedondeada"
 
  With Label1
    .Border = Border.Plain
    .BorderColor = Color.DarkCyan
    .BorderRadius = 10
    .BorderWidth = 3
    .X = (Me.W - ANCHOETIQUETA) / 2
    .Y = Me.Y / 2 + ALTOETIQUETA
    .W = ANCHOETIQUETA
    .H = ALTOETIQUETA
    .Alignment = Align.Center
    .Caption = "Bordes Redondos"
    .Font.Size = 12
    .Font.Bold = True
  End With

End

Ahora cambiemos estas dos propiedades:

Código:

....
.BorderRadius = 20
.BorderWidth = 10
...

 

---

Si al código anterior se le añade:

Código:

Private sehaceclick As Boolean

Public Sub EtiquetaRedondeada_MouseDown()
 
  sehaceclick = Not sehaceclick
 
  Label1.Background = IIf(sehaceclick, Color.DarkBlue, Color.Default)
 
  'Hace el mismo efecto con más código
  ' If Not sehaceclick Then
  '   Label1.Background = Color.DarkBlue
  ' Else
  '   Label1.Background = Color.Default
  ' Endif
 
End

Hace que el color de fondo de la etiqueta cambie de color al hacer click con el ratón.
En el caso de la etiqueta es el evento MouseDown. Aunque es una etiqueta, se puede
hacer de esta un similar a un botón.

Saludos

va quedando muy lindo!

Vale,no quisiera ponerme pesado y es ppor ello que te agradezco tu ayuda.

Mi pregunta es: El mensaje de ERROR,se puede modificar,o se puede hacer uno como quiera.


Saludos.

Archivos adjuntos

---

Mi pregunta es: El mensaje de ERROR,se puede modificar,o se puede hacer uno como quiera.

Puedes poner lo que te interesa.

En el caso de la ventana mostrada se habrá usado la clase Message para mostrar el error

Esto es un ejemplo de la ayuda online de Gambas. El error se mostrará por la consola
en este caso.

Código:

TRY KILL NombreArchivo
IF ERROR THEN PRINT "Imposible eliminar el archivo. "; Error.Text

- Intenta eliminar el archivo con su ruta contenido en la variable NombreArchivo
- Si se produce error, mostrar el mensaje y ademas usa la clase error con el método Text que devuelve el último error.

Si se usa la clase Message. Podía haber sido.

Código:

TRY KILL NombreArchivo
IF ERROR THEN Message.Error("Imposible eliminar el archivo. "; Error.Text,"Ok")

Ok se mostraría en el texto del botón 1. Puedes mostrar hasta tres botones.

Código:

Static Function Error ( Message As String [ , Button1 As String, Button2 As String, Button3 As String ] ) As Integer

Si quieres almacenar el indice del botón que se ha pulsado, este se puede asignar a una variable.
De esa forma sabrás que botón ha pulsado el usuario y realizar una acción concreta.

La depuración de los errores es otra cuestión en Gambas.

Saludos

Hola ,y perdona las molestias.

No decia eso,sino que como podria cambiar la forma de presenta el mensaje de error en una busqueda o lo que sea.La cuestion era poder hacerlo a mi manera.
He hecho un frmerror y modifico el entorno,coloco un icono y un label y pongo on boton de ok.

Que te parece como ha quedado.

Saludos.

Archivos adjuntos

---

He hecho un frmerror y modifico el entorno,coloco un icono y un label y pongo on boton de ok.

Un formulario personalizado. Claro que es posible.
 

Que te parece como ha quedado.

En concepto de las sombras detrás del botón o del mensaje, puede que el control que crea la sombra debería
estar desplazado un poco hacía la derecha.  Que ambos controles no estén alineados sus lados izquierdos.
Pero eso depende de como lo quieras, es un diseño personal.





Solo es un ejemplo. Se puede jugar tanto con el ancho del borde, como con el radio.

Saludos