关于vb点虐 文字格式化的信息

VB.NET格式输出函数format怎么用？

果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能

我们提供的服务有：成都做网站、成都网站设计、微信公众号开发、网站优化、网站认证、九江ssl等。为数千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的九江网站制作公司

' 如果没有指定格式，则返回字符串。哗腔樱

MyStr = Format(23) ' 返回 "23"。

' 用户自定义乱丛的格式。

MyStr = Format(5459.4, "##,##0。00") ' 返回 "圆枯5,459.40"。

MyStr = Format(334。9, "###0。00") ' 返回 "334.90"。

MyStr = Format(5, "0。00%") ' 返回 "500.00%"。

MyStr = Format("HELLO", "") ' 返回 "hello"。

MyStr = Format("This is it", "") ' 返回 "THIS IS IT

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

可以等等别人回答，看看有没有更好的方法首迟橘。旦漏

vb点虐 中format的使用

format(常量或变量凳尘伍或表达式, "格式化参数")

0.00% 以百分比枣或显示兄雹 小数点后面固定 2 位

1 - 100%

5 - 500%

0.5 - 50%

0.05 - 5%