請問↓用VB.net來寫
要更改些什麼呢??
用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