VB.NET質問スレ (Part18)

VB.NET質問スレ (Part ..

369:デフォルトの名無しさん
06/11/22 11:38:00
フォーム１で相対パスのアドレスが入ったstring形式の「pass」
というデータをフォーム２で使うようにしたいんですけど
どのようなプログラムをすればいいのでしょうか？

プログラムの仕様はフォーム１にあるボタンを押すとフォーム２に遷移。
その後フォーム２でフォーム１で取得した「pass」の中にあるtxtデータを元にプログラムを作っていく予定です。

ぐぐっても検索ワードが悪いのか上手く引っかかりませんでした。
ヒントだけでもいいのでよろしくお願いします。

370:デフォルトの名無しさん
06/11/22 11:41:32
>>369
passの内容をレジストリに登録
form2でレジストリを読む

371:デフォルトの名無しさん
06/11/22 12:01:12
いやいや、form1がメールで送ってform2で受け取ればいいだろ

372:デフォルトの名無しさん
06/11/22 12:10:19
>>371
ばかだなぁ

form1でソケットを生成して、form2で受信すればいいだろｗ

373:デフォルトの名無しさん
06/11/22 12:50:19
今風にするならWebサービスかな

374:369
06/11/22 13:34:05
>>370
即レス感謝です。
おかげさまで実装したい通りのものを作ることが出来ました。
他の方々もレス感謝です。

375:デフォルトの名無しさん
06/11/22 13:38:30
URLﾘﾝｸ(www.vector.co.jp)
作者の方へ

VisualBasicの学習者たちのためにソース公開してください

376:デフォルトの名無しさん
06/11/22 14:01:06
>>374
ほかの人をやきもきさせないように、
ネタかマジかかいとくんだ。

377:デフォルトの名無しさん
06/11/22 14:02:02
>>369
最大の問題は「pass」だな。

378:デフォルトの名無しさん
06/11/22 14:03:45
pathがpasswordになるのかもしれないじょのいこ

379:デフォルトの名無しさん
06/11/22 14:34:26
>>374
しかも、なんでよりによってレジを選ぶんだｗ

万が一、削除処理なんていれてたら・・・ヽ(illﾟдﾟ)ﾉ

380:デフォルトの名無しさん
06/11/22 14:38:59
shared って staticのこと？

381:369
06/11/22 15:17:17
>>376
ネタじゃなくてマジです。

>>377-378
すみません。プログラム内ではpathを使っていたのですが
こちらではpassで質問していました。お恥ずかしい。
パスワードはとは一切関係ないです。

>>379
他に方法があるのですか？
もしよろしければ参考にしたいので教えていただけると嬉しい。
ちなみに削除処理は入れてません。入れるとまずいのですか？
無学で申し訳ないです。作りながら学んでいるのですが難しいですね…。

382:デフォルトの名無しさん
06/11/22 15:29:09
>>380
まぁ、にたようなもの。

スコープが違って、sharedはクラス間でも共有されちゃうよよよよん。

383:デフォルトの名無しさん
06/11/22 15:33:31
>>382
マジで？
じゃあstaticの代わりになるものってなんですか？

384:デフォルトの名無しさん
06/11/22 15:41:02
>>381

dim f as new form2
f.pass = pass
f.show

385:デフォルトの名無しさん
06/11/22 16:12:05
>>383
staticは無くなってないよ(´・∀・｀ )

>>384
それは、form2がpassというメンバ変数かプロパティを
もっていないと使えない。。。。

386:デフォルトの名無しさん
06/11/22 16:29:03
だからそう書けって>>384は言いたいんだろうが

387:デフォルトの名無しさん
06/11/22 16:32:47
C#のstaticに該当するのはsharedでいいんですか？

388:デフォルトの名無しさん
06/11/22 16:34:47
>>387
C#のstaticはいくつか意味があるから、どれのよ

389:デフォルトの名無しさん
06/11/22 16:37:31
>>387
最初からそう書けよ。

C丼でソース書いて、
URLﾘﾝｸ(authors.aspalliance.com)
で変換すると、大体何が何に変わってるか、わかるよ。

390:デフォルトの名無しさん
06/11/22 16:41:51
C＃のstaticはいろんな意味があるんですか？
これは驚いた。
VBでは意味が違うとワードも変わるということですか？
すげー

391:デフォルトの名無しさん
06/11/22 18:20:16
そういやC#のstatic　classはどう書くのだろう。
NotInheritedで継承を禁止して、あとインスタンス化を抑制するのが見当たらない。
プライベートのコンストラクタでも書くのかいな。Moduleでもいいけどなんかいやだ。

392:デフォルトの名無しさん
06/11/22 18:38:04
>>391
>>389　でやってみたらShared　Class　と書けるんだ。ありがとん。

393:デフォルトの名無しさん
06/11/22 18:46:57
>>392
VBに(今のところ)Shared Classはないよ。
>>389の変換結果は常に正しいわけじゃない。

394:デフォルトの名無しさん
06/11/22 18:55:45
Reflectorだと以下のようになった

static class Class1
{
public static int sum(int a, int b)
{
return a + b;
}
}

↓

Friend MustInherit NotInheritable Class Class1
Public Shared Function sum(ByVal a As Integer, ByVal b As Integer) As Integer
Return (a + b)
End Function
End Class

395:デフォルトの名無しさん
06/11/22 19:09:27
まんどくさいから、シングルトンに汁。

396:デフォルトの名無しさん
06/11/22 19:29:23
>>395
それがいいね

397:デフォルトの名無しさん
06/11/22 22:10:35
まあ、動けばなんだもいいさ

398:デフォルトの名無しさん
06/11/23 13:30:35
>>394
MSILレベルでは抽象クラス宣言と継承禁止宣言の２つを行うことで静的クラスを実現しているからね。
でもこれをVB.NETでやろうとしてもコンパイル通らない。

>>391
継承禁止にして、コンストラクタの隠蔽によるインスタンス化禁止でほぼ同等のことが実現できる。
＞Moduleでもいいけどなんかいやだ。
Moduleと静的クラスは全く別物だからダメだよ。
ModuleにはStandardModule属性が付いているからね。これだけでもう全く別物。

399:デフォルトの名無しさん
06/11/23 20:06:35
VBAのスレが立っていないのでここで質問させてください
組込み定数でタブはvbTab改行はvbCRとかあるのですが
スペースとカンマと括弧()の組込み定数を教えてください
もし無ければJISコードでも結構ですのでお願いします。

400:デフォルトの名無しさん
06/11/23 20:42:41
なぜスレがたつまで待てないのか
なぜヘルプを見ないのか
なぜAsc()で調べないのか

401:デフォルトの名無しさん
06/11/23 20:50:36
怠惰で傲慢で愚昧だから

402:デフォルトの名無しさん
06/11/23 22:16:45
>>398
＞Moduleと静的クラスは全く別物だからダメだよ。
＞ModuleにはStandardModule属性が付いているからね。これだけでもう全く別物。
何が困るわけ？
ああ、クラス名での修飾がいらんとかそういう話？

403:デフォルトの名無しさん
06/11/24 01:53:11
>>402
そういう話。

404:デフォルトの名無しさん
06/11/24 22:23:28
テキストファイルにある数字を一つずつ2次元配列で格納したいんですが
上手くいきません(ノД`)誰かご教授お願いします。とりあえず恥さらしソースのせてみます

Dim sr As New System.IO.StreamReader("ファイルパス", System.Text.Encoding.Default)
Dim buf As String

Dim retu As Integer = 0
buf = sr.ReadLine
retu = Len(buf)

Dim gyo As Integer = 0
Do Until sr.Peek = -1
gyo += 1
buf = sr.ReadLine
Loop

Dim array(retu, gyo) As Integer　
Dim i , j As Integer

Do Until sr.Peek
For i = 0 To gyo
For j = 0 To retu
array(i, j) = sr.read
Next
Next
Loop
sr.Close()

効率的な方法もあるんでしょうがとりあえず行と列を求めて（テキストファイルの列数と行数は同じの前提）
ためしにテキストボックスでretuとgyoを表示させたところ
ちゃんとした数字が入ってるんで一応そこまでは合っているようなんですが配列が全くできません(ノД`)誰かよろしくお願いします

405:デフォルトの名無しさん
06/11/24 22:27:02
>>404
うへへははははｗｗｗ

い、いんてじゃぁｗｗｗ

406:デフォルトの名無しさん
06/11/24 22:28:48
もしかしてIntegerが違うんですか？
ご存知でしたら教えてください
お願いします(ノД`)

407:デフォルトの名無しさん
06/11/24 22:40:09
>>406
うへへははｗｗｗ
もう、酔っぱらってよく分かんねｗｗ

でも、デバッグでbufを見たらちゃんと出てただろｗ
arrayはなんでいんでじゃぁなんだよｗ

うへｗうへへへへｗｗ

408:デフォルトの名無しさん
06/11/24 22:54:33
レスありがとう
でも Dim array(retu, gyo) As Stringでも上手くいかない(ノД`)

409:デフォルトの名無しさん
06/11/24 22:59:54
integer、string以外で試して見れば?

410:デフォルトの名無しさん
06/11/24 23:15:18
>409
ぶはははっはｗｗｗ

あほだｗ

あほがいるｗｗｗｗ

peekに達したんだからよめね～だろｗｗｗ

あほだｗｗｗｗｗｗｗｗうわははははははｗｗｗｗ

411:デフォルトの名無しさん
06/11/24 23:16:07
いやそれ以前におかすぃだろ

412:最凶VB厨房
06/11/24 23:32:26
Dim sr As New System.IO.StreamReader("c:\data.txt", System.Text.Encoding.Default)
Dim buf As String
Dim retu As Integer
buf = sr.ReadLine 'よーしおにいさん1行よんじゃうぞー。
retu = Len(buf) '列の長さはどの行も一緒。と仮定しちゃうぞー。
Dim gyo As Integer = 1 '既に1行読んでるからなー
Do Until sr.Peek = -1
gyo += 1
sr.ReadLine()
Loop
sr.Close()
sr = New System.IO.StreamReader("c:\data.txt", System.Text.Encoding.Default)
'いったん閉じて開きなおす。よーしまた最初から読み直しだぞー。
Dim array(gyo, retu) As Char 'おにいさんは文字と数値の区別をつけるぞー。行と列逆やんか。
Dim i, j As Integer

Do Until sr.Peek = -1
For i = 1 To gyo 'よーしおにいさん0オリジンなんか嫌いだぞー
buf = sr.ReadLine '↑早くも撤回。
For j = 1 To retu
array(i, j) = buf(j - 1) 'bufは0個目から
Console.WriteLine(array(i, j)) '出力ウィンドウで確認だぞー。
Next
Next
Loop
sr.Close()

413:最凶VB厨房
06/11/24 23:37:53
3686
4556
6784
1883
1868
1118
1587

c:\data.txt

VB.NET久しぶりすぎる。
ってかVB.NETだよな？

414:デフォルトの名無しさん
06/11/24 23:42:40
VB.NET使ってます
最凶VB厨房先生、超親切な解答ありがとう
説明文も丁寧で嬉しいです
本当にありがとう(ノ∀`)

415:407
06/11/24 23:45:00
>>414
なぁんだよぉ

俺には感謝の言葉はないのかよぉ？うん？

416:デフォルトの名無しさん
06/11/24 23:46:05
酔っ払いの兄ちゃんもありがとう(ノ∀`)
みんな優しくて嬉しいです
本当ありがとう

417:デフォルトの名無しさん
06/11/25 01:47:17
VBにジャグ配列ってないの?

418:デフォルトの名無しさん
06/11/25 01:54:44
あるよ
URLﾘﾝｸ(msdn2.microsoft.com)(VS.80).aspx

419:デフォルトの名無しさん
06/11/25 16:34:29
VBAでEXCELのワークシートからCのenum構造体に変換するマクロ作らされたんだが
あっさりと出来てしまった
VBもこんな感じなの？
VC8でヒーヒーいわされただけに物凄く簡単に思えてしまう漏れは勘違いなのでしょうか？

420:デフォルトの名無しさん
06/11/26 00:05:23
>>404
VS2005/.NetFramework2.0以降を使用してたらジェネリックメソッドを使用して

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sr As New System.IO.StreamReader("c:\data.txt")
Dim intArray() As Integer = Array.ConvertAll(sr.ReadToEnd().Split(vbLf), New Converter(Of String, Integer)(AddressOf StringToInteger))
sr.Close()
End Sub

Private Function StringToInteger(ByVal value As String) As Integer
Return Integer.Parse(value)
End Function

というかんじでもできる
(vbLfのところは、テキストファイルの文字コードによってvbCrLfに変更汁)

421:デフォルトの名無しさん
06/11/26 01:46:30
>>404
ごめ、2次元配列だったな

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sr As New System.IO.StreamReader("c:\data.txt")
Dim buf() As String = sr.ReadToEnd().Split(vbCrLf.ToCharArray())
Dim gyo As Integer = buf.Length - 1
Dim retu As Integer = buf(0).Length - 1
Dim arrbuf() As Integer = Array.ConvertAll(Join(buf, "").ToCharArray(), New Converter(Of Char, Integer)(AddressOf CharToInteger))
Dim arr(gyo, retu) As Integer
Dim p As IntPtr = Marshal.UnsafeAddrOfPinnedArrayElement(arr, 0)
Marshal.Copy(arrbuf, 0, p, arrbuf.Length)
sr.Close()
End Sub

Private Function CharToInteger(ByVal value As Char) As Integer
Return Integer.Parse(value)
End Function

422:デフォルトの名無しさん
06/11/26 02:37:41
簡単なことを難しくやる典型的な例ですね

423:デフォルトの名無しさん
06/11/26 02:47:06
PinnedArray とか言いつつどこにも Pin している形跡がない件について

424:デフォルトの名無しさん
06/11/26 12:24:22
>>421
うははｗどこのサイトで調べたかわからないけど、
お前のスキルじゃ、使いこなす事はできないよｗ

425:デフォルトの名無しさん
06/11/26 13:38:13
>>423
ヘルプみるとメソッドが、GCHandleに対してpinを発行してるんだってさ

426:デフォルトの名無しさん
06/11/26 13:47:41
そりゃ誤読だ

427:デフォルトの名無しさん
06/11/26 14:17:30
>>426
ありゃ誤爆ちゃたのか俺
まあ、読解力低いからな

428:デフォルトの名無しさん
06/11/26 17:01:42
プロセスのアイコンを取得することは出来ませんか。（taskmgr.exeのアプリケーションタブにあるように）
やはりAPIが必要なんですかね、、、

429:デフォルトの名無しさん
06/11/27 19:11:28
C#でのstatic classがShared Classって書けないのはモジュールがあるから？

430:デフォルトの名無しさん
06/11/27 21:08:16
C#で作ったstatic classをReflectorでVB.NETとして開いたら、

　Friend MustInherit NotInheritable Class

ってなったよ。意味は分からないけど。

431:デフォルトの名無しさん
06/11/27 21:33:07
絶対に継承しろよ
ただし継承はできないぞ

432:デフォルトの名無しさん
06/11/27 22:17:45
>>430
コンパイル通らないんじゃね？

433:デフォルトの名無しさん
06/11/27 22:20:32
VB では未サポートだってば。＞静的クラス

434:デフォルトの名無しさん
06/11/27 22:38:27
モジュール＞＞＞＞越えられない壁＞＞＞＞静的クラス

435:デフォルトの名無しさん
06/11/27 22:48:23
頼むから、モジュールは死んでほしい。

VB厨と仕事をする度に思う。

死んでほしい。

436:デフォルトの名無しさん
06/11/28 16:08:11
ブラウザのリンク上で特定のキーを押したら
タイトルとアドレスをコピーというものを実装させたいのですが、
ヘルプを見る際どういったキーワードで検索を
すればいいのか教えてください。

437:デフォルトの名無しさん
06/11/28 16:15:43
>>436
javaスクリプト

438:デフォルトの名無しさん
06/11/28 16:21:31
>>436
BHO

439:トリビア
06/11/28 23:30:51
VB2005で、ゼロで除算するとエラーじゃなくて∞が返る

440:デフォルトの名無しさん
06/11/28 23:31:27
>>439
デバッグとexeで報告よろ。

441:デフォルトの名無しさん
06/11/29 00:17:37
明日からVB.NETの研修が1ヶ月間はじまります。
テキストでの座学（独学）3日間→インベーダーゲーム作成
→オリジナルゲーム作成（題材は自由）
です。

VB.NETという言語がいまいちわからないのですが、
ゲーム作成などに優れた言語なのでしょうか？

オリジナルゲーム作成ではテトリスかリバーシを考えております。
グラフィカルな部分でも相当頑張らないといけないみたいで、
今から気が重いです。

442:デフォルトの名無しさん
06/11/29 00:33:39
御愁傷様

443:デフォルトの名無しさん
06/11/29 01:13:58
>>441
何やってる会社？
VB使うゲーム会社はないだろうし・・・

444:デフォルトの名無しさん
06/11/29 01:37:11
>>443
基幹システム設計・開発
ウェブサイト構築・デザイン
携帯電話アプリケーション開発

などなど。正直良くわかっていません。
ゲーム会社ではないのですが、
VB.NETは主にどんな分野で使用されている言語なのでしょうか？

445:デフォルトの名無しさん
06/11/29 05:00:43
>>444
＞VB.NETは主にどんな分野で使用されている言語なのでしょうか？

答えは自分で書いてるジャン

446:デフォルトの名無しさん
06/11/29 05:19:23
っていうか言語の研修なんだろ？
構文や制御くらいしか説明する時間がないから
テーマは簡単なゲームになることが多い。
VB.NETに限らず、なんにも知らんヤツに2～3日で
データアクセスまで説明できんだろ。

よってVBがゲームに向くとかどうとか関係なし。

447:デフォルトの名無しさん
06/11/29 07:18:32
ゲームのほうがロジカルだからいいんじゃね？

448:デフォルトの名無しさん
06/11/29 07:28:16
んなこたーない。

449:デフォルトの名無しさん
06/11/29 08:48:06
ゲームづくりっつー課題は、道具の使い方を覚えるには適切な教材だよ。

450:デフォルトの名無しさん
06/11/29 12:36:49
オセロとテトリス、
初心者が作るとしたらどちらが難しいと思いますか？

451:デフォルトの名無しさん
06/11/29 12:48:31
オセロ　<<<　テトリス

オセロは、ユーザーからのアクションをただ待てば
いいだけだから、簡単そう。

452:デフォルトの名無しさん
06/11/29 13:25:44
ComboBoxにReadOnlyプロパティがあればなぁって誰もが１度は考えるよね！？

テンプレにあったサイトの中にこれがあったんだけど
URLﾘﾝｸ(jeanne.wankuma.com)
まだ不完全ぽい。
ReadOnlyプロパティ変更すると右側の矢印ボタンが消えちゃう。

プロパティは一切変えずにUpdateStyles()だけしても消える。
どういうことなんだろう？
だれかわかる人いませんか？

453:デフォルトの名無しさん
06/11/29 13:37:56
.DropDownStyle = ComboBoxStyle.DropDownList;

じゃ駄目なのか?

454:452
06/11/29 13:50:21
いや、選択されたリストの変更もさせたくないのよ

455:デフォルトの名無しさん
06/11/29 13:53:19
コントロール派生させて作ればいいじゃん。
DataBindingとか上手く使えば別に50ステップも無く作れる。

456:452
06/11/29 14:22:40
うーん、DataBindingをどう使えばConboBoxを変更不可にできるのか、
いまいちピンときません。
もうちょっとヒントお願い。

457:デフォルトの名無しさん
06/11/29 17:38:41
コンボから離れろ。
普通のラベルで内部にHashMapなり、値・表示値を保持。
初期化でコンボと同じようにそれを与えて、設定されたValueに対してText表示を変える。

458:デフォルトの名無しさん
06/11/29 20:34:53
>>452
いまだにこういう人っているんだね。
WinのGUIの思想が全然わかってない人。

いや、コントロールなんて所詮道具なんだから別に思想に反したって
結局使いやすけりゃそれでOKなんだが、どう考えてもそんなコンボボックスは
ユーザーにストレス与えると思うわ。ス元みたいなGUI使いたくないわ

459:デフォルトの名無しさん
06/11/29 21:00:17
いやホント、それってどうしてラベルじゃいけないのか分からん
入力させない、選択させないって時にコンボ使う理由は？

460:デフォルトの名無しさん
06/11/29 22:12:31
>>459
保護したときにグレーダウンして字が薄くなるのがだめなんでしょ？

461:デフォルトの名無しさん
06/11/29 22:22:36
だからそれが発想が逆立ちしてるんだよ。

ユーザー目線で物考えられないのかな。
見た目普通なのに入力も選択もできないコンボボックスなんて
イライラ製造機以外のなんでもねえだろう

462:デフォルトの名無しさん
06/11/29 22:27:56
VB.NETでウィザードページみたいなのを作っているのですが
沢山のテキストボックスの内容をチェックして、NextボタンをTrueにしたり
間違いがあるならその項目の文字列を赤にするなどのフォーマットチェック
の凄いバージョンをしたいのですが、どのようにするとスマートなのでしょうか

今はCheck()と言うサブルーチンを作って、それですべてのテキストボックスの
内容を調べて、ボタンをEnableにしたりFalseにしたり、文字を赤にする等を行
なうようにして、すべてのテキストボックスのイベントでCheckが発生するよう
にしています。

463:デフォルトの名無しさん
06/11/29 22:40:46
>>461
ほっとけばいいんでない？

>>452
コンボボックスを継承したクラスをつくって、イベント内で
処理をキャンセルするようなプロパティをついくればおｋ
プロパティ名はIsReadOnlyでおｋ。

>>462
コントロールチェック用のクラスを作る。

コントロールをオブジェクト配列にでも格納。

チェックを行いたいタイミングで、そのクラス内でチェックを
行えばいいんでない？

464:デフォルトの名無しさん
06/11/29 22:58:02
>>461
見難いから見やすくしろというユーザーも少なからずいるんだけどな

465:最凶VB厨房
06/11/29 22:59:36
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AddHandler Application.Idle, AddressOf Check 'Check開始してみるてすつ
End Sub
Private Sub Check(ByVal sender As System.Object, ByVal e As System.EventArgs)
'ずらずらと
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
RemoveHandler Application.Idle, AddressOf Check 'Check終了してみるてすつ
End Sub

466:デフォルトの名無しさん
06/11/29 23:09:19
>>465
お前、意外とバカというか、マヌケだな。

467:最凶VB厨房
06/11/29 23:16:30
模範解答どうぞ。

468:デフォルトの名無しさん
06/11/29 23:54:57
最凶VB厨房が怒ったｗ

今回の要件は
>すべてのテキストボックスの内容を調べて

>すべてのテキストボックスのイベントでCheckが発生する

の二点かな。
チェック関数をそのままつかったら、意味ないじゃん。
cpuのアイドリングをまって、描画がちょっと良くなるくらいじゃない？

ﾄﾞﾄﾈﾄになって、ｲﾍﾞﾝﾄの集約が可能になったのは知ってる？
Handles と続けて。

で、チェック用にオブジェクトを格納するクラスを作って、
やりたいチェックを行うメソッドを作れば、いいじゃん。

おれなら、ControlCheckクラスとかなんとかいって作る。
他でも使い回しができるし。

酔いちくれが言える事はこのくらいかな。

469:461
06/11/30 00:11:02
>>452
まあ文句言うだけだとアレなんで一応方法考えてみたよ。
試したところこれで一応可能なようだけど。
Win32のメッセージに明るくないんでどこかおかしいかもしれないが。
ReadOnlyってプロパティが既に実装されていることを前提としている。

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Const WM_LBUTTONDOWN As Integer = &H201
Const WM_LBUTTONDBLCLK As Integer = &H203

If Me.ReadOnly = True Then
Select Case m.Msg
Case WM_LBUTTONDBLCLK, WM_LBUTTONDOWN
'MyBase.WndProc(m)
Case Else
MyBase.WndProc(m)
End Select
Else
MyBase.WndProc(m)
End If
End Sub

470:461
06/11/30 00:11:33
Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
If Me.ReadOnly = True Then
e.Handled = True
End If
MyBase.OnKeyPress(e)
End Sub

Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
If Me.ReadOnly = True Then
If e.KeyData = Keys.Delete Then
e.Handled = True
End If
End If
MyBase.OnKeyDown(e)
End Sub

471:最凶VB厨房
06/11/30 00:14:36
>>462の前半は要件(やりたいこと)。後半は現状じゃないのか？
いまいち言ってることがわからん。

472:461
06/11/30 00:14:37
ああ↑↓キーも禁止しないと不完全だね

473:デフォルトの名無しさん
06/11/30 00:31:56
VBってC,JAVAでいうところの演算子「％」ってないんですか？
文字では有効ではありませんと怒られたんですけど

474:デフォルトの名無しさん
06/11/30 00:33:53
>>471
違う違う。
オレら回答者にとっての要件という意味。

なんてったて、スマートにしたいんだろｗ

sub ちぇっく()
handles てきすとぼくす.leave, ちがうてきすとぼくす.leave

でも、なんでもやってとりあえず一個にまとめたらどう。

475:デフォルトの名無しさん
06/11/30 00:36:45
>>473
Mod

もう寝る。

476:デフォルトの名無しさん
06/11/30 01:08:19
>>475
おｋ把握した
ありがとう

477:デフォルトの名無しさん
06/11/30 14:18:10
グローバル変数みたいなのはどうやれば使えますか？
あとでオブジェクト指向にのっとった作法どおりのコーディングに
直しますので、とりあえず勉強しなくても使えるやりかたを教えてください。

478:デフォルトの名無しさん
06/11/30 15:36:49
どっかのクラスにSharedでPublicな変数？
使おうとも思わないから良く判らんが。

OOでやるなら、しんぐるとん実装したクラスから取れば同じでしょ。

479:デフォルトの名無しさん
06/11/30 15:45:08
>>477
そんな素敵な君に
System.Reflection クラス
を教えよう！

これを極めれば、どんなスコープだろうとも、どこからでも
参照できます！

MethodInfoなんて取得できれば、関数だって実行できちゃいます！

480:デフォルトの名無しさん
06/11/30 15:59:15
リフレクションとグローバル変数はちがうべさ。
しったかこくでねー。

リフレクションは単に動的にオブジェクト実体を名前（型）から生成できるだけ。
アドイン機能とか、可変メニューで使うが吉。

481:デフォルトの名無しさん
06/11/30 16:21:20
>>480
ネタに(ry

お前空気(ry

482:デフォルトの名無しさん
06/11/30 16:27:26
まあ空気以前に間違っとるわな。

483:デフォルトの名無しさん
06/11/30 19:18:53
ラベルの配列を作ってフォームに並べる処理を行った後で、
「ラベルの上でクリック」をイベント発生の条件にしたいのですがどのように書けば良いのでしょうか？
ラベルは二次元配列です。クリックされたラベルの添え字をどうやって検出すれば良いのかが判りません・・・

484:デフォルトの名無しさん
06/11/30 22:01:18
>>470
Win32 API を使えば、もっと簡単に出来るぞ

ComboBox1.Enabled = False
ComboBox1.DropDownStyle = ComboBoxStyle.DropDown
EnableWindow(GetWindow(ComboBox1.Handle, 5), 1)

485:デフォルトの名無しさん
06/11/30 22:10:35
>>483
AddHandler

486:452
06/11/30 22:17:51
急な用事で１日ぶりにやってきたら、なんかえらい不評かってる・・・。
絶対みんな欲しがってると思ってたのに。
ラベルとコンボの切り替えなんて、そんなのVB4.0の時からやってたけど、めんどくせーじゃん。
逆に.netでまだそんなことしてるのかよと笑われるかと思ったら、皆さんベタなのがお好きなようで。
今回やろうとしてることとラベルの違いなんて、右端に矢印ボタンがあるかどうかの違いだけだし、
矢印ボタン１つでそこまでGUIの思想とやらが狂うものかね。
ちなみに見た目普通じゃないぞ。バックカラーも変えてるぞ。

ともあれ、>>469、470 のソースいただきました。
ソース完璧でございました。
ありがとうございました。
希望通りのものが出来たよ。

>>484も勉強になったけど、APIはあんまり使いたくなかったの。

487:デフォルトの名無しさん
06/11/30 22:17:55
>>484
「簡単」とはコードの短さのことじゃないだろうw

それに、その方式だとユーザーがEnabledの動作もオーバライドする必要があり、
しかもそのコードは非直観的なものにならざるをえないんじゃないの？

488:デフォルトの名無しさん
06/11/30 22:29:00
>>487
ComboBoxをDisableにして中のEditBoxをEnableにしているだけだから簡単だろ？
戻すときはComboBoxをEnableにするだけで戻ったはず。

で、どこが直感的でないんだ？ Win32 Api を知らない人にとってはって意味？

489:デフォルトの名無しさん
06/11/30 22:37:47
>>488
ああ今わかったよ。
>>484はある意味非OOP的な考え方をしてるんだね。

ComboBoxを継承して新機能を付加する、って発想じゃないわけだ。
そうじゃなくて、あくまでComboBoxを使うユーザーのコードのなかでComboBoxをいじる、という発想。
話が噛合わないわけだ。

490:デフォルトの名無しさん
06/11/30 22:39:42
ついでに言えば、やっぱりそういう発想はスパゲティ的であって「簡単」とは言わんでしょう

491:最凶VB厨房
06/11/30 22:44:09
何をおっしゃっているのかマジでわからんｗ
どこをどうみたらスパゲティ的なのか。

492:デフォルトの名無しさん
06/11/30 22:46:49
ふふふ

うへへははｗ

やっぱり、ﾌﾞｰﾋﾞｰ厨を酒のつまみにするのは最高ｗ

493:デフォルトの名無しさん
06/11/30 22:47:38
>>492
コテハンにしてくれませんか？

494:酔いちくれ ◆J0rwikii8c
06/11/30 23:09:04
うん？？

なぁんだよ。

495:デフォルトの名無しさん
06/11/30 23:31:23
どなたか教えて下さい。
環境はORACLE9iでVS2003です。
DBからテーブルをDaTaSetに落とし、そのDataSetをDataGridViewに表示させると少数が近似値をとってしまうようです。
例…0.02が0.02000000002みたいになります。
DataGridColumnの型をなおすにはどうすればよいでしょうか。

496:デフォルトの名無しさん
06/11/30 23:36:04
>>489
お前はいったい何を言ってる？

497:デフォルトの名無しさん
06/12/01 00:05:32
>>495
基本的には必要な桁までに丸めればいいんじゃないの？
あるいはDataSetにぶち込むオブジェクトのToStringをオーバーライドして
必要な桁までの文字列になるようにするか。

498:デフォルトの名無しさん
06/12/01 00:15:02
>>489
ComboBoxを継承して中の人をオーバーライドすれば簡単にOOPという物になるだろ？
応用が利かないのか。

オレは、スパゲティ好きのWin32 SDKな人だが文句あるか？

499:デフォルトの名無しさん
06/12/01 00:26:52
>>489
OOP以前に>>469-470のロジックは強引過ぎやしないか～

500:デフォルトの名無しさん
06/12/01 00:31:33
>>498
文句とかそういうガキ臭いこと言わないの。
まあもし>>487の話読んで何言ってるのかピンとこないなら、
実際にComboBoxをオーバライドしてReadOnlyの機能を実装する際に>>484みたいな
やり方で実装してみればたぶんわかるよ。

その感じだとひょっとしてコーディングしてるうちには能天気にも
問題に気づかないかもしれないけど。

501:酔いちくれ ◆J0rwikii8c
06/12/01 09:20:30
コンボボックスをおーばーらいどするという表現で
おれは、ジョッキ一杯は飲めるｗ

502:デフォルトの名無しさん
06/12/01 11:53:53
なにをジョッキ一杯れすか

503:デフォルトの名無しさん
06/12/01 14:04:13
ル・ラーダ・フォルオル！

504:デフォルトの名無しさん
06/12/01 18:41:39
>>503
マホカンタ

505:酔いちくれ ◆J0rwikii8c
06/12/01 21:40:07
>>502

びーる以外のものがジョッキに入ってたら
たまげるぜ。

お前のそのかわいさで、もう一杯はいけるな。

しかし、ドットネットは便利だ。

506:デフォルトの名無しさん
06/12/01 22:49:08
System.Diagnostics.Process.GetCurrentProcessのCPU使用率を取得したいのですが、どうしたら良いのでしょうか。
TotalProcessorTimeから取得できそうですが、どうすれば取得できるのか、、、分かりませんorz

507:デフォルトの名無しさん
06/12/01 23:00:48
プロパティに無けりゃ無理だろ
NT 系限定で良いなら PerformanceCounter とか使えるかも知れんな

508:デフォルトの名無しさん
06/12/01 23:13:18
>>500
>>484みたいなやりかたでComboBoxをオーバライドするとどんな問題が起きるのだ？
ＶＢ厨にわかるように教えてくれ！

509:酔いちくれ ◆J0rwikii8c
06/12/01 23:16:49
もう、オレのパトスは限界だ！
びゅっ！とでる！

コンボボックスをオーバーライドするんだ！

510:デフォルトの名無しさん
06/12/01 23:30:36
ｗｗｗｗｗ次元が歪んだ世界ｗｗｗｗｗｗｗ

511:デフォルトの名無しさん
06/12/01 23:36:22
どこの世界も心の働きがズレている、というか幼いのが増えたよな。
何が楽しいんだかねまったくw
俺には理解できんセンスだ。

>>508
継承、な。
まずやってみれば？
話はそれから。

512:デフォルトの名無しさん
06/12/01 23:45:27
皮肉も理解できん奴も増えたよな

513:デフォルトの名無しさん
06/12/01 23:46:32
ガクガク(((゜Д゜)))ブルブル

514:デフォルトの名無しさん
06/12/01 23:49:43
>>508
つ s/ComboBox1/MyBase/

515:デフォルトの名無しさん
06/12/01 23:49:51
>>512
それが「皮肉」として成立すると思っちゃうような感性を、人は幼稚と呼ぶんだよw

516:デフォルトの名無しさん
06/12/02 00:02:50
(゜∀゜)(∀゜)(゜ )( )( ゜)( ゜∀)(゜∀゜)

517:デフォルトの名無しさん
06/12/02 03:15:26
【使用環境】VB.NET2003

string形式の文字列を配列使わないで
ループで一文字ずつ取り出していく方法ってありませんか？

518:デフォルトの名無しさん
06/12/02 03:35:58
a(i)

519:デフォルトの名無しさん
06/12/02 04:30:31
>>518
それすると配列じゃないってエラー出るんですよね
2005なら全く同じソースで動いたんですけども

520:デフォルトの名無しさん
06/12/02 08:31:43
a.Chars(i)

521:デフォルトの名無しさん
06/12/02 10:28:01
for i=0 to len(str)-1
part=str.substring(i,1)
next
じゃあかんのか？

522:デフォルトの名無しさん
06/12/02 10:36:54
あほか

523:低脳無能な愚民
06/12/02 15:27:14
MP3とWAVEとWAVEを3つ同時に流したいのだが、どーすりゃいいんだぁー？？泣泣泣

524:デフォルトの名無しさん
06/12/02 15:28:10
お前には無理。

525:デフォルトの名無しさん
06/12/02 20:40:50
GUI作成中にラベルの境界が見えないのは改悪だろ
常識的に考えて

526:デフォルトの名無しさん
06/12/02 21:14:19
.textに識別がつくようになんか入れとけばいいじゃん。

527:デフォルトの名無しさん
06/12/02 22:18:03
超初心者ですみません
図形を描写するプログラムはPictureBox1_Paintに書かないといけないんですか？
Form1_Loadだと描写できないんですかね？

528:デフォルトの名無しさん
06/12/02 22:24:32
マジレスすると超初心者のまずすべきことはこんなところで人に質問することじゃなく、
入門書をあさることだろう。

まあ、すでにこうやって質問してる時点で見込みがない人だと思うけど

529:デフォルトの名無しさん
06/12/02 22:29:56
入門サイトは見てるんですけど調べたいことは載ってないんですよね
ボタンクリックすると表示されるソースはあるのに
フォームロードで作ってみても描画されないしもう諦めて寝ます

530:デフォルトの名無しさん
06/12/02 22:35:11
だから初心者のクセにやりたいことだけピンポイントで調べよう、なんて考えが間違ってるんだよ。
そんなの10年早いわw

現にお前さんがそうであるように、初心者の思う「やりたいこと」っていうのは
的外れなことだったりするからな。

531:デフォルトの名無しさん
06/12/02 22:46:45
ぶっちゃけ

Loadイベントで描画
→CreateControlされた時等にだけ呼ばれる
→Formが表示されたときに消える

Paintイベントで描画
→画面がInvalidateされるたびに呼ばれる
→ずっと表示されてるように見える

532:デフォルトの名無しさん
06/12/02 23:04:41
>>530
一通り書かれている入門書は読むべきだな。
そうでなければ、入門サイトを調べるのとは別に、各コントロールのイベント、メソッド、プロパティを見る事。
>>530 が言ってるように、ピンポイント情報ではなく全般的に知識を持つ事が重要。

533:532
06/12/02 23:05:31
最初の >>530 は >>529 のミス。すまぬ。

534:デフォルトの名無しさん
06/12/03 22:35:51
DLLで void xxx(char* str); な関数を実行して、strの内容を取り出すにはどうしたら良いでしょうか、、、
この関数はstrの内容を書き換えるようなのですが、、、
素直にCharを指定しても最初の1文字しか取得できないし、StringBuilderの使い方も分からない、、、orz

535:デフォルトの名無しさん
06/12/03 22:46:31
ｸﾞｸﾞﾚｶｽ
URLﾘﾝｸ(www.google.co.jp)

536:デフォルトの名無しさん
06/12/03 23:00:25
Private Declare Ansi Sub xxx Lib "dll.dll" (ByRef s As System.Text.StringBuilder)

Dim aaa As New System.Text.StringBuilder(256)
xxx(aaa)

AccessViolationException、、、ググっても分からないorz

537:デフォルトの名無しさん
06/12/03 23:02:15
あーバカだった。ByRefじゃねぇ、ByValだ。お騒がせしました、スレ汚しスマソorz

538:デフォルトの名無しさん
06/12/04 01:38:55
文字列の左右の空白を削除する関数で
Trim( )っていうのがあると思うんですが
string型の文字列を入れても空白が削除されないんですが
どんな問題が考えられるでしょう？　何度やってもだめです。
ただinteger型の数字を入れると空白が削除されます。
これは何が起こってるんでしょうか？

539:デフォルトの名無しさん
06/12/04 01:45:52
>>538
多分君の頭に問題があるんじゃないかな。

マジレスして欲しかったらその現象が起こるコード書こうね。

540:538
06/12/04 01:50:44
>>539
VBAですがいいですかね？
VBAスレ無くなっちゃってるので書き込んだのですが。

541:デフォルトの名無しさん
06/12/04 01:51:00
文字列の内容次第だが、
ExcelのTrim関数で同じｺﾄがおこるか確かめてみて、
同じｺﾄがおこるとしたら、
そのときは、　「Excel Trim 文字数」　とかでｸﾞｸﾞってみそ？
(ｵｲﾗがｸﾞｸﾞってないため回答が得られるかはﾅｿﾞｗ)

おそらく、世の中の大概のﾌﾟﾛｸﾞﾗﾏが一度は経験したことがｱﾙ問題だわｗ

この手の話、自分で調べて納得して解決するのが一番良いよ。

542:538
06/12/04 02:00:25
>>541
おきますね、ワークシート関数でもおきます。
文字数はそんなに多くはないんですけどね。。。
何が原因なんでしょうか？
今ぐぐってますが、ちょっと判らないなぁ。
もうちょい調べてみます。

543:541
06/12/04 02:13:26
ｵｲﾗが、ﾌﾟﾛｸﾞﾗﾐﾝｸﾞを始めた頃は悩んだ問題のことだと思ったので、
初歩的なｺﾄだったら良いんだけど、
的外れだったら申し訳ないから、確認・・

実際、どんな文字列を、
どうやって関数にたたき込んで、
どんな結果になるのかな？

そして、どんな結果が欲しいのかな？

544:538
06/12/04 02:21:57
>>543
貼っちゃいますね。
といっても貼った所でどうにもならないコードですが－－；

Sub aaa()
Dim a As String

a = Trim(Cells(1, 1))
Cells(2, 1) = a

End Sub

中に入れた文字列は「ジャスダック｣「ヘラクレス｣｢マザーズ｣です。
コピペしてきたんで「　ジャスダック　」こんなふうに隙間が開いちゃってるんですよね。
この隙間を無くしたいんですができないんですよね。。
色々な文字列で試しましたが基本的に全部ダメですね。
でも数字だけはなぜかできるんですよね。。。

545:デフォルトの名無しさん
06/12/04 02:25:28
>>544
コピペしてきた文字列ってのは？

546:538
06/12/04 02:28:10
普通の文字列ですよ、↓の感じです。

?マザーズ?
?マザーズ?
?ジャスダック?
?東証1部?
?ジャスダック?
?東証2部?

ってなんだこりゃ？
コピペしたら前後に何かついてますね。。。
なんだろこれ？

547:デフォルトの名無しさん
06/12/04 07:44:08
ＶＢマガジンてまだあるのか？

548:デフォルトの名無しさん
06/12/04 08:04:40
dotNETマガジンに移行した

549:デフォルトの名無しさん
06/12/04 09:09:04
WDMに移行した

550:デフォルトの名無しさん
06/12/04 09:26:06
休刊ポストに…。

551:デフォルトの名無しさん
06/12/04 12:19:28
配列の一つを削除して、中身を繰り上げる処理をする関数みたいな物ありませんか？
絶対あると思うのですが。

イメージとしては
a[0]=5 a[1]=6 a[2]=7 a[3]=8 a[4]=9 a[5]=10
という配列があっとして、2の配列の中身を削除して繰り上げると
a[0]=5 a[1]=6 a[2]=8 a[3]=9 a[4]=10 a[5]=0
こんな感じになるイメージです。

552:デフォルトの名無しさん
06/12/04 12:24:29
まあ、ちょっとMSのポチになり過ぎて世の中の需要とずれちゃったのが失敗だったよねw
「日経ソフトをもうちょっと実践的にしてみました」みたいな誌面を目指せばよかったのに。

553:デフォルトの名無しさん
06/12/04 12:25:48
>>551
ArrayList
List<T>

554:デフォルトの名無しさん
06/12/04 12:30:48
>>551
絶対ないw
ArrayListでも使えば？

つーか、いい加減そういう「関数」とか「中身を繰り上げる」みたいな発想やめたら？
前者はともかく、後者みたいな発想でそういうことに下手に手を出すと
脅しじゃなくて危険だよ。

555:デフォルトの名無しさん
06/12/04 12:54:22
>>552
問題は、今後まともなプログラム雑誌がなくなることだな。
日経ソフトウェアは正直ホビーレベルで実務イメージが一切無い。

556:デフォルトの名無しさん
06/12/04 13:27:16
RemoveAtとかなかったっけ？

557:デフォルトの名無しさん
06/12/04 13:51:44
惚けてた、固定サイズだな…

558:デフォルトの名無しさん
06/12/04 15:39:57
>>551
ポインターを使えば一発だ

559:デフォルトの名無しさん
06/12/04 16:44:55
一発じゃないだろ

560:デフォルトの名無しさん
06/12/04 18:38:18
>>555
まあでも実務というのとは違うにしても、日経ソフトにも質の高い記事は（たまに）あるんだけどね。
安室さんの記事とか。

561:デフォルトの名無しさん
06/12/04 21:45:56
simei = miyoji & 全角スペース & namae
全角スペースってどうやればできるの？

562:デフォルトの名無しさん
06/12/04 22:37:19
JPEG形式でクリップボードに書き込む方法ってある

563:デフォルトの名無しさん
06/12/05 15:44:05
DirectXSDK入れてもプロジェクトにアイコン出てこないのは仕様？

564:デフォルトの名無しさん
06/12/05 15:48:03
>>562
ビットマップとJPEGファイル両方クリップボードにsetすればいいんでは?

565:デフォルトの名無しさん
06/12/05 19:15:51
VB2005ではMSChartってインストールされないんでしょうか？

もしそうなら、代わりの機能とかどうにかしてMSChartを使うこととかできませんか？

566:デフォルトの名無しさん
06/12/05 20:05:54
>>565
質問する前に自分で少しはあがけよw何もしてないだろ？ググることすら。

COMのコントロールなんだから普通にVB2005でも使えるでしょ
直で使って問題あるならVB6でラップすればいいじゃん。
まあ、そこまでして2005使う意味がよくわからんが

567:565
06/12/05 20:27:15
>>566
すいません。かれこれ半日くらいググってるんですが、よくわからなかったもので・・・。

ツールボックスのカスタマイズのCOMコンポーネントタブに表示されるリストに
見当たらなければ使えないんでしょうか？

568:デフォルトの名無しさん
06/12/05 20:48:16
無いなら使えるわけなかろう。

569:デフォルトの名無しさん
06/12/06 01:06:13
質問に答えないで煽るだけの奴って何でいるんだろうな？

570:デフォルトの名無しさん
06/12/06 05:45:59
VB.NETにMSChartはついてこない。
VB6などMSChartを含んでるアプリが別途インストールされているならVB.NETから使える。

＞ツールボックスのカスタマイズのCOMコンポーネントタブに表示されるリストに　
＞見当たらなければ使えないんでしょうか？　

その通りで、別途インストールされていれば表示される。
別途インストールしていないなら　「無いなら使えるわけなかろう。　」

571:565
06/12/06 06:50:15
>>570
わかりました。有難うございます。

VB6インストールしてないので代わりになるものをググってみます。

572:デフォルトの名無しさん
06/12/06 08:51:06
画像を反転させるには（回転）どうしたらいいんでしょうか？

ゲームで主人公が武器を回転しながら投げるという感じです。
投げるまではいけたんですが。

573:デフォルトの名無しさん
06/12/06 09:42:17
みんな使ってね
ぼくの人柱になりなよ
音楽、映像、WEBデザイン等幅広く活動していきたいと思います。

hg300364-6124@tbg.t-com.ne.jp
BIZNOT ART WORKSでは随時募集しています。悪用だろうが非商用だろうが一切代金は頂きません。
。下記メールアドレスまでいろいろメッセージ頂戴ね。

hg300364-6124@tbg.t-com.ne.jp
文句あ？？？
あはハハはああｈ
最高のデザインと音楽だよ

574:デフォルトの名無しさん
06/12/06 09:54:34
>>572
DirectXを極める

575:デフォルトの名無しさん
06/12/06 11:11:38
>>569
それはおまいの事ｗ。

576:デフォルトの名無しさん
06/12/06 13:59:13
>>564
EncoderしてJFIFでクリップボードに入れたんだけど
どうしてもオフィスで貼り付けできないっす・・・・
根本から間違ってるのか俺orz

577:デフォルトの名無しさん
06/12/06 22:28:16
流れ乱しますが、
vb.net の課題と　その課題の作成例?
が置いてあるサイトがあれば教えていただけませんか？

578:酔いちくれ ◆J0rwikii8c
06/12/07 09:07:57
>>577

なんのためにテンプレ作ってもらってるんだよ
はぁ。毎朝二日酔いと下痢。

>>1-5

次ページ