1樓：風的離散
在**中編譯
font=""
fontname=""
fontcolor=""
.............
跪求vb的變換文字框文字的字型、字型、字號及顏色的程式 知道的說下 妹子感激你
2樓：zero豆丁
字型和字型和字號都在font裡面，顏色在forecolor裡可以設定。如果要用**的話就是：
設定具體字號是 text1.fontsize = "45" ps：雙引號內的字號可以隨意更改
或者是每點選一次加大一次 text1.fontsize= text1.fontsize +1
設定具體的字型 text1.fontname = "幼圓" ps：雙引號裡的字型可以改成其他的
設定具體的顏色 text1.forecolor = vbred ps：後面的red（紅色）可以改成其他顏色
或者號後面是顏色的**，在forecolor
設定字型 粗體 text1.fontbold =true
斜體 text1.fontitalic = true
下劃線 text1.fontunderline = true
3樓：匿名使用者
悲催啊，同樣是課程設計，怎麼你們的這個課程設計照教材的例子就能寫好7788了。我們的課程設計可比這難多了。翻翻書，這個教材上有。
4樓：風的離散
在屬性中找font 在其中設定
求用vb設計一個關於字型字號的程式?
5樓：匿名使用者
新增如下**：
private sub check1_click()
text1.fontunderline = not text1.fontunderline
end sub
private sub check2_click()
text1.fontitalic = not text1.fontitalic
end sub
private sub check3_click()
text1.fontbold = not text1.fontbold
end sub
private sub option1_click()
text1.fontname = "黑體"
end sub
private sub option2_click()
text1.fontname = "楷體_gb2312"
end sub
private sub option3_click()
text1.fontname = "隸書" '我的電腦沒有隸書字型，所以除錯時出錯
end sub
private sub option4_click()
text1.fontsize = 12
end sub
private sub option5_click()
text1.fontsize = 16
end sub
private sub option6_click()
text1.fontsize = 20
end sub
vb程式設計，在窗體上建立一文字框，通過選擇，我們可以改變文字框的字型以及字型顏色和背景顏色，執行結果
6樓：我們的夢
private sub option1_click(index as integer)
''字型、字色、背景都用控制元件陣列
text1.fontname = option1(index).caption '字型
end sub
private sub option2_click(index as integer)
if option2(index).caption = "紅色" then '背景色
text1.backcolor = vbred
elseif option2(index).caption = "綠色" then
text1.backcolor = vbgreen '色值，vb裡有定義的
else
text1.backcolor = &hff0000 '藍色16進位制值。這樣寫也行
end if
end sub
private sub option3_click(index as integer)
if option3(index).caption = "紅色" then '字色
text1.forecolor = vbred
elseif option3(index).caption = "綠色" then
text1.forecolor = vbgreen '色值，vb裡有定義的
else
text1.forecolor = &hff0000 '這是藍色值。這樣寫也行
end if
end sub
請教一個vb文字框中改變字型顏色的**！
7樓：匿名使用者
richtextbox1.selcolor = vbred富文字框要用上面這行**，不過這行**只能改變當前選中的文字的顏色和以後輸入的文字的顏色。如果想要改變所有文字的顏色，可以手動選中所有文字，再執行這上面的**，或者用以下的**代替。
dim i as long
i = richtextbox1.selstartrichtextbox1.selstart = 0richtextbox1.
sellength = len(richtextbox1.text)
richtextbox1.selcolor = vbbluerichtextbox1.selstart = i
8樓：匿名使用者
''這樣做吧 希望你能滿意 宣告2個api函式
private declare function settextcolor lib "gdi32" (byval hdc as long, byval crcolor as long) as long
private declare function getdc lib "user32" (byval hwnd as long) as long
'''然後把這條語句richtextbox1.forecolor = vbred換成如下語句:
settextcolor getdc(richtextbox1.hwnd), vbred
''你試試吧 有問題+q
9樓：匿名使用者
vb匯出excel怎樣設定字型顏色 如題！ 第1個回答例子：
xsheet.cells(row, col).font.colorindex = 3
指定excel**的某單元格字型顏色。
excel使用的是顏色索引，3就是紅色
10樓：匿名使用者
有問題呀 不好意思 忘記寫語句啦 網速太慢我這~`
11樓：彭飲通梓瑩
richtextbox1這個控制元件是不存在forecolor屬性的
vb怎麼用**設定字型字號還有字型顏色
12樓：說啊———喵
在vb6中可以通過設定物件的font屬性設定字型字號，forecolor屬性設定字型顏色。
例如，下面**實現設定文字框中的字型為」隸書「字號28磅，字型顏色為紅色
private sub ***mand1_click()text1.font.size = 28
text1.font.name = "隸書"
text1.forecolor = vbredend sub
13樓：打死不過聖誕節
字號：物件.fontsize=9
顏色：物件.forecolor=vbred
vb文字框問題
private sub text3 lostfocus index as integer text3 1 selstart 0text3 1 sellength len text3 0 text end sub 你寫法有錯誤private sub text3 0 gotfocus 應該寫是 text...
vb文字框陣列問題文字框1有12345文字框2有
private sub command1 click dim a1 as string,a2 as string,a3 as string,a4 as string dim i as integer,j as integera1 split text1.text,a2 split text2.tex...
css文字框中文字顏色的設定，css文字框想讓輸入的文字顏色明顯些，該怎樣設定？
這位你好，背景色是background color ff0000 顏色是color 00ffff css文字框想讓輸入的文字顏色明顯些，該怎樣設定？css文字框輸入字型 顏色 10 placeholder 就這樣的顏色要比輸入的文字淺，如果你要一致，你可以重構html來模擬這個效果.文字框裡面有內容...