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

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

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

發(fā)上來看看吧。

首先建立一個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.net列表顯示圖標 文字前面一個圖標

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的每一行文字前面的圖標文件，換一張你自己的圖片。

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)

也可以通過字體對話框來實現(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的標題欄上添加控間啊,或是怎么改變標題欄字體的顏色?

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

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

本文題目：vb.net字體上標 vb中字形代碼
標題鏈接：http://jinyejixie.com/article30/dodhdso.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、網(wǎng)站設(shè)計公司、商城網(wǎng)站、標簽優(yōu)化、定制網(wǎng)站、網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)