- 日時： 2011/03/28 15:24
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：回転させながら表示,ちらつく,チラツキ,転送,ピクチャーボックスに表示 *
***********************************************************************************
-----------------------------------------------------------------------------------
投稿者：花ちゃん 3D棒グラフを回転角、上昇角を指定して回転表示 2007/07/26
-----------------------------------------------------------------------------------
3D グラフを回転角度、上昇角度変更しながら連続して回転させながら表示させている
尚、クリップボードを使って簡単なチラツキ防止対策を行っております。
チラツキ防止対策については、この掲示板でも紹介しておりますので、ご覧下さい。
http://hanatyan.sakura.ne.jp/patio/read.cgi?mode=view&no=30
'★追加部分
Timer1 コントロールとPicture1 コントロールをフォームに貼り付けておいて下さい。
グラフのタイプを 3D棒グラフにしておいて下さい。
下記をsChartViewSet() プロシージャ内かボタンのイベントにでも追加して下さい。
'------------------- グラフを回転表示する ----------------------
Timer1.Interval = 500 'お好みの速さで(10 〜 1000)設定して下さい。
'画面のチラツキ防止の為にPicture に表示
With Picture1
.AutoRedraw = True
.Visible = True
.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End With
'---------------------------------------------------------------
下記コードをそのまま追加して下さい。
Private Sub Timer1_Timer()
'3D棒グラフを回転表示
'VB5.0 ではエラーが発生
lngRotation = lngRotation + 10 '回転角度
lngElevation = lngElevation + 5 '上昇角度
DoEvents 'キーイベント等の取得の為
MSChart1.Plot.View3d.Set lngRotation, lngElevation
DoEvents
If lngElevation >= 90 Then lngElevation = -30
If lngRotation >= 360 Then lngRotation = 0
Dim tmpPic As New StdPicture
Clipboard.Clear
DoEvents
'クリップボードにコピー
MSChart1.EditCopy
DoEvents
'クリップボード内のイメージを読込
Picture1.Picture = Clipboard.GetData()
End Sub
'下記変数をForm の宣言セクションに記入して下さい。
Private lngRotation As Long '回転角度
Private lngElevation As Long '上昇角度
-------------------------------------------------------------------
以上の設定で実行すれば、グラフが回転しながら表示されるはずです。
上記の実行図
http://hanatyan.sakura.ne.jp/samplepic/chartno25-1.gif
|
3D棒グラフを回転角、上昇角を指定して回転表示(VB6.0)