VB.NET質問スレ(Part43) [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2016/06/15(水) 11:41:09.50

前スレ

VB.NET質問スレ(Part40)
http://toro.2ch.net/test/read.cgi/tech/1365857015/
VB.NET質問スレ(Part41)
http://peace.2ch.net/test/read.cgi/tech/1391334405/
VB.NET質問スレ(Part42)
http://echo.2ch.net/test/read.cgi/tech/1419148239/

**デフォルトの名無しさん** · 2017/12/24(日) 07:37:12.94

「GROUP BY キー」して、「HAVING 5件以下」して、「SelectMany」するだけだろ？
どこが難しいんだ？

**デフォルトの名無しさん** · 2017/12/24(日) 08:51:11.82

結果的に同じになればいいんだったら処理は遅くてもやり方はいろいろあると思う。

**デフォルトの名無しさん** · 2017/12/24(日) 12:14:59.40

>>873
linqで抽出した後に、データグリッドビューに表示が出来なくて何が悪いのか理解できず諦めました。
結局csvに対してsql文を書いて873さんの言う通りGroup ByとHavingで実装いたしました。
お騒がせしてしまい、すみませんでした。

**デフォルトの名無しさん** · 2018/01/08(月) 08:29:11.48

datagridviewで集計処理をやりたいです。
具体的には、項目毎の小計行をdatagridviewへ追加して、最終行に総計を出したいと思っています。

Forループでやってみたのですが、小計行を追加すると最終行が変わってしまい最終行まで処理を行えません。
Doループでやってみようと考えたのですが、最終行判定方法が分かりません。

datagridviewで上記の様な集計を行う方法を教えてください。

**デフォルトの名無しさん** · 2018/01/08(月) 17:50:23.27

データを行追加しながら小計や総計を出せば最終行を気にする必要はないと思いますが

**デフォルトの名無しさん** · 2018/01/08(月) 19:38:43.65

>>877
datatableをバインドしているのですが、datatableから1レコードづつ追加して小計行を入れる感じでしょうか？

**デフォルトの名無しさん** · 2018/01/21(日) 17:49:05.41

＜例１＞
dim a As decimal = "0.12340000"

Console.WriteLine (a)
⇒0.12340000

＜例2＞
dim a As decimal = 0.12340000
Console.WriteLine (a)
⇒0.1234

＜理想＞
dim a As decimal = "0.12340000"

Console.WriteLine (a)
⇒0.1234

理想のように出力させる方法ってないでしょうか

**デフォルトの名無しさん** · 2018/01/21(日) 18:19:11.18

>>879
Console.WriteLine(a.ToString("G29"))
または
Console.WriteLine("{0:G29}", a)

**デフォルトの名無しさん** · 2018/01/21(日) 19:42:04.55

すいません、書き方が悪かったです。

出力させると言うよりは、
dim a As decimal = "0.12340000"
の宣言後にa=0.1234と内部的に認識？させたいです。
文字列変換時のformatは使いたくありません

decimal等に一度キャストして再度decimalに戻せば消えるんでしょうか

**デフォルトの名無しさん** · 2018/01/21(日) 22:12:27.71

むしろ後続のゼロを保持するDecimalで勝手に後ろの0を消す
VBのエディタだかコンパイラだかに問題があるけど

Decimal.Parse(a.ToString("G29"))でもすれば

**デフォルトの名無しさん** · 2018/01/21(日) 22:16:38.18

何が言いたいのか何がしたいのかさっぱりわからんけど、
そもそも文字列リテラルでdecimalを初期化するのが間違ってる

**デフォルトの名無しさん** · 2018/01/22(月) 09:16:19.77

Dim a As String = "0.12340000"
Dim b As Decimal = CDec(a)

これでええで

**デフォルトの名無しさん** · 2018/01/22(月) 20:18:35.99

Decimalって後続ゼロを保持してるとかいう仕様なんだが
実際の小数点以下桁数については、取得するメソッドとかすら用意されてないぽいよな
なんでそんな片手落ちな仕様なんだろ

**デフォルトの名無しさん** · 2018/01/22(月) 21:11:58.46

>>885
これで取得できるみたい

Dim a = Decimal.Parse("0.12340000")
Dim len = Decimal.GetBits(a)(3) >> 16 And &HF
Console.WriteLine(len) ' 8

**デフォルトの名無しさん** · 2018/01/23(火) 21:18:21.91

関係あるようでないけどsqlserverのnumeric型に1とかを格納して1.000000になるのって防げないよね？
Decimalに代入して扱うとずっとゼロが残るもんで
ToString("G29")を全部に書き加えたんだけど、もっと頭の良い方法あったなら死にたい

**デフォルトの名無しさん** · 2018/01/23(火) 21:52:20.10

(1) 必要もないのにDecimalなんか使わない

(2) 必要な精度に合わせて丸めることを覚える（実数型っていうのはそうやって使う）

**デフォルトの名無しさん** · 2018/01/23(火) 22:09:43.15

Oracleだと後続ゼロは勝手に除去するし面倒やね

**デフォルトの名無しさん** · 2018/01/24(水) 01:20:12.88

>>887
SQL ServerのNumeric型は指定精度の固定小数点だし、そんなことになるか？
どうやって取得してるのか、簡単なコードあっぷしてくれ

**デフォルトの名無しさん** · 2018/01/25(木) 21:17:36.29

すんません、.net nativeってどうなったんですかね？

**デフォルトの名無しさん** · 2018/01/26(金) 00:31:48.81

>>890
datareader経由で普通に取得してた記憶がある
テーブルに格納した時点でnumericなら1.000000~みたいになるし、それがむしろ正常なのでは？

**デフォルトの名無しさん** · 2018/01/27(土) 10:54:23.24

Dim pic As PictureBox = New PictureBox
pic.Width = PictureBox3.Width
pic.Height = PictureBox3.Height
pic.Top = PictureBox3.Top
pic.Left = PictureBox3.Left
pic.BackColor = cs.GroupColor
こんな感じでインスタンスを作ってその位置と外形だけ複製したいのだがなんかよい方法ない？

**デフォルトの名無しさん** · 2018/01/27(土) 15:01:31.82

それでいいんじゃないの？

**デフォルトの名無しさん** · 2018/01/27(土) 15:15:21.70

だめだ。　もっとスマートな方法はある。何か考えろ。
デリゲート使って簡単にできんか？
それとか、、、コピーモードもあるはず

**デフォルトの名無しさん** · 2018/01/27(土) 15:42:24.58

そんな汎用的じゃない処理がライブラリにあるわけないでしょ
世の中自分を中心に回ってるとか思ってる？

**デフォルトの名無しさん** · 2018/01/27(土) 16:36:34.58

PictureBOxにコピーコンストラクタを追加する。
dim pic as picturebox = new ExPictureBox(PictureBox3)
みたいなことはできんか？

**デフォルトの名無しさん** · 2018/01/27(土) 16:56:15.88

Class exPictureBox
Inherits PictureBox
Sub New(pp As exPictureBox)
MyClass.Width = pp.Width
MyClass.Height = pp.Height
MyClass.Top = pp.Top
MyClass.Left = pp.Left
End Sub
End Class
これをPictureBoxにキャストはできんのかなー

**デフォルトの名無しさん** · 2018/01/27(土) 17:06:40.08

「継承のルールによると、派生オブジェクトは常に基本クラスの変数に代入できると規定
されています。」

できる筈だが、エラーになるな。

**デフォルトの名無しさん** · 2018/01/27(土) 17:36:25.08

>>899
マジボケ？
コンストラクタの引数の型はPictureBoxにしないとダメなんじゃないの？

それから、そんなつまらん処理のためにいちいち新しい型を作るとか無駄。
せいぜい拡張メソッドでいいでしょ

Public Module Exetnsions
　　<Extension()> _
　　Public Function GetMimic(p as PictureBox) as PictureBox
　　　　....
　　End Function
End Module

**デフォルトの名無しさん** · 2018/01/27(土) 18:02:03.55

でけたーーー。サンクス。ｗ

**デフォルトの名無しさん** · 2018/01/27(土) 18:17:58.54

IIf(count Mod 2, leftp = GroupBox4.Left, leftp = GroupBox3.Left:top += ctl.Height

これってなにか良い方法ない？

**デフォルトの名無しさん** · 2018/01/27(土) 18:50:33.41

そんなものない。だから、世の中君を中心に回ってない。
ついでに言うと、それもダメ。もう全然ダメ
それ意図した通り動かないはずだからやってみ

**デフォルトの名無しさん** · 2018/01/27(土) 22:38:38.55

ある。ぜったいにある。考えてみ。

**デフォルトの名無しさん** · 2018/01/28(日) 14:37:36.58

教えてくださいだろ

**デフォルトの名無しさん** · 2018/01/29(月) 01:02:44.26

IIF嫌いだわ

**デフォルトの名無しさん** · 2018/01/29(月) 02:58:03.61

可能であれば If 演算子を使ったほうがいい

**デフォルトの名無しさん** · 2018/01/29(月) 11:23:57.86

何かずっと頭おかしいのが荒らしまくってたんだね

**デフォルトの名無しさん** · 2018/02/12(月) 14:10:49.62

なんか廃れてるけど質問ここでいいのかな

初心者向けの本買って、
その通りにサンプルアプリ作ってるんですけど、
TextBoxコントロール入れて、fontプロパティをメイリオの16pt、
Sizeプロパティを55,55にしろってのがあるんだけど、
その通りにするとSizeが55.39に勝手になってしまって高さが55になりません

多分フォントサイズに自動的に高さを合わせてるから39に勝手になってるんだろうけど、
どうすれば高さも55になりますか？

**デフォルトの名無しさん** · 2018/02/12(月) 18:44:24.45

>>909
テキストボックスの右上の方にちっちゃい右向きの三角の記号あって▶そこクリックでMultiLineっていうの出てこない？
もしくはテキストボックスのプロパティからMultiLineをtrueにする

**最近VB2017使い始めました** · 2018/03/04(日) 10:59:53.34

VB2010使ってて最近2017使い始めたのですが、ショートカットキーでCTRL+↑してもプロシジャーの先頭に移動しません。
どなたか教えてくださいませ。

**デフォルトの名無しさん** · 2018/03/04(日) 20:58:02.16

excelシートみたいなのの無償で使えるコンポーネントない？

**デフォルトの名無しさん** · 2018/03/08(木) 17:50:00.92

Excelは無料じゃないんやで

**デフォルトの名無しさん** · 2018/03/08(木) 18:17:28.34

>>913
日本語わかりますか？

**デフォルトの名無しさん** · 2018/03/09(金) 06:52:37.89

vbにあったようなやつ

**デフォルトの名無しさん** · 2018/03/11(日) 15:20:09.39

VB初心者です。

下記のコードでアプリケーション起動時に
1.データテーブルを作成
2.CSVファイルからデータテーブルへデータを読み込み
3.データテーブルのデータをデータグリッドビューへ表示
としています。ここまでは完成しています。

アプリケーション上にデータの追加ボタンbtn_add_Clickを作成してアプリケーション上からデータをリストへ追加していきたいです。
DataTableにデータを追加して、そのデータをデータグリッドビューへ表示したいのですがどのようなコードにすればいいでしょうか？
ご教示お願い致します。
入力フォームはすでに作っていて、テキストボックスA、B、C、Dとその入力されたデータをもとに内容が変わるラベルE、Dがあります。

長文すぎて書き込み拒否されるのでコードはリンク先で失礼します。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13187386258

**デフォルトの名無しさん** · 2018/03/11(日) 18:11:33.14

DataSourceのDataTableに追加するコードをButtonのクリックイベントに書けばいい。
DataGridViewにバインドしているから反映される。
コードからバインドされたDataGridViewには追加出来ないからSourceに追加する。

**デフォルトの名無しさん** · 2018/03/11(日) 20:33:05.73

>>917
回答ありがとうございます。
いろいろ調べてDataTableに追加しようとしましたがうまくできず
DataTableと別にDataTable2をつくってDataTableと結合→DataGridViewに表示しようとしたのですがそれもでうまくできませんでした。

DataTableに追加するか
DataTable2を作成、DataTableとDataTable2を結合
のどちらかの例文を教えて頂けないでしょうか？
よろしくお願いいたします。

**デフォルトの名無しさん** · 2018/03/11(日) 20:49:13.97

DGVしゃ足りないんだからそれこそエクセル(クローン)しか無いだろ
でも.NetじゃOLE出来ないしなー
(表示だけならWebBrowserで出来るみたいだけど)

**デフォルトの名無しさん** · 2018/03/11(日) 21:35:19.22

>>918
Dim tbl As New DataTable(“table”)
Dim row As DataRow

'１列目
row = tbl.NewRow
row("Item1") = "A1"
row("Item2") = "A2"
row("Item3") = "A3"
tbl.Rows.Add(row)

'２列目
row = tbl.NewRow
row("Item1") = "B1"
row("Item2") = "B2"
row("Item3") = "B3"
tbl.Rows.Add(row)

'途中挿入
row = tbl.NewRow
row("Item1") = "C1"
row("Item2") = "C2"
row("Item3") = "C3"
tbl.Rows.InsertAt(row, 1)

みたいな感じで出来ない？

**デフォルトの名無しさん** · 2018/03/12(月) 06:35:19.03

>>920
参考にして少し弄ったらできました。
ありがとうございます。

新たな壁に直面して
DataTableをCSVファイルで保存したいのですがうまくいきません。
ご教示願います。

**デフォルトの名無しさん** · 2018/03/12(月) 06:48:40.25

>>921
https://dobon.net/vb/dotnet/file/writecsvfile.html

に書かれています。

**デフォルトの名無しさん** · 2018/03/12(月) 10:04:37.18

>>922
そのコードはどうすればボタンクリックイベントにできますか？

**デフォルトの名無しさん** · 2018/03/12(月) 12:29:50.31

クリックイベントで、ConvertDataTableToCsvにデータテーブルとcsvのパスとヘッダーを書き込むならTrueを渡して呼び出すだけ。

**デフォルトの名無しさん** · 2018/03/12(月) 13:35:16.64

>>924

パラメーターdt ,svPath,writeHeaderに対して引数が指定されていませんとエラーがでるのですがどうすればいいですか?

Private Sub btn_hozon_Click(sender As Object, e As EventArgs) Handles btn_hozon.Click

ConvertDataTableToCsv

End Sub

**デフォルトの名無しさん** · 2018/03/12(月) 17:50:12.84

>>925
ConvertDataTableToCsv(DataTable(“table”),”C:\test.csv”,True)
みたいにして引数を渡して呼び出せばいいです。
ファイル名やデータテーブル名などは、自分の環境に合わせて下さい。

**デフォルトの名無しさん** · 2018/03/12(月) 18:03:33.00

>>926
ありがとうございます。
一応保存には成功しました。

しかし、一番最期の行が消えてしまいます（CSVに保存されていない）

どうすればいいですか？

**デフォルトの名無しさん** · 2018/03/12(月) 18:28:22.27

プログラムを直せばいいんじゃね

**デフォルトの名無しさん** · 2018/03/12(月) 19:05:44.46

For文2回使って地道にやったほうが速そうだなｗ

**デフォルトの名無しさん** · 2018/03/16(金) 14:29:21.01

DataGridView上の特定の文字列のセルの文字色を変更したいですがやり方がわかりません。

例えば5列目1行目と5行目にAAAがあってこれを赤色、5列目3行目と4行目にBBBがあってこれを青色、といった感じで文字色変更したいです。

下記のコードでセルを選んで文字色を変えることには成功しましたがここからどのようにすれば、AAAやBBBといった文字列のセルの文字色を変更できるかがわかりません。

Me.database.Item(5, 1).Style.ForeColor = Color.Red

**デフォルトの名無しさん** · 2018/03/16(金) 19:09:15.24

バーカ！

**デフォルトの名無しさん** · 2018/03/16(金) 23:01:58.97

>>930
セルの値がAAAかどうかを1セルずつチェックする

**デフォルトの名無しさん** · 2018/03/17(土) 02:17:25.38

>>解決できました
回答ありがとうございます。

**デフォルトの名無しさん** · 2018/03/22(木) 21:02:32.68

すいません、ここが最適だと思ったので教えてください！！

Spread（グレープシティ社）のWindows Formのバージョン８で
右端に列を追加するにはどうすればいいですか？
右端で右クリックして列を追加すると右から2番目に追加されてしまって困っています！

**デフォルトの名無しさん** · 2018/03/22(木) 21:14:42.50

スレ違い
せっかく高い金払ってるんだからサポートに聞け

**デフォルトの名無しさん** · 2018/03/22(木) 21:23:02.10

なんだこいつ

**デフォルトの名無しさん** · 2018/03/26(月) 02:01:20.13

餅は餅屋に聞くという思考が次第に薄れてきている事を感じさせますね。

**デフォルトの名無しさん** · 2018/04/22(日) 21:23:49.07

餅屋とかそもそもないやん？

**デフォルトの名無しさん** · 2018/04/25(水) 00:37:59.07

SpreadのことはGrapeCityに、VB.NETのことはマイクロソフトに聞くべし

だったら何でこのスレあるの？

**デフォルトの名無しさん** · 2018/04/25(水) 00:42:33.35

>>939
なら自分でスレ立てすればええやん

**デフォルトの名無しさん** · 2018/04/25(水) 01:16:52.85

>>939
どこで聞くべきかを教えてくれる

**デフォルトの名無しさん** · 2018/04/26(木) 20:41:50.04

グレープシティっていいの？
あとエクセルなんとかってとこのが定番化だった気がする

**デフォルトの名無しさん** · 2018/04/27(金) 08:07:08.11

ActiveX(～VB6)までは世話になったけど、.Net になってからGrapeCity には関わるまいと誓った。

**デフォルトの名無しさん** · 2018/04/29(日) 22:50:27.19

質問させてください、2つの波形の位相差(シーター)を求めたいです。

chartコントロールに位相差の違う2つの波形を表示させてその位相差を測定したい。
例）https://blog-imgs-86-origin.fc2.com/m/0/k/m0kichiazuma416/066_01.png

最終的にはこの様な物を作りたい。
http://siesta.la.coocan.jp/zk/PwrChk2/pwrchk2.html
この作例だと、電流値と電圧値をchartコントロールに入れて、
chartコントロールに演算させて力率を出しているのだと思うのですが。
どうなんでしょうか。

**デフォルトの名無しさん** · 2018/04/29(日) 23:49:54.01

>>944
とりあえずchartコントロールに何かを計算させようって発想は根本的に間違ってるw
エクセルじゃないんだからwww
chartが担うのは表示機能だけw

当たり前だけど位相差は測定値の時系列から自分で計算するコードを書くしかない。
ひょっとしてそもそも位相差が何を意味するか分かってないんじゃないの？

**デフォルトの名無しさん** · 2018/04/30(月) 18:01:51.77

>>944
まずはChart コントロールで何が出来るか理解する
http://www001.upp.so-net.ne.jp/vb_hanatyan/vb2005/vb2013chart01.htm

これ読んでもChartコントロールは癖があるので使えるまでは試行錯誤が必要

**デフォルトの名無しさん** · 2018/05/03(木) 21:02:29.98

LISTを使いたい場合、何かImportしないとダメでしたっけ？
Dim a As New List
ってところで'List' is not declaredってエラーが出る

**デフォルトの名無しさん** · 2018/05/03(木) 22:34:02.54

(Of String)とか要るんじゃないの

**デフォルトの名無しさん** · 2018/05/03(木) 22:37:52.21

System.Collections.Generic

**デフォルトの名無しさん** · 2018/05/07(月) 18:26:29.73

VBは ; と { } がいらない所がほんと好き
JavaC#で } が続くのを見るとストレスがマッハ
なので明日からパイソン使います

**デフォルトの名無しさん** · 2018/05/07(月) 18:35:33.95

>>950
老眼になってから{}の区別つかないのでますますc系が嫌いにw

**デフォルトの名無しさん** · 2018/05/08(火) 11:32:57.05

Usingは便利だね

**デフォルトの名無しさん** · 2018/05/09(水) 04:51:37.41

どこが？

**デフォルトの名無しさん** · 2018/05/09(水) 19:08:23.70

>>953
Dispose忘れを無くせる。

**デフォルトの名無しさん** · 2018/05/09(水) 20:02:36.56

>>951
今は老眼だが、Fortran77をカード穿孔機でプログラムを書いて読ませ込んでいた学生（高専）時代、
l（小文字のエル）、I(大文字のアイ）、1（数字のいち）が見分けづらく、デバッグに難儀した思い出。

**デフォルトの名無しさん** · 2018/05/09(水) 20:08:27.63

ベテラン氏おつであります
まだ現役のプログラマーやってるの？

**デフォルトの名無しさん** · 2018/05/09(水) 20:13:31.15

教えて欲しいのですが
google chromeで任意のページを開いて2分後に閉じるってどうすれば良いですか？

**デフォルトの名無しさん** · 2018/05/09(水) 20:18:51.49

>>955
私も高専だったがokitacとtosbacだったw

**デフォルトの名無しさん** · 2018/05/09(水) 20:23:21.29

両方紙テープだったがtosbacは高速光紙テープリーダーだった
なのでテープ詰まり起こすとほぼ切れたw

**デフォルトの名無しさん** · 2018/05/09(水) 21:26:20.84

>>958
HITAC 8000シリーズのどれかだったと記憶。（HITAC10は完全に置物状態）
3年生のとき、PC実習室が出来てEPSON PC-286が導入され、HITACは教師の研究専用になったけど。

>>956
C言語で止まっているポンコツには、VBAもえっちらおっちら。（；＿；）

**デフォルトの名無しさん** · 2018/05/09(水) 22:17:16.07

パンチカードとか一回やってみてーよなあ
博物館で体験コーナーとかそういうんじゃなくて
ガチの仕事で当時の環境まで再現して・・・

957はVB.NET 別プロセス終了とかでググれ

**デフォルトの名無しさん** · 2018/05/09(水) 22:26:52.39

>>960
ｲ㌔ｗ

**デフォルトの名無しさん** · 2018/05/10(木) 10:13:54.13

BABAとえっちでオラオラですか

**デフォルトの名無しさん** · 2018/05/17(木) 06:14:28.31

JAVAが有料になったぞ

**デフォルトの名無しさん** · 2018/05/17(木) 06:44:27.13

VSは無料バージョンがあるので勝負は決まったな

**デフォルトの名無しさん** · 2018/05/17(木) 07:34:22.14

Write Once, Pay Forever

**デフォルトの名無しさん** · 2018/05/17(木) 20:32:36.91

VSも便乗するわこれ

**デフォルトの名無しさん** · 2018/05/19(土) 23:20:39.96

VB6で

Do
　If 条件
　　GoTo ラベルA
　Else
　　Exit Do
　End If
　処理A
ラベルA
　処理B
Loop

という事をしていた場合
VB.NETで作り直す際はラベル使わずにやるなら
皆さんも処理Bの部分メソッド化してますか？
それとも何か別のやり方とかやってますか？

**デフォルトの名無しさん** · 2018/05/19(土) 23:32:27.28

>>968
何この糞意味不明なコード
これ、「処理A 」の部分は絶対に通らないけど...

つーかこれ、

While 条件
　　処理B
End While

これと何が違うんだ？

**デフォルトの名無しさん** · 2018/05/19(土) 23:38:09.50

>>969
バカはしゃべるな

**デフォルトの名無しさん** · 2018/05/20(日) 00:33:14.34

ElseでExit Do だから、GOTOで飛ぶかループ抜けるかだが

まあほんとにこんなロジックなら全体的に見直すけど

**デフォルトの名無しさん** · 2018/05/20(日) 13:26:41.42

>>970
こいつも質問者と同レベルの酷い馬鹿だな