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

モッツァレラ 2005-01-06 03:03:18 No: 118605

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

Dental 2005-01-06 04:12:41 No: 118606

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

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

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

Say 2005-01-06 09:18:45 No: 118607

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

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

モッツァレラ 2005-01-06 22:48:29 No: 118608

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

モッツァレラ 2005-01-06 22:56:38 No: 118609

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