tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
3D棒グラフを回転角、上昇角を指定して回転表示(VB6.0) ( No.25 )  [親スレッドへ]
日時: 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



 [スレッド一覧へ] [親スレッドへ]