VB.NET在PicTureBox控件里顯示文本,似乎并不簡單,試試這段代碼,自己琢磨一下:
我們提供的服務(wù)有:成都做網(wǎng)站、成都網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè)、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、諸暨ssl等。為近1000家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的諸暨網(wǎng)站制作公司
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim format1 As New StringFormat(StringFormatFlags.NoClip) '封裝文本布局信息(如對齊、文字方向和 Tab ??课唬?/p>
format1.LineAlignment = StringAlignment.Center '垂直居中
format1.Alignment = StringAlignment.Center '水平居中
Dim MyFont As New Font("宋體", 12, FontStyle.Regular)
Dim displayRectangle As New Rectangle() '存儲一組整數(shù),共四個,表示一個矩形的位置和大小
displayRectangle = New Rectangle(New Point(20, 20), New Size(200, 100))
e.Graphics.DrawString("歡迎使用VB Net", MyFont, Brushes.Black, RectangleF.op_Implicit(displayRectangle), format1) '顯示單元格里的文本
End Sub
文本框通常用來顯示文本字符,以下是用
VB
編寫的打開某
txt
文件,并把文件內(nèi)容顯示在文本框的步驟及代碼:
1、添加必要的組件(文本框、按鈕)
2、設(shè)置屬性:
3、編寫按鈕的響應(yīng)代碼:
Label控件是沒有辦法實現(xiàn)多種顏色的文字的,只能用RichTextBox來實現(xiàn),而且你的自定義格式字符串也沒有結(jié)尾的,這樣很不好,至少也要red紅色字/redyellow黃色字/yellow,而且實現(xiàn)也很麻煩的,下面的代碼我沒有檢測正確性,有錯誤的自己改一改吧
Dim colortag() as string
dim colors() as color
const txt as string="red紅色字/redyellow黃色字/yellow"
private sub Form_Load(object sender,eventargs e)handles mybase.load
colortag(0)="red":Colortag(1)="yellow"
colors(0)=color.red:colors(1)=color.yellow
richtextbox1.text=txt
for i as integer=0 to colortag.lenght-1
dim tag as string="" colortag(i) ""
dim endtag as string="/" colortag(i) ""
dim find as integer=1
do
find=instr(find,txt,tag)+tag.lenght
if(find0)then
dim find1 as integer=instr(find,txt,endtag)
richtextbox1.SelectionStart=find
richtextbox1.selectionlenght=find1-find
richtextbox1.selectioncolor=colors(i)
find=find1
else
exit do
end if
loop
next
end sub