VB.NET質問スレ (Part17)

VB.NET質問スレ (Part ..

369:デフォルトの名無しさん
06/09/11 14:21:46
そのお礼が366宛てだったら笑えるなｗ

370:デフォルトの名無しさん
06/09/11 14:28:15
>>369
すまん今日一番ワロタ

371:365
06/09/11 15:33:13
何度もすいません。
例えば「abcABC」を「ABCabc」ではなく「aAbBcC」と並び替えるには、
どうすればいいでしょうか？
宜しくおねがいします。

372:デフォルトの名無しさん
06/09/11 15:35:58
>>371
ORDER BY

373:デフォルトの名無しさん
06/09/11 18:43:03
>>371
Public Class MyCompare : Implements IComparer(Of Char)
　　Public Function Compare(ByVal x As Char, ByVal y As Char) As Integer Implements IComparer(Of Char).Compare
　　　　Dim xLow As Char = Char.ToLower(x)
　　　　Dim yLow As Char = Char.ToLower(y)
　　　　If xLow = yLow Then
　　　　　　Return -x.CompareTo(y)
　　　　End If
　　　　Return xLow.CompareTo(yLow)
　　End Function
End Class

Array.Sort(c) の代わりに Array.Sort(c, New MyCompare())

374:デフォルトの名無しさん
06/09/12 00:08:39
なんでそんな面倒なことしてんだ？

375:デフォルトの名無しさん
06/09/12 00:18:57
簡単にやる方法をよろしく

376:デフォルトの名無しさん
06/09/12 00:36:43
どぼんとかのサンプルのクラスをコピペして"Windows フォームデザイナで生成されたコード"を
直接直した(例えばnew DataGridをnew DataGridExにするとかした)時に、そのままデザインビューが
表示出来る場合もあれば、タスクにエラーが山程出てデザインビューでDataGrigが全く表示されず
コードがボコボコ消えて当然デバッグしてもマトモに動かない場合がありますが、やはり直接修正は
しちゃいかんのでしょうか？
(フォームのLoadに書けばいいのかな)

377:デフォルトの名無しさん
06/09/12 01:05:55
DataGridExとやらのクラスがきちんと定義されてれば可。
存在しないクラス名にしたらエラーが出るのは当たり前

ようするに分かってないうちはデザイン部は触るなってこった。
まあ触って学ぶってのもありだけど。

378:デフォルトの名無しさん
06/09/12 02:06:44
StringComparer.CurrentCultureIgnoreCase とか、元から使えるやつあるやん。

379:デフォルトの名無しさん
06/09/12 02:09:23
おっと、もし2.0じゃないならCaseInsensitiveComparer.Defaultとか。

380:デフォルトの名無しさん
06/09/12 02:17:32
>>379
それで書いてみろよ

381:デフォルトの名無しさん
06/09/12 02:23:16
？？
Array.Sort(c, New MyCompare())
↓
Array.Sort(c, CaseInsensitiveComparer.Default)
ってことじゃなくて？？
なんか勘違いしとる俺？

382:デフォルトの名無しさん
06/09/12 02:52:02
おおっ勘違いしとったわｗｗすまんすまん。

383:デフォルトの名無しさん
06/09/12 13:01:37
>>377
いやもちろんクラスはあるんだわ
でないと絶対動かんし
要はただ起動しただけで動いたり動かなかったりするのは何でなんだろ？と
(動かない時ってのはコードがごっそり無くなって結果まともに動作しなくなる)

もう一つ、DataGridなんだけど、行ヘッダクリックすれば複数行選択出来るけど、
セルからme.select(row)みたいにすると、CtrlやShift押しててもその都度選択が解除されて
新規選択になっちゃいますよね
あれを回避する方法は無いでしょか？
(要はアクセスのリストボックスの複数選択モードみたいにしたいんです)

384:383
06/09/12 15:26:23
自己解決
カレントセルの列を-1にしてselectすれば出来た
shiftの時は前回の選択行からfor-nextで回してやればOK

385:デフォルトの名無しさん
06/09/12 20:49:08
VB2003にて質問です。
現在MDIアプリを作成中なのですが
子Formを2つ作成しActiveな子Formを切り替えた際に
切り替えたFormのActiveControlのValidatingが起きなくなりました。

子Form内の別のControlにFocusを移すと動作はもとに戻るのですが
なぜこのような動作するかが不明です。

どなたか教えていただけないでしょか？
またFocusを移動させる事なくValidatingをハンドルできるようにする方法も合わせてよろしく
お願いします。

386:デフォルトの名無しさん
06/09/12 22:00:47
不明も糞もそれがWindowsのGUIの仕様というかお作法でしょう。

387:デフォルトの名無しさん
06/09/12 22:50:48
イベントでやらずに、自分で任意のタイミングでやればいいじゃん。
イベントの発生タイミングは>>386のとおりなんだから。

388:デフォルトの名無しさん
06/09/13 11:43:45
VB.NET2005の正規表現について質問です。
時間に対して正当性のチェックをしたいと思っています。
許す文字列の例
0:00 0:0 12:00 12:59 23:0 23:59
許さない文字列の例
0:000 12:61 122:00 24:00

これをやろうと思い以下のようにやりましたが、だめでした。
dim pt as string = "([0-1]{,1}[0-9]|2[0-4]):([0-5][0-9]|[0-9])$"
dim time as string = ""'これはいろいろな時間の文字列
If Not Regex.IsMatch(value, pField.mPatternString) Then
　　　Throw New Exception("パターンに一致しません。")
End If

正規表現に問題が有るようなので、ご指導お願いします。

389:388
06/09/13 11:56:03
自己解決
^([0-1]?[0-9]|[2][0-3]):[0-5]?[0-9]$
ハットを入れないとだめでした

390:デフォルトの名無しさん
06/09/13 14:06:27
VB.net2003で質問です。
フォームのActiveControlプロパティが変更された時に起きるイベントは無いでしょうか？
フォーカスが移る度に起きるイベントをフォーム側に組み込もうと考えています。

391:デフォルトの名無しさん
06/09/13 18:29:10
VB.NET2003です。

最大化されたForm1からForm2を下記のようにダイアログとして
呼び出しました。

Dim DialogForm As New Form2
DialogForm.ShowDialog()

この時、Form2は最小化できてもForm1が最小化できない状態に
なるのですが、最小化できるようにする手段はありますか？

392:デフォルトの名無しさん
06/09/13 18:31:47
ShowDialogはモーダルですよ
Showを使えばいいけどモーダルじゃなくなりますよ

393:デフォルトの名無しさん
06/09/13 18:38:43
うーん、打つ手なさそうですか。
とはいえForm2はモードレスにすると色々と不都合が出るし…。

ともかく、ありがとうございました。

394:デフォルトの名無しさん
06/09/13 20:51:55
>>393
なんつーか思い込みが激しすぎるというか、頭が硬すぎないか？
Form2をモーダルで表示することには目的があるはずだが、
その目的を達成する手段はForm2をモーダルにする以外にいくらでもあるんじゃないの？

例えばForm1のコントロールを全部Enabled = Falseにするとか。（フォームは自分の
コントロールのコレクションを持ってるから簡単にできる）

あるいはForm2が表示されているときにForm1がアクティブになったらForm2.BringToFront
するようにしといて、Form2側にForm1を最小化するためのボタンを付けるとか。

395:デフォルトの名無しさん
06/09/13 20:52:54
まぁ、仕様（目的）をはっきりさせろっちゅうことだな

396:akl
06/09/13 23:49:17
今　VB.NETで開発してるんだけど、　それを　J# とか　java の.NET 語の変換（コンバート）
したいのだけど、　VB.NET から　C# とかは　結構あるんだけど、　javaは無料で　コンバートできる　
とこ（サイトか　ソフト）　ないかなぁ？

397:デフォルトの名無しさん
06/09/13 23:57:24
日本語でおk

398:デフォルトの名無しさん
06/09/14 06:36:08
>>393
なるほどな。
いわゆる操作性の悪いソフトって、こうやって作られていくんだろう。

アプリ特有の動作とか操作体系は気持ち悪いと思うのは俺だけか？
一般的なアプリと一貫性のある動作でシンプルに動くほうが直感的にわかりやすいだろうに。

399:デフォルトの名無しさん
06/09/14 06:46:43
>>396
ＶＢの開発なら、Ｊ＃に変換する必要なし。そのままお続けください。
Ｊ＃の開発でＶＢのソースを移植あるいは流用したいなら、Ｊ＃のとこ行って聞きなさい。

400:デフォルトの名無しさん
06/09/14 08:24:19
>>398
一般論としては同意するけど>>391の言うことも理解できるところがあるよ。

モーダルダイアログだすと元のウィンドウは移動も最小化もできず、これが
非常に鬱陶しい仕様だと思うことはある。
Windowsの操作にあまり慣れてないユーザーは特にそう感じるらしい。
（デスクトップ上のマイドキュメントをクリックしたいのにできない！みたいな感じw）

401:デフォルトの名無しさん
06/09/14 08:42:04
>>400
なら、別の方法を手動で操作をすればいいのでは？
AddOwnedForm辺りを使って。

402:デフォルトの名無しさん
06/09/14 10:04:47
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim DialogForm As New Form2
DialogForm.ParentForm = Me
DialogForm.ShowDialog()

End Sub

[Form2]

Private Sub Form2_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize

Me.ParentForm.Visible = Not (Me.WindowState = FormWindowState.Minimized)

End Sub

と、最小化の際にForm1を非表示にすることで対処しました。

403:デフォルトの名無しさん
06/09/14 10:52:53
あ、名前入れ忘れ。>>402=>>391です。

404:デフォルトの名無しさん
06/09/14 17:24:50
PDAとActiveSyncをゲスト接続してファイルをコピーする場合
PDA本体内フォルダのパスをどう指定していいかわかりません
誰かわかる人がいたら教えてください。

405:デフォルトの名無しさん
06/09/14 21:34:51
モーダルなのに他の窓を弄れるとかさぁ、独自仕様は不気味じゃない？
しかも非表示状態とか・・・正直ありえん。

そんな変な仕様が必要な理由は何？

406:デフォルトの名無しさん
06/09/14 22:39:33
arrayListに数値ばかりをデータベースからセットして同じのはListから省きたいのだけど
いい関数ないかな・・。

407:デフォルトの名無しさん
06/09/14 22:51:07
DBから読み込む時にDISTINCTを使えばいいじゃん。

408:デフォルトの名無しさん
06/09/14 22:59:20
>>405
最近この手の馬鹿増えたよな。
ちょっと前の話題をすぐに忘れて、何度でも同じ疑問を提示して
話を延々飽きずにループさせる奴

お前さんは鶏頭かw

409:デフォルトの名無しさん
06/09/14 23:02:42
DISTINCTって集約する値のみselect文に追加できるんですよね・・。
(当たり前か・・)

違うフィールドも参照したいのです。
そういうときって入れ子みたいにするんですかね・・・

select 登録月　from 利用テーブル　Where　ID=A in
　　　　(select * from 利用テーブル　Where 住所　= "東京"）
こんな感じかな・・・。

410:デフォルトの名無しさん
06/09/14 23:06:23
間違えた
Select DISTINCT 登録月　from 利用テーブル　Where　ID = A
IN (select * from 利用テーブル　Where 住所　= "東京"）

411:デフォルトの名無しさん
06/09/14 23:09:21
間違えた逆か・・・
select * from 利用テーブル　Where 登録月　IN
（Select DISTINCT 登録月　from 利用テーブル　Where　ID = A）

こんな感じですかね・・・。

412:デフォルトの名無しさん
06/09/14 23:53:20
どうでもいいけどVB.NETと何の関係が。

413:デフォルトの名無しさん
06/09/15 00:07:20
>>411
わざわざ副問い合わせしなくても、住所="東京" AND ID="A"を抽出
条件にしたらあかんの？

414:デフォルトの名無しさん
06/09/15 07:02:06
>>413
それじゃあ抽出内容が変わってしまうと思います。

>>412
初めはDataset(またはdatagrid)とかでやれないかと思ったのですが、
SQLでできるなら関係なかったです。すみません・・・。

415:デフォルトの名無しさん
06/09/15 08:17:08
何がやりたいのかしらないけど、同じテーブルを２度も読む必要なんてないよ

416:デフォルトの名無しさん
06/09/15 09:18:04
>>414
>>それじゃあ抽出内容が変わってしまうと思います。

どう変わるのか具体的に説明してくれないか？

417:デフォルトの名無しさん
06/09/15 10:32:34
414は、まともな質問もできないくせに自論を展開して自己解決。
人の話なんて最初から聞くつもりないんだよ。

「登録月」って時点で、今年のことしか考えてないダメ設計なＤＢかもしれないし。

418:デフォルトの名無しさん
06/09/15 12:02:54
間違いなくSQL素人だし

419:デフォルトの名無しさん
06/09/15 23:06:20
いやね、プログラムの中でも特にＳＱＬは、あんたがやりたいことをきちんと日本語で説明しろと。
プログラムだと、Windowsの用語とか、プログラムの技量があるから若干難しいけど。

データをどのように集計したり抽出したいか、日本語で相手に伝わらないようなことを、ＳＱＬなんかにできっこないじゃん。ｗ

420:デフォルトの名無しさん
06/09/16 10:26:48
ここっていつみても答えるほうがバカだなｗ

421:デフォルトの名無しさん
06/09/16 12:06:27
聞くほうもバカだからな。

422:デフォルトの名無しさん
06/09/16 12:22:54
>>420
>414乙

423:デフォルトの名無しさん
06/09/16 19:40:56
#Region ディレクティブはファイルを開いたときに折りたたまれていますが
マウスを使わずに一気に開くとか規定値を開いた状態にするとか出来ますか？

#Region をやたらと使っているプログラムがあってソースファイルを開くと
折りたたまれたRegionが５～１０個くらい表示されているだけで
いちいちマウスでクリックして開かないといけないので鬱陶しくてかなわん。orz

424:デフォルトの名無しさん
06/09/16 19:53:07
どっちもできたはず。

425:デフォルトの名無しさん
06/09/16 20:32:51
キーボードショートカット使えよ
そんなのいちいちマウスでやってたら腱鞘炎になっちゃうよw

426:デフォルトの名無しさん
06/09/16 21:52:06
>>423
開いてるソースのほうがうっとうしいと思うが。
綺麗に関数化されていて、それが綺麗にＲｅｇｉｏｎでまとまってれば、そんなに開くことが無い。

コントロールから作ったイベント関数とかが逆にうざい。
人がせっかくきれいにＲｅｇｉｏｎわけしてるのに、かってに最後に追加しやがる。

427:デフォルトの名無しさん
06/09/17 00:35:17
>>425
キーボードからRegionの折りたたみを開けましたっけ？

>>426
本人は綺麗にRegion化しているつもりだろうけど他人から見たらｵﾚｵﾚRegionです。
折りたたみなんてウザイだけ。
RegionなんてFormのところだけで十分。

428:デフォルトの名無しさん
06/09/17 01:26:11
///のコメントだけ展開してくれる機能とかあったらいいのに。

429:デフォルトの名無しさん
06/09/17 01:39:49
>>425
あー、おれも知りたい。
あとコメント付けたり外したりするショートカットもあればいいなぁ。

430:デフォルトの名無しさん
06/09/17 01:58:37
知りたいも何も、自分で設定しろよ

431:デフォルトの名無しさん
06/09/17 04:13:37
c-ml（c-lmだったかも）
c-kc
c-ku
てか調べろよ。

432:デフォルトの名無しさん
06/09/17 12:06:07
>>429
URLﾘﾝｸ(msdn2.microsoft.com)

キーボードのスキームをVB6にしてると微妙に違うかもね。

433:デフォルトの名無しさん
06/09/17 13:57:31
>>432
おお、さんくす。
使いそうなのを印刷して貼っておくよ。

434:デフォルトの名無しさん
06/09/17 22:37:54
パスワードの条件がアルファベットと数字の混合である基本的な
フォームを作りたいんですが、IsLetterOrDegitを使わずに作る
にはどうしたらいいでしょうか。Select Caseで作れないでしょうか。

435:デフォルトの名無しさん
06/09/17 22:59:42
>>434
プログラミング以前にまず正しい日本語をマスターすべきじゃないかと思うよ。

436:デフォルトの名無しさん
06/09/17 23:00:24
>>434
もっと詳しく「何がやりたいのか」を書いてくれ。
おまいさんの言う「フォーム」の意味もわからん。

437:デフォルトの名無しさん
06/09/17 23:25:50
>>436
テキストボックスにパスワードを入力させる際に、
数字のみ、もしくは英語のみではエラーになる仕組みの
簡単なアプリケーションが作りたいんです。
そのエラー判定をどうしたらいいか悩んでるんです。

438:デフォルトの名無しさん
06/09/17 23:27:32
そんなロジックのことで悩んで人に聞く程度ならやめちまえ、と思う。

439:デフォルトの名無しさん
06/09/17 23:44:20
MaskedTextBox

440:デフォルトの名無しさん
06/09/17 23:50:31
>>４３９
ありがとうございます。
でも、書式・形式じゃなくて
判定方法が知りたいんです。

441:デフォルトの名無しさん
06/09/17 23:59:40
1文字づつ見て数字と英字の数を数えりゃいいだろ

442:デフォルトの名無しさん
06/09/18 00:02:52
こういう人ってプログラムすることって何だと思ってるんだろう･･･。
せめて入門書は１冊、最近だとネットで入門サイトあるんだから@ITとか見ればいいじゃん。

443:デフォルトの名無しさん
06/09/18 00:04:43
>>440
この機会に正規表現を使ってみるのがいいと思うよ。
テンプレの「いきましょ」と「@IT」に分かりやすい解説がある

444:デフォルトの名無しさん
06/09/18 00:06:18
>>440
select passwd
case "A"
case "AA"
case "AAA"
中略
case "AAB"
case "AAC"

1～10文字くらいでエラーになる文字列を全てCASE文で
並べれば出来るだろう。
正しい文字列をCASE文で並べて、それ以外をエラーにしても良いと思う。

445:デフォルトの名無しさん
06/09/18 00:08:33
>>444
それだ！

446:デフォルトの名無しさん
06/09/18 00:10:07
>>444
おまいノーベル賞並みの天才だな

447:デフォルトの名無しさん
06/09/18 00:19:12
皆さんありがとうございます。
>>444
実は
Case "a" To "z", "A" To "Z"
hasAlpha = True
Case "0" To "9"
hasNum = True
で
If　hasAlpha = True　And　hasNum = True
Okメッセージ

これでやってるんですが、うまくいかないんです。

448:デフォルトの名無しさん
06/09/18 00:21:19
まず、どうやったら良いかを考える前に、
それの何がいけないのか、どうしてこんな馬鹿なことを考えたのか、
それらが解るようになるまで勉強し直しておいで。

449:デフォルトの名無しさん
06/09/18 00:25:16
>>447
まあこのスレは精神的幼児が多いから無視していいよそういうのはw

VBのSelect Case はC系のとそれと違ってマッチする条件があるとそのままBreakするから
それでは正しく動かない。

450:デフォルトの名無しさん
06/09/18 00:31:02
>>449
やっとひとつ理解できました。
ということは、Select Caseを使ってアルファベットと
数字を別々に判定することは無理なんですかね。

451:デフォルトの名無しさん
06/09/18 00:33:59
そうだから正規表現覚えるのが結局一番早いよ。
今後の応用範囲も広がるし

452:デフォルトの名無しさん
06/09/18 00:35:13
正規表現っていうのはこの場合何でしょう？

453:デフォルトの名無しさん
06/09/18 00:36:06
この場合もクソもないでしょ

454:デフォルトの名無しさん
06/09/18 00:39:23
>>447
そのSelectは何に対してやってるんだ？
パスワード全体に対してやっても意味無いぞ。
ループの中でパスワードの1文字ずつに対してやればうまく行くんじゃないの？

455:デフォルトの名無しさん
06/09/18 00:42:00
甘やかしな教えた君が増えると、努力もしない教えて君が調子ぶっこいて何でも聞いてくるようになるから嫌だよな。

456:デフォルトの名無しさん
06/09/18 00:50:36
ここ質問スレなんだけどｗ

457:デフォルトの名無しさん
06/09/18 00:52:48
つってもvb以前の質問はねー

458:デフォルトの名無しさん
06/09/18 00:53:15
まあ質問者が自分で考えもしない超低レベルなら、回答者も馬鹿揃いだから、丁度いいんじゃね？

459:デフォルトの名無しさん
06/09/18 02:06:09
C#スレみたいに本スレと初心者スレ分ければいいんじゃね?
C#のほうはあんまり機能してないけど

460:デフォルトの名無しさん
06/09/18 07:36:09
質問とか初心者以前だろ？

どうしたらいいか？　正規表現。

これで終わってる話。
それを調べて判らない点が出たら再質問。それが常識。

会社の新人で、ここにいる質問の人みたいのいたらケリだよ。

461:デフォルトの名無しさん
06/09/18 09:44:33
434じゃないけど便乗質問。
自分の頭では"(全部数字)|(全部英字)|(全部英数字)"にマッチして、
グループ1と2が空でグループ3が空じゃなかったらOKというのしか思いつかなかった。
マッチしたかどうかで一発で判定できる正規表現って書ける？

462:デフォルトの名無しさん
06/09/18 11:30:18
検索文字列がパターン化できないのであれば正規表現は使いにくいよ。
「英字が入ってる AND 数字が入ってる」でチェックして、外れたの
はやり直しって感じでいいんでない？

URLﾘﾝｸ(homepage1.nifty.com)

463:デフォルトの名無しさん
06/09/18 12:56:04
最低・最悪のユーザー・エクスペリエンスと評判の　.NETアプリ
こんな素晴らしいクソ言語の学習に皆さんがんばって下さい

464:デフォルトの名無しさん
06/09/18 13:08:45
学習、なんて言っているうちは何を言っても説得力無し。

465:デフォルトの名無しさん
06/09/18 13:51:11
すいません、上記の方々と別件なのですが、正規表現で質問です。

「?:@123xxxxx」という文字列を含むinstrを「@123」へ変換したいと思っています。
※「?」「:」「@」は普通の文字として扱う。

以下のような正規表現で変換しようとしたら、resultがNothingになってしまいます。
result = System.Text.RegularExpressions.Regex.Replace(instr, "\?\:\@(\d\d\d)(\w+)","\@$1")

ちなみに以下のようにしたら、例外が発生。
result = System.Text.RegularExpressions.Regex.Replace(instr, "?:@(ddd)(w+)","@$1")

VB.netの正規表現ではどのように表現すればよろしいでしょうか。
よろしくお願いいたします。

466:デフォルトの名無しさん
06/09/18 13:54:33
エスケープする必要がある文字とない文字を MSDN で調べれ

467:デフォルトの名無しさん
06/09/18 14:37:58
検索パターンに余計な\を入れても無視されるだけで戻り値がNothingになることは無いと思うんだが。

468:465
06/09/18 15:05:20
>>466
以下のように変更したら、キチンと値が帰ってくるようになりました。
どうもありがとうございまいした。
work = System.Text.RegularExpressions.Regex.Replace(instr, "\?:@(\d\d\d)(\w+)","@$1")

>>467
私も今までPerlやJavaでは465のように書いていて問題なかったため、
VB.NETでも同様だと思ったのですが、Nothingになってしまいました。
VB.NETでは厳密にエスケープ文字を判定しているようですね。。。

469:デフォルトの名無しさん
06/09/18 19:11:55
>>411
select * from 利用テーブル　Where 登録月
でdatasetに書き込み
その後datavviewでID=Aとかいくらでも抽出しればいくね。

470:デフォルトの名無しさん
06/09/18 19:15:04
正規表現文字クラスの[]指定内で前方参照する方法ってある？
(['"])[^\1]+\1
みたいな（ここの2つ目の[]のやつね）。
上のは、'か"で囲まれた文字列の検索。

471:デフォルトの名無しさん
06/09/18 19:15:46
ここって思うし、質問する人間と回答する人間、経験何年と年収いくらか一緒に記載すると、
返答も相手のレベルに合わせられるし、質問した方も、回答の理解の仕方が上がるんじゃない？

普通会社では相手が見えるから、お互いのレベルを分かった上で話すじゃん。
そう思うのは私だけかい？

472:デフォルトの名無しさん
06/09/18 19:56:36
>>471
そんなの質問に必要ない。

適切な日本語で質問を表現できること、会話になること。
本人が言われたことに対して試してフィードバックできること。
それだけ。

473:デフォルトの名無しさん
06/09/18 20:01:22
>>471
日本語でお願いします

474:デフォルトの名無しさん
06/09/18 20:23:21
>>472
ほぼ同意。
それに加えて「雑音を聞き流す大人の対応」もできれば大吉。
煽るだけで有益な情報のない脊髄レスは脳内フィルタリングするべし。

475:デフォルトの名無しさん
06/09/18 20:23:23
>>471
たった数行のレスで相手のスキルを推測し真性なのか釣りなのか即座に
判断できないようでは一流のＳＥとは言えん。

476:デフォルトの名無しさん
06/09/18 20:34:31
エスパー乙。
今後も行間を読みまくって適切な解答を書いてください。

477:デフォルトの名無しさん
06/09/18 20:41:20
このレスの住人はユーモアを理解せぬようだの。

478:デフォルトの名無しさん
06/09/18 20:54:08
レスには住めんのう…

479:デフォルトの名無しさん
06/09/18 20:58:10
>>478
面白くない。
Debug.Print()百回やって出直してこい。

480:デフォルトの名無しさん
06/09/18 21:10:04
ループでまわしていいですか?

481:デフォルトの名無しさん
06/09/18 21:17:58
>>480
gotoにしとくと飯が旨く感じるらしいぞ

482:デフォルトの名無しさん
06/09/18 21:35:53
残念、オレはconsole.writeline()だ

483:デフォルトの名無しさん
06/09/18 21:51:54
>>479
ﾄﾞﾄﾈﾄらしく System.Diagnostics.Debug.WriteLine() を使えよ！！

484:デフォルトの名無しさん
06/09/18 21:54:38
うーん、ここって高度な技術者なのかな・・全然日本語がわからない。

485:デフォルトの名無しさん
06/09/18 22:22:32
>>470
ベタに書けばこんなんだが
(?<quote>'|")(?<match>(?!\k<quote>).+)\k<quote>
最長一致じゃ拙いように思うがね
// グループに名前付けてるのはわかりやすさを優先したから

486:デフォルトの名無しさん
06/09/19 03:57:27
VB.netで、画像加工のアプリを作ってるんですが、
ブラシを使って塗りつぶして、保存した後、フォトショップで開くとエラーが出て開けません。
あと、mixiのプロフィールの画像に指定しようとアップロードすると、
「画像が壊れています」とエラーが出て失敗してしまいます。
他のアップローダでアップするとちゃんといけて、表示もされました。
原因が分かる方教えてください。

487:デフォルトの名無しさん
06/09/19 14:21:10
どうやって、どんな形式で保存しているのか。

それが問題だ。

488:デフォルトの名無しさん
06/09/19 15:34:53

　　クソ言語　　VB.NET

489:デフォルトの名無しさん
06/09/20 22:01:40
VB6からのイメージだけで思ってないか?
まあ漏れも使ったことないけど

490:デフォルトの名無しさん
06/09/20 22:17:57
VB6ユーザーを何とか移行させたくてどんどんクソ言語になって来てるのは事実

491:デフォルトの名無しさん
06/09/20 23:30:46
2003までで乗り換えがうまくいかなかったからか、2005では驚くほど
6.0ユーザーに擦り寄ってるの見え見え。

492:デフォルトの名無しさん
06/09/20 23:46:59
諦めてVB6を再販すれば無問題。

493:デフォルトの名無しさん
06/09/21 00:07:33
マクロの DTE.Find.Execute() で検索を実行すると末尾まで検索すると
先頭に戻って検索を繰り返すのですがどうやったら止めれるのでしょう？

494:デフォルトの名無しさん
06/09/21 15:21:36
リストビューのcontextmenuを使ってポップアップメニューを作る際、
右クリックされたのが、
カラムヘッダーのときと、
リストのアイテムのときと、
アイテムの無いリスト部分のときとで、
ポップアップメニュー表示非表示を切り分けるってことできます？
どうしても、どんな場合でも右クリックしたらメニューが表示されてしまいます。
同一コントロール内で、どこでクリックされたかの判断したいです。

495:デフォルトの名無しさん
06/09/21 16:51:39
>>494
できるよ。

＞どうしても、どんな場合でも・・・(ry
それは嘘だろー　どうやったのか書いてくれ。
何もしてないんだろ？

496:494
06/09/21 17:41:33
>>495
申し訳ない。
私がウソコでした。
ContextMenuプロパティから操作しようというのが間違えていました。
素直にMouseUpイベントからGetItemAtメソッドでできました。

ありがとうございました。

497:デフォルトの名無しさん
06/09/22 08:51:17
MDIについての質問です。
UserControlから呼び出すフォームを親フォームのMDIに表示しようとして躓いています。
Parentプロパティを送るときに例外「トップレベルのコントロールをコントロールに追加できません」が発生します。
Me.ParentFormのIsMdiContainerはTrueになっています。

UserControlのイベント内で、
Dim f as New Form
f.Parent = Me.ParentForm←ここでエラー
f.Show()

498:デフォルトの名無しさん
06/09/22 09:40:28
ParentじゃなくてMdiParentじゃないの？

499:497
06/09/22 10:01:51
>>498
あああああっ
俺、何やってんだぁぁぁ（T.T

ども、ありがとです

500:デフォルトの名無しさん
06/09/22 11:19:37
ComboBoxで質問ですが
Itemsで追加した文字列のほかに任意の数値（文字でも可）を指定する方法ってありますか？
例えば、
aaaa,0
bbbb,3
cccc,4
ドロップダウンに表示するのはaaaa、bbbb、ccccで
SelectedIndexが2のときにはccccと4が抽出できるような・・・

501:デフォルトの名無しさん
06/09/22 11:38:11
DataSource
DisplayMember
ValueMember

502:デフォルトの名無しさん
06/09/22 12:26:51
>>501
それはデータベーを使わなくても使えますか？
つか、以前のＶＢで言うところのItemDataって奴があればいいとおもって調べたら
SetItemDataってのがＮＥＴにはあるっぽいのでやってみたらエラーに・・・
これどうやって使えばいいのかな・・

503:デフォルトの名無しさん
06/09/22 12:49:05
>>502
それくらいMSDN嫁

504:デフォルトの名無しさん
06/09/22 13:24:45
>>503
('д｀)えー
あのエスパーにしか解読できないヘルプをですか・・・
こっちがヘルプしてほしいくらいのヘルプだよねＭＳのって(´･ω･`)

505:デフォルトの名無しさん
06/09/22 13:28:38
>>504
ならぐぐるとか。

506:デフォルトの名無しさん
06/09/22 13:55:04
>>595
ぐぐってみました。
どうやらVB6からアップデートしたらSetItemDataが使えるらしいですが
新規でＮＥＴならそれはできないらしいですね。
ちょっと>>501のアレをみてみるかな

507:デフォルトの名無しさん
06/09/22 23:24:17
>>504

自分の読解力を棚に上げてる可能性が５割。
英語の原文読めばいいのに読んでない可能性が５割。

508:デフォルトの名無しさん
06/09/22 23:30:02
createobjectでIEのオブジェクトを作成しているのですが
最前面で表示されない場合があります。
最前面で表示される方法はないでしょうか？
よろしくお願いします。

dim ie as object
ie = createobject("InternetExplorer.Application")
ie.visible = true
ie.navigate2 "URLﾘﾝｸ(www.google.co.jp")

'最前面へ

509:デフォルトの名無しさん
06/09/22 23:31:37
>>507
MSDNの日本語訳は原文にある重要な説明が省略されていたり酷いもんだな～
で、結局、原文の方を読まないと使い物にならない。

あんな訳なら自動翻訳のがマシ。

510:デフォルトの名無しさん
06/09/22 23:38:01
>>508
SetForegroundWindow

511:デフォルトの名無しさん
06/09/23 00:45:33
>>492
MSDNライブラリで再販というか公開再開されてたな。MSJava部分を削除して。
よっぽど需要が多かったんだろう。
>>509
さすがに「宇宙天啓データベース」よりは…
まあ人間が「意図的に」重要な部分を脱落させる方がたちが悪いかもだけど

512:デフォルトの名無しさん
06/09/23 08:16:55
Int32からIntPtrへキャストする方法教えてください。

513:512
06/09/23 08:26:39
事故解決しました。

514:デフォルトの名無しさん
06/09/23 08:28:02
コンストラクタ

515:デフォルトの名無しさん
06/09/23 10:40:45
これだけ乗換えが進まないってことは、
オブジェクト指向が糞ってことだよな。

516:デフォルトの名無しさん
06/09/23 10:50:49
VB脳には高度すぎたんだよ

517:デフォルトの名無しさん
06/09/23 12:26:57
>>509
実際にオリジナルの英語版と日本語の翻訳を読み比べたことがないのがバレバレ
MSDNの翻訳は極めて適切だっつーにw
わかりにくいのは翻訳のせいじゃないし

518:デフォルトの名無しさん
06/09/23 12:49:28
>>517
Platform SDK 辺りのは強ち間違いでもない。
絶対数としてはそう多くはないが、やはり間違いは印象に残るからな。

MSDN2 では極めてと言っても良いぐらいに質が高くなったね。

519:デフォルトの名無しさん
06/09/23 15:41:17
OleDbでFirebirdを使うプログラミングをしてるのですが、
ExecuteNonQueryメソッドやExecuteReaderメソッドで、
「指定されたキャストは有効ではありません。」という例外が発生します。

Dim oConn As OleDb.OleDbConnection
Dim com As OleDb.OleDbCommand
Dim oCmd As OleDb.OleDbCommand
Dim oReader As OleDb.OleDbDataReader

oConn = New OleDb.OleDbConnection
oConn.ConnectionString = "File Name=C:\test.udl;"
oConn.Open()

oCmd = oConn.CreateCommand()
oCmd.CommandText = "select * from country where country = 'USA'"

oReader = oCmd.ExecuteReader()
While oReader.Read()
Debug.WriteLine(CStr(oReader("COUNTRY")) & "," & CStr(oReader("CURRENCY")))
End While

oReader.Close()
oConn.Close()

何か間違えているところはありますか？

520:デフォルトの名無しさん
06/09/23 15:49:39
GetHogehoge メソッド使って .NET の型で取得すれ。

521:デフォルトの名無しさん
06/09/23 20:32:10
>>517
昔のMSDNはwsprintf()の1,024バイト制限の記述が日本語の方では漏れていたり
結構酷いもんだったよ。こんなの致命的でしょ。
で、最近は英語の方しか見ないのでいちいち対比なんてしてません。w

522:デフォルトの名無しさん
06/09/23 20:49:56
化石乙

523:デフォルトの名無しさん
06/09/23 21:22:46
３年で化石か。

524:デフォルトの名無しさん
06/09/23 22:06:17
この場合msdn2に移行というイベントがはっきりしてるわけで

525:デフォルトの名無しさん
06/09/23 22:40:01
英語版MSDN2をローカルに入れられるインストーラはありますか？

526:デフォルトの名無しさん
06/09/23 23:05:45
でも、MSのサイトでみる自動翻訳はやっぱりむごいよ。
てにおはが間違ってるんだもん。読んでて疲れる。

527:デフォルトの名無しさん
06/09/23 23:16:56
自動翻訳に文句言っても仕方ないだろｗ

528:デフォルトの名無しさん
06/09/24 03:48:46
どうでもいいがMSDNでまともに探せないとか見つけても理解できない奴は
ＶＢに限らず何やっても相当苦労すると思う。

むしろ対話式で質疑応答しないと出来ない奴がプログラミングしてるってのは凄いと思う。
どれほど難しく見えてるのか想像つかん。まじで

529:デフォルトの名無しさん
06/09/24 06:46:48
ああ、違いない。どうでもいいことだな。

530:デフォルトの名無しさん
06/09/24 09:21:11
VB.NET 2005 の TreeViewコントロールに関して教えていただきたいのですが、
Shiftキーを押しながらマウスがホイールされたら一度に表示可能な項目数分を
スクロールさせたいのですが、どうやったら良いでしょうか。。。

イメージとしては下記のコードのような感じです・・・・(コンパイルできませんが；；)

Private Sub TreeView_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseWheel

If CBool(Control.ModifierKeys And Keys.Shift) Then
Select Case e.Delta
Case Is < 0 '下に TreeView1.VisibleCount 分スクロール
e.Delta = TreeView1.VisibleCount * -1 '←ReadOnlyなので値を入れられない
Case Is > 0 '上に TreeView1.VisibleCount 分スクロール
e.Delta = TreeView1.VisibleCount '←ReadOnlyなので値を入れられない
End Select
End If
End Sub

531:デフォルトの名無しさん
06/09/24 12:25:58
お前らの言いたいことはわかったから、おれのマシンの

「問題が発生したため、Microsoft(R) Visual Basic Compilerを終了します。
ご不便をかけて申し訳ありません。」

をどうにかしてくれ。
謝る前に直せよ、ビル・ゲイツ。

532:デフォルトの名無しさん
06/09/24 15:29:46
まあ、2ｃｈで文句言ってる暇あったらインストールしなおすよな。OSから。

533:デフォルトの名無しさん
06/09/24 23:01:07
俺のマシンは夏休みと冬休みにバックアップ＆初期化＆フルインスコ
してるよ。95OSR2時代からの癖みたいなもんだ。

534:デフォルトの名無しさん
06/09/25 15:08:31
MAPIでOutlook2002sp3以降にアクセスした際の警告ダイアログ、
プログラムが、Outlook 内に保存されている電子メールアドレスに
アクセスしようとしています。よろしいですか?」ってやつ。
あれってExchangeServerの設定いじる以外にどうしようもないですかね。
クライアントのレジストリいじくれば何とかなりそうなんだが。

535:デフォルトの名無しさん
06/09/25 15:41:12
ComboBoxのSelectedIndexChangedイベントでは変更後のSelectedIndexですが
このSelectedIndexの変更前の値を知る方法を教えてください

536:デフォルトの名無しさん
06/09/25 16:01:27
Enterで値確保しとけば？

537:デフォルトの名無しさん
06/09/25 16:38:35
初期値をフィールドに入れといて
SelectedIndexChangedの度にそのフィールド更新したらいいじゃん

538:デフォルトの名無しさん
06/09/25 17:24:58
PostMessageを使って別のEXEにメッセージを送りたいんだけど
Spy++で見てもなぜかメッセージがPostされてません
同じように宣言と設置をしてるFlashWindowはちゃんと動作してるので
ハンドルの取得ミスとかではないと思うのですが、、、
PostMessageには何か特殊なやり方があるのでしょうか？

宣言↓
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

539:デフォルトの名無しさん
06/09/25 17:27:28
それVB6用だろ

540:538
06/09/25 17:38:33
>>539
もしかしてLongのところ全部Integerですか？？

と思って全部換えたら動きました
ありがとうございました！

日ごろVC++ばっかり使ってたのでVBの仕様の違いをしりませんで、、
すいませんでしたorz

541:デフォルトの名無しさん
06/09/25 20:39:13
>>540
つ URLﾘﾝｸ(www.pinvoke.net)

542:デフォルトの名無しさん
06/09/25 21:09:44
デバッガでStringとかの値が１６進値で表示されないんですが仕様ですか？

543:デフォルトの名無しさん
06/09/25 21:36:54
仕様です
て言うかその16進値ってのは何を指してるんだ

544:デフォルトの名無しさん
06/09/25 22:29:02
>>543
CR/LFとかのコードが入ってるか見たいわけよ。

545:デフォルトの名無しさん
06/09/25 22:30:19
お世話になります。
Asp.netでボタンを押下した時にクライアントサイドに
メッセージボックス表示、そして
処理の途中にもう一度メッセージ表示するには
どうしたらいいでしょうか？

546:デフォルトの名無しさん
06/09/25 22:58:50
ngen.exe の使いかたがよくわからないんだけどどうやるの？

547:デフォルトの名無しさん
06/09/25 23:10:50
ngen /?

548:デフォルトの名無しさん
06/09/25 23:46:34
「フォームの作成」と「プロシージャの記述」とは主にどのような作業のことを指すのですか？
できれば、簡潔にまとめてほしいです。

549:デフォルトの名無しさん
06/09/25 23:48:56
まあ簡潔にいうと君はプログラマには向いてないってことでしょう。

550:デフォルトの名無しさん
06/09/25 23:55:12
だな。
最近多いよね。基本的な入門書も読まずにプログラム組む新人。

551:デフォルトの名無しさん
06/09/26 00:04:32
>>550
組むわけではないんですが、都合上どうやるのかを知っておかなくては行けないんです。

552:デフォルトの名無しさん
06/09/26 00:21:46
フォームの作成
フォームのインスタンスをコンストラクトすること

プロシージャの記述
プロシージャをディスクライブすること

553:デフォルトの名無しさん
06/09/26 00:27:37
>>552
上は分かりますが、下はそのままじゃないですか。
もうすこし、詳しく教えていただけませんか？

554:デフォルトの名無しさん
06/09/26 00:32:26
プロシージャの記述
プロシージャをコンポーズするステートメントをディスクライブすることによって
プロシージャとしてのファンクションをコンポーズすること

555:デフォルトの名無しさん
06/09/26 01:42:14
もうやめれｗ

556:デフォルトの名無しさん
06/09/26 09:38:07
・フォームの作成
フォームを精魂込めて我が子を育てるがごとく作成すること。

・プロシージャの記述
関数の記述は一関数入魂が基本です。血の出るほどの魂を込めて記述しましょう。

557:デフォルトの名無しさん
06/09/26 11:01:55
>>548
「フォームの作成」
ボタンやテキスト・フィールド、コンボ・ボックス等のGUI部品を並べて画面を作る事です。

「プロシージャの記述」
フォームの作成で作ったボタン等が押された時に何かの計算をするとかデータベースから
値を読み込むとかのプログラム処理を記述します。

# >>548がのクライアントだったらどうするよ？しかもおエラいさん。
# いい加減なことを吹き込んで苦労するのはおまいらだ。w

558:デフォルトの名無しさん
06/09/26 11:03:02
日本語が変だ。orz

559:デフォルトの名無しさん
06/09/26 11:05:52
思ったより簡単に沢山釣れましたので満足です。
どう見ても釣堀りです。ありがとうございました。

560:デフォルトの名無しさん
06/09/26 15:08:14
VB.NET2003でコントロールのサブクラス化がしたいのですが
サンプルをいただけないでしょうか？

561:デフォルトの名無しさん
06/09/26 15:17:55
URLﾘﾝｸ(support.microsoft.com)

562:560
06/09/26 15:32:27
すみません。事故解決しました。

563:560
06/09/26 16:01:29
Protected Overrides Sub WndProc(ByRef m as System.Windows.Forms.Message)

If m.Msg = &h201 Then 'WM_LBUTTON_DOWN
　If Msgbox("キャンセルしますか？") = vbYes Then
　　Return
　End If
End If

MyBase.WndProc(m)

End Sub

としてキャンセルのときは左クリックを無かったことにしたいのですが
上記のようにただのReturnですと左クリックのメッセージが
うまくキャンセルできていません。
次の左クリックが無効になってしまいます。
綺麗なキャンセルのやり方があれば教えてください。
よろしくお願いします。

564:デフォルトの名無しさん
06/09/26 21:13:15
>>563
釣り？
そりゃクリックとキー入力じゃメッセージ違うでしょ。

っていうか、ドトネトじゃそういうやり方はどっちかというと邪道。
OnClickをオーバーライドした方が簡単だしわかりやすい。

565:デフォルトの名無しさん
06/09/26 21:16:15
つーか、そんな糞UI誰が喜んで使うんだと小一時間

566:563
06/09/26 21:19:58
すみません。事故解決しました。

567:デフォルトの名無しさん
06/09/26 21:22:40
完全に頭おかしい奴だなw

568:デフォルトの名無しさん
06/09/27 11:34:38
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

569:デフォルトの名無しさん
06/09/27 11:48:38
リファラーを設定を設定します

570:デフォルトの名無しさん
06/09/27 12:36:18
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

571:デフォルトの名無しさん
06/09/27 12:42:09
572 :570 :2006/09/27(水) hh:mm:ss
すみません。事故解決しました。

って来る予感w

572:デフォルトの名無しさん
06/09/27 12:42:39
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

573:570
06/09/27 13:08:42
みません。事故解決しました。

574:568
06/09/27 13:14:20
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

誰も解らないのですか？

575:563
06/09/27 13:24:06
HTTPで画像を取ってきてPicutureBox1にロードすればいいのでは？

576:デフォルトの名無しさん
06/09/27 13:33:04
画像の置き場の管理者に
「リファラみんじゃねーぞ（ﾟﾛﾟ）ﾓﾙｧ！！」
ってメール打て

577:568
06/09/27 14:20:36
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

ここはラベルの低いスレですね

578:デフォルトの名無しさん
06/09/27 15:31:46
ヒント
インターネットRFC辞典を読め

579:568
06/09/27 16:19:56
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

ほんと皆さんにはがっかりです

580:デフォルトの名無しさん
06/09/27 16:30:18
池沼？

581:デフォルトの名無しさん
06/09/27 16:44:45
エロ画像Browserでも作ってるんだろうな

582:デフォルトの名無しさん
06/09/27 17:09:32
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

全然役に立たないですね

583:568
06/09/27 17:58:37
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

オナニーは抜いた後にしてください。

584:真の568
06/09/27 18:10:19
みんな興味深々じゃんｗｗｗ
教えたれよ

585:デフォルトの名無しさん
06/09/27 18:10:27
解答もらえてる質問ともらえてない質問には大きな差がある。

質問するなら他の質問の仕方を見てみろ。

586:デフォルトの名無しさん
06/09/27 18:18:55
解答もらえてる質問
→簡単な質問

もらえてない質問
→難しい質問

587:デフォルトの名無しさん
06/09/27 18:49:31
>>568
なぜリファラーが必要だと思うのか説明してくれよ。
本当はリファラーかどうかもわからないんだろ？

>>586
典型的な答えてもらえないタイプだな。

588:デフォルトの名無しさん
06/09/27 19:18:28
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

無駄なレスは不要です

589:デフォルトの名無しさん
06/09/27 19:21:13
しばらく構わずに放っておいたらどこまで続くだろうな。

590:デフォルトの名無しさん
06/09/27 19:21:54
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

質問する時間帯が悪かったみたいですね

591:デフォルトの名無しさん
06/09/27 19:47:23
PictureBox1.ImageLocationに、
リファラーを設定してWeb上の画像を表示する方法を教えてください。

荒らしてた厨房は今頃宿題ですかね

592:真の568
06/09/27 20:06:50
>>587
例えば、ITMadiaはリファラーを設定しないと画像直リンできません。
URLﾘﾝｸ(image.itmedia.co.jp)
とかをフォーム上で表示したい場合、
リファラーに　URLﾘﾝｸ(www.itmedia.co.jp)　を指定するとDLできます。
なので、リファラーは必要です。

ターゲットURLとリファラーURLを引数として、
ターゲットURLにリファラーURLをセットしてPOSTし、
対象をDLするSubプロシージャーを作りたいのです。

どなたかテンプレを。。。

593:デフォルトの名無しさん
06/09/27 20:30:57
HttpWebRequest 調べれ
自前で取ってくる必要がある

594:デフォルトの名無しさん
06/09/28 11:02:57
クソ言語　　VB.NET

次ページ