我正在写一个测验应用程序。
每个问题都有5个可能的答案,所以我使用5个RadioButtons来选择答案。
有些答案的文字太长而且部分答案没有显示。
是否可以在多行显示RadioButton的文本?
答案 0 :(得分:0)
请在单选按钮的TextChanged事件上尝试此代码。并更改单选按钮的属性(AutoSize = False)。
.map()
根据单选按钮的文本行调整其高度。 如果RadioButton有多于2行?然后它将单选按钮的高度更改为150。
Private Sub RadioButtonOptionD_TextChanged(sender As Object, e As EventArgs) Handles RadioButtonOptionD.TextChanged
Dim s As New Size()
s.Width = RadioButtonOptionD.Size.Width
s.Height = 0
If RadioButtonOptionD.Text.Length() <= 100 Then
s.Height = 60
RadioButtonOptionD.Size = s
ElseIf RadioButtonOptionD.Text.Length() <= 200
s.Height = 80
RadioButtonOptionD.Size = s
ElseIf RadioButtonOptionD.Text.Length() > 200
s.Height = 100
RadioButtonOptionD.Size = s
End If