Vertical Text on Button control VB

Question

One of my buttons on a form needs to show vertical text like that:

S

T

O

P

I found solutions involving overriding Paint that seems too complicated for such a simple task. I tried this:

Private Sub LabelStopButton()
        Dim btTitle As String = "S" & vbCrLf & "T" & vbCrLf & "O" & vbCrLf & "P" & vbCrLf
        Me.btnStop.Text = btTitle
    End Sub

and also tried replacing vbCrLf with: vbCr, vbLf, Environment.NewLine - to no avail, same result: only the first letter "S" is showing on the button. See image.

Using Visual Studio 2008 (this is an app for an old WinCE 6.0 device).

Any advice? Thanks!

Did you stretch the button out vertically so there's enough space to display all the characters? — Sam Axe, Feb 18 '15 at 11:41
Buttons support multiline text. Just ensure your Button is acutally big enough. — sloth, Feb 18 '15 at 11:42
possible duplicate of [Multiline text as the button label in Windows Forms](http://stackoverflow.com/questions/2972077/multiline-text-as-the-button-label-in-windows-forms) — sloth, Feb 18 '15 at 11:42
Thanks. I added a link to see the result - plenty of vertical room on the control (the first "S" even shifts up to make room...). — Mor Sagmon, Feb 18 '15 at 13:08

score 3 · Accepted Answer · edited May 23 '17 at 11:43

This is a duplcate of an existing question

See https://stackoverflow.com/a/7661057/2319909

Converted code for reference:

You need to set the button to allow multiple lines. This can be achieved with following P/Invoke code.

Private Const BS_MULTILINE As Integer = &H2000
Private Const GWL_STYLE As Integer = -16

<System.Runtime.InteropServices.DllImport("coredll")> _
Private Shared Function GetWindowLong(hWnd As IntPtr, nIndex As Integer) As Integer
End Function

<System.Runtime.InteropServices.DllImport("coredll")> _
Private Shared Function SetWindowLong(hWnd As IntPtr, nIndex As Integer, dwNewLong As Integer) As Integer
End Function

Public Shared Sub MakeButtonMultiline(b As Button)
    Dim hwnd As IntPtr = b.Handle
    Dim currentStyle As Integer = GetWindowLong(hwnd, GWL_STYLE)
    Dim newStyle As Integer = SetWindowLong(hwnd, GWL_STYLE, currentStyle Or BS_MULTILINE)
End Sub

Use it like this:

MakeButtonMultiline(button1)

Please mark the answer as correct (green tick) - you dont need to change the title - Thanks — Sam Makin, Feb 18 '15 at 13:46

score 0 · Answer 2 · answered Feb 02 '22 at 21:04

0

I created vertical text on the button with the following codes :

CommandButton1.Caption = "F" & Chr(10) & "I" & Chr(10) & "L" & Chr(10) & "T" & Chr(10) & "E" & Chr(10) & "R" & Chr(10)

Source of userform

answered Feb 02 '22 at 21:04

kadrleyn

364
1
5

Vertical Text on Button control VB

2 Answers2