Shapeを回転させたいんですが........


モッツァレラ  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を車やバス・信号にみたててアニメーションにしています。
右左折の際に、車体を回転させたかったからです


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加