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

如何在VB文本框中输入上标、下标 、特殊符号改用富文本框(RichTextBox)控件或通过OLE的方式调用Word文档对象 。还有一种方法就是用webbowser控件调用html文档来解决 。总之,直接在文本框中是没办法输入的 。如果是简单的符号,可以通过输入法的软键盘输入
在VB.NET中,关于top、bottom、left、right的问题这可以理解,bottom,right代表控件底和右部边界的坐标值,而非高度和宽度 。移动的话对边的边界自然同步移动的了 。
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)
【vbnet文本上下标 vb给文本框内容加下划线】Else
TextBox2.Font = New Font(TextBox2.Font, 0)
End If
End If
End Sub
可以等等别人回答,看看有没有更好的方法 。
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 = n1
End If
Next
str = str"正数的个数为 "n
str = str"最大元素的下标为 "
For i = 1 To UBound(a)
If a(i) = temp Then
str = stri" "
End If
Next
TextBox6.Text = str
vbnet文本上下标的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb给文本框内容加下划线、vbnet文本上下标的信息别忘了在本站进行查找喔 。

    推荐阅读