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/15(金) 13:17:15.59

>>857
インデクサ(VBは既定のプロパティと言うと思うけど）も自分で書けばいいんだよそれはwww
簡単でしょw
何でこの程度のことを思いつかないのw

**デフォルトの名無しさん** · 2017/12/15(金) 13:39:16.97

それはできないでしょ。　lm.lst(i).text　みたいになってしまうから。これは面白くない。
lm(i).textにしたいわけだ。

**デフォルトの名無しさん** · 2017/12/15(金) 13:44:55.16

アッ、List(of　ss)ができるのだからできるのか？　できる筈だよな。調べてみる。

**デフォルトの名無しさん** · 2017/12/15(金) 13:47:03.03

解った！！　ありがとう。

**デフォルトの名無しさん** · 2017/12/20(水) 21:39:40.25

ここで聞くのが適切かわからなかったんですが、ご存知の方がおられましたらお教え下さい。

症状
win10のアップデート1703へ更新した直後から、datagridview内への入力時にIMEがオンになっている場合に、最初の入力文字が２つ入力される。バックスペースで消した後は、通常通り入力できる。IMEオフ時の半角は通常通り入力可能。
例えば「は」と入力しようとした場合は「hha」と下線付きで入力されてしまいます。

開発環境では再現しないのですが、何が考えられるでしょうか？
明日、IMEのプロパティのなかの直接入力をしないのチェックを外すのを試して頂く予定ですが、他に何かこうじられる手はありませんでしょうか？

**デフォルトの名無しさん** · 2017/12/20(水) 21:53:14.40

とりあえず使ってるIMEが何か調べる

**デフォルトの名無しさん** · 2017/12/20(水) 23:49:49.75

MSIMEです。

**デフォルトの名無しさん** · 2017/12/22(金) 20:50:18.27

csvから以下の様なデータをよみこんでDataGridViewに、キーが5件以上のレコードだけ表示したいのですが可能でしょうか？

キー,品名,重量,形状
A001,aaa,111,丸
B001,bbb,222,バツ

csvは5000レコード程になります。
キーは700種類くらいです。
宜しくお願いします。

**デフォルトの名無しさん** · 2017/12/22(金) 21:58:13.05

可能です

**デフォルトの名無しさん** · 2017/12/23(土) 05:25:16.08

>>866
教えていただけませんか？

**デフォルトの名無しさん** · 2017/12/23(土) 08:21:17.89

何が分からないんだ？
　CSVファイルを読み込みか？
　GroupByの使い方か？
　5件以上の抽出方法か？
　複数Groupのフラット化か？
　DataSourceプロパティか？

**デフォルトの名無しさん** · 2017/12/23(土) 08:45:58.27

>>868
csvからキーが5件以上重複しているものを抽出する部分です。

**デフォルトの名無しさん** · 2017/12/23(土) 09:20:56.16

同時には無理
まずはCSVから全データを読み込み
そのデータをLinqかなんかで絞り込む
この2つの手順が必要

**デフォルトの名無しさん** · 2017/12/23(土) 11:45:58.00

JETとかACEとかでSQL書けば同時に出来る気がしないでもないがな

**デフォルトの名無しさん** · 2017/12/23(土) 18:30:01.78

>>870
とりあえずcsvをデータテーブルに入れデータグリッドビューに表示は出来るのですが、Linqが難しく書けません。
教えていただけませんか？

5件以下のレコードだけ表示の間違いでした。

**デフォルトの名無しさん** · 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分後に閉じるってどうすれば良いですか？