vbnet文本上下标 vb给文本框内容加下划线

如何在VB文本框中输入上标、下标 、特殊符号

改用富文本框（RichTextBox）控件或通过OLE的方式调用Word文档对象。还有一种方法就是用webbowser控件调用html文档来解决。总之，直接在文本框中是没办法输入的。如果是简单的符号，可以通过输入法的软键盘输入

相关问答

Q1: 在VB.NET中，关于top、bottom、left、right的问题

这可以理解，bottom,right代表控件底和右部边界的坐标值，而非高度和宽度。移动的话对边的边界自然同步移动的了。

Q2: VB.NET文本框中的文本格式进行相应的设置

太晚了，想不出什么好方法了。

发上来看看吧。

首先建立一个TextBox,我这里名字为TextBox2

然后放一个groupbox，在里头放两个Checkbox,checkbox1为粗体，checkbox2为斜体。

代码：

Dim Bold As Boolean

Dim Italic As Boolean

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked Then

Bold = True

If Italic Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold Or FontStyle.Italic)

Else

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)

End If

Else

Bold = False

If Italic Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)

Else

TextBox2.Font = New Font(TextBox2.Font, 0)

End If

End If

End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

If CheckBox2.Checked Then

Italic = True

If Bold Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic Or FontStyle.Bold)

Else

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)

End If

Else

Italic = False

If Bold Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)

Else

TextBox2.Font = New Font(TextBox2.Font, 0)

End If

End If

End Sub

可以等等别人回答，看看有没有更好的方法。

Q3: vb.net用文本框输入数组的所有元素，数值之间用逗号分隔，统计数组中正数的个数，并显示最大值的元素下标

Dim str As String = "", temp, n As Integer

        Dim str1 As String = "12,45,2,9,41,31,66,83,2,1,-9,-91,-21"

        Dim a() As String = Split(str1, ",")

        For i = 1 To UBound(a) Step 1

            a(i) = Val(a(i))

        Next

        temp = 0

        n = 0

 

        For i = 1 To UBound(a)

            If a(i)  temp Then

                temp = a(i)

            End If

            If a(i)  0 Then

                n = n + 1

            End If

        Next

        str = str  "正数的个数为 "  n

        str = str  "最大元素的下标为 "

        For i = 1 To UBound(a)

            If a(i) = temp Then

                str = str  i  " "

            End If

        Next

 

        TextBox6.Text = str

vbnet文本上下标的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb给文本框内容加下划线、vbnet文本上下标的信息别忘了在本站进行查找喔。