Question

VB中编译错误：未找到方法或数据成员，是怎么回事？

Private Sub CboFont_Change(Index As Integer)
lbl1(3).FontName = CboFont.Text
End Sub

Private Sub CboFontSize_Change(Index As Integer)
lbl1(3).FontSize = CboFontsize.Text
End Sub

Private Sub CboFontStyle_Change(Index As Integer)
If CboFontstyle.Text = "常规" Then
lbl1(3).FontBold = False
lbl1(3).Fontltalic = False
End If
If CboFontstyle.Text = "粗体" Then
lbl1(3).FontBold = True
End If
If CboFontstyle.Text = "斜体" Then
lbl1(3).Fontltalic = True
End If
If CboFontstyle.Text = "粗斜体" Then
lbl1(3).FontBold = True
lbl1(3).Fontltalic = True
End If

End Sub

Private Sub Cmd1_Click(Index As Integer)‘显示这里未找到方法或数据成员
If Index = 0 Then
Txt1.FontName = CboFont.Text
Txt1.FontSize = CboFontsize.Text
If CboFontstyle.Text = "常规" Then
Txt1.FontBold = False
Txt1.Fontltalic = False
End If
If CboFontstyle.Text = "粗体" Then
Txt1.FontBold = True
End If
If CboFontstyle.Text = "斜体" Then
Txt1.Fontltalic = True
End If
If CboFontstyle.Text = "粗斜体" Then
Txt1.FontBold = True
Txt1.Fontltalic = True
End If
End If
If Index = 1 Then
End
End If

End Sub

Answer 1

应该是你没有定义按钮控件数组吧，你只有一个按钮的话就去掉括号里的内容，多个按钮的话就创建控件数组

追问

按钮是控件数组啊。If Index = 0 Then If Index = 1 Then这两句不就是选择按钮1和2的吗？