建站
咨詢
售后
建站咨詢
新聞中心
VB。net如何設(shè)置按鈕不可控時(shí)的字體顏色
首先command的style要設(shè)為1，否則無(wú)法改變
網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)！專注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、重慶小程序開(kāi)發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了義馬免費(fèi)建站歡迎大家使用！
然后在backcolor設(shè)置顏色
按鈕的字體顏色不能改
如果想改字體顏色，簡(jiǎn)單點(diǎn)可以用image做按鈕。
如果一定要，請(qǐng)看：
在工程中添加以下模塊(Module):
Module modExtButton.bas
Option Explicit
VB怎么用代碼設(shè)置字體字號(hào)還有字體顏色？
在VB6中可以通過(guò)設(shè)置對(duì)象的Font屬性設(shè)置字體字號(hào)，F(xiàn)oreColor屬性設(shè)置字體顏色。\x0d\x0a例如，下面代碼實(shí)現(xiàn)設(shè)置文本框中的字體為”隸書“字號(hào)28磅，字體顏色為紅色\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aText1.Font.Size = 28\x0d\x0aText1.Font.Name = "隸書"\x0d\x0aText1.ForeColor = vbRed\x0d\x0aEnd Sub
Vb點(diǎn)虐 2010字體顏色問(wèn)題?
這個(gè)問(wèn)題的本質(zhì)就是隨機(jī)二字，無(wú)論c/s還是b/s里面的label1 ，只要隨機(jī)設(shè)置字體顏色屬性即可。而相關(guān)屬性我相信您肯定知道，關(guān)鍵是怎樣隨機(jī)。vb點(diǎn)虐 里面有一個(gè)隨機(jī)函數(shù)，只要利用該隨機(jī)函數(shù)，隨機(jī)生成相應(yīng)的顏色即可，然后把隨機(jī)顏色賦值給label的屬性
VB.NET如何顯示多種顏色的一段文本？
Label控件是沒(méi)有辦法實(shí)現(xiàn)多種顏色的文字的，只能用RichTextBox來(lái)實(shí)現(xiàn)，而且你的自定義格式字符串也沒(méi)有結(jié)尾的，這樣很不好，至少也要red紅色字/redyellow黃色字/yellow，而且實(shí)現(xiàn)也很麻煩的，下面的代碼我沒(méi)有檢測(cè)正確性，有錯(cuò)誤的自己改一改吧
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
分享名稱：vb點(diǎn)虐 顯示字體顏色的簡(jiǎn)單介紹
文章起源：http://fisionsoft.com.cn/article/ddgggid.html
