I wish to use a button which has a large height, but small width. I wish to rotate the text on the button -90 degrees so that it fits the button i.e. text reads from bottom of button to top.
How can I do this.
I tried using a panel instead of a button, but did not get very far.
I have searched to forum, but have not found the answer.
Dim ButtonText As String
ButtonText = "Press me"
Dim NewButtonText As String
For i = 0 To ButtonText.Length - 1
NewButtonText = NewButtonText & ButtonText.SubString2(i, i + 1) & CRLF
Next
' Removes last CRLF
NewButtonText = NewButtonText.SubString2(0, NewButtonText.Length - 1)
Button1.Text = NewButtonText
SetVertText(Button1, "Press me")
SetVertText(Label1, "Label1")
Sub SetVertText(Vw As Label, Text As String)
Dim NewText As String
For i = 0 To Text.Length - 1
NewText = NewText & Text.SubString2(i, i + 1) & CRLF
Next
' Removes last CRLF
NewText = NewText.SubString2(0, NewText.Length - 1)
Vw.Text = NewText
End Sub
I wish to use a button which has a large height, but small width. I wish to rotate the text on the button -90 degrees so that it fits the button i.e. text reads from bottom of button to top.
How can I do this.
I tried using a panel instead of a button, but did not get very far.
I have searched to forum, but have not found the answer.