信号機を作るには？ (ID:116119)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >後に色々考えてみた結果、エラーの原因はわかりましたが、実行してもフォームに >何も表示されていませんでした。それがなぜなのかわかりません・・・。 なんか自己完結してて何をしたのか説明してくれてませんが…(＾＾；) …それは Shape1 が Shape コントロールをフォームに貼り付けたもので、 『引数の数が一致していません。または不正なプロパティを指定しています。』 のエラーが出て、コントロール配列になってない事に気づいて、コントロール配列に したと言う事ですか？。 ↑何のことを言ってるか分からない場合は[Shape コントロール]と[コントロール配列] についてヘルプで調べてきて下さい。 Shape コントロールを貼り付けた時点で黒い四角形は表示されてるはずなので >何も表示されていませんでした。 の状態がどうして起こったかこちらからでは想像できません。 For i = 0 To 1 ' Shape With Me.Shape1(i) .BackStyle = 1 ' 不透明 .Shape = vbShapeCircle ' 円 End With Next はコントロール配列となっている２つの Shape コントロールを 不透明(デフォルトでは白くなります)の円形で表示するコードです。 ここだけ抜き出して実行するなど、どこが上手くいってないのか デバッグして確認して下さい。