パラパラ漫画

Size: px

Start display at page:

Download "パラパラ漫画"

きみおつなかわ
5 years ago
Views:

パラパラ漫画 VB 2005 3 プログラムの概要 10 枚のピクチャーボックスの夫々れにマウスを左クリックしてドラッグする事に依り連続線を引き自由な絵を描く此の場合マウスを右クリックする事に依り新たな線を描き始める事が出来る描画の対象と成る各ピクチャーボックスは戻るボタン又は進むボタンをクリックする事に依り変更する事が出来る 10 枚の絵を描き終われば ( 途中での再生も可

1 パラパラ漫画 VB プログラムの概要 10 枚のピクチャーボックスの夫々れにマウスを左クリックしてドラッグする事に依り連続線を引き自由な絵を描く此の場合マウスを右クリックする事に依り新たな線を描き始める事が出来る描画の対象と成る各ピクチャーボックスは戻るボタン又は進むボタンをクリックする事に依り変更する事が出来る 10 枚の絵を描き終われば ( 途中での再生も可 ) 再生ボタンをクリックする事に依り連続表示する事が出来る表示はトグル形式で連続して行われるので停止するには停止ボタンをクリックする今回はコントロール内でのマウス座標の取得とグラフィックスメソッドを利用した描画を学習する今回の課題項目定数の宣言 (Public Const) 単純変数と配列の宣言 (Private Dim) 標準コントロールの利用 (PictureBox Label Button Timer) プロパティの利用 (Size Location Tag Image Button X Y) イベントの利用 (Load Closing MouseDown MouseMove MouseUp Click Tick) メソッドの利用 (FromImage DrawLine Clear Refresh FromImage BringToFront) ステートメントの利用 (AddHandler: 実行時にコントロールのイベントハンドラを追加 ) 演算子 ( 代入演算子算術演算子比較演算子 ) 制御構造構文 ( 条件分岐 If ~ Then ElseIf Else End If ループ処理 For ~ Next) 今回の重点項目マウスイベントに依るマウス座標の取得 (MouseDown MouseMove MouseUp) 描画メソッドに依るグラフィックスの描画 (DrawLine Clear Refresh) 今回の応用項目描画する色や線の太さ等を自由に設定出来る様にする作成した一連の画像をファイルに記録出来る様にする -1-

オブジェクトプロパティ一覧ピクチャーボックスラベル 1 ラベル 2 ボタン 1 ボタン 2 ボタン 3 ボタン 4 タイマーコントロールの種類プロパティプロパティの設定値フォーム Name anime Text ぱらぱらアニメピクチャーボックス Name picbase BackColor White ラベル1 Name lblframetitle Text 現在のフレーム番号

2 オブジェクトプロパティ一覧ピクチャーボックスラベル 1 ラベル 2 ボタン 1 ボタン 2 ボタン 3 ボタン 4 タイマーコントロールの種類プロパティプロパティの設定値フォーム Name anime Text ぱらぱらアニメピクチャーボックス Name picbase BackColor White ラベル1 Name lblframetitle Text 現在のフレーム番号 TextAlign MiddleRight ラベル2 Name lblframenum BackColor White AutoSize False Text TextAlign 空白 MiddleRight ボタン1 Name btnmoveprev Text 戻る Tag 0 ボタン2 Name btnmovenext Text 進む Tag 1 ボタン3 Name btnplay Text 再生 Tag 0 ボタン4 Name btnstop Text 停止 Tag 1 タイマー Name tmranime Enabled False Interval

3 プログラムリスト Public Class anime ' フォームレベルでグローバルな定数の宣言 Private Const NumPic As Integer = 10 ' フォームレベルでグローバルな変数の宣言 Private FrameNum As Integer Private DrawFlag As Boolean Private StartX As Integer Private StartY As Integer Private AnimeNum As Integer Private G(NumPic - 1) As Graphics Private picanime(numpic - 1) As PictureBox 定数を使用するとプログラムの可読性が高まり修正が容易に成る定数は変数とは異なりプログラムの実行中に値を変更する事は出来ない此処で宣言した変数は同じフォーム内の総てのサブプロシージャで値の参照と設定を行う事が出来る ' フォームが読み込まれた時の処理 Private Sub anime_load( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles Me.Load Dim I As Integer 列に格納して居る ' 描画用ピクチャボックスの生成 For I = 0 To ( NumPic 1 ) ピクチャボックスの Imege プロ picanime( I ) = New PictureBox( ) パティに描画を行うキャンバス With picanime( I ) の役目をする Bitmap オブジェク.Size = picbase.size トを生成して居る.Location = picbase.location.backcolor = Color.White.Tag = I 実際に描画を行う Graphics オブ.Image = New Bitmap(.Width,.Height ) ジェクトをピクチャボックスの End With Image から生成して居る G( I ) = Graphics.FromImage( picanime( I ).Image ) Me.Controls.Add( picanime( I ) ) AddHandler picanime( I ).MouseDown, AddressOf picanime_mousedown AddHandler picanime( I ).MouseMove, AddressOf picanime_mousemove AddHandler picanime( I ).MouseUp, AddressOf picanime_mouseup Next ' 初期状態に設定 FrameNum = 0 picanime( FrameNum ).BringToFront( ) lblframenum.text = CStr( FrameNum ) DrawFlag = False 定数 NumPic 個分のピクチャボックスのインスタンスを生成し配コードで生成したコントロールはフォームの Controls コレクションに追加する必要が有る描画モードと移動モードを区別する為の変数 DrawFlag はブール型の変数で True か False の孰れかの値を取る -3-

4 ' フォームが閉じられ様と仕た時の処理 Private Sub anime_formclosing( ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs ) Handles Me.FormClosing Dim I As Integer ' タイマーの停止 tmranime.enabled = False アプリケーションを終了する場合タイマーの Enabled プロパティは必ず false にしてタイマーを止めて置く事が望ましい ' Graphics オブジェクトの開放 For I = 0 To ( NumPic 1 ) G( I ).Dispose( ) Next ' ピクチャボックスでマウスボタンが押し下げられた時の処理 Private Sub picanime_mousedown( ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs ) Dim N As Integer = sender.tag If e.button = Windows.Forms.MouseButtons.Left Then ' 左ボタンがクリックされた時の処理 DrawFlag = True StartX = e.x: StartY = e.y G( N ).DrawLine( Pens.Black, StartX, StartY, StartX, StartY ) ElseIf e.button = Windows.Forms.MouseButtons.Right Then ' 右ボタンがクリックされた時の処理 DrawFlag = False G( N ).Clear( Color.White ) End If picanime( N ).Refresh( ) ' ピクチャボックスでマウスボタンが移動した時の処理 Private Sub picanime_mousemove( ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs ) 生成したオブジェクトは終了時には必ず破棄してメモリから開放する必要が有る左右孰れかのマウスボタンを押し下げると MouseDown イベントが発生する左のマウスボタンが押された場合には引数 e の Button に H が格納されて MouseDown イベントが発生する亦右のマウスボタンが押された場合には引数 e の Button に H が格納されて居る MouseDown イベントが発生した時マウスの当該オブジェクト内での座標は引数 e の X と Y に格納されて居るマウスをオブジェクト上で移動すると MouseMove イベントが発生する Dim N As Integer = sender.tag ' 描画フラグが立って居る時の処理 If DrawFlag Then ' ピクチャボックスに線を描画 G( N ).DrawLine( Pens.Black, StartX, StartY, e.x, e.y ) picanime( N ).Refresh( ) ' 描画開始座標の更新 StartX = e.x: StartY = e.y End If 従来のコントロール配列の Index に対応する物と仕て Tag プロパティを用いるのが一般的で有る DrawLine は指定した2 点を結ぶ直線を指定したペンで描画するメソッドで有る描画モード (DrawFlag が True) の時以外は此のプロシージャは実質的には何も行わない -4-

5 ' ピクチャボックスでマウスボタンが開放された時の処理 Private Sub picanime_mouseup( ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs ) Dim N As Integer = sender.tag If DrawFlag Then G( N ).DrawLine( Pens.Black, StartX, StartY, e.x, e.y ) picanime( N ).Refresh( ) DrawFlag = False End If 押し下げて居たマウスボタンを放すと MouseUp イベントが発生する描画後は Refresh メソッドで再描画しないと描画結果が反映されない ' ボタン ( 戻る進む ) がクリックされた時の処理 Private Sub btnmove_click(byval sender As System.Object, ByVal e As System.EventArgs) _ Handles btnmoveprev.click, btnmovenext.click If sender.tag = 0 Then FrameNum -= 1 : If FrameNum < 0 Then FrameNum = NumPic - 1 Else FrameNum += 1 : If FrameNum > (NumPic - 1) Then FrameNum = 0 End If picanime( FrameNum ).BringToFront( ) lblframenum.text = CStr( FrameNum ) CStr は数値を文字列にキャストする変換関数で有る ' ボタン ( 再生停止 ) がクリックされた時の処理 Private Sub btnplay_click(byval sender As System.Object, ByVal e As System.EventArgs) _ Handles btnplay.click, btnstop.click If sender.tag = 0 Then AnimeNum = FrameNum tmranime.enabled = True Else tmranime.enabled = False FrameNum = AnimeNum - 1 End If タイマーの Enabled プロパティの True と false を切り替える事に依りタイマーを動かせたり止めたりして居る ' タイマーが一定間隔で行う処理 Private Sub tmranime_tick(byval sender As System.Object, ByVal e As System.EventArgs) _ Handles tmranime.tick BringToFront はオブジェクトを picanime( AnimeNum ).BringToFront( ) 最前面に移動させるメソッド lblframenum.text = CStr( AnimeNum ) AnimeNum += 1 : If AnimeNum > (NumPic - 1) Then AnimeNum = 0 End Class -5-

6 New キーワードに依るオブジェクトインスタンスの生成新しいオブジェクトのインスタンスを生成するキーワードオブジェクト変数配列 = New 生成するオブジェクトのコンストラクタ ( ) 宣言ステートメントや代入ステートメントの中で使用し指定したクラスのコンストラクタを呼び出して新しいオブジェクトのインスタンスを生成する New 句ではインスタンスを作成出来る定義済みクラスを指定する必要が有る New は宣言ステートメント又は代入ステートメントの中で使用しステートメントが実行されると指定したクラスのコンストラクタが呼び出されて指定した引数が渡される宣言ステートメントで使用する場合 Dim オブジェクト変数 = New 生成するオブジェクトのコンストラクタ ( ) 代入ステートメントで使用する場合 Dim オブジェクト変数 As 生成するオブジェクトの型オブジェクト変数 = New 生成するオブジェクトのコンストラクタ ( ) コンストラクタ (Constructor) とはオブジェクト指向プログラミングでオブジェクト ( クラスのインスタンス ) を新しく生成する時に呼び出す特別なメソッドで有りクラス名と同じ名前を持つ通常新しく作成したオブジェクトを初期化する為に使用する Controls コレクションの Add メソッドに依るコントロールの追加 Control オブジェクトをコントロールコレクションの末尾に追加するメソッドコンテナオブジェクト.Controls.Add( 追加するコントロール ) Form オブジェクトや Panel オブジェクト等のコンテナに成る事の出来るオブジェクトにコントロールを追加する引数には追加するコントロール名を指定し省略する事は出来ない New キーワードに依りコードで生成したコントロールは何のコレクションにも属して居ない為画面には表示されない其の為 Form オブジェクトや Panel オブジェクト等のコンテナに成る事の出来るオブジェクトのコントロールコレクションに追加する必要が有るコントロールオブジェクトは一度に 1 個のコントロールコレクションにしか割り当てる事が出来ずコントロールが既に他のコントロールの子コントロールで有る場合は別のコントロールに追加される前に其のコントロールから削除される猶追加したコントロールを削除するには Remove RemoveAt Clear の各メソッドを使用するコンテナとは他のオブジェクトを内包する事の出来るオブジェクトを謂う -6-

7 AddHandler ステートメントに依るイベントハンドラの追加イベントをイベントハンドラに関連付けるステートメント AddHandler 処理するイベントの名前 AddressOf イベントを処理するプロシージャの名前コントロールのイベントと其れを処理するイベントプロシージャを関連付ける New キーワードに依りコードで生成したコントロールは何のイベントプロシージャにも関連付けられて居ない為イベント処理が行われない其の為 AddHandler ステートメントを使用して既存のイベントプロシージャと関連付ける必要が有るイベントハンドラとは対応するイベントが発生した時に呼び出されるプロシージャで有る任意の有効なサブルーチンをイベントハンドラと仕て使用する事が出来る但しイベントハンドラはイベントソース ( イベントの発生元 ) に値を返す事が出来ない為関数 (Function プロシージャ ) をイベントハンドラと仕て使用する事は出来ない Visual Basic ではイベントハンドラに対してイベント発生元コントロール名 _ イベント名と謂う形式でイベントハンドラ名を付けて居る例えば button1 と謂う名前のボタンの Click イベントは Sub button1_click と謂う名前に成る従って独自のイベントのイベントハンドラを定義する場合は此の標準名前付け規則を使用する事が推奨されるが名前付け規則の使用は必須ではなく任意の有効なサブルーチン名を使用する事も出来る AddHandler ステートメントと RemoveHandler ステートメントを使用するとプログラムの実行中に任意の時点でイベント処理の開始や停止を行う事が出来る BringToFront メソッドに依る Z オーダーの変更コントロールを z オーダーの最前面へ移動するメソッドコントロール名.BringToFront( ) コントロールを z オーダーの最前面へ移動するコントロールは z オーダーの最前面へ移動されるコントロールが別のコントロールの子で有る場合子コントロールは z オーダーの最前面に移動される BringToFront メソッドはコントロールをトップレベルコントロールにする訳では無い猶コントロールを z オーダーの背面に移動するには SendToBack メソッドを使用する此の場合もコントロールが別のコントロールの子で有る場合子コントロールは z オーダーの背面に移動される z オーダーはプロパティではない亦 z オーダーの操作は最前面と最背面丈で 3 個のコントロールが有る様な場合真ん中の位置するには 1 個のコントロールを最前面に仕て其の後別の 1 個のコントロールを最背面にすると謂う手順を踏む事に成る Z オーダーとはコントロールの重なりの順番の事で有る亦重なり方以外にもタブオーダーを決定する要素と仕ても使用される -7-

8 PictureBox コントロールに Graphics 描画を行う為の手順 1.Graphics オブジェクトを参照する為の変数 ( 配列も可 ) を宣言する例 :Dim G = Graphics 2. ピクチャボックスの Image プロパティに Bitmap オブジェクトを割り当てる例 : ピクチャボックス.Image = New Bitmap( 幅, 高さ ) 3. ピクチャボックスの Image より Graphics オブジェクトを作成する例 :G = Graphics.FromImage( ピクチャボックス.Image ) 4.Graphics オブジェクトを通じてピクチャボックスにグラフィックスを描画する例 :G.DrawLine( Pens.Black, 100, 100, 300, 300 ) Visual Basic 6.0 の様にピクチャボックスにグラフィックメソッドで直接描画する事は出来ないコントロールの CreateGraphics メソッドに依る Graphics オブジェクトの生成 ( 再掲 ) コントロールの Graphics オブジェクトを作成するメソッド Graphics オブジェクト変数 = Object.CreateGraphics( ) コントロールに画像を表示したりグラフィックスや文字を描画する為に必要な Graphics オブジェクトを生成する生成された Graphics オブジェクトを通じてコントロールに画像を表示したりグラフィックスや文字を描画する従来の Visual Basic 6.0 以前の様にフォームやピクチャボックスにグラフィックスメソッドを使用して直接描画を行う事は出来ない猶 Graphics オブジェクトは不要に成れば Dispose メソッドを呼び出して破棄する必要が有る亦 Graphics オブジェクトは現在のウィンドウのメッセージの存続期間丈有効で有る Bitmap コンストラクタに依る Bitmap オブジェクトの生成 ( 再掲 ) Bitmap オブジェクトを作成するコンストラクタ Bitmap オブジェクト変数 = New Bitmap(Object.Image) コントロールの Image プロパティよりグラフィックスイメージのピクセルデータと其の属性で構成される GDI+ ビットマップをカプセル化したデータを保持しイメージを処理する場合に使用する Bitmap オブジェクトを生成する Bitmap コンストラクタには上記以外にも画像ファイルから生成したりサイズ丈を指定して生成したり色々なオーバーロード ( 同一のスコープ内で同一の関数や演算子に複数の定義を与える事即ち同じ名称で引数の異なる形式 ) が存在する -8-

9 Graphics オブジェクトの DrawLine メソッドに依る直線の描画座標ペアで指定された 2 点を結ぶ直線を描画するメソッド GraphicsObject.DrawLine( ペン, 始点 X 座標, 始点 Y 座標, 終点 X 座標, 終点 Y 座標 ) 始点座標と終点座標を結ぶ直線を指定したペンで描画する引数のペンには直線の色幅スタイルを指定する Pen オブジェクトを指定する引数の始点 X 座標には一方の点の X 座標を指定する引数の始点 Y 座標には一方の点の Y 座標を指定する引数の終点 X 座標には他方の点の X 座標を指定する引数の終点 Y 座標には他方の点の Y 座標を指定する座標は Integer 型 Single 型の孰れでも指定する事が出来るが両者を混在する事は出来ない猶各点を Point 構造体で指定する事も出来る Graphics オブジェクトには多彩な描画メソッドが用意されて居るが Visual Basic 6.0 の様に点を描画する Pset メソッドは用意されて居ない併し始点を終点に同じ点を指定する事に依り点を描画する事が出来るので特に問題は無い Bitmap オブジェクトの SetPixel メソッドを使用すれば点の描画を行う事が出来る Graphics オブジェクトの Clear メソッドに依る描画面のクリア描画面全体を消去し指定した背景色で塗り潰すメソッド GraphicsObject.Clear( 塗潰色 ) Color 構造体で指定した色で描画面全体を塗潰す引数の塗潰色には描画面全体を塗潰す色を Color 構造体で指定する Control オブジェクトの Refresh メソッドに依る描画面の再描画コントロールを再描画するメソッド Control.Refresh( ) 強制的にコントロールがクライアント領域を無効化し直後に其のコントロール自体と其の子コントロールを再描画する Visual Basic 6.0 の様にフォームやピクチャボックスに AutoRedraw プロパティが無い為此等のコントロールに Graphics オブジェクトを通じて描画した場合当該コントロールを Refresh メソッドを用いて再描画しないと描画が反映されないので注意を要する -9-

10 Color 構造体に依る色の指定 ( 再掲 ) Color 構造体のプロパティを使用してシステム定義色を指定する方法約 140 色がシステム定義色と仕て Color 構造体のプロパティに定義されて居る此れを使用して色を指定するは下記の通りで有る :[System.Drawing.]Color. プロパティ記述例 :[System.Drawing.]Color.Red 猶 System.Drawing 名前空間は既定で参照設定される為特に名前の衝突が起こらない限り記述する必要は無い ( 以下同じ ) Color 構造体のメソッドを使用してユーザー定義色を指定する方法ユーザ定義色を指定する FromArgb メソッドのは下記の通りで有る :[System.Drawing.]Color.FromArgb( アルファブレンド, 赤の要素, 緑の要素, 青の要素 ) 記述例 :[System.Drawing.]Color.FromArgb(128, 255, 0, 0 ) 夫々れの引数には 0~255 迄の整数の値を指定するアルファブレンドは省略する事が可能で省略した場合は 255( 不透明 ) を指定した事に成る上記以外にも SystemColors クラスのプロパティを使用してシステムカラー ( 例えばタイトルバーの色に設定されて居る色 ) を指定する方法や ColorTranslator クラスの FromOLE メソッドを使用して従来の方法で色を指定する方法が有る [System.Drawing.] SystemColors.ScrollBar [System.Drawing.]ColorTranslator.FromOLE(VB6.QBColor(14 ) [System.Drawing.]ColorTranslator.FromOLE(VB6.RGB(255, 0, 0 ) [System.Drawing.]ColorTranslator.FromOLE(&HFF80FF) 一般に Color 構造体のプロパティやメソッドを使用して色の指定を行う事が多い MouseEventArgs クラスのメンバ MouseEventArgs クラスは MouseUp MouseDown MouseMove の各イベントのデータを提供するクラスで下記のメンバが有る Button Clicks Delta X Y マウスのどのボタンが押されたかを示す値 ( 下記 ) を取得する MouseButtons.Left: マウスの左ボタンが押された MouseButtons.Middle: マウスの中央ボタンが押された MouseButtons.None: マウスボタンは押されて居ない MouseButtons.Right: マウスの右ボタンが押されたマウスボタンが押されて離された回数を取得するマウスホイールの回転回数を表す符合付きの数値を取得するマウスホイールのノッチ 1 つ分が 1 移動量に相当するマウスがクリックされた位置の x 座標を取得するマウスがクリックされた位置の y 座標を取得する -10-

11 座標系 GDI+ ではワールド座標空間ページ座標空間及びデバイス座標空間の 3 種類を使用する mygraphics.drawline( mypen, 0, 0, 160, 80 ) を呼び出す場合 DrawLine メソッドに渡す点 (0, 0) と点 (160, 80) はワールド座標空間内の点で有る GDI+ が画面上に直線を描画する前に此の座標に対して一連の変換処理が適用されるワールド座標がページ座標に変換され次にページ座標がデバイス座標に変換されるクライアント領域の左上隅ではなく内側に原点が有る座標系を使用するとする例えばクライアント領域の左端から 100 ピクセル上端から 50 ピクセルの点を原点にした場合の座標系を下左図に示す mygraphics.drawline( mypen, 0, 0, 160, 80 ) を呼び出すと下右図に示す直線が描画される此の直線の端点の座標は 3 種の座標空間では夫々れ下記の様に成るワールド (0, 0) ~ (160, 80) ページ (100, 50) ~ (260, 130) デバイス (100, 50) ~ (260, 130) ページ座標空間の原点は常にクライアント領域の左上隅で有る亦単位がピクセルで有る為デバイス座標はページ座標と同じに成る単位をピクセル以外のインチ等に設定するとデバイス座標はページ座標と異なる値に成るワールド座標からページ座標への変換をワールド変換と呼び此の変換は Graphics クラスの Transform プロパティが保持する上の例のワールド変換は x 方向に 100 単位 y 方向に 50 単位の平行移動で有る Graphics オブジェクトのワールド変換を設定し其の Graphics オブジェクトを使用して上図に示す直線を描画する例を下記に示す mygraphics.translatetransform( 100, 50 ) mygraphics.drawline( mypen, 0, 0, 160, 80 ) ページ座標からデバイス座標への変換をページ変換と呼ぶ Graphics クラスにはページ変換を操作する為の PageUnit プロパティと PageScale プロパティが有る Graphics クラスはディスプレイデバイスの水平方向及び垂直方向の dpi( インチ毎のドット数 ) を調べる為に DpiX と DpiY の 2 個の読み取り専用プロパティも提供して居る Graphics クラスの PageUnit プロパティを使用してピクセル以外の単位を指定する事が出来る (0, 0) から (2, 1) 迄直線を描画する例を下記に示す此処で点 (2, 1) は点 (0, 0) から右に 2 インチ下に 1 インチの位置に有る -11-

12 mygraphics.pageunit = GraphicsUnit.Inch mygraphics.drawline( mypen, 0, 0, 2, 1 ) ペンを構築する時にペン幅を指定しないと上記の例では 1 インチ幅の直線が描画されるペンの幅は下記に示す様に Pen コンストラクタの 2 番目の引数で指定する事が出来る Dim mypen As New Pen( Color.Black, 1 / mygraphics.dpix ) ディスプレイデバイスの dpi が水平方向で 96 ドット垂直方向で 96 ドットで有ると仮定すると上記の例で示した直線の端点の座標は 3 種の座標空間では夫々れ下記の様に成るワールド (0, 0) ~ (2, 1) ページ (0, 0) ~ (2, 1) デバイス (0, 0) ~ (192, 96) ワールド座標空間の原点はクライアント領域の左上隅で有る為ページ座標はワールド座標と同じに成る様々な効果を得る為にワールド変換とページ変換を組み合わせて実行する事も出来る例えば単位と仕てインチを使用し座標系の原点と仕てクライアント領域の左端から 2 インチ上端から 1/2 インチの点を使用するとする Graphics オブジェクトのワールド変換とページ変換を設定し (0, 0) から (2, 1) 迄直線を描画する例を下記に示す mygraphics.translatetransform( 2, 0.5F ) mygraphics.pageunit = GraphicsUnit.Inch mygraphics.drawline( mypen, 0, 0, 2, 1 ) ディスプレイデバイスの dpi が水平方向で 96 ドット垂直方向で 96 ドットで有ると仮定すると上記の例で示した直線の端点の座標は 3 種の座標空間では夫々れ下記の様に成るワールド (0, 0) ~ (2, 1) ページ (2, 0.5) ~ (4, 1.5) デバイス (192, 48) ~ (384, 144) -12-

パラパラ漫画

パラパラ漫画 C# 2005 3 プログラムの概要 10 枚のピクチャーボックスの夫々れにマウスを左クリックしてドラッグする事に依り連続線を引き自由な絵を描く此の場合マウスを右クリックする事に依り新たな線を描き始める事が出来る描画の対象と成る各ピクチャーボックスは戻るボタン又は進むボタンをクリックする事に依り変更する事が出来る 10 枚の絵を描き終われば ( 途中での再生も可 )