Mensajes

una cosa es rootear, eso lo podes hacer facil, con el programa superoneclick, podes rootear casi cualquir telefonocon android. pero el otro tema de flashear e instalarle ROMs de terceros, eso la verdad lo detesto, no se porque la gnete hace eso, si no hay nada mejor que una ROM oficial, aparte esas ROMs estan llenas de bugs y anda a saber que tienen, hay gente que vive haciendo eso, siempre lo comparo con los famosos windows UE o los windows modificados, son horribles le sacan todo y no te anda nada despues, esa es mi opinion. si tenes la 2.3.3 yo no lo cambiaria, yo tengo el samsung galaxy S2 con la version 2.3.4 y podria flashearlo e instalarle un monton de ROMS, pero no lo hago porque ya estan por liberar para mi pais la version 4.0.3 ICS.

podes hacerlo con saltos de lineas entre cada letra, pero queda horrible el codigo, es mejor crearte un control que maneje por si solo el texto, aca tenes una clase sacada de internet, la cual dibuja el texto:

Código (vbnet) [Seleccionar] Expandir

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows.Forms
Imports System.Drawing

Public Class VerticalLabel
    Inherits Label

    Public Sub New()
        SetStyle(ControlStyles.UserPaint, True)
        SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        SetStyle(ControlStyles.DoubleBuffer, True)

        Me.AutoSize = False
    End Sub

    Private Sub CalculateSize(ByVal value As String)
        Me.AutoSize = False

        Dim height As Integer = 0
        Dim width As Integer = 0
        Dim sizeTemp As New Size()

        For Each c As Char In value
            sizeTemp = TextRenderer.MeasureText(c.ToString(), Me.Font)
            height += sizeTemp.Height

            If sizeTemp.Width > width Then
                width = sizeTemp.Width
            End If
        Next

        Me.Height = height
        Me.Width = width
    End Sub

    Public Overrides Property Text() As String
        Get
            Return MyBase.Text
        End Get
        Set(ByVal value As String)
            MyBase.Text = value
            CalculateSize(value)
        End Set
    End Property

    Public Overrides Property Font() As Font
        Get
            Return MyBase.Font
        End Get
        Set(ByVal value As Font)
            MyBase.Font = value
            CalculateSize(MyBase.Text)
        End Set
    End Property

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim br As New SolidBrush(Me.ForeColor)
        Dim smt As New StringFormat()

        smt.Alignment = StringAlignment.Center

        Dim sizeTemp As New Size()
        Dim i As Integer = 0
        For Each c As Char In Text
            sizeTemp = TextRenderer.MeasureText(c.ToString(), Me.Font)
            Dim rc As New Rectangle(0, sizeTemp.Height * i, sizeTemp.Width, sizeTemp.Height)
            e.Graphics.DrawString(c.ToString(), Font, br, rc, smt)
            i += 1
        Next

        br.Dispose()
    End Sub
End Class


eso lo pones en una clase y despues te va a aparecer el control en la barra de herramientas como si fuera un control, lo unico que tenes que hacer es arrastrarlo al formulario, y cambiarle el texto que quieras y se va a mostrar vertical.

saludos.

es mas viejo esto...mira si un aguja te va a decir eso, esta bien en creer en fenomenos sin explicacion y todo lo que quieras, pero creer en esto ya es de tonto 

para hacer todas estas cosas con el textbox, por ejemplo saber la cantidad de lineas, contar palabras, etc..podes usar la api SendMessage, que te ofrece un monton de funciones para poder trabajar con los textbox y manipularlos a tu antojo.

aca hay una implementacion de lo que seria borrar la linea que vos quieras con esta api.

aparte con apis es muhco mas rapido si tenes miles de lineas.

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Private Const EM_SETSEL = &HB1
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEINDEX = &HBB

Private Sub BorrarLinea(ByVal pNumeroLinea As Long)
   Dim vComienzo As Long, vFin As Long, vCantLineas As Long
   
   With Text1
       vCantLineas = SendMessage(.hwnd, EM_GETLINECOUNT, 0, ByVal 0&)
       
       Select Case True
           Case pNumeroLinea > vCantLineas - 1
           Exit Sub
       Case pNumeroLinea = 0 And vCantLineas = 1
           vComienzo = 0
           vFin = Len(.Text)
       Case pNumeroLinea = vCantLineas - 1
           vComienzo = SendMessage(.hwnd, EM_LINEINDEX, pNumeroLinea, ByVal 0&) - 1
           vFin = Len(.Text) - vComienzo + 1
       Case Else
           vComienzo = SendMessage(.hwnd, EM_LINEINDEX, pNumeroLinea, ByVal 0&)
           vFin = SendMessage(.hwnd, EM_LINEINDEX, pNumeroLinea + 1, ByVal 0&) - vComienzo
       End Select
       
       .SetFocus
       Call SendMessage(.hwnd, EM_SETSEL, vComienzo, ByVal vFin)
       
       LockWindowUpdate .hwnd
       .SelStart = vComienzo
       .SelLength = vFin
       .SelText = vbNullString
       LockWindowUpdate False
   End With
End Sub

Private Sub Command1_Click()
   Call BorrarLinea(2) ' Borra la tercera linea del textbox
End Sub

saludos.

yo no fumaria, por mas que no haga nada, prefiero comerme un helado.

claro, me parecia que no se podia, si deberia ser con una tarjeta externa, listo, cerrado el tema, gracias.

saludos.

12GB de RAM DDR3 Problem ? 

Hola, tengo un monitor samsung que es TV tambien, que tiene entradas HDMI para conectar playstation 3 o direc tv HD...etc, me pregunto si se puede grabar lo que hay en la pantalla cuando cambio al modo HDMI, es posible ? algun programa ?

saludos.

hace poco respondi como se hace, si buscas mis post en esta categoria lo encontras.