请高手指点，vb按钮代码 为什么不能用

Private Sub Command1_Click()
 CmmonDialog1.FileName = ""
 CmmonDialog1.Flags = 600
 CmmonDialog1.Initdir = "C:\Stdoc1"
 CmmonDialog1.Filter = "Text(*.txt)|*.txt"
 CmmonDialog1.ShowOpen
 If CommonDialog1.FileName > "" Then
 Text1.Text = ""
 Open CommonDialog1.FileName For Input As #2
 Do While Not EOF(2)
 Line Input #2, Data1
 Text1.Text = Text1.Text + Data1 + vbCrLf
 Loop
 Close #2
 End If
 
End Sub
Private Sub Command2_Click()
CommonDialg1.ShowSave
Open CommonDialog1.FileName For Output As #1
For i = 1 To Len(Text.Text)
 Print #1, Text.Text
 Next i
 Close #1
End Sub

Private Sub Command3_Click()
CommonDialog1.Flags = 4
CommonDialog1.ShowColor
Form1.BackColor = CommonDialog1.Color
End Sub

Private Sub Command4_Click()
CommnDialog1.Flags = cdlCFBoth
CommonDialog1.ShowFont
With Text1
.FontSize = CommonDialog1.FontSize
.FontBold = CommonDialog1.FontBold
.FontItalic = CommonDialog1.FontItalic
.FontStrikethru = CommonDialog1.FontStrikethru
.FontUnderline = CommonDialog1.FontUnderline
.ForeColor = CommonDialog1.Color
End With
End Sub
--------------------编程问答-------------------- 你的控件名好像有问题。
确认添加CommonDialog1控件了吗？

如果添加上后我改了一下，应该能用。

Private Sub Command1_Click()

  CommonDialog1.FileName = ""

  CommonDialog1.Flags = 600

  CommonDialog1.Initdir = "C:\Stdoc1"

  CommonDialog1.Filter = "Text(*.txt) |*.txt"

  CommonDialog1.ShowOpen

  If CommonDialog1.FileName > "" Then

  Text1.Text = ""

  Open CommonDialog1.FileName For Input As #2

  Do While Not EOF(2)

  Line Input #2, Data1

  Text1.Text = Text1.Text + Data1 + vbCrLf

  Loop

  Close #2

  End If

  

End Sub

Private Sub Command2_Click()

CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1

For i = 1 To Len(Text.Text)

  Print #1, Text.Text

  Next i

  Close #1

End Sub



Private Sub Command3_Click()

CommonDialog1.Flags = 4

CommonDialog1.ShowColor

Form1.BackColor = CommonDialog1.Color

End Sub



Private Sub Command4_Click()

CommonDialog1.Flags = cdlCFBoth

CommonDialog1.ShowFont

With Text1

.FontSize = CommonDialog1.FontSize

.FontBold = CommonDialog1.FontBold

.FontItalic = CommonDialog1.FontItalic

.FontStrikethru = CommonDialog1.FontStrikethru

.FontUnderline = CommonDialog1.FontUnderline

.ForeColor = CommonDialog1.Color

End With

End Sub

补充：VB ,  基础类