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
579:デフォルトの名無しさん
06/12/07 10:36:43
こんなやつに拾ってきた課題だされるやつもかわいそうだな。ｗ
課題設定できない、せめて自分でみつけられないやつに、教えるなんてできるんか？
580:デフォルトの名無しさん
06/12/07 11:23:16
VB.NET初心者です。
皆様のお知恵をお貸しください。
アプリAで行ったデータ更新を
アプリBに通知し、アプリBで表示中のグリッドのデータにアプリAで
行った更新が反映される(データ再読込み)というものです。
以上の事を非同期プロセス間通信で行えばいいといわれ、
PostMessageについて色々と調べたのですが、いまいち使い方がわかりません。
ユーザ定義のメッセージを PostMessageする方法について
ご教授お願いします。
581:デフォルトの名無しさん
06/12/07 11:37:10
WM_USER
WM_COPYDATA
582:デフォルトの名無しさん
06/12/07 11:56:28
そしてCOPY～はポスト出来ないって話
583:デフォルトの名無しさん
06/12/07 11:58:36
つい最近＠何とかで見たネタだな
584:デフォルトの名無しさん
06/12/09 21:32:37
(,,ﾟДﾟ)∩先生方、質問です。
VS2003+SQL SERVER 2000です
LAN上なら普通にDB接続できるのですが、web上ではDBに接続できません。
ASP.NETだとDB接続は問題なくできているのでソースに問題があると思いますがイマイチ判りません。
SqlConnectionをopenする時にシステムエラーが出るので
"Server=hoge.co.jp;Database=DB;Integrated Security=SSPI;"
と書いていますが、hoge.co.jpの部分が全く違うのでしょうか?
585:酔いちくれ ◆J0rwikii8c
06/12/09 21:43:06
あぁ～酔った。
>>584
おまいのSQLさーばーは、認証はどうしてるの？
586:デフォルトの名無しさん
06/12/09 21:54:32
web上でDBに接続てどういう意味？
587:デフォルトの名無しさん
06/12/09 21:55:13
(,,ﾟДﾟ)∩WINDOWS認証であります
588:デフォルトの名無しさん
06/12/09 21:55:27
LAN上ならできてWeb上ではできなくて
ASP.NETだとできる。
あー、つまり、どういうこった？
589:デフォルトの名無しさん
06/12/09 22:00:52
文盲ｽﾏｿ
元々はIEを使ってデータ接続をしていたのです。(ASP.NET)
SERVERは会社にあり、自宅からIEだとDBに接続は問題なく出来ているのです。
今日フト思いVB.NETでアプリケーションとしても作って見たところ会社(LAN上)では
問題なくDBに接続できましたが、自宅にソースを持って帰り今やってみたところ繋がらない始末です
590:デフォルトの名無しさん
06/12/09 22:04:06
そんな恐ろしいことができるようになってんのかよ
なってないからできないんだろうがな。
591:デフォルトの名無しさん
06/12/09 22:22:42
ファイアーウォール、ポート開放、名前解決、ユーザ登録などの問題点が考えられる。
＋
実はWindows認証ではなくSQLServer認証だったり。
592:デフォルトの名無しさん
06/12/09 22:40:10
そもそもインターネットからDBサーバが見えるようになってるとは思えん。
593:酔いちくれ ◆J0rwikii8c
06/12/09 22:40:46
クライアントからSERVERを共有したけりゃ
「セッション」
があればいいよ
頭良さそうだし、ぐぐってみたら。
594:酔いちくれ ◆J0rwikii8c
06/12/09 22:50:25
う、うへへあはははｗｗｗｗ
もう、たまらんｗｗｗ
いんたーねっつから、DBがみえないんだってよｗｗｗ
うははははははｗｗｗｗｗ
595:デフォルトの名無しさん
06/12/09 23:01:20
いろいろ意見ありがとう御座います。
ひょっとして今自分がやろうとしている事ってかなり特殊なのかなと感じつつあります
例えばヤフオクに自社の商品(DBに格納してあるデータ)出品する場合IEを使って出品するけど大量に出品する時はとてもメンドクサイし管理が大変
そこでアプリケーションを作り自宅からでも商品の管理・出品が効率よくできるような感じです。
IEがアプリケーションに変わるだけと言いましょうかそんな感じのものです
実はナンセンス?
>591にある火壁・ポート開放・・・は、問題なくできているはずです。
会社のHPにもアクセスでき、外部(自宅)からもDBのinsertやらできているので大丈夫だと思っています。
認証はWINDOWS認証です。SQL SERVER認証は訳がわからなかったのでやめた記憶があります。
>593
セッションちょっと調べて見ます
596:デフォルトの名無しさん
06/12/10 01:03:41
あのさ、結局「DBに接続するコード」はどこのマシンで動くのよ。
繋がらないのに「外部からはinsertできる」っておかしいじゃんよ。
まさか、WEBアプリならどこからでもOKって当たり前な話じゃないよな？
597:デフォルトの名無しさん
06/12/10 01:29:38
区別がついてないんだろ。
598:デフォルトの名無しさん
06/12/10 01:33:20
インターネットから直接接続できるDBなんて
ぶっ壊してくれといってるようなもんだろ
599:デフォルトの名無しさん
06/12/10 01:44:02
まあしかし前になんだっけ、ウィルスはやったよね。
まあ大抵はあれで懲りたはずだけどな。
600:デフォルトの名無しさん
06/12/10 14:15:57
VBでお手軽に別のプログラムから他のアプリケーションプログラムを起動させたり、
入力ボックスに自動で入力したり、ボタンを押したりさせるような関数とかって
あるんですか。やはり、WIN32APIでの話題になるのでしょうか？
601:デフォルトの名無しさん
06/12/10 14:20:36
起動だけなら System.Diagnostics.Process で容易に可能だが、
操作となると .NET の標準ライブラリだけじゃ不可能だな
602:デフォルトの名無しさん
06/12/10 14:26:33
>>601サンクス
603:デフォルトの名無しさん
06/12/10 18:37:20
┌─┬─┬─┬─┐
│ │ │ │ │
├─┼─┼─┼─┤
│ │ │ │ │
├─┼─┼─┼─┤
│ │ │ │ │
└─┴─┴─┴─┘
ピクチャーボックスで描いた表のマスそれぞれを二次元配列にしていきたいんですけどどうすればよいのでしょうか？
最終的にはクリックしたマスが何列何行目のマスか一発でわかるようにし処理を加えたいと思っています
（例えば左から2番目上から3番目をクリックすると配列(2,3)で処理を行う）
表はなんとか作成できたのですが、ここで詰まっています
'縦の線
For X = 0 To Xmax
g.DrawLine(Pens.Black, X * MasuSize, 0, X * CellSize, Xmax * MasuSize)
Next
'横の線
For Y = 0 To Ymax
g.DrawLine(Pens.Black, 0, Y * MasuSize, Ymax * MasuSize, Y * MasuSize)
Next
Xmax、Ymaxは行と列の数、MasuSizeはマスの幅がそれぞれInteger形式で入っています。
604:デフォルトの名無しさん
06/12/10 18:48:19
>>603
他人にわかる人語すら満足に書けない人が
コンピュータのコード書けるわけないよ、悪いけど。
ここで詰まってます？
「ここ」って何だよ？w
605:デフォルトの名無しさん
06/12/10 18:57:19
「ここ」って言うのは最初に説明した
ピクチャーボックスで描いた表のマスそれぞれを二次元配列にしていきたい
ってことです。わかりにくくてごめんなさい。
606:デフォルトの名無しさん
06/12/10 18:58:43
最近煽るだけ煽っていくやつがいるな
他人にわかる人語すら満足に書けない人が
コンピュータのコード書けるわけないとか
自論持ち出してるけど証拠はあるのかよｗ
607:デフォルトの名無しさん
06/12/10 19:05:15
>>605
悪いがなんの説明にもなってない。
表のマスをそれぞれ二次元配列にする、とはどういう意味だ？
608:デフォルトの名無しさん
06/12/10 19:09:02
うざ
609:デフォルトの名無しさん
06/12/10 19:28:06
うざくてもなんでもいいが、自分の問題を正確に言葉で表現しない限り、
他人の協力は永遠に得られないよ。
606のような自分の言葉を自分自身に適用できない馬鹿は湧いてくるかもしれないがw
まあ問題を表現できないのは、表現力の問題もあるだろうがそれ以前に
本人が自分の問題がよくわかってないから、問題を分析的に把握できてないからだろう。
把握できてもいない問題のコードなんて永遠に書けるはずがないだろ。
610:デフォルトの名無しさん
06/12/10 20:01:27
>>609の言いたいことは俺も同意する。
だが、>>603の言いたいことは、わかるだろ。
イマジーネーションがなければ、言葉で正確に表現できたとしても、
新しいものは生み出せないだろう
と言ってみる。
611:デフォルトの名無しさん
06/12/10 20:01:54
お目汚し失礼しました。
どうせこれ以上説明したところで上手く説明できないでしょうし
恥の上塗りになるだけでしょうから
他に頼る人もいないし自力で頑張ります。
612:デフォルトの名無しさん
06/12/10 20:03:49
要はなんだ？>>603はオセロ系のゲームを作りたいのかな？
613:デフォルトの名無しさん
06/12/10 20:05:38
>>603
.NETのことあまり知らんが、クリックされた時に発生するイベントがあるだろ？
そのイベントでクリックされた座標Cx,Cyがとれるだろ？？
そしたら、
Tx=Cx/CellSize
Ty=Cy/CellSize
配列(Tx,Ty)=????
みたいな感じでいいじゃないかね？？
この場合、グリッドの左上を原点とした場合だけど、あとは適当に
補正してくれ。
614:デフォルトの名無しさん
06/12/10 20:08:25
>>611
つか、気にするなよ。はじめは、みんなだいたい新しい言葉を上手く
使いこなせいもんだよ。
615:酔いちくれ ◆J0rwikii8c
06/12/10 20:16:41
うははｗ
やべぇ、酒の肴がたくさんだｗ
エンドユーザの意見を吸い上げる事に比べれば、
>>603は全然わかりやすい
614のとおり、気にするなｗ
なにより、AAうまくね？？
いろんな解釈ができそうだ
動的にコントロールを作って、配列にぶちこんでるのか、
単純に座標をつついたときに、配列にビットでもたてるのか。
まぁ、もういいのか。
616:デフォルトの名無しさん
06/12/10 21:00:35
>>613
ありがとうございます
今出かけてるんで明日家に戻ったらやってみます
>>614-615
優しいですね。ありがとうございます
<<612さんの仰るとおりオセロではありませんがそんな感じのゲームにする予定です
まずはプログラムの知識がないと質問するのも難しいものですね
勉強になりました
617:デフォルトの名無しさん
06/12/12 11:26:57
デリゲートって、どんなレベルになると必要になるんですか？
初心者は必要ない？
618:デフォルトの名無しさん
06/12/12 11:40:05
イベント使うだろ？
ま、意識はしてないだろうけど。
619:デフォルトの名無しさん
06/12/12 11:41:10
質問です。
ClickOnceで配布するプログラムを作成しているのですが、
その場合、ユーザーが個別に設定を保存するのに適した方法は分離ストレージ以外に存在しますか？
spreadの列幅などを保存したい時は列幅分だけ項目を作るのは手間なのですが・・・
620:デフォルトの名無しさん
06/12/12 11:53:21
>>619
My.Settingsじゃ駄目なの？
621:デフォルトの名無しさん
06/12/12 12:07:21
質問です。
mp3をデコードするためにいろいろ調べたところ
URLﾘﾝｸ(kone.vis.ne.jp)
をみつけたのでacmStreamを使ってやろうとしているんですが、
Public Declare Function acmFormatSuggest Lib "msacm32.dll" _
(ByVal had As Long, ByRef pwfxSrc As MPEGLAYER3WAVEFORMAT, _
ByRef pwfxDst As MPEGLAYER3WAVEFORMAT, _
ByVal cbwfxDest As Integer, ByVal fdwSuggest As Integer) As Integer
のところで引っかかるようです。
さらに調べたところURLﾘﾝｸ(e-blog.tokonats.net)
に書いてあるとおり構造体に2バイトフッタのようなものがあるようなのですが、
どうすれば動くようになるのでしょうか？
622:621
06/12/12 12:11:35
訂正
引っかかる場所はacmFormatSuggestを呼び出す場所です。
623:619
06/12/12 12:37:01
>620
いえ、プログラム中で新規に項目を追加する方法が見つからなくて。
624:デフォルトの名無しさん
06/12/12 12:40:59
>>622
まず自分の「ひっかかる」って説明が説明になっているかどうかって点に
ひっかかろうよ。
625:デフォルトの名無しさん
06/12/12 12:51:21
>624
説明って言われてもコンパイルエラーも出なければ
実行時にエラーをはくわけでもないからどうともいえないんですよね。
ただきっちりと実行してくれないという感じなんで。
626:デフォルトの名無しさん
06/12/12 13:05:46
>>625
引数とか構造体のサイズまちがってんじゃねーの?
そのフッタがどうのってVBの話だろ? .net関係ないじゃん
いきなりハンドルをLongとかしちゃってるけど
627:619
06/12/12 13:20:14
>>626
ほかのサイトも調べてたんですが
ハンドルの型はVBの場合だとLongかIntegerでいいそうなんです。
構造体のサイズはLen関数でとってるんでおそらくあってると思います。
今考えてみたらかなりスレ違いみたいですね。
申し訳ないです。
628:デフォルトの名無しさん
06/12/12 13:21:06
↑名前間違えた
621です。
629:デフォルトの名無しさん
06/12/12 13:42:45
>>623
グリッドレイアウトなんかは静的だと思うからプログラムで
新規項目作る必要なんてあるのか？というのは置いといて
シリアライズするとかコレクションに入れればなんとかなるんじゃない
630:デフォルトの名無しさん
06/12/12 14:23:37
>>627 スレ違いじゃないよ
631:デフォルトの名無しさん
06/12/12 18:27:39
いやスレ違いでしょ。619はVB6ユーザーみたいな感じだね。
っていうか、>>625みたいな寝ぼけたこと言ってるようじゃ、
相当救い難いお方だとお見受けするね、619クンは。
632:デフォルトの名無しさん
06/12/12 18:37:58
>ハンドルの型はVBの場合だとLongかIntegerでいいそうなんです
>ハンドルの型はVBの場合だとLongかIntegerでいいそうなんです
>ハンドルの型はVBの場合だとLongかIntegerでいいそうなんです
633:621
06/12/12 19:58:42
>>631
使ってるのはVB.NETの2003ですよ。
とりあえずデバッグして気づいたのはReturn値を取ってなかったのが
問題のようでReturn値を見るとエラーの値が帰っていましたが、
どのようなエラーなのかはわかりませんでした。
>632
つURLﾘﾝｸ(www.activevb.de)
ここを参照しての発言ですが
やはりハンドルの構造体は必要なんですか？
634:デフォルトの名無しさん
06/12/12 20:15:08
こんな丸投げ馬鹿に手取り足取り教えてやろう、
なんてお人よしが果たしているかね。
普通質問っていうのは自分で調べた上で不明点を聞くものだろう。
635:621
06/12/12 20:27:23
丸投げにしてるわけではないんですよ。
ただそう思われてるんならもう聞かないことにします。
636:最凶VB厨房
06/12/12 20:53:41
あわてんな。ゆっくりせぇ
637:デフォルトの名無しさん
06/12/12 21:20:22
とりあえずWebに書いてあるコードがVB6かVB.NETか区別できるようにしような
638:デフォルトの名無しさん
06/12/12 21:38:17
VB.NETスレに初心者スレがないのはみんな初心者だから?
639:デフォルトの名無しさん
06/12/12 21:45:04
>>634
なんのためにこのスレいるんだよ。
回答者面して、何も解決する気ないなら、このスレ一切覗くなよ。
そのほうが、おまえの精神衛生上よろしいだろ。
お ま え の 憂 さ 晴 ら し は う ぜ え ん だ よ
べつにここはサポセン仕事じゃないんだから答えなくていいんだぞ
と っ と と う せ ろ
640:デフォルトの名無しさん
06/12/12 21:51:48
煽り屋は回答を行わない法則
641:デフォルトの名無しさん
06/12/12 22:24:13
まあ「エラーの値が返ってきたけど意味がわかりませんでした」
ってその値書かなかったり、その意味の調べ方を訊ねないのもな……
だから>>634みたいに書いちゃうのもあまり責められない。
それでどうしたいの? って言いたくなる気持ちも分かるよ
642:デフォルトの名無しさん
06/12/12 22:33:05
>>639
お前さん、いい加減自分の言葉を自分自身に適用することを覚えろよ……。
っていうか、お前さん、自分の発言が俺を擁護するものであることに気づいてるか？w
そう、お前さんの言うとおり誰も答える義務はない。
だから「気に入らない奴」には回答しないんだよ。
「気に入らない奴」とは、一言で言えば自助努力をしない奴、する気のない奴だな。
「気に入らない」奴がスレに居つくのは俺の精神衛生上よくないから、
あえて「気に入らない」奴にとって居心地が悪いスレになるように心がけてるって訳。
643:デフォルトの名無しさん
06/12/12 22:35:03
隊長！自作自演警報発令中であります！
644:デフォルトの名無しさん
06/12/13 00:09:23
VB2005ExpでWindowsフォームで、データバインドしたDataGridViewにバインドしない列を最後尾に追加しました。
で、この列の並びがビルドするたびに前のほうに行ってしまうのを防ぐためには「列の自動生成オプション」とやらをオフにすればいいところまでは分かったのですが、どこでするのか分かりません。
AutoGenerateColumnsであってます？DGVのプロパティに無いし…しかもForm1.Designer.vbを覗くと
'DataGridView1
…
Me.DataGridView1.AutoGenerateColumns = False
ってなってるんですけどねぇ…あうぅ…
645:デフォルトの名無しさん
06/12/13 11:47:39
DataGridView については専用のスレッド
ｽﾚﾘﾝｸ(tech板)l50
がありました。そちらで聞かれるといいかも・・・
自分もあちらで聞いていました。
646:デフォルトの名無しさん
06/12/13 14:27:51
>>642
質問者レベルをコントロールしたいなら、
自分で管理する掲示板でしろ。
647:デフォルトの名無しさん
06/12/14 00:04:21
理解不足を棚に上げ煽り、1行レスで返す方が多いようですが、
そのような方はスレの皆様を混乱させるだけでなく
スレの雰囲気を崩しかねないのでお黙り下さい。
また質問者は回答者に知識を披露する場を与える貴重な存在なので、
質問者を見下した回答、あまりにも儀礼を欠いた回答も厳重に禁止いたします。
忙しい中、少ない時間の合間を縫って質問しに来てるわけですので、
その辺ご承知下さい。なお、当方が質問に対して有意義な答えであると
判断した方には評価いたしますので各自よく調べ、よく考え正確な回答をするように。
648:デフォルトの名無しさん
06/12/14 10:07:06
>>647
君が評価してくれるの？
コテハンにしてくれない？
649:デフォルトの名無しさん
06/12/14 18:26:04
>>647
で・・・どこを縦読みすればいいわけ？
650:デフォルトの名無しさん
06/12/14 20:23:18
／ ／／／// ////ハヾヽﾄ､ヾﾘﾒヽ
／ //////|l|ｌ|ｌ|ｌ川ｌ|j ｉメ!ｌ|ｌ| | ｌ|ｌ|ｌ|ｌﾄ､
/ ｌ|l|l | |ｌ|!｜l|ｌ|l川ｌ|! | |ｌ|ｌ| | ｌ|l川ｌ|ｌ|
/ ／／ ｨｌ|ｌ|| | |ｌ| |l|ｌ升十ﾄ､ | !|ｌ|ｌ| 川ｌ川ｌ|l|!
| ／ ／ |川｜|ｌ |ｌ|川｜| 川川 升ﾄ川l|ﾘ
| / ／ ／|ｌ|ｌ| | |ｌ ヽーｒ==､ ___|ﾉﾉ
|// ／ ∠川 川 ヽヾ:::::ﾉ ｲ::::「
|////´ｒ-､ヾl ｀'ー‐' ､ﾞｰﾍ
V/ハ ヽ ｌ| //// !
V/彡､ ＼ ﾉ /
ヾミミ＞-､ ⌒ / >>647いつにもましてキモイなこいつ
ﾄ=-､彡ヘ、 Ｊ ／
|川|ｌ川ｌ| ﾉ)､ ／
|川ｌ川ｌ|!（((ハ 「￣´
|川ｌ|川l|_,ﾉ_,ノ! |、
|川l|＜ヾ､ ｀ヽ､ 〉｀ー-､
!川/⌒ヽ､ヽ､ ｀'ｰ＜⌒ヽ 川
川ｌ| ＼｀'ー------ ｀ヽﾊ|ｌ|ｌﾄ､
/|ｌ|ｌl| ｀ヽ､ヾ､_｀'ｰ-=ﾆ三ヾ!ｌ|＼
651:デフォルトの名無しさん
06/12/14 21:48:14
正規表現と置換についての質問です
例えばPerlで1行全体の文字列に対してTABをSPACEに変換したい場合
s/\t/ /g;
このように書きますが
.NETの場合どの様に書いたらいいのでしょうか？
String^ str = "hoge hoge hoge";
str = Regex::Replace(str, "\t", " ");
これでは部分マッチングしかできないですよね？
652:デフォルトの名無しさん
06/12/14 21:51:08
651です
ｽﾏｿVBスレでしたね(^^;
ごめんなさい、でも分かる人いたら教えてもらえませんかVBでもいいので
ﾀﾉﾝﾏｽ
653:デフォルトの名無しさん
06/12/14 21:56:23
なんでリファレンス見ないの?
654:デフォルトの名無しさん
06/12/14 21:59:40
リファレンスの見方が良く分かんないんだよね、ぐぐったけど
旨くヒットしないし・・・・
655:デフォルトの名無しさん
06/12/14 22:04:15
こんな奴が C++/CLI か。世も末だな。
656:デフォルトの名無しさん
06/12/14 22:06:10
str = Regex::Replace(str, "\t", " ");
コレデ全体の置換もOKだったなﾜﾊﾊ
657:デフォルトの名無しさん
06/12/15 03:00:12
【使用環境】vb.net2003
PictureBox1_Paintイベントで
e.FillRectangle(Brushes.black, 0, 0, 500, 500)
と黒色の四角を描画し、
PictureBox1_MouseDownイベントで
Dim g As Graphics = PictureBox1.CreateGraphics
g.DrawEllipse(Pens.white, 0, 0, 100, 200)と、
PictureBoxをマウスで押すことによって黒色の四角の上に円を書くプログラムを作ったのですが
実行したウィンドウを最小化したりすると描いた円が消えてしまいます。
ウィンドウを最小化したり、サイズを変えたりしても
黒色の四角の上に円が描かれ続けているようにするにはどうすればよいのでしょうか？
ご存知の方いましたらよろしくお願いします。
658:デフォルトの名無しさん
06/12/15 06:54:38
ResizeRedraw
659:デフォルトの名無しさん
06/12/15 11:27:01
PaintやMouseDownでGraphicsに直接描かずに
pictrureBox1.ImageにつっこんだBitmapに描く
660:デフォルトの名無しさん
06/12/16 10:21:52
VC8をよく使いますが、自前のANSI Cで書いた関数をDLL化して
.NETで呼び出すことって可能ﾃﾞﾂｶ？
661:デフォルトの名無しさん
06/12/16 10:26:46
可能
662:デフォルトの名無しさん
06/12/17 13:40:35
以前、相互に循環する画面遷移を、
DLLでやってたプロジェクトに参加してたけど、
どうやって、可能にしていたのだろう？
663:デフォルトの名無しさん
06/12/17 14:42:31
いみがわかんない
664:デフォルトの名無しさん
06/12/17 20:18:19
2次元のarraylistって作れるんですか？
665:デフォルトの名無しさん
06/12/17 20:22:32
ジャグ配列的になら
666:デフォルトの名無しさん
06/12/17 20:33:12
初心者な俺には理解できない用語がorz
伝票発行するｿﾌﾄつくらなきゃいけないんですがDBだと難しくなりそうなんでCSVと配列でどうにかならないかなと思って。
部門、商品、相手先、入力ﾃﾞｰﾀそれぞれ横6要素以上あって読み書きを頻繁にするとなるとおとなしくADOかなんか
勉強するしかないのかな・・・
667:デフォルトの名無しさん
06/12/17 21:09:51
>>666
ジャグ配列なんてどうでもいい。
正規化はわかるのか？
668:デフォルトの名無しさん
06/12/17 21:13:47
667が日本語をうまく使えない、ということはよくわかるよ。
669:デフォルトの名無しさん
06/12/17 21:16:58
>>668
665乙。
670:デフォルトの名無しさん
06/12/17 21:17:34
え、俺？
671:デフォルトの名無しさん
06/12/17 21:18:44
え、え、俺？
672:デフォルトの名無しさん
06/12/17 21:20:00
え、え、え、俺？
673:666
06/12/17 21:20:52
えっと俺はどうボケればいいんでしょうか？ヽ(;´Д｀)ﾉ
674:デフォルトの名無しさん
06/12/17 21:24:41
ちょっとマジレスしますよ
>>666
伝票発行ソフトってことだけど元になるデータはどこ?
675:666
06/12/17 21:33:52
元のデータですか？
えとMDBかCSVにいれておこうかと思ってるんですが・・・
676:デフォルトの名無しさん
06/12/17 21:37:44
>>666
素直にアクセスでやるのが吉
677:デフォルトの名無しさん
06/12/17 21:58:13
\1,980で買えるアプローチでいいじゃん
678:674
06/12/17 22:23:05
CSVを｢これから作る｣でおｋ?
だったら
一行分の構造体orクラスを定義して
配列なりファイルアクセス用のクラスなりを使えばいける
ただしデータ構造が単純であることが大前提になるけど
単なる検索やソート以上の処理をするならAccessの方が楽かと
679:674
06/12/17 22:33:29
簡単にインターフェースの概要をば
一行分のデータのクラス(以後一行データ)
各アイテムのアクセサ
Shread Parse(string):一行データ (Newを利用する方法もある)
ToCSVLine():string(ToStringをオーバーライドする方法もある)
ファイル全体のクラス
Item(int) : 一行データ
Load:(IO::FileInfo):void
Save(IO::FileInfo):void
で
Loadのときは一行ずつParseで一行データを生成、
Saveのときは一行ずつToCSVLineで文字列に変換して書き込み
680:デフォルトの名無しさん
06/12/17 22:57:43
まあその説明でわかればたぶん質問しないわな。
こういう自己陶酔型の人ってヒトから自分がどう見えるか考えないから微笑ましいというか、
ちょっと困ったクンだよねw
っていうか、ここ何のスレだかわかってんの？w
681:デフォルトの名無しさん
06/12/17 23:26:08
うんこに群がるフンコロガシのためのスレッド
682:デフォルトの名無しさん
06/12/18 00:18:07
きもいよ
683:酔いちくれ ◆J0rwikii8c
06/12/18 06:24:40
>>679
1000件のレコードがあった場合は、一行分の子クラスの
インスタンスを1000回生成するの？？？
684:666
06/12/18 07:07:48
みなさんありがとうございます。
元ﾃﾞｰﾀの商品マスタと部門マスタはあります。
それぞれ列6要素ぐらいで行100～1000ぐらいです。
初心者なんで理解しきれてないのですが、マスタの一要素ごとに一次元配列を作ってそれをコレクションとかにいれて使うっていうことでしょうか？
あ、ちなみにVB2005EXPRESS使ってます
685:デフォルトの名無しさん
06/12/18 08:14:00
>>666
まず具体的に実現したい処理内容をかかなきゃ誰も答えようがないと思いますが。
こういう人って本当どういう頭してるんだろう。
他人はアンタの考えてることが言葉にしなくてもわかるエスパーか何かだと思ってんの？
なんにしろ、説明能力に問題がある時点でプログラマには向いてないといわざるを得ない。
686:デフォルトの名無しさん
06/12/18 16:37:03
>>539,634,609,680,685
これ以上、辿るのめんどくさいからやめた。
この人って本当どういう生活してるんだろ。
仕事では、対人関係の問題で使い物にならないんだろうな。
ネットで延々と煽って憂さ晴らし。ご愁傷様です。
687:デフォルトの名無しさん
06/12/18 22:10:41
フォームのサイズを変えたら一緒に
ボタンやラベルを大きくする方法ないですか？？
688:デフォルトの名無しさん
06/12/18 22:11:44
Anchor
Dock
689:デフォルトの名無しさん
06/12/18 22:43:00
>>688
もうちょい詳しくおしえてください・・・
690:デフォルトの名無しさん
06/12/18 23:15:49
Anchor 【あんかー】
Dock【どっく】
691:デフォルトの名無しさん
06/12/18 23:25:50
いじめられた・・・
692:デフォルトの名無しさん
06/12/19 00:09:15
アンカー 船舶が使用する錨のこと
ドック 船舶の製造、修理などに際して用いられる設備
693:デフォルトの名無しさん
06/12/19 00:11:55
碇、後戻りはできんぞ
さすがドックだ、なんともないぜ
694:デフォルトの名無しさん
06/12/19 00:38:44
これほど「ぐぐれかす」が似合う男もそういないぞ。がんばれ。
695:デフォルトの名無しさん
06/12/19 11:24:20
VBのランタイム関数って.NETになってからも追加されているんですかね？
696:デフォルトの名無しさん
06/12/19 17:54:34
Microsoft.VisualBasic
697:デフォルトの名無しさん
06/12/19 19:42:06
Windows2000(SP4)でVB2005を動かした場合なんですが
フォームにListViewを置いて、そのListViewにToolTipを設定した時
ListViewの空白部分をマウスでポイントすると普通にToolTipが表示されるのですが、
行(ListViewItem)が表示されている部分をポイントすると
ToolTipが一瞬だけ表示されて消えたり、ちらちらと点滅したり
異常な動きをします。
原因、対処法をご存じでしたらお教え下さい。
698:デフォルトの名無しさん
06/12/20 11:57:24
VB6 から VB2005 に移行して勉強した人が、
以前からの会社の都合でどうしても VB.NET 2003 とかで開発する
必要がある、というような場合、言語上で新たに覚えないといけないような点
はありますでしょうか？
Version としてはバックすることになりますが、VB2005 の方が楽になっている
ので VB.NET 2003 とかに戻ると オブジェクト指向プログラミング的に
厳密にやらないといけない部分が出てくると思うのですが、その辺で
やっかいな部分から列挙するとどんな感じになるでしょう、、
このあたりを心配していましたが、すみませんが、よろしければこの件で
ご指導くださればありがたく、よろしくお願いします
それとも、VB.NET 2003 で開発していた案件はすべて
VB2005 に移行していくと考えてよいでしょうか
この辺もよろしければ教えてくださると助かります
699:デフォルトの名無しさん
06/12/20 11:59:19
上げるの忘れました、スマソ
700:デフォルトの名無しさん
06/12/20 14:34:40
言語よりむしろNET Framework 2.0と1.xの違いの方が大きいと思われ。
701:デフォルトの名無しさん
06/12/20 22:14:33
一番大きいのは Using が無い事か？
ジェネリクスの方はどうも VB ではあまり聞こえてこないんだが導入に積極的でないのかね
702:デフォルトの名無しさん
06/12/21 08:19:32
このスレは既にPart17ですが、いったいみなさんはVB.NETで何を開発してるのでしょうか？？
やっぱ、ほとんど、サーバーサイドのWebアプリケーションでしょうか？？
クライアントサイドの.NETアプリをあまり見かけないので質問しました。
703:デフォルトの名無しさん
06/12/21 08:33:23
質問があります。
エディタにxxxxx.ToStringと入力した時にToString()って
自動的にカッコが付く様にはできないのでしょうか？
704:デフォルトの名無しさん
06/12/21 12:27:01
VS、というかVBのエディタの設定項目なんて数える程しかないのにな。
仮に500以上の設定項目が幾重かの階層になっている、とかなら
>>703みたいな質問もさもありなんと思うんだけど。
まあ703みたいな人がPGに基本的に向かない性格なのは疑いようがない
705:デフォルトの名無しさん
06/12/21 12:35:11
>>704
真性のキチガイやろう。
湧いて来るんじゃねぇよ。
706:デフォルトの名無しさん
06/12/21 12:38:33
>>704 氏ねよクズ 死ねよ
707:デフォルトの名無しさん
06/12/21 12:39:46
(･∀･)ｼﾞｻｸｼﾞｴﾝﾃﾞｼﾀ
708:デフォルトの名無しさん
06/12/21 12:40:13
お前ら耐性なさ杉だ
709:デフォルトの名無しさん
06/12/21 12:42:44
「教えて君」「教える君」というのは、
ネット上に存在する２種類の人種の人たちを示す揶揄された敬称のことであるが
その影には「教えない君」という人種が多数いるの事にはあまり注目されていない。
しかし、実はその「教えない君」という人種が一番厄介かつ迷惑な存在だったりするのである。
そもそも荒れる原因というものは「教えない君」の、無秩序かつ、無神経なレスにある部分が
大多数なのだが、彼らの多くは、そういった感覚はどうやら持ち合わせていないようである。
第三者がそうした場面を見た場合に、誰に一番の非があるというのは
「教えない君」にあるというのが客観的事実であるのは明らかなのであるが、
彼らは認めようとしない。
表面上は、「教えない君」はネット上のルールや倫理や秩序などを叫ぶのであるが
どうやら真相は、現実社会において蔑まれる存在である「教えない君」の
鬱憤晴らしのようである。
上記でそういった悲哀のレスを付けた人たちは、勇気を持って自らの弱さと過ちを認め
反省しなければならない。
それがキミたちニートの人間的に成長できる少ないチャンスなのである
710:デフォルトの名無しさん
06/12/21 12:59:11
長文カキコorコピペする「粘着くん」もいるみたいですよ
711:デフォルトの名無しさん
06/12/21 12:59:22
500以上の設定項目が幾重かの階層になっているなら質問OKだってｗ
ﾊﾊﾊﾊﾊ
死ねよクズ
712:デフォルトの名無しさん
06/12/21 13:18:57
５００もの設定の中から探すような
規模の事しか質問してはいけないって ｵｲｵｲ
713:デフォルトの名無しさん
06/12/21 18:42:59
ComオブジェクトのShockwave Flash Objectをコントロールとして利用したいのですが、
依存する COM 参照 "stdole, Version=7.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" を解決できませんでした。
タイプ ライブラリ "AxShockwaveFlashObjects" のラッパー アセンブリを作成できませんでした。種類 'Microsoft.Build.Tasks.ComReferenceResolutionException' の例外がスローされました。
などのエラーが発生して、利用することが出来ません。前までは出来ていたのですが、、、
714:酔いちくれ ◆J0rwikii8c
06/12/21 19:25:04
>>713
外してたら、スマソ。
2003で使ってたのが、2005で使えなくなったとか。
715:デフォルトの名無しさん
06/12/21 19:41:32
いえ、2005環境で使うことが出来ていました。今試したところ、Delphi6でも貼り付けることができました。
・・・何が原因なんでしょう。
716:酔いちくれ ◆J0rwikii8c
06/12/21 19:49:26
内部でラッパーのAxShockwaveFlashObjectsにアクセスできてない
みたいだから、AxInterop.ShockwaveFlashObjects.dllが悪いのは
確かと思う。
フレームワークが同居してるなら、そのDLLを探してみるのも
いいかも。
ちょっとDelphiは知識ないから、スマソ。
717:713
06/12/21 21:03:13
原因が分かりました。
参照の追加でCOMタブのOLE Automationを参照させないと実行できないようです。
お騒がせしてすいませんでした。
718:デフォルトの名無しさん
06/12/21 22:28:12
URLﾘﾝｸ(www.microsoft.com)
や ら な い か
719:デフォルトの名無しさん
06/12/23 11:47:03
データグリッドの最初の列を足したいんだけど、For eachで書けないかな？
下ので一応いけるんですが。
Dim sum As Single
For i = 0 To DGV.RowCount - 1
sum += DGV.Item(0, i).Value
Next
MessageBox.Show(sum)
720:デフォルトの名無しさん
06/12/23 11:50:08
変数名からして DataGridView のようだが。
721:デフォルトの名無しさん
06/12/23 12:06:07
Option Strict Offなソースを見ると何か嫌な気分になる
722:デフォルトの名無しさん
06/12/23 13:09:52
>>720
そうです。
723:デフォルトの名無しさん
06/12/23 13:29:51
＞Dim sum As Single
なんでSingle…
724:デフォルトの名無しさん
06/12/23 13:39:43
>719
つか集計したいのなら、DataColumn.Expressionでsumするのが
早いと思うが…。
つURLﾘﾝｸ(msdn.microsoft.com)
725:デフォルトの名無しさん
06/12/23 22:53:30
>723
少数があるので。
>724
ありがとうございます。参考にさせてもらいます。
726:デフォルトの名無しさん
06/12/24 05:01:00
すみません、ｵﾌﾞｼﾞｪｸﾄ志向プログラミングについて日が浅いもので
よくわからないのですが、、
たとえば、あるクラスから生成されたｵﾌﾞｼﾞｪｸﾄのコレクションが定義されているとして、
そのＡＤＤメソッドには、その元のクラスから派生されたｵﾌﾞｼﾞｪｸﾄを指定してコレクションに
追加していくことはできるでしょうか
たとえば、ＴｒｅｅＶｉｅｗコントロールにおいて、あるノードに子ノードを追加するという場合、
その子ノードは（ノードのコレクションである以上）TreeNodeクラス型ｵﾌﾞｼﾞｪｸﾄでなければ
ADDできないと思っていましたが、実際には、「TreeNodeクラスの派生クラスのｵﾌﾞｼﾞｪｸﾄ」
でもADDできているようでした。
これは通常の コレクションにおけるADDメソッド のデフォルトの性質でしょうか？
ヘルプの説明では普通に TreeNodeクラス型のｵﾌﾞｼﾞｪｸﾄをADDするようになっています
ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.NETDEVFX.v20.ja/CPref17/html/M_System_Windows_Forms_TreeNodeCollection_Add_1_526d62f3.htm
初心者ですみませんが、よろしくお願いします
727:デフォルトの名無しさん
06/12/24 09:56:13
ArrayList というコレクションが標準ライブラリにある。
これの Add メソッドは引数に Object 型を要求する。
さて、Object 型しか入れられないのならこのコレクションの存在意義ってなんだ？
728:デフォルトの名無しさん
06/12/24 11:01:47
>>727
どうもです、ありがとうございます
要するに ADDメソッド の基本機能が、そもそもどんなｵﾌﾞｼﾞｪｸﾄでもADDできる
ようになっている、ということなのですね
ArrayList.Add メソッド を見ると、はじめから ADD(”・・・”） で String型 の値を
渡してもそのままADDされるということは、ADDの引数は始めからオーバーロード
で定義されているということもあるのでしょうか、ただ
ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.NETDEVFX.v20.ja/cpref2/html/M_System_Collections_ArrayList_Add_1_b4c5a2da.htm
には、オーバーロードの複数引数定義は書かれていませんでした
それとも、Object型として引き受けるということ自体が、String型の値でも元々引き受ける
ようにできているということなのでしょうか、つまりオブジェクト指向での必要条件として
元々 ADDメソッド はこういう構造になっていると・・・）、このどちらなのでしょう？
729:デフォルトの名無しさん
06/12/24 11:06:30
派生クラスのインスタンスは基底クラスのインスタンスとして振る舞う事が出来る。
それだけ。
ついでに言うと全てのクラス・構造体は Object クラスから派生する。
String クラスのインスタンスは基底クラスである Object クラスのインスタンスとして振る舞う事が出来る。
730:デフォルトの名無しさん
06/12/24 11:14:03
例として
TreeNodeCollection.Add メソッド
の説明ですと、
ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.NETDEVFX.v20.ja/CPref17/html/O_T_System_Windows_Forms_TreeNodeCollection_Add.htm
のように、
String型の値のADD、TreeNode型のｵﾌﾞｼﾞｪｸﾄのADD
も共にオーバーロードの定義が明示されていましたので、型の拡張は明示されて
初めて利用可能になるものと考えたのでした
731:デフォルトの名無しさん
06/12/24 11:16:40
>>729
あ、すみません、かぶりました
＞派生クラスのインスタンスは基底クラスのインスタンスとして振る舞う事が出来る。
つまりオブジェクト指向の標準として、そういうことななのだと、
わかりました。
ありがとうございました。
732:デフォルトの名無しさん
06/12/24 11:20:27
>>730の 「TreeNodeCollection.Add メソッド」 のような場合は
他の引数のオーバーロードも定義したので、基本的な標準の
String型の値のADD、TreeNode型のｵﾌﾞｼﾞｪｸﾄのADD
もついでに記載した、ということなのでしょうね。
ご指導ありがとうございました。
733:デフォルトの名無しさん
06/12/25 18:44:38
いやTreeNode型のオーバーロードが標準だろ
あとはそれに皮をかぶせただけのオマケ
734:デフォルトの名無しさん
06/12/25 20:27:07
Windows Media Playerを制御することってできますか？
ファイルを指定して再生、停止、開始/終了時間の範囲指定など。
735:デフォルトの名無しさん
06/12/25 21:51:19
できます
736:デフォルトの名無しさん
06/12/26 02:39:28
こんばんは
例外を以下のように処理しようとしているのですが、
メッセージボックスが表示されずに、通常のエラーメッセージが表示されます
原因は何でしょうか？
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As String = "aaa"
Dim B As Integer
Try
B = CType(A, Integer)
Catch ex As Exception
MessageBox.Show("Error")
End Try
End Sub
737:デフォルトの名無しさん
06/12/26 06:00:31
ネタ？
ネタだよな？
738:デフォルトの名無しさん
06/12/26 06:48:40
質問です。
１を２のように記述したら警告になってしまうのですけど、
この警告を出ないようにするにはどうすればいいですか？
おしえてちょ。
１ Me.DialogResult = Windows.Forms.DialogResult.OK
２ Me.DialogResult = DialogResult.OK
739:デフォルトの名無しさん
06/12/26 08:16:06
理由がわかるようになるまで学習を進める、が正解だと思うよ。
740:734
06/12/26 08:27:26
>>735
どのクラスライブラリを使えばいいんでしょうか？
よかったら教えてちょ
741:デフォルトの名無しさん
06/12/26 10:32:23
>>736
∧ ∧
(*‘ω‘ *) ちんぽっぽ
( )
v v
ぼいんっ
川
( ( ) )
>>740
wmp.dllを参照に追加
742:デフォルトの名無しさん
06/12/26 14:05:23
皆様お疲れ様です、またよろしくお願いします。
（タイトル） デザイン環境による作成時にコントロールを初期化する方法について
（開発環境） VS2005Pro
（実現したい内容）
コンポーネント・クラスの作成の仕方として、そのコンポーネントを アプリケーションの
フォーム・デザイン時に単に貼り付けた時点でのみ動作する初期化どのように実装するか
（試行）
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New()
MyBase.New()
'この呼び出しは、コンポーネント デザイナで必要です。
InitializeComponent()
End Sub
に追加しますと、実行時にも実行されてしまう
（その他に）
ComponentDesigner.InitializeNewComponent メソッド
ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.ja/dv_fxdeveloping/html/914eaa03-092f-4556-9160-b8a2a40641d9.htm
ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.NETDEVFX.v20.ja/cpref3/html/M_System_ComponentModel_Design_ComponentDesigner_InitializeNewComponent_1_d8aa9975.htm
を用いる説明があり、Public Overrides Sub InitializeNewComponent(ByVal defaultValues As IDictionary)～End Sub
を *..Designer.vb に追加してみるものの継承元のクラスには同ﾒｿｯﾄﾞはなくエラーとなり、
Overrides をはずしてエラーを回避し実装したが （ComponentDesignerクラスは特に利用して
いないためか）その中にに書いたコードは実行されず
（・・・） フォーム・デザイン時に単に貼り付けた時点でのみ動作する初期化はどのようにして実装するべきか、よろしくご指導ください、お願い致します
743:デフォルトの名無しさん
06/12/26 14:14:29
ネイティブジャパニーズとはとても思えない日本語だな
if DesignMode
744:734
06/12/26 14:23:53
>>741
できません。。。
ぐぐると URLﾘﾝｸ(www.users.gr.jp)
ツールボックスにWindows Media Player コンポーネントが
出てくるらしいのですが、出ません。
当方、
・WinXPSP2Pro
・Windows Media Player10
・VB2005Express
なんですが・・・orz
ちなみに上記からダウンロードしたソースをC#2005Expressで開くと実行できましたが、
やはりツールボックスにはWindows Media Player コンポーネントがありません・・・
もしかしてExpressEditionではダメなんですかね？
745:デフォルトの名無しさん
06/12/26 14:30:32
>>744
URLﾘﾝｸ(homepage1.nifty.com)
746:デフォルトの名無しさん
06/12/26 14:51:59
>>743
日本語下手ですんません、どう書くと整理できるか編集中にてにをはが狂いました。
実は Windowsアプリケーションに貼り付けるコントロールだったのですが、
＞if DesignMode
これを書いてみたところデザイン時も、実行時も常に False のようで、どちらでも
実行されませんでした（継承元のクラスは TreeView）。
ヘルプによると、DesignMode は
名前空間: System.Web.UI
アセンブリ: System.Web (system.web.dll 内)
とあったので Web部品用のものなのでしょうか？
747:734
06/12/26 14:52:47
>>745
ありがとうございました。
できました（´∀｀）
748:デフォルトの名無しさん
06/12/26 14:54:46
>>746ですが、実際には System.Web.UI を Imports していなくても
使えていたので、「Web部品用」でなくても持ってるプロパティですよね
うーん、どうしてだろ。。。
749:デフォルトの名無しさん
06/12/26 15:21:12
>>748
System.ComponentModel.Component.Designmodeだよ。
で、C#の記事だけどこれかな？
URLﾘﾝｸ(blogs.wankuma.com)
750:デフォルトの名無しさん
06/12/26 17:02:24
>>749
どうもです、そうでした、System.ComponentModel.Component にも
DesignMode はありました。
Parent の DesignMode はその記事の通りやはり Protected だった
ようでエラーとなりました。
いまいろいろ調べてみましたがまだ解決していませんが、
さらに調べてみます。
751:デフォルトの名無しさん
06/12/26 20:25:20
URLﾘﾝｸ(www.be-interactive.org)
これをVB2005で行いたいのですが、どのようにすれば良いのか分かりません。
Const WM_COPYDATA As Integer = &H4A
Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal MSG As Integer, ByVal wParam As Integer, ByVal lParam As COPYDATASTRUCT) As Integer
Sub main()
Dim sendMes As New COPYDATASTRUCT
sendMes.lpData = _
New System.Text.StringBuilder("TestAPP" + Chr(0).ToString + "Music" + Chr(0).ToString + "1" + Chr(0).ToString + "{0} - {1}" + Chr(0).ToString + "TEST" + Chr(0).ToString + "TEST")
sendMes.cbData = sendMes.lpData.Length + 2
SendMessage(132030, WM_COPYDATA, Nothing, sendMes)
End Sub
Public Structure COPYDATASTRUCT
Const dwData As Integer = 1351
Public cbData As Integer
Public lpData As System.Text.StringBuilder
End Structure
このようにしたところ、SendMessageのところでTypeLoadExceptionを吐いてしまいます。
よろしくお願いします。
752:デフォルトの名無しさん
06/12/26 20:48:53
・文字コードはそれで大丈夫?
ANSIだと
sendMes.cbData = sendMes.lpData.Length + 1
だと思うけど。
SendMessageWにしてCharSet = CharSet.Unicodeにし、
その場合
sendMes.cbData = （sendMes.lpData.Length + 1 )*2
・シグネチャ
ByVal lParam As COPYDATASTRUCT → ByRef lParam As COPYDATASTRUCT
753:デフォルトの名無しさん
06/12/26 20:55:40
回答ありがとうございます。・・・しかし無理でした。COPYDATASTRUCTのlpDataが悪さしているようですが、、、
Const WM_COPYDATA As Integer = &H4A
Declare Ansi Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Declare Unicode Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hWnd As Integer, ByVal MSG As Integer, ByVal wParam As Integer, ByRef lParam As COPYDATASTRUCT) As Integer
Sub main()
Dim sendMes As New COPYDATASTRUCT
sendMes.lpData = _
New System.Text.StringBuilder("TestAPP" + ChrW(0).ToString + "Music" + ChrW(0).ToString + "1" + ChrW(0).ToString + "{0} - {1}" + ChrW(0).ToString + "TEST" + ChrW(0).ToString + "TEST")
sendMes.cbData = (sendMes.lpData.Length + 1) * 2
SendMessage(FindWindow("MsnMsgrUIManager", Nothing), WM_COPYDATA, Nothing, sendMes)
End Sub
Public Structure COPYDATASTRUCT
Const dwData As Integer = 1351
Public cbData As Integer
Public lpData As System.Text.StringBuilder
End Structure
754:デフォルトの名無しさん
06/12/26 21:04:56
もうぶっちゃけちゃうと、
COPYDATASTRUCT.lpData をIntPtrにして文字列をMarshal.AllocHGlobal, Marshal.StringToHGlobalAutoで割り当てる
(あとでFreeHGlobal)
んで
sendMes.cbData = (sendMes.lpData.Length + 1) * 2
COPYDATASTRUCTそのものもMarshal.StructureToPtr, Marshal.StructureToPtrでメモリに割り当てて
(あとでFreeHGlobal)
そいで
SendMessageの第４引数をByVal IntPtrにする。
755:デフォルトの名無しさん
06/12/26 21:17:52
もうこれはあきらめるしか無いのですかね、、、
Const WM_COPYDATA As Integer = &H4A
Declare Ansi Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Declare Unicode Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hWnd As Integer, ByVal MSG As Integer, ByVal wParam As Integer, ByRef lParam As System.IntPtr) As Integer
Sub main()
Dim sendMes As New COPYDATASTRUCT
Dim str As String = "TestAPP" + ChrW(0).ToString + "Music" + ChrW(0).ToString + "1" + ChrW(0).ToString + "{0} - {1}" + ChrW(0).ToString + "TEST" + ChrW(0).ToString + "TEST"
Dim ptr As IntPtr
sendMes.lpData = System.Runtime.InteropServices.Marshal.AllocHGlobal(System.Runtime.InteropServices.Marshal.StringToHGlobalAuto(str))
sendMes.cbData = (str.Length + 1) * 2
System.Runtime.InteropServices.Marshal.StructureToPtr(sendMes, ptr, True)
SendMessage(FindWindow("MsnMsgrUIManager", Nothing), WM_COPYDATA, Nothing, ptr)
System.Runtime.InteropServices.Marshal.FreeHGlobal(sendMes.lpData)
System.Runtime.InteropServices.Marshal.FreeHGlobal(ptr)
End Sub
Public Structure COPYDATASTRUCT
Const dwData As Integer = 1351
Public cbData As Integer
Public lpData As System.IntPtr
End Structure