SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Visual Basic
Code

Visual Basic - Centrar el titulo de un formulario

Códigos Visual Basic

Para centrar el titulo de la barra de titulo de un formulario debemos: Crear un modulo Proyecto > agregar modulo e insertar el primer codigo Posteriormente agregar el siguiente codigo a nuestro/s formulario El titulo aparecerá centrado
Visitas: 21,983 - 09/05/2004 0:09:40
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


// Codigo ofrecido por Tutores.org

  1. ' ---------- MODULO
  2. Public Sub CenterC(frm As Form)
  3. Dim SpcF As Integer
  4.     Dim clen As Integer
  5.     Dim oldc As String
  6.     Dim i As Integer
  7. oldc = frm.Caption
  8. Do While Left(oldc, 1) = Space(1)
  9.         DoEvents
  10.         oldc = Right(oldc, Len(oldc) - 1)
  11.     Loop
  12.  Do While Right(oldc, 1) = Space(1)
  13.         DoEvents
  14.         oldc = Left(oldc, Len(oldc) - 1)
  15.     Loop
  16. clen = Len(oldc)
  17. If InStr(oldc, "!") <> 0 Then
  18.         If InStr(oldc, " ") <> 0 Then
  19.             clen = clen * 1.5
  20.         Else
  21.             clen = clen * 1.4
  22.         End If
  23.     Else
  24.         If InStr(oldc, " ") <> 0 Then
  25.             clen = clen * 1.4
  26.          Else
  27.             clen = clen * 1.3
  28.         End If
  29.     End If
  30.     SpcF = frm.Width / 61.2244
  31.     SpcF = SpcF - clen
  32. If SpcF > 1 Then
  33.         DoEvents
  34.         frm.Caption = Space(Int(SpcF / 2)) + oldc
  35.     Else
  36.         frm.Caption = oldc
  37.     End If
  38.   End Sub
  39.  
  40. ' ---------- FORMULARIO
  41. Dim oldsize As Long
  42.    
  43.    Private Sub Form_Resize()
  44.     If Me.Width = oldsize Then
  45.         Exit Sub
  46.     Else
  47.         CenterC Me
  48.         oldsize = Me.Width
  49.     End If
  50. End Sub
  51.  
  52. Private Sub Form_Load()
  53.     CenterC Me
  54.     oldsize = Me.Width
  55. End Sub



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Centrar el titulo de un formulario" href="http://www.tutores.org/codigo/1070/" target="_blank">Centrar el titulo de un formulario</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
Byronknival
2 5
Gracias por este código de centrado me sirvió de muchisimo.
Comentario usuario
sosos
4 5
como se centra el texto en visual basic?
osea en el codigo
Comentario usuario
jtrillo
1 5
Muchas Gracias de verdad muy útil saludos
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.