VB.NET文本框中的文本格式進(jìn)行相應(yīng)的設(shè)置

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

河?xùn)|網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián),河?xùn)|網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為河?xùn)|上千余家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)公司要多少錢，請找那個(gè)售后服務(wù)好的河?xùn)|做網(wǎng)站的公司定做！

發(fā)上來看看吧。

首先建立一個(gè)TextBox,我這里名字為TextBox2

然后放一個(gè)groupbox，在里頭放兩個(gè)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.net列表顯示圖標(biāo) 文字前面一個(gè)圖標(biāo)

Public Class Form1

Private Imgfile As String

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

ListBox1.DrawMode = DrawMode.OwnerDrawVariable

Imgfile = "X:\Users\......\Pictures\ssm.png"‘顯示為listbox的每一行文字前面的圖標(biāo)文件，換一張你自己的圖片。

End Sub

Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem

e.DrawBackground()

Dim rect As Rectangle = New Rectangle(2, e.Bounds.Y + 2, e.Bounds.Height, e.Bounds.Height - 4)

e.Graphics.DrawImage(New Bitmap(Imgfile), rect)

e.Graphics.DrawString(sender.Items(e.Index), sender.Font, New SolidBrush(sender.ForeColor), _

New RectangleF(e.Bounds.X + rect.Width, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height))

e.DrawFocusRectangle()

End Sub

End Class

vb.net 字體如何設(shè)置？（font，fontfamily）

可以利用font 設(shè)置。設(shè)置方法如下：

TextBox1.Font = New System.Drawing.Font("宋體", 10)

也可以通過字體對話框來實(shí)現(xiàn) 如：

Private Sub myButton_Click(sender As Object, e As EventArgs)

Dim myFontDialog As FontDialog

myFontDialog = New FontDialog()

If myFontDialog.ShowDialog() = DialogResult.OK Then

' Set the control's font.

myDateTimePicker.Font = myFontDialog.Font

End If

End Sub

vb.net中，如何用代碼設(shè)置字體及字號？不要彈對話框的那種

Me.RichTextBox1.SelectionFont = New Font("宋體", 14.25!, FontStyle.Bold Or FontStyle.Italic)

怎么在VB.NET的標(biāo)題欄上添加控間啊,或是怎么改變標(biāo)題欄字體的顏色?

標(biāo)題欄不能修改，但可以隱藏，自己繪制最大化、最小化、關(guān)閉按鈕和代碼，還有無邊框移動(dòng)窗體、改變窗體大小的代碼。

也可以用api，百度應(yīng)該能找到。