vb.net字体画删除线,vb字体删除线代码

VB.net中怎么通过代码对textbox中的font下的各个属性进行修改？

通过下面的方法进行修改：

公司主营业务：成都网站建设、网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出坡头免费做网站回馈大家。

TextBox1.Font = New Font("Arial", 16, FontStyle.Bold)       'Arial字体,大小:16,粗体

'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic)    'Arial字体,大小:16,斜体

'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular)   'Arial字体,大小:16,正常

'TextBox1.Font = New Font("Arial", 16, FontStyle.Strikeout) 'Arial字体,大小:16,删除线

'TextBox1.Font = New Font("Arial", 16, FontStyle.Underline) 'Arial字体,大小:16,下划线

TextBox1.ForeColor = Color.Red  '前景色

VB.NET的简介

VB.net是微软最新平台技术，是.netframeworkSDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即程序集。

VB.net的版本号是VisualBasic7.0，它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和Java差不多。

VB.NET的特点

1.真正成为面向对象以及支持继承性的语言。

2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据。

3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性，也可以与其他的.NET语言交互。

4.为Windows应用程序提供了XCOPY部署，开发者不再需要为DLL的版本问题担忧。

VB.net的语言特点：

1.代码托管。被托管的代码享受.netframework提供的安全保障和垃圾回收机制，但是这也同时表明，你的程序被框在Framework里面了。API变得不太方便。

2.强大的面向对象特性。现在VB7已经是一个完全的面向对象程序。

现在VB7已经支持类的各种特性：继承，函数的覆盖，重载，虚拟，隐藏??

3.功能强大，程序界面更标准。

4.程序代码结构化更强，开发环境舒适体贴。

如何用vb做记事本 要求字体名称大小颜色斜体下划线删除线。并能够将所编写的内容存入一个文本文件中。

VB好象有点力不从心，建议使用VB。NET~~他是VB的一个最新的版本，功能相当的强大，而且一些在vb中很难实现的功能，在.net里很容易实现，如果你使用.net的话。在联络

vb中给文字增大缩小加下划线加删除线粗体斜体代码

'控件一个文本框text1,五个按钮command1至command5

Private Sub Command1_Click() '增大字体

Text1.FontSize = Text1.FontSize + 1

End Sub

Private Sub Command2_Click() '缩小字体

If Text1.FontSize  2 Then Text1.FontSize = Text1.FontSize - 1

End Sub

Private Sub Command3_Click() '变换下划线

Text1.FontUnderline = Not Text1.FontUnderline

End Sub

Private Sub Command4_Click()  '变换粗体

Text1.FontBold = Not Text1.FontBold

End Sub

Private Sub Command5_Click() '变换斜体

Text1.FontItalic = Not Text1.FontItalic

End Sub

VB中如何用代码给文字添加删除线？

VB中用代码方式给文字添加下划线和删除线，代码如下：

//Underline属性添加下划线

Private Sub Check1_Click()

Label1.Font.Underline = IIf(Check1.Value = vbChecked, True, False)

End Sub

//Strikethrough属性添加删除线

Private Sub Check2_Click()

Label1.Font.Strikethrough = IIf(Check2.Value = vbChecked, True, False)

End Sub