發問區
會員登入
新使用者？立即註冊
.
服務首頁|服務說明|Yahoo!奇摩. 知識+ 首頁
知識分類
電腦網路
科學常識
醫療保健
煩惱心事
生活資訊
手機通訊
休閒嗜好
視聽娛樂
運動體育
社會人文
商業金融
教育學習 .如何做
煩惱
主題知識
.我要發問 發表 我要發問 ..熱門： 蛇年運勢 新年賀詞 年菜食譜 壓歲錢由來 幸運星座 主題 金蛇報喜，大過好年 用手機上知識+ .知識搜尋 ....知識+ 首頁> 電腦網路> 程式設計> VisualBasic 加入追蹤 轉寄朋友 友善列印 .知識問題|
VB.net問題. 發問者： ︴自我〃的。風格﹏＊〃 ( 初學者 5 級)
發問時間： 2009-11-26 13:15:13
解決時間： 2009-12-06 13:23:05
解答贈點： 5 ( 共有 0 人贊助 )
回答： 1 評論： 0 意見： 1
[ 檢舉 ]
網友正面評價
100%
.共有 2 人評價.請問↓程式碼
用vb.net來寫要怎們寫才對呢??
這樣寫都有錯誤
請問要怎們寫才對???
Dim FN0, FN1, FN2, FN3, FN4
Dim FS0, FS1, FS2, FS3, FS4
Private Sub Combo1_Click()
idx = Combo1.ListIndex
'-----------------------------------
Select Case idx
Case 0
RichTextBox1.SelFontName = FN0
RichTextBox1.SelFontSize = FS0
Case 1
RichTextBox1.SelFontName = FN1
RichTextBox1.SelFontSize = FS1
Case 2
RichTextBox1.SelFontName = FN2
RichTextBox1.SelFontSize = FS2
Case 3
RichTextBox1.SelFontName = FN3
RichTextBox1.SelFontSize = FS3
Case 4
RichTextBox1.SelFontName = FN4
RichTextBox1.SelFontSize = FS4
End Select
RichTextBox1.SetFocus
End Sub
Private Sub Combo2_Click()
idx = Combo2.ListIndex
'-----------------------------------
Select Case idx
Case 0
RichTextBox1.SelColor = vbRed
Case 1
RichTextBox1.SelColor = vbBlue
Case 2
RichTextBox1.SelColor = vbYellow
Case 3
RichTextBox1.SelColor = vbBlack
End Select
RichTextBox1.SetFocus
End Sub
Private Sub Combo3_Click()
idx = Combo3.ListIndex
'-----------------------------------
Select Case idx
Case 0
RichTextBox1.SelBold = False
RichTextBox1.SelItalic = False
Case 1
RichTextBox1.SelBold = True
RichTextBox1.SelItalic = False
Case 2
RichTextBox1.SelBold = False
RichTextBox1.SelItalic = True
Case 3
RichTextBox1.SelBold = True
RichTextBox1.SelItalic = True
End Select
RichTextBox1.SetFocus
End Sub
Private Sub Form_Load()
Combo1.AddItem "新細明體 9"
Combo1.AddItem "新細明體 12"
Combo1.AddItem "標楷體 14"
Combo1.AddItem "標楷體 16"
Combo1.AddItem "Arial 18"
'----------------------------------
Combo2.AddItem "紅色"
Combo2.AddItem "藍色"
Combo2.AddItem "黃色"
Combo2.AddItem "黑色"
'----------------------------------
Combo3.AddItem "標準"
Combo3.AddItem "粗體"
Combo3.AddItem "斜體"
Combo3.AddItem "粗斜體"
FN0 = "新細明體"
FS0 = 9
FN1 = "新細明體"
FS1 = 12
FN2 = "標楷體"
FS2 = 14
FN3 = "標楷體"
FS3 = 16
FN4 = "Arial"
FS4 = 18
End Sub 2009-11-27 08:54:10 補充
Combo拉下來會有標楷體 跟新細明體可以選擇
選擇玩打在RichTextBox會變成標楷體新細明體這樣
最佳解答網友票選.. 回答者： MrAYD ( 研究生 5 級 )
擅長領域： C&C++ | VisualBasic
回答時間： 2009-11-27 20:01:17
[ 檢舉 ] .
Public Class Form1
Dim FStyle As FontStyle
Dim FFamily As String
Dim FSize As Single
Dim Frist As Boolean = False
Private Sub LabEventHandle(ByVal sender As System.Object, ByVal e As System.EventArgs)
If BoldRBtn.Checked Then
FStyle = FontStyle.Bold
ElseIf ItalicRBtn.Checked Then
FStyle = FontStyle.Italic
Else
FStyle = FontStyle.Regular
End If
If Not Frist Then
FFamily = ComboBox1.SelectedText.ToString()
Frist = True
End If
FFamily = ComboBox1.SelectedItem.ToString()
Label1.Font = New Font(FFamily, FSize, FStyle)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FSize = 12
ComboBox1.Items.Add("標楷體")
ComboBox1.Items.Add("新細明體")
ComboBox1.Items.Add("細明體")
End Sub
Private Sub RadioButton1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BoldRBtn.MouseClick, ItalicRBtn.MouseClick, RegularRBtn.MouseClick
LabEventHandle(New System.Object, New System.EventArgs)
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
LabEventHandle(New System.Object, New System.EventArgs)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
LabEventHandle(New System.Object, New System.EventArgs)
End Sub
End Class
參考資料
Myself 相關詞：
Select Case idx,Private Sub,FN2,FN1,Dim Frist,Dim,ByVal,idx,FS2,FS1[ 快速連結 ] 其它回答( 0 ) | 意見( 1 ) | 評論( 0 )
.發表你的評價
你的評價 發表評價： 正面 普通 負面
評價內容： 發表 取消
.
加入追蹤 轉寄朋友 友善列印 .馬上按讚 加入 Yahoo! 奇摩 知識+ 粉絲團
•免費索取商英光碟+小書
•多益700分線上測驗題庫
•立即免費測試你的多益等級
•英文email超實用金句！
•測你在旁人眼中的英文力？
•多益700分線上測驗題庫
相關問答
[ VisualBasic ]combobox內容 出現到 text
.
[ VisualBasic ]VB6 COMMAND 執行 text 路徑檔案
.
.其他回答(0)
意見(1)
相關評論(0)
.目前沒有資料
001 意見者： yang ( 初學者 5 級 )
發表時間： 2009-11-26 15:36:13
[ 檢舉 ] ..請問大大您的程式是要做什麼的呢? 1 發表意見發表意見字數已達上限，要改成發表評論嗎？. 發表 取消 .
目前沒有資料 我要評論 註冊
會員登入 .公告： 知識團員轉粉絲全數完成 .
HOT! 拍賣 | 奇美19吋 MacBook 熱門3C .
.刊登贊助網站•全民免費學電腦 8大熱門職訓課
www.pccenter.com.tw
優惠僅到月底！學承職訓電腦課程免費學，快速提升職場競爭力，立即搶先申請！
www.pccenter.com.tw
•IT資訊人才聯合徵才培訓申請中
www.pcschool.com.tw
響應政府資訊人才培訓計畫，APP職缺大增，求職必備電腦證照，快線上申請培訓。
www.pcschool.com.tw
•免費線上電腦課程 再送職涯分析
www.lccnet.com.tw
搶先索取免費5000堂線上電腦課程，聯成再提供熱門廠商媒合，一次找到好工作！
www.lccnet.com.tw
•電腦技能培訓！學費至高補助8成
www.pcschool.com.tw
2月份電腦技能職訓開放申請，至高補助學費80%！即將額滿，立即線上填表預約。
www.pcschool.com.tw
•GOMAJI軟體進修團購超值價
www.gomaji.com
學技能也要省！揪團學時下超夯電腦課程，GOMAJI要你省上加省！
www.gomaji.com
•職訓課程學電腦設計
www.cadtc.com.tw
無基礎只需興趣從無到有學會3D動畫作品，二個月密集課程，推薦進入職場成功就業
www.cadtc.com.tw.最新VisualBasic
發問中
已解決
.命令提示字元的指令碼有哪些
excel vba 插入圖表及複製貼上問題
更多
更多
精選關鍵字
..程式碼 元件 資料 計數器 副程式 VB6 統計 VB.net 運算式 驗證 迴圈 OLE 呼叫 物件 檔案 原始檔 欄位 表單 VBA 資料庫 輸出 VB 執行檔 按鍵精靈 連結 合併 巨集 程式 陣列
.知識搜尋 ...雅虎資訊 版權所有 (c) 2013 Yahoo! Taiwan. All Rights Reserved. 「本服務設有管理員」
服務條款隱私權政策..知識+ 之問答內容是由參與Yahoo!奇摩知識+ 之網友提供，僅供參考，Yahoo!奇摩不保證其正確性。
...
.
|
phibrainno14 發表在 痞客邦 留言(0) 人氣()
留言列表
留言列表
