Ｓｈａｐｅを回転させたいんですが........

---

Shapeを回転させるか、二次曲線上を移動させたいのですが、どうすればいいですか？？交通シミュレーションを作成しています

編集 削除

---

> 交通シミュレーションを作成しています
それとShapeとの繋がりがまったく分からないです。環境は何ですか?

回転って事は、VB6のShapeオブジェクトじゃなく、
Officeの図形オブジェクトのことだと勝手に判断して、
"Excel VBA"と仮定して回答します。

    Dim oShape As Excel.Shape
    Set oShape = Sheet1.Shapes(1)
    oShape.Rotation = 90   '時計回りに90度回転

編集 削除

---

Shapeコントロールに自由回転機能はありません。
回転した絵を用意して、Imageコントロール上で張り替えるなどで対応してください。

「二次曲線上の移動」はPictureBox内に移動させたいコントロールを配置し、
二次曲線の方程式で座標計算して得られたx,y座標の値をそのコントロールの
Left,Topに代入してください。

編集 削除

---

Dentalさん、Sayさん、ありがとうございましたm(__)m
さっそく試してみます
VB6.0ですが、Excelと関連した部分があるかもしれないので、
工夫してどちらも試してみます

編集 削除

---

車の流れを見て分かるように、Shapeを車やバス・信号にみたててアニメーションにしています。
右左折の際に、車体を回転させたかったからです

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。