十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
在VB.NET中,对象的字体、字号、样式等是通过Font属性设置的。总体格式是“ Object.Font = New Font(字体, 字号, 字形)”。例如:
在久治等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供做网站、成都网站制作 网站设计制作按需定制,公司网站建设,企业网站建设,品牌网站制作,全网整合营销推广,成都外贸网站建设,久治网站建设费用合理。
Label1.Font = New Font("宋体", 15, FontStyle.Underline)
Label1.Font = New Font("字体", 15, FontStyle.Regular)
Font.Size是只读属性,只能用于获取字号。例如:
Dim iSize As Int32 = Label1.Font.Size
Dim s() As String = TextBox1.Text.Split("/".ToCharArray)
For i As Integer = 0 To s.Length - 1
MsgBox("第" i.ToString "个字串:" s(i))
Next
首先找到第五行,就是找vbcrlf,然后找第三个数,就是找逗号
有两种办法,一种是纯字符串处理的办法,另一种是使用数组的办法,两种方法都很简单
纯字符串处理的办法适用于任何情况下,而使用数组因性能问题,只适用于源字符串不太大的情况下
使用数组的办法:
'所有字符串
Dim dString As String = "" '请为字符串赋值
Dim dLines = dString.Split({vbCrLf}, StringSplitOptions.None)
'至少有三行才能向下执行
If dLines.Length 3 Then Return
'获取第三行
Dim dRow = dLines(2).Split(","c)
'至少有4列才能向下执行
If dRow.Length 4 Then Return
'获取第4列
Dim dValue = dRow(3)
'dValue就是想要的数据
给点提示吧,已粗体为例(完全是我自己的方法,不知别人是怎么做的):
'先获取选择的字体信息(字体、大小、样式。。。)
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定义某种样式的时候,不丢失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
在VB中是这样的,没学过VB.net,你变换一下就可以了
按你说的,用用Left,Right和Mid
Option Explicit
Private Sub Command1_Click()
Dim Num(2)
Num(0) = Val(Left(Label1.Caption, 2))
Num(1) = Val(Mid(Label1.Caption, 3, 1))
Num(2) = Val(Right(Label1.Caption, 2))
MsgBox "Num(0)=" Num(0) vbCrLf "Num(1)=" Num(1) vbCrLf "Num(2)=" Num(2)
'如果想测试是不是可以计算,可以用这一句
'MsgBox "Num(0)+1=" Num(0) + 1 vbCrLf "Num(1)+1=" Num(1) + 1 vbCrLf "Num(2)+1=" Num(2) + 1
End Sub
Private Sub Form_Load()
Label1.Caption = "12345"
End Sub
有问题请追问,满意请采纳!
工具-- 选项-- 环境-- 字体和颜色
剩下的自己看对话框吧!^_^