プロが教えるわが家の防犯対策術!

コードは以下のとおりです。エラーメッセージは、「実行時エラー、-2147221005(800401f3),
クラス文字列が無効です」。ブレークポイントでは6行目の「Set lbl=Me.Controls.Add("Forms.Labl.1", ,True)のところで、エラーになります。Addメソッドが間違っているのでしょうか?
ご教授よろしくお願いします。

Dim lbl As MSForms.Label
Dim i As Integer, j As Integer, c As Integer
Dim Weekdays() As Variant 'データ型に注意
Weekdays() = Array("日", "月", "火", "水", "木", "金", "土")
For i = 1 To 7
Set lbl = Me.Controls.Add("Forms.Labl.1", , True)
With lbl
.Caption = Weekdays(i - 1)
.Width = 15
.Height = 15
.Left = 5 + (.Width + 2) * (i - 1)
.Top = 20
.BorderColor = &H666666
.BorderStyle = fmBorderStyleSingle
.Font.Size = 11
End With
Next

A 回答 (1件)

タイプミス? e



Set lbl = Me.Controls.Add("Forms.Label.1", , True)
    • good
    • 1

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A