VB.NET質問ｽﾚ (Part21)

VB.NET質問ｽﾚ (Part21 ..

511:デフォルトの名無しさん
07/06/06 15:32:46
>>504
IDE　に戻って　Ctrl+Break　では不満なのか。

512:504
07/06/06 15:56:09
>>511
知らなかった。そんな方法でできたとは・・・　　ありがとう。

513:デフォルトの名無しさん
07/06/06 21:06:23
なぜ、ＤＢ書き込む時のADDNEW　　がなくなったんですか？
ＶＢ６でも　皆、使わないんですか？

514:デフォルトの名無しさん
07/06/06 21:15:38
は？？？
>>513
NewRowがあるじゃないか？？？？
ん？？？
イミフ

515:デフォルトの名無しさん
07/06/06 21:59:15
うへへｗｗ

516:デフォルトの名無しさん
07/06/07 06:54:44
Visual Studioのマクロも子のスレでいけるんでしょうか？

517:513
07/06/07 09:31:44
>>514
ADDNEWがいいんです。

518:513
07/06/07 09:35:58
すまん。知らなかった。INSERT　してた。

519:デフォルトの名無しさん
07/06/08 20:40:15
なんか最近廃れてるね。

[質問１]
Nullable(of T)の型に別名をつける方法って何かないかな？

[質問２]
Windows Form用の自作の複合コントロールAがあるとして、
それを継承するコントロールA'にさらにコントロールやコンテクストメニューを追加すると、
ビルドも実行も問題ないのにA'をデザイナで開くことができなくなることがあるけど
（このとき、「ClickはReadonlyなので書き込みできない、ような意味の例外メッセージがデザイナに
表示される）こういう場合もしAに何か問題があるとしたらどんな可能性があるでしょうか？

520:デフォルトの名無しさん
07/06/08 20:50:07
>>519
[質問１]Imports NullableInt = System.Nullable(Of Integer)
[質問２]例を出せ

521:デフォルトの名無しさん
07/06/08 21:05:18
>>520
[質問１] について
なるほどこういう場合もImportsが一応使えるのか、ありがとう。

でも、（いや俺の質問の仕方が悪いのですが）その方法だとNullableIntっていう別名は
ファイルスコープ（別のファイルからは見えない）になるよね？

例えばList(of T)なら、

Public Class IntList
Inherits List(Of Integer)
End Class

のように形だけの継承をしてList(Of Integer)にIntListという別名をつけることができるわけだけど、
同じようなことがNullableでもできないかと思いまして。

[質問２] について。
まあおっしゃるとおりなんですが、そういう問題が起こってる複合コントロールは
業務で使ってるんでコード晒せないんですよ申し訳ない。

522:デフォルトの名無しさん
07/06/08 21:21:42
なんでC#だと言語レベルでNullableをサポートしてるのに
VB.NETはサポートしてないんだろうな
逆ならわかるけど

523:デフォルトの名無しさん
07/06/08 21:27:18
なんでわかるのかわからない

524:デフォルトの名無しさん
07/06/08 21:40:03
どうでもいいお手軽記法っぽいから
でもC#と違ってVB.NETはできるだけ記号を使わない方針のようだから
Dim i As Nullable Integer みたいにするんだったら意味ないと考えたのかな

525:デフォルトの名無しさん
07/06/08 21:41:51
javaで

ArrayList<Customer> arryCst = new ArrayList<Customer>();
while(rs.next()){

Customer objCst = new Customer();
objCst.setStrCode(rs.getString("code"));
objCst.setStrYomi(rs.getString("yomi"));
objCst.setStrName(rs.getString("name"));

objCst.setStrPost(rs.getString("post"));

objCst.setStrAddress(rs.getString("address"));
objCst.setStrTel(rs.getString("tel"));

arryCst.add(i,objCst);

i++;
}

見たいな事を.NETでやりたいんですが。。

あるクラスのインスタンスを作ってそのフィールドにDBからとってきた値を格納。
それを配列にしてほかのクラスに渡すようなことをしたいんです。
どうすればいいでしょうか。

526:デフォルトの名無しさん
07/06/08 21:52:18
何がわからないのか
そのように書け、としか

527:デフォルトの名無しさん
07/06/08 21:53:32
ArrayList→List

528:デフォルトの名無しさん
07/06/08 22:03:53
＞のように形だけの継承をしてList(Of Integer)にIntListという別名をつけることができるわけだけど、
やめてくれｗ

529:デフォルトの名無しさん
07/06/08 22:10:11
現在、VB.NETでClickOnceを使用し業務を作成しているのですが、
ClickOnceを使用した場合にクライアントPCのFDアクセスは可能でしょうか？

やれると思うのですが、確証が取れないのです誰か教えてください。

530:デフォルトの名無しさん
07/06/08 22:14:34
なんでテストしないの?

531:デフォルトの名無しさん
07/06/08 22:15:09
誰かができるといったら確証が持てるわけ？

532:デフォルトの名無しさん
07/06/08 22:15:51
ってかできないと思う理由は何？

533:デフォルトの名無しさん
07/06/08 22:17:40
>>528
別にごく普通の手法だと思うけど。。

534:デフォルトの名無しさん
07/06/08 22:19:48
それはおかしい

535:デフォルトの名無しさん
07/06/08 22:19:58
>>529
確証は自分が調べてやってみてから聞けよ
そうやってなんでもネットで調べようとするからカスになるんだ

536:デフォルトの名無しさん
07/06/08 22:31:09
>>533
ネタだよね？ね？

537:デフォルトの名無しさん
07/06/08 22:43:41
>>536
別に君がそう思いたければ思えばいいと思うよ俺は止めない。
内心馬鹿だな、とは思うが。

少なくとも俺は外部に公開するときに

Public Funtion Hoge() as List(of MyStruct)

みたいなことは不恰好だし面倒だしやってられない。
すれにList(of T)ってのは後々案外機能を拡張したくなったりするから
それに備える意味でも都合がいいしね。

538:デフォルトの名無しさん
07/06/08 23:06:10
まあ自分が使う分にはいいんじゃない

539:デフォルトの名無しさん
07/06/09 00:23:56
別名つけるのにそんなことしたら不便になる面もある。
まあ、その辺は割り切ってやってしまうってのもありだとは思うが。

やらないのは馬鹿みたいなのは本気か？と思うぞ。

540:デフォルトの名無しさん
07/06/09 01:01:11
>>539
すまん・・・俺の日本語の読解力が足りないせいか理解しづらい文章だ

541:デフォルトの名無しさん
07/06/09 01:16:06
やりたけりゃやりゃいいが、
それによる弊害もあるんだから、
やらないのは馬鹿みたいな言い方するやつは
ほんとに分かってやってるのか？
と疑問だってことだな。

542:デフォルトの名無しさん
07/06/09 01:24:59
や
　　　　　　　　　　　　　　ら
　　な　　　　　　　い
　　　　　　　　　　　　　か？

543:デフォルトの名無しさん
07/06/09 01:28:25
＞やらないのは馬鹿みたいな言い方
ずいぶんとまた被害妄想的だねえ。
微妙に（いや本当はかなり）ニュアンス違わないか？

>>537にあえて言葉を付け加えるとすれば、

Public Class IntList
Inherits List(Of Integer)
End Class

これに弊害を感じるとしたらむしろそういう自分のセンスにこそ弊害を感じるべきだろう。
継承の1特殊形態（それも最単純な）に過ぎないわけで、これに弊害があるなら
継承なんて怖くて使えないだろう。

544:デフォルトの名無しさん
07/06/09 01:29:04
>>537
Integerはやめてって言う意味だと思う。

内心馬鹿だな、と思うのは内心だけにしたらどうかと。

545:デフォルトの名無しさん
07/06/09 07:35:39
＞継承の1特殊形態（それも最単純な）に過ぎないわけで、これに弊害があるなら

本来同じ意味であるはずの元のListと逆方向の互換性がなくなるとか、
FindAllとかのコレクションを返すメソッドの互換性がなくなるとか
いろいろ弊害はあるわけだが。

546:デフォルトの名無しさん
07/06/09 07:46:36
＞FindAllとかのコレクションを返すメソッドの互換性がなくなるとか
いや、互換性じゃなくて、期待通りに動かない、てことだな。

547:デフォルトの名無しさん
07/06/09 10:14:05
Public Class Form1
2: Inherits System.Windows.Forms.Form
3:
4: #Region " Windows フォームデザイナで生成されたコード "
5:
6: Public Class Test
7: Public v As Integer
8: End Class
9:
10: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
11: Trace.WriteLine(DateTime.Now)
12: Dim count As Integer
13: count = 10000000
14: Dim test(count) As Test
15: Dim i As Integer
16: For i = 0 To count - 1
17: test(i) = New Test()
18: test(i).v = i
19: Next
20: Dim sum As Long
21: For i = 0 To count - 1
22: sum = sum + test(i).v
23: Next
24: Trace.WriteLine(DateTime.Now)
25: End Sub
26: End Class

某HPからパクって来たソースです。
これってform　classの中でpublic　classとしてtestというものを宣言しているんでしょうか。
javaだとありえないんですけど、.netだと許されるんでしょうか

548:デフォルトの名無しさん
07/06/09 10:15:11
>>547
お前の存在そのものがあり得ないと思う

549:デフォルトの名無しさん
07/06/09 10:23:18
殺すぞテメ

550:デフォルトの名無しさん
07/06/09 10:39:18
殺人予告です！！！！

Try

殺人計画
包丁を足に落として自爆
いてぇえええええええええ

Catch Ex asException
　殺人前に一回オナニーしたいという性衝動の例外が発生しました
　DoTheオナニー

finally
もう殺人なんてどうでもいいや

end try

551:デフォルトの名無しさん
07/06/09 10:45:18
asException
でコンパイルエラーとなり、
殺人計画頓挫

552:デフォルトの名無しさん
07/06/09 10:47:53
＞javaだとありえないんですけど、.netだと許されるんでしょうか
何がありえないのか明確に。

553:デフォルトの名無しさん
07/06/09 10:56:37
vb.net検索結果820万件
vb.net　activereports　49100件

java検索結果3億以上
java　＋　eclipse　でも4500万以上
java　eclipse　struts　169万件

こんなマイナー言語もうやりたくねーー
わかりにくいHPかっ飛ばしてわかりやすいHP探すとか100%無理だし、本も売ってねーし
考えても答えでねーし。しかもスゲー忙しいからがんばってとか
さらにわけのわかんねー10万円以上するつーるつかって、.netでいっぱいいっぱいなのになんでわけのわかんねーツールまで持ち出す
言語知識０でいきなり現場投入とかわけわかんねえええ

適当モード確定
もうどーでもいいや、シネとか言ってごめんね
さようなら

554:デフォルトの名無しさん
07/06/09 11:03:04
クラスの中にもう一個クラス宣言することが許されるのかということ

javaちっくに別モジュールにクラス作ってそれほかモジュールから呼ぼうとしたらインスタンスがドーのこーの言われて
出来なかったので調べてただけです。
インスタンス作ろうにもnew　クラス名（）　の（）が.net側で勝手に消されてしまう。

555:デフォルトの名無しさん
07/06/09 11:09:43
>>554
おまえその様子じゃJAVAもまともに使えてないと思うんだ
使われてるレベルだと思う

556:デフォルトの名無しさん
07/06/09 11:10:25
>>554
試しにソース晒してみろよ？

557:デフォルトの名無しさん
07/06/09 11:19:05
＞クラスの中にもう一個クラス宣言することが許されるのかということ
いつのJavaだよ

558:デフォルトの名無しさん
07/06/09 11:25:21
Java だと無名クラスなんてもんすらあるのにね

559:デフォルトの名無しさん
07/06/09 11:36:26
ソースさらしたくても会社にしかないので。大体こんな感じです

public　class　person

private name as string
private kana as string
private age as integer

public sub　setPerson(byval name as string,byval kana as string,byval age as integer)

this.name = name '---------thisはmeだったかも、覚えてないです---------
this.kana = kana
this.age = age
end sub

end class

別もじゅーーるのフォームかなんかで
～前略

person ps =new person '-------かっこつけたくても自動で消えます
ps.setPerson(aaa,bbb,111)

コンパイルは通ってもインスタンスどーのこーのでエラー

javaは使いこなせてません、ただ見たことなかっただけですクラス中にクラスを作る。

560:デフォルトの名無しさん
07/06/09 11:40:48
>>559
結局何が言いたい（質問したい）んだい？
ただ馴れ合いたいだけなら個人的には他所いってやって欲しいね。

561:デフォルトの名無しさん
07/06/09 11:45:35
いったいそれは何言語だｗ

ちなみにVBでは引数なしのメソッド呼び出しの()は省略できる。
New だとIDEが勝手に消してしまうので、ほっとけばいい。

562:デフォルトの名無しさん
07/06/09 11:46:22
Javaの方がはるかに内部クラスだらけじゃないか
イベントハンドラを実装するために内部クラスを定義しないといけない仕様だぞ

563:デフォルトの名無しさん
07/06/09 11:46:29
＞ただ見たことなかっただけです

見たことない＝ありえない。
おまえは神様かっ

564:デフォルトの名無しさん
07/06/09 11:55:54
使ったことなかったですわ。('A`)
イベントハンドライベントリスナーのことでいいんですかね
それだったら使ったことありましたが1個1個implementsして使ってました。
無名とか内部クラスとかは知りませんでした。

.net書き方すらわからん初心者です。
板よごしなのでこれできえます。

565:デフォルトの名無しさん
07/06/09 12:01:17
逆に凄いなｗ

566:デフォルトの名無しさん
07/06/09 14:45:40
もうほっとけよ

567:デフォルトの名無しさん
07/06/09 17:36:42
vb2003です。くだらない質問ですがお願いします。
mdiの子フォームでキーボードを叩いた時、親フォームのkeydownイベントを走らせないように
したいのですけどどうすればいいですか？

568:デフォルトの名無しさん
07/06/09 17:58:25
親のKeyPreview = Falseにする。
する、というかデフォルトでFalseなはずだけど。
自分でTrueにしておかしいおかしいって言ってるとしたらアホ丸出しだね。

569:567
07/06/09 18:25:05
>>568
ありがとうございます。確認してみます。

570:デフォルトの名無しさん
07/06/10 13:58:04
vb.net2005でクラス同士が完全に等しいか比べるにはどうしたらいいのでしょうか？
equalsを使用してもうまくいきません

571:デフォルトの名無しさん
07/06/10 14:02:50
インスタンスじゃなくてクラスが等しいのか。
普通見ればわかるんじゃね？

572:570
07/06/10 14:04:13
>>571
すいません
インスタンスです

573:デフォルトの名無しさん
07/06/10 14:08:28
何をもって完全に等しいとするのかをはっきりさせんといかんな。

574:デフォルトの名無しさん
07/06/10 14:11:18
>>570
愚問だと思うよ。

そもそもそういう質問をするのはクラスがよく分かってないからだろうから
真面目に勉強しろ、としか言いようがない。

c#になるけど、アスキーから出てるartonって人のc#の本がその辺り
分かり易く掘り下げてるから読んでみるといいと思う。

575:570
07/06/10 14:15:08
>>573
なるほど！！！
何をもって完全に等しいかを考えればよかったんですね！！！！！

中に入っている変数の値、全てが完全に等しいものを探しているので
一つ一つ比較していけばおｋですね！

arraylistとか型がobject型のものは完全に等しいかを考えるのがむずかしいですね

576:デフォルトの名無しさん
07/06/10 14:32:07
思而不学則殆そのものだな。
まあ人事だからどうでもいいけど

577:デフォルトの名無しさん
07/06/10 21:44:42
Wubi - Ubuntu installer for Windows
ｽﾚﾘﾝｸ(software板)l50

578:デフォルトの名無しさん
07/06/10 23:39:47
コピペ君って馬鹿だな、まで読んだ。

579:デフォルトの名無しさん
07/06/11 06:18:32
ここは初心者馬鹿にしてストレス発散するスレだな。

580:デフォルトの名無しさん
07/06/11 07:08:15
Form1で動画を再生(winmm.dllのmciSendStringAのopen、window、playを使って)→Form1をクリックしたら停止
というのを実現したいのですが、停止がうまくいきません。
Form1の動画以外の場所をクリックした時は停止するんですが、動画をクリックした時は停止しません。
動画をクリックした時も停止させる方法はあるのでしょうか？
ちなみに↓が停止のコードです。

Dim FileName As String = """C:\1.avi"""
End SubSub Form1_Click(省略) Handles Me.Click
mciSendStringA("close " & FileName, "", 0, 0)
End Sub

581:580
07/06/11 07:11:38
すみません、間違えました。
↓です。

Dim FileName As String = """C:\1.avi"""
Sub Form1_Click(省略) Handles Me.Click
mciSendStringA("close " & FileName, "", 0, 0)
End Sub

582:デフォルトの名無しさん
07/06/11 09:18:41
フォーム1に同じデリゲートのプロシージャ作って
動画のクリックイベントに停止処理のプロシージャをAddhandlerしたら終わるんじゃないの？

583:デフォルトの名無しさん
07/06/11 10:39:17
動画をクリッコしたとき発生するイベントに
mciSendStringA("close " & FileName, "", 0, 0)
って書けばいいだろ。

584:デフォルトの名無しさん
07/06/11 10:52:16
栗っ子

585:デフォルトの名無しさん
07/06/11 11:47:55
VB.NETでは「メソッド」と「プロシージャ」の言葉はどう使い分けてるの?
プロシージャ : クラスかモジュールに定義されたSubかFunction
メソッド : クラスに定義されたプロシージャ
でいいの?

586:580
07/06/11 14:37:12
めちゃくちゃ低能な質問ですが、

mciSendStringA("window " & FileName & " handle " & Me.Handle.ToString, "", 0, 0)

これで動画の表示先をForm1にしているのですが(MeはForm1)、この場合の動画のクリックイベントはMe.Clickではないのですか？

587:デフォルトの名無しさん
07/06/11 17:13:24
いや・・・・それいぜんに

Dim FileName As String = """C:\1.avi"""
>>End SubSub Form1_Click(省略) Handles Me.Click
mciSendStringA("close " & FileName, "", 0, 0)
End Sub

>>つけてる行のソースはありえないから

ヘタな小細工せずにそのまま貼り付けろヤ

588:デフォルトの名無しさん
07/06/11 17:19:45
データ個数32768個（可変）、チャンネルが8ｃｈ（可変）のデータがテキスト形式であります。
チャンネルはタブ区切り、データ個数は改行区切りです。

　　　1ｃｈ　　　2ｃｈ　　　3ｃｈ　　　4ｃｈ　　…
1　　　0.5　　　 0.7　　　0.8　　　0.9　　　…
2　　　0.6　　　 0.12　　 0.13　　 0.5　　　…
…
32768

という感じの並びです。これを2次元配列に格納してそれぞれのチャンネルの
解析に入りたいのですが、どうやって2次元配列に格納できるでしょうか？
Splitを使ってみたのですが、いまいち分からずに困っています。

589:デフォルトの名無しさん
07/06/11 17:24:33
>588

590:デフォルトの名無しさん
07/06/11 17:35:56
>588
きみのいう2次元配列ってのは
(データ番号,チャンネル番号)でいいのかな？

591:デフォルトの名無しさん
07/06/11 17:37:00
Dim hoge(,) As String
For i As Integer = 0 To データ数 - 1
データ = (i+1)行目のデータ
Dim hogehoge() As String = データ.Split(Chr(Keys.Tab))
For j As Integer = 0 To hogehoge.Split(Chr(Keys.Tab)).Length - 1
ReDim Preserve hoge(i, j) =　hogehoge(j)
Next
Next

592:588
07/06/11 17:45:31
レスありがとうございます。
2次元配列はできたら（チャンネル番号、データ番号）がいいですが、
解析はどちらでもできると思います。

ReDim Preserve　は処理の速さはどうなんでしょう？

593:デフォルトの名無しさん
07/06/11 17:52:05
自分で試してみろ

594:580
07/06/11 18:21:32
<<587
<<580は間違いなので、<<581で訂正していますが…。
とりあえず、全体です。

Public Class Form1

Dim FileName As String = """C:\1.avi"""

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

Function SendString(ByVal cmdString As String) As Long
SendString = mciSendString(cmdString, "", 0, 0)
End Function

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
SendString("open " & FileName & " alias f1")
SendString("window f1 handle " & Me.Handle.ToString)
SendString("play f1")
End Sub

Private Sub Form1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Click
SendString("close f1")
End Sub

End Class

ケータイで書き込んでいるので、見づらかったらすみません。
今パソコンから書き込めないんです。

595:580
07/06/11 18:31:13
>と<を間違えたorz

596:デフォルトの名無しさん
07/06/11 18:40:22
>>591
やめてくれ

597:デフォルトの名無しさん
07/06/11 18:48:59
参照は4バイトとして
最後には4×8×32768=1MB
平均すると0.5MB
0.5MB×8×32768=128GB
つまり128GBものメモリを確保解放しまくるわけだ。
あほかと言いたい。

598:デフォルトの名無しさん
07/06/11 18:57:24
そのけいさんはおかしい

599:デフォルトの名無しさん
07/06/11 19:00:18
あれ、たしかにおかしいな。
ってかこれ正しく動くのか？

600:デフォルトの名無しさん
07/06/11 23:32:52
SqlCommand.CommandTimeoutでSQLのコマンド実行のTimeoutを設定できますが
これのデフォルト値である30秒という値を変更する方法はありませんか？
SqlCommandを使うところ全部でCommandTimeoutを設定するコードを書かずに
設定ファイルで変更できないものかと思っているのですが

601:デフォルトの名無しさん
07/06/12 01:28:11
コネクションストリングにかけば？
つうか、いくらでもあると思うが…

602:デフォルトの名無しさん
07/06/12 04:52:12
＞＞４６２

少し気になったので、相乗りで質問、というか、低脳なコメントを。

以前、VB.NETからアンマネージドのＣのDLLを呼び出してたのだが、
そのＣのDLLの内部に
ローカル変数に対しメモリーアロック掛けっぱなしというBUGがあった。

DLLを作成してたのは他社（仮にＡ社）だったのでソースも確認しようがなかったので
そんな障害があるとは自社ではまったく気づいておらず、
後日Ａ社から申し出があって、不具合修正版のDLLを貰った、ということがありました。

それはそれで解決したので問題ないのですが、
もしＡ社が申し出なかった場合、自社では原因を掴むのが難しいと思い・・・

こんなときどうやって切り分けるのでしょうか。

>>458の言っているWorkingSetじゃ
プロセスのメモリ使用量だから
相手のDLLが使用したメモリ量だけ切り出そうと思っても
できないんじゃないかと思うのだが、、、。

603:デフォルトの名無しさん
07/06/12 05:38:48
＞＞５９７
たとい12使用しても最近のメモリは性能いいからもんだいない

604:デフォルトの名無しさん
07/06/12 07:01:29
>>601
MSDNのSqlConnection.ConnectionStringを見たところでは対応している
キーワードがないみたいです。Connection Timeoutキーワードは
CommandTimeoutとは別ですよね。他の載っていないキーワードがあるのでしょうか？

また、書き忘れましたが.NET Framework 1.1を使っています。

605:デフォルトの名無しさん
07/06/12 09:13:36
>>597
文句をいうのはいいが、打開案も出さねばゴミだ

606:デフォルトの名無しさん
07/06/12 09:14:04
>>602
普通マネージドプログラムを書いてもらうものじゃないかな？
ウチはCOM使う場合、相手に依存するから検証されてないと保証できないですよ
みたいに言って逃げてる

そんな深い所まで調べる時間が無い

607:デフォルトの名無しさん
07/06/12 12:09:01
RadioButtonListなどを貼り付けたユーザーコントロールを作成しています。

RadioButtonListのListItemコレクションエディタを、ユーザーコントロール呼び出し側で、
操作したいのですが、よい方法ありませんでしょうか？

608:デフォルトの名無しさん
07/06/12 12:43:20
プロパティでそのままラジオボタンリストを公開するとか

public read only property RB as radiobuttonlist
return me.RadioButtonList1
end property

みたいなｗｗｗｗ
エディタのプロパティがネストしてやりづらいしすげぇダサいやり方だと個人的に思うけど
単にラジオボタンリストのコレクション公開すればできないか？

609:デフォルトの名無しさん
07/06/12 15:46:32
配列のソートで質問です。

例えば以下のような構造体を持つ配列があります

structure AAA
ID as integer
ID_2 as integer
Name as string
end structure

このデータを List(Of AAA)　に挿入してあります。

AAAの中身

ID　ID2　　　Name
１　　２　　　AAAAAA　　
３　　２　　　BBBBBB　　
２　　３　　　CCCCCCC　　
２　　１　　　DDDDDD　

このList(Of AAA)
の中のデータを簡単に ID,ID2　の準でソートできないでしょうか？
1つならば簡単なのですが　条件が2つあるというのがネックです。

ICompareを独自に実装すべきでしょうか？

610:デフォルトの名無しさん
07/06/12 16:12:19
>>609
URLﾘﾝｸ(msdn2.microsoft.com)(VS.80).aspx

611:デフォルトの名無しさん
07/06/12 16:23:50
>>609 >IComparable.Compare(x, y)
If (x.ID > y.ID) Then
Return 1
ElseIf (x.ID < y.ID) Then
Return -1
Else
If (x.ID_2 > y.ID_2) Then
Return 1
ElseIf (y.ID_2 < y.ID_2) Then
Return -1
Else
Return 0
End If
End If

612:デフォルトの名無しさん
07/06/12 16:28:50
>>610
>>611
ありがとうございます
実装できました！

実装は
IComparer(Of Hoge）
を使用してキャストが発生しないように実装してみました。

613:デフォルトの名無しさん
07/06/12 22:16:39
>>609
そもそもどうやってここにデータを入れたんだｗ

614:デフォルトの名無しさん
07/06/12 23:06:55
>>613

構造体配列だから普通に入れたんじゃね？

615:611
07/06/12 23:48:46
>>611の一行目はIComparer(Of AAA)の間違いね
>>612はわかってるみたいだけど

616:デフォルトの名無しさん
07/06/12 23:54:05
>>614
そっかｗｗ

617:デフォルトの名無しさん
07/06/13 00:20:05
vb2005で、WMIを使ってUSBに接続されたHDとかの
PNPDeviceIDを取得するものを作ってるんだけど、
ドライブ名を指定して取得する方法ってありますか？

「E:」って指定してできるのかと思ったけど、Win32_DiskDriveは
ドライブ情報だからパーティションの情報なんてないし・・・
方法があったら、教えてほしいです

618:デフォルトの名無しさん
07/06/13 12:07:52
VBSでGIF画像の色を置換したいんですが可能でしょうか？
RGB(R, G, B)でいうと、緑色(85, 127, 85)　⇒　青色(85, 127, 170)　に変換したいのです。
大量の画像を一度に処理したいので、フォトレタッチソフトでは手間がかかりすぎて・・・。
どうか、偉い人教えてください。

619:デフォルトの名無しさん
07/06/13 12:23:06
What's VBS ?

Virus Buster Special ?

620:デフォルトの名無しさん
07/06/13 16:48:14
VBScriptのことなんじゃね
ここはVB.NETのスレですよ
もちろんVB.NETなら間違いなく可能だけどVBScriptではどうかは知らん

621:デフォルトの名無しさん
07/06/13 19:25:07
>>619-620
レスありがとうございます。
VBSってのは、VBScriptのことです。説明不足ですみません。
VB.NETだとどういう感じに書けばいいのでしょうか？

622:デフォルトの名無しさん
07/06/13 20:50:09
vb2005を使っているのですが質問をさせてください

例えばフォームにtextbox1～textbox10まであったとして、それぞれに同じ処理を連続して実行したいのですが

for文を使うとして

for　n=1　to　10

textbox(n)="文字列"

みたいなことを使用としたのですが、当然これを関数名として認識してくれませんでした
あらかじめ用意した変数に="textbox"　&　n　みたいなことや
今の自分で他にも思いつく限りのことはやってみても同じでした・・・

こういったtextboxやpicutureboxなどのオブジェクト名(？)をfor文等で連続して実行させたい場合
そのオブジェクト名の連番の表記をどういった風にやるのが適切なのでしょうか？

ご助言をどうかよろしくお願いします。

623:デフォルトの名無しさん
07/06/13 21:00:15
どうしてVB6上がりな人は素直に「コントロール配列が使いてえ」って言えないのかね。

ドトネトにコントロール配列はないから自分で配列なりListなり作って
やってくださいよ。

624:デフォルトの名無しさん
07/06/13 21:49:14
どうしてもコントロール配列みたいなことをしたければ、
#Region "Windowsフォームデザイナで生成されたコード　　～#End Region
のところに、
TextBox(1)=TextBox1
TextBox(2)=TextBox2
って書いていけばできるんじゃない？

625:デフォルトの名無しさん
07/06/13 21:57:08
>>617
Win32_LogicalDiskRootDirectory
使えば何とかなるかも

626:デフォルトの名無しさん
07/06/13 22:24:03
>>622
どぼんに配列に関する項目があるから、そこを参照。

627:デフォルトの名無しさん
07/06/13 22:40:06
>>623
VB6なんて使ってませんが？

>>626
ｶﾝｼｬ

628:デフォルトの名無しさん
07/06/13 22:56:49
まあVB6上がりであろうとなかろうと、そんな程度でいちいち人に尋ねてるようじゃ
先はないと思ったほうがいいな。

629:デフォルトの名無しさん
07/06/13 23:00:27
↑　ま　た　お　ま　え　か

630:デフォルトの名無しさん
07/06/13 23:27:42
>>628
PG以前に人間としての素質が無いとお見受けした

631:デフォルトの名無しさん
07/06/13 23:56:17
>>625
RootDirectory の方はいらんな。
Win32_LogicalDisk の DeviceID がドライブレター。
で、そこから
Win32_LogicalDiskToPartition で論理ディスクに対応するパーティションの DeviceID 取って、
Win32_DiskDriveToDiskPartition でパーティションに対応する物理ドライブの DeviceID 手に入れて、
Win32_DiskDrive から PNPDeviceID
ってことになるんかな？
えらく泥臭くなりそうだけど。

Win32_LogicalDiskToPartition が Win32_LogicalDisk と Win32_DiskPartition の参照を持つはずなのに
何故か String で返ってくるな……。

632:デフォルトの名無しさん
07/06/14 02:07:17
>>627
↑
こいつ時々ここに沸いてるけど質問が素人くさい上に返答の仕方が房臭い
つうか、カスだな　間違いなく
もし業務でやっているならおれは真っ先にお前のようなやつはキル

633:デフォルトの名無しさん
07/06/14 11:29:38
こ、殺すの？

634:デフォルトの名無しさん
07/06/14 12:24:50
PropertyのGet/Setで何も処理しない場合、変数をPublicにするので問題なし？
処理なしPropertyの利点が分からん。

635:デフォルトの名無しさん
07/06/14 12:42:23
>>634
セットもゲットもさせないってことでいいんじゃない？ｗ

636:デフォルトの名無しさん
07/06/14 12:49:34
>>632
↑w
ﾊｲﾊｲﾜﾛｽﾜﾛｽ

637:デフォルトの名無しさん
07/06/14 12:52:59
>もし業務でやっているならおれは真っ先にお前のようなやつはキル

だっておwwww

AA(ry

馬鹿同士言い合ってる時点で俺は真っ先にそのようなやつはry

638:デフォルトの名無しさん
07/06/14 12:54:56
>>634
将来処理いれるかもしれないだろ？
先を見越した書き方しとけ

639:デフォルトの名無しさん
07/06/14 12:59:59
>>638
そうなったらその時直せば済む話。

640:デフォルトの名無しさん
07/06/14 13:09:54
そしたら参照してるとこ全部直さないといけないでしょうが
汚物は消毒

641:デフォルトの名無しさん
07/06/14 13:11:11
↑
二行目は気にしないでくれ。コピペミスだw

642:デフォルトの名無しさん
07/06/14 13:19:51
大概、先に見越したところは想定通りにならないのが常だがなｗ

643:634
07/06/14 13:59:48
いや、もう本当に悩む。
変数が40ぐらいのクラスを作らなければいけないのだが、
正直かなり面倒。
今までそう言われてきたから、必ずSet/Getを作ってきたけど、
代入/取得するだけの処理に意味有るのかと。

もちろん入力規則をする場合などには、利用するけどね。

どれだけ、将来的に役立つのか疑問。。
誰か、すばらしい利点を教えてだせい。

644:デフォルトの名無しさん
07/06/14 14:15:46
>>643
フィールドにした場合virtual/overrideに出来ない。VBだとoverridableだっけか。
インターフェイスにフィールドを含めることが出来ない。
リフレクションなどでメソッドの呼び出しを横取りして何かの処理を行うことが
フィールドに対しては出来ない。
通信やCOM呼び出しなどでインターフェイスを実装することを要求しているのは、
処理の横取りが出来ないフィールドを排除するためである。

VB6のCOMのようにpublicなフィールドを暗黙でプロパティにしてしまうのもありだとは思うが、
VB.NETはC#の考え方に合わせたのだろう。

645:デフォルトの名無しさん
07/06/14 14:17:07
上のような理由からだから値型はフィールドのままでかまわないよ。

646:デフォルトの名無しさん
07/06/14 14:27:22
>>640
ん？プロパティにいちいち　()　つけるタイプ？
それなら修正して回らないと駄目だね。

647:デフォルトの名無しさん
07/06/14 14:46:58
ん? C#メインだから()とか言われても分からないんよ

public int iUnko;
↓
やっぱプロパティにしよう
public int Unko{
　get{}
　set{}
}
↓
iUnkoをUnkoに書き換えなきゃなんないんじゃ?
プロパティの名前をiUnkoのままでもいいけど、
そうしたらクラス内部で使うときに全部プロパティ経由になっちゃうよ
やっぱ書き換えが発生するんじゃ

648:デフォルトの名無しさん
07/06/14 14:52:27
VBにはリファクタの「フィールドのカプセル化」がないのか。そりゃ面倒だね。
C#のもフィールドをまとめてカプセル化する機能がないのでちょい不満だけど。

649:デフォルトの名無しさん
07/06/14 14:54:59
>>647
ああ、いちいちプレフィックス付けるタイプでしたかｗ

650:デフォルトの名無しさん
07/06/14 15:06:40
C#3.0では自動プロパティという機能がついて
public int Unko{get;set;}だけでよくなるらしい

651:デフォルトの名無しさん
07/06/14 15:35:08
VBは引数付きプロパティが使える関係でプロパティに引数が必要な場合は(　..　)　を付ける。
引数なしプロパティには()を付けても付けなくてもいいということらしい。
C#の場合は大小文字を区別するから、フィールドnameでプロパティはNameにするのが一般的だが、
VBの場合プロパティとフィールド名の命名にそういったルールや習慣はあるの？

652:634
07/06/14 15:57:34

>>648を参考にアドインを探したら、Refactor! というツールがありました。
悩んでいるのもあれなんで、これを使ってどんどんプロパティを作ってしまいました。

URLﾘﾝｸ(www.devexpress.com)

653:デフォルトの名無しさん
07/06/14 16:04:04
VB2005でcrystal reportsを使いたいのですが、
インストール方法が分かりません。

恐れ入りますが、ご教示ください。

654:デフォルトの名無しさん
07/06/14 16:07:24
エディションは?

655:デフォルトの名無しさん
07/06/14 16:12:06
>>654

Visual Studio 2005
Tools for the Microsoft Office System

です。

よろしくお願いします。

656:デフォルトの名無しさん
07/06/14 18:35:50
ふいたwｗ

657:デフォルトの名無しさん
07/06/14 19:33:42
>>650
C++/CLIなんて、property int Hoge;だけでおｋだぜ？

658:デフォルトの名無しさん
07/06/14 21:53:19
VB2005(Professional Edition)に関する質問です。

プロセス間で同期を取るためにイベントを使いたいのですが、
VB6⇔VC2005とか、VC2005⇔VC2005とかでは他プロセスから
イベントを受信できるのに、VB2005だとできなくて困っています。
どなたか原因分かる方いませんか？

以下ソースの一部(プロジェクトの種類はVCはWin32アプリ。VBはWindowsアプリ)

～～～VC2005～～～
hEvent = CreateEvent( , , , "test_event")
SetEvent(hEvent)
～～～～～～～～～

～～～VB2005～～～
hEvent = CreateEvent( , , , "test_event")
iRet = WaitForSingleObject(hEvent,0) ←ここでイベントを受信しない。
～～～～～～～～～

ちなみに同じプロジェクト内で、SetとWaitを使用した場合は動きます。
～～～VB2005(動く)～～～
hEvent = CreateEvent( , , , "test_event")
SetEvent(hEvent)
iRet = WaitForSingleObject(hEvent,0) ←これは受信する。
～～～～～～～～～

659:デフォルトの名無しさん
07/06/14 21:58:24
それだけで分かったら ESP 名乗れるかもしれないな。

本題とは直接関係ないが、わざわざ Win32API 使わんで EventWaitHandle 使え。

660:658
07/06/14 22:12:02
>>659 レスサンクス
補足っぽいものさせてもらうと、
A、B共にVB2005で作ったexeとして、

A.exeでSetEvent
A.exeでWaitFor～
の場合は、イベントを受信するんだけど

A.exeでSetEvent
B.exeでWaitFor～
の場合は、動かないんですよね。

VB6の場合はどっちのパターンでも動きます。

ちなみに、EventWaitHandle使う場合は、
VC側はどうやるのでしょう？
VCでもEventWaitHandle？それともCreateEvent？
質問増えて申し訳ないです。

661:デフォルトの名無しさん
07/06/14 22:22:15
文字セットの問題とかな

EventWaitHandle は名前付きイベントのマネージドなラッパ。

662:658
07/06/14 22:39:09
>>661 レスサンクス
う～ん　それも考えて、
VCのテストアプリを、マルチbyte文字セット、ユニコードの両方試してみてもダメ。
660の例では、コンパイルしてできたexeをリネームして試してみてるので
やっぱり文字コードじゃなさそう。

レスに対して揚げ足取ったようでゴメンナサイね。

何か思いついたことがあれば、引き続きレスお願いします。

663:デフォルトの名無しさん
07/06/15 00:09:02
本当に初歩的な質問をさせていただきます。
フォームが１つありテキストボックスが２つ（１、２）、ボタンが１つ配置してあります
ボタンを押したらテキストボックス１と２に入力した文字をCSVファイルに書き込む用にしたいのですが
どのようにCSVに書き込みのプログラムを組めばよいのでしょうか？

CSVファイルの場所は固定です　C:\
２つのテキストボックスには４桁の整数を入力します。
CSV内で２つのテキストボックスに入力した値をカンマ区切りで書き込みたいです。　例　1234,5678
ボタンを押すごとにCSVファイル内で改行して書き込みを行いたいです
例
ボタン押下の度にCSVの中身は改行され
1234,5678
4321,0987
　　　・
　　　・

初心者すぎてわかりにくい質問だとはおもいますが
お願いいたします

664:デフォルトの名無しさん
07/06/15 00:14:24
その説明をそのままコードに起こせばおｋ

で、どこが分からんの？

665:デフォルトの名無しさん
07/06/15 00:21:14
>>664
まず
テキストボックス内の数字を
CSV書き込みの時に反映させるコードの書き方が
全くわかりません・・・
一度テキストボックス内の数字を変数入れたほうがいいのですか？

666:デフォルトの名無しさん
07/06/15 00:36:12
全くって言われても……言葉通りとしか……。
とりあえずファイルに書き込むことはできてる？　どうやって書き込んでる？

667:デフォルトの名無しさん
07/06/15 00:41:37
>>666
すいません質問が漠然としすぎていて・・
もう少し勉強してから出直してきます。

668:デフォルトの名無しさん
07/06/15 00:43:40
2005で作ったプログラムを2003に変換する方法ってありますか。

669:デフォルトの名無しさん
07/06/15 01:40:00
1.1にない機能を使ってたらどうすんの?

670:デフォルトの名無しさん
07/06/15 10:08:10
>>668
コピペしてエラーがでたら考える。

671:デフォルトの名無しさん
07/06/15 10:40:30
AddHandlerでLeaveイベントでを関連付けて、テキストボックスからフォーカスが移動した際に
入力のチェックをしているのですが、ツリービューをクリックした際になぜか
入力チェックが2回実行されます。

この原因及び解決法が分かる方がいましたらご教授願います。

672:デフォルトの名無しさん
07/06/15 10:47:45
2005のDataGridViewでDataGridViewButtonColumn列を使用して一覧の表を作成しています

ある特定の行のときだけ
DataGridViewButtonCellの中にあるボタンを無効化（enable=false　みたいに）出来ないでしょうか？

673:デフォルトの名無しさん
07/06/15 12:41:48
すみません。URLﾘﾝｸ(www.cbook24.com)を買おうと思っているんですが、
下の方に印刷のところで、クリスタルレポートっていうのが、でてきます。他の本をみていても時々でています。

色々と調べてみたんですが、VB2005Proffessionalエディションじゃないとクリスタルレポートというのは
つかえないんでしょうか・・・

Professionalエディションって結構高いですよね・・　よろしくお願いします。

674:デフォルトの名無しさん
07/06/15 12:43:10
>>671
それで原因がわかったらエスパーだなw
原因および解決法が分かる方がいましたら、ってなんだよ。
まるで原因は自分のミスじゃない、とでも言いたげだな。

そういう時は原因としてどういう可能性が推測できるか、と聞けよ。

675:デフォルトの名無しさん
07/06/15 12:53:56
>>673
Expressでは少なくとも無いなぁ
Standardはしらんが多分Pro以上

Express5000くらいで買ってProにアップグレードしたら多少安く手に入るんじゃないかな？

676:デフォルトの名無しさん
07/06/15 12:54:13
>>673
URLﾘﾝｸ(www.microsoft.com)

677:デフォルトの名無しさん
07/06/15 12:57:12
>>673
バンドル版はPro版以上。それ以下でも製品版を買えば使える。
URLﾘﾝｸ(japan.businessobjects.com)
もちろん製品版も結構高いけどな。

678:デフォルトの名無しさん
07/06/15 13:02:18
タグ上で右クリしたときContextmenuStripが表示されるようにしたいんですが
なんかいい手無いかなー？
要はタブを追加、タブを閉じるのメニューを表示したいんす

679:デフォルトの名無しさん
07/06/15 13:03:23
>>672
以前自分もこれしらべたことあったけど、現状じゃ無理ー。

680:デフォルトの名無しさん
07/06/15 13:05:51
>>678
タブコントロールのタブか？
普通にマウスクリックイベントに書けば？

681:デフォルトの名無しさん
07/06/15 13:08:44
>>679
やっぱむりっすか・・・
中のボタンコントロールみたいなのとれればなとか
あれこれ調べたんですがこれもムリだったので、まぁ、今回はちょっと別の方法模索してみようかなとおもいます。

レスありがとうです！

682:デフォルトの名無しさん
07/06/15 13:14:45
>>681
正確にいうと、ReadOnlyにすることで、無効化は可能。
ただ、視覚的にenabled=false（グレー表示）にすることが不可能。
ボタンを押す行為自身はできちゃうんだよね…

683:デフォルトの名無しさん
07/06/15 13:28:06
>>682
もうちょっとツボ抑えた機能がほしいところですね
全部既存のコントロールが中にあるんだろうし　少しくらい公開してくれても・・・(；´Д｀)

684:デフォルトの名無しさん
07/06/15 13:34:46
中にコントロールはなかったような。
編集するときEditControl生成するくらいじゃね?
Buttonの絵を書いてるだけだよ。
じゃなきゃ何千ものコントロールのハンドル管理しなきゃいけなくなるっしょ。

だから継承して自分で描画すればいいだけの話

685:デフォルトの名無しさん
07/06/15 14:04:58
>>684
いいヒントもらえたのでちょっと強引にやってみました。
セルのボタンを表示したくないValueにはNothing そうじゃないばあいNothing以外を入れて
CellPaintingイベントで

If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 AndAlso dgvList.Columns(e.ColumnIndex).Name Is 該当のカラム Then

Dim temp As DataGridViewCell = dgvList.Rows(e.RowIndex).Cells(e.ColumnIndex)

If temp.Value Is Nothing Then

Dim TempPoint As New Point(e.CellBounds.X + e.CellBounds.Width - 1, e.CellBounds.Y)
Dim TempPoint2 As New Point(e.CellBounds.X + e.CellBounds.Width - 1, e.CellBounds.Y + e.CellBounds.Height)

e.Graphics.FillRectangle(New SolidBrush(Color.White), e.CellBounds)
e.Graphics.DrawLine(New Pen(SystemColors.ControlDark), TempPoint, TempPoint2)

e.Handled = True

End If

End If

ボタンを表示したくない時は自分で塗りつぶして線も描画し、表示したい時はコントロール任せ
こんな感じでとりあえずいけそうかなぁと
助かりました～

686:デフォルトの名無しさん
07/06/15 14:42:56
グループボックスの中にボタンが配置してある場合、グループボックスの背景色を
変更したらボタンも一緒に変わってしまう。。

再度ボタンを設定しなおせば良いのは分かりますが、
予め反映させないようには出来ないのでしょうか？

687:デフォルトの名無しさん
07/06/15 15:22:57
>>686
？？？？
今やってみたけど変わらないと思うぞ

あらかじめGroupBoxに背景色が設定してあって、そのうえにボタン追加したらその現象が出るなぁ･･･
ちなみに2005IDEね

688:686
07/06/15 15:37:46
ぇええぇぇええ～。

実験どうもです。
自分の所もVS2005のVB。

ちょっと新規にプロジェクトを作成して試してみましたが、
グループボックスの中にボタンを配置して、以下のプログラムで再現します。

GroupBox1.BackColor = Color.Aqua

この場合、グループボックスもボックス内にあるボタンもAqua色。。

689:デフォルトの名無しさん
07/06/15 15:46:23
>>686
あ～
ボタンのスタイルをスタンダードにしてるから
見た目かわらないだけでグループの背景色変えたらボタンの背景色変わってるな～
たしかにFlatとかにしてたらIDEでも変わるのが目に見えて判る

こういう処理やったことないからわからないけど・・・・自動で子にいろいろ設定されるのは難しいんじゃなかろうか･･･
FormのFontSizeとか変えたら子のサイズも変わるのと同じ原理なんだろうなぁ･･･
ある意味気が利いてていいんだが･･･

690:686
07/06/15 15:47:58

コードとか関係なくGUIでもそうなっているんですね。。

ラベルやチェックボックスとかには便利だけど、
ボタンにこれは必要ないだろ～。

ぅう、面倒くさー。

691:686
07/06/15 15:50:10
>>689
入れ子になりました。

度々どうもです。
うーん、小さな親切って奴ですな～。

692:６７３
07/06/15 15:51:01
>>675
どうもありがとうございます。ExpressからProにアップグレードできるんですか？
以前のエディションのPro版からしかアップグレードできないとおもっていたので、
とても助かります。ありがとうございました。

>>676
どうもありがとうございます。わざわざURLを貼っていただきまして。やっぱりPro版じゃないと
だめみたいですね。

>>677
製品版なんてものもあるんですね。CrystalReport単品ですね。でも、7万しますね･･
MicroSoftはここまで金をもうけないと駄目なんですかね・・

どうもありがとうございました。お礼が遅くなりすみませんでした。料理してたら忘れてまして・・

次ページ