1樓：匿名使用者
private sub ***mand1_click()label1.fontname = "楷體_gb2312"
label1.fontbold = truelabel1.fontsize = 24
label1.caption = "歡迎來到vb學習課堂"
end sub
2、用vb6.0設計一個程式，在窗體上的標籤（label）中顯示一行文字，文字內容為「歡迎進入vb的程式設計世界」
2樓：veket的小號
private sub form_load()label1.caption = "歡迎進入vb的程式設計世界"
label1.font = "文泉驛等寬正黑" '不要意思咱機子上沒有"楷體"
label1.fontsize = 14.25label1.fontbold = truelabel1.backcolor = vbredend sub
3樓：匿名使用者
首先：選中標籤，在它的屬性裡面找到font （後面一半預設是宋體），點一下font，「宋體」後面出現省略號，點省略號，在彈出的對話方塊裡改。
然後：再雙擊窗體，輸入
private sub form_load()label1.backcolor = vbredend sub
然後點執行，就可以了
4樓：宇智波東東東
好狠，這是計算機應用職專的課程吧。。。。
vb程式設計，，，設計一個程式。。。。謝謝
5樓：vb妮可
private sub form_click()clsform1.caption = "滑鼠單擊窗體"
form1.font = "楷體"
form1.fontsize = "24"
form1.fontbold = trueprint "你好，歡迎使用vb"
end sub
private sub form_dblclick()clsform1.caption = "滑鼠雙擊窗體"
form1.font = "楷體"
form1.fontsize = "24"
form1.fontbold = trueprint "再見，謝謝使用vb"
end sub
6樓：伊人尤在
private sub form_load()me.font.name = "楷體
"me.font.size = 24
me.fontbold = true
end sub
private sub form_click()me.caption = "滑鼠單擊窗體"
clsprint "你好，歡迎使用vb"
end sub
private sub form_dblclick()me.caption = "滑鼠雙單擊窗體"
clsprint "再見，謝謝使用vb"
end sub
請問如何可以用按鈕一按可改變一個標籤的字型、字號和顏色，用vb語言的，謝謝
7樓：匿名使用者
private sub ***mand1_click()label1.forecolor = vbredlabel1.fontsize = 15
label1.font = "楷體_gb2312"
end sub
private sub form_load()label1.autosize = truelabel1.caption = "楷體"
end sub
vb通過組合框內容改變標籤字型，注意是標籤請用標籤的屬性方法
8樓：匿名使用者
private sub ***bo1_click()label1.fontname = ***bo1.textend sub
private sub form_load()me.autoredraw = true
***bo1.additem "宋體
"***bo1.additem "黑體"
***bo1.additem "隸書"
***bo1.additem "微軟雅黑"
***bo1.additem "幼圓"
***bo1.additem "新宋體"
***bo1.additem "楷體_gb2312"
***bo1.additem "方正姚體"
***bo1.additem "方正舒體"
end sub
vb例項程式設計問題，字型改變，要求編出詳細程式
9樓：匿名使用者
新增好控制元件,把命令按鈕的caption屬性分別設為,宋體,黑體,華文楷體,華文仿宋
**中輸入
private sub ***mand1_click()text1.font = ***mand1.captionend sub
private sub ***mand2_click()text1.font = ***mand2.captionend sub
private sub ***mand3_click()text1.font = ***mand3.captionend sub
private sub ***mand4_click()text1.font = ***mand4.captionend sub
vb作業，請做好後打包壓縮上傳（裡面包括窗體檔案、工程檔案、可執行檔案），做對了就採納，謝謝！
10樓：楊楊玄
private sub check4_click()label1.fontstrikethru = trueend sub
private sub option1_click()label1.font = "宋體"
end sub
private sub option2_click()label1.font = "仿宋"
end sub
private sub option3_click()label1.font = "楷體"
end sub
已經做好並打包，樓上前輩做的沒有用到框架。
11樓：veket的小號
**已測完全ok ，希望採納
按要求設計一個窗體：窗體的標題為「歡迎光臨!」；窗體開始執行時居中顯示一行楷體、紅色、20磅的「歡迎使
12樓：煙花坑
**如下：
private sub form_click()me.cls
me.fontsize = 16
me.fontname = "宋體"
me.forecolor = vbbluecurrentx = -7: currenty = 2: print "恭喜你！希望繼續努力！"
end sub
private sub form_load()show
me.caption = "歡迎光臨!"
scale (-10, 10)-(10, -10)me.fontsize = 20
me.fontname = "楷體"
me.forecolor = vbred
currentx = -5: currenty = 2: print "歡迎使用vb!"
end sub
VB題在窗體上建立文字框和兩個命令按鈕 在前兩個文字框
交換 strw text1.text text1.text text2.texttext2.text strw 合併 text3.text text1.text text2.text vb語言 在窗體上建立三個文字框和兩個命令按鈕。在前兩個文字框輸入文字，單擊 交換 按鈕，將 text3.text ...
在VB中，有按鈕和文字框，單機按鈕把文字框裡的內容儲存到Excel，已經實現了，但是每次都
問題是該描述詳細些，具體要做什麼。是不是要加入到某一列，還是放入到某一個單元格？如果是加入到某個單元格 cell i,j cel i,j text 如果要加入到某一列，你要先判斷從那一行可開始存放資料，從該列第一個空單元格放起，存放前先檢測第一個空單元格位置 i 1do while cell i,j...
怎麼用VB命令按鈕實現郵件傳送？
具體解決辦法以及控制元件我可以從郵箱發給你。解決完畢後還望。vb中命令按鈕傳送怎麼寫 sub 按鈕1 click 按鈕2 click end sub 要這樣的東西？不會寫，問題也不會問，我看你洗洗睡吧。什麼意思確實不明白？傳送什麼？你這樣問不懂你你意思。vb如何自動傳送郵件 vb自動傳送郵件，首先得...