グラフィックDrawLineメソッドについて教えてください。
下記のコードでは、開いた線になります。OK
mypoints(0)=New Point(10,10)
,mypoints(1)=New Point(40,70)
mypoints(2)=New Point(60,30)
mypoints(3)=New Point(90,90)
Dim g As Graphics = PictureBox3.CreateGraphics()
g.DrawLines(New Pen(Color.Blue, 1), mypoints)
ところが、下記のコードで、グラフが最後閉じられてしまいます。NG どうしてでしょうか?
For i = 0 To 48
mypoints(i) = New Point((i * 0.35), (PdaOneData(N_OneDtNo).PicData(i) * 0.05))
Debug.WriteLine(mypoints(i))
Next
Dim g As Graphics = PictureBox3.CreateGraphics()
g.DrawLines(New Pen(Color.Blue, 1), mypoints)
上記のmypoints(i) のイミディエイトウィンドウ表示は下記のとおりです。
X=0,Y=40}{X=0,Y=40}{X=1,Y=39}{X=1,Y=39}{X=1,Y=39}{X=2,Y=38}{X=2,Y=38}{X=2,Y=37}{X=3,Y=37}
・・・中省略・・・
{X=14,Y=43}{X=14,Y=43}{X=15,Y=43}{X=15,Y=43}{X=15,Y=44}{X=16,Y=44}{X=16,Y=43}{X=16,Y=42}
No.1
- 回答日時:
VB のバージョン等を含め肝心な事を書かないで質問されても期待される答えは得られないかと
思いますよ。
PdaOneData(N_OneDtNo).PicData(i) の中身がどうなっているか解らないので確認のしようが
ありませんし。
・・・中省略・・・ では、詳細が解らないし。
ご自分でどこまで確認したかも不明だし。
どこで閉じているのかも書いていないし。
For i = 0 To 48 のところを 48 → 24 にした場合はどうなるかとか?
それでも閉じるなら、1 → 順に試してどこで閉じるとか試して見たら問題が少しは見えてくるのでは
ないですか?
コードを掲載されるのなら他人が確認できるような最低限のコードを作って投稿されると解決も
早いかと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Java java 引数 戻り値のあるメソッド 3 2023/02/12 06:23
- Visual Basic(VBA) Excel VBAについて、 フォルダ内のファイルを全て開きたい場合、 FSOを使えば、Dirは使わ 1 2023/01/27 13:18
- Visual Basic(VBA) エラー処理 3 2022/04/11 14:58
- PHP jpgraphで表示されない 2 2022/10/22 09:12
- Excel(エクセル) 【マクロ】ファイルを古い順に、1個ずつ移動する 1 2022/09/06 20:30
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- JavaScript 2段階プルダウンで1段階目の選択を終えた後に選択ボックスを見えなくしたい 2 2022/07/05 21:58
- 英語 できるだけ直訳で英語の翻訳をお願いします。(英語→日本語) 1 2022/10/15 20:59
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Exel VBA 別ブックから該当デ...
-
chatgptでつくってもらったコー...
-
1、Rstudioで回帰直線を求める...
-
pythonにてseleniumを使うも、...
-
パイソンプログラム
-
ExcelのVBAコードについて教え...
-
コードを記入すると情報を出す方法
-
◾️Excel VBA 統合について Cons...
-
Microsoft Visual Studio Commu...
-
TVリモコン設定(SMILE KIDS)
-
JavaScriptの定数名が取り消し...
-
ExcelのVBAコードについて教え...
-
課題なのですがどなたかコード...
-
VB2005 RowFilterのパラメータ...
-
sinカーブの表示のさせ方
-
AccessでReplace関数を使うときに…
-
フィルターかけた後、重複を除...
-
Gitのクローンについて
-
VBA:テキストファイルの抽出に...
-
pythonで同じコード内で複数の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
pythonにてseleniumを使うも、...
-
ExcelのVBAコードについて教え...
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
ExcelのVBAコードについて教え...
-
Exel VBA 別ブックから該当デ...
-
chatgptでつくってもらったコー...
-
PreviewKeyDownイベントが2回...
-
JavaScriptの定数名が取り消し...
-
1、Rstudioで回帰直線を求める...
-
JANコードとPOSコードは同じ?
-
JavaScript|特定URLだった時、...
-
ACCESSユニオンクエリでORDER B...
-
特定行の背景色を変えたいのですが
-
変数名「cur」について
-
エクセルに見えない文字(JISX0...
-
COBOLの文法
-
Gitのクローンについて
-
Outlook VBAについて
おすすめ情報