1001コメント332KB

VB.NET質問ｽﾚ (Part8)

レス数が1000を超えています。これ以上書き込みはできません。

0001デフォルトの名無しさん

NGNG

VB.NETの質問全般です

過去スレ
VB.NET質問ｽﾚ (Part7)
http://pc5.2ch.net/test/read.cgi/tech/1096683017/
VB.NET質問ｽﾚ (Part6)
http://pc5.2ch.net/test/read.cgi/tech/1088812165/
VB.NET質問ｽﾚ (Part5)
http://pc5.2ch.net/test/read.cgi/tech/1078134703/
VB.NET質問ｽﾚ (Part4)
http://pc2.2ch.net/test/read.cgi/tech/1065269043/
【老若】VB.net質問ｽﾚ【男女】 (Part3)
http://pc2.2ch.net/test/read.cgi/tech/1056281084/
【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc2.2ch.net/tech/kako/1043/10436/1043629429.html
【老若】VB.net質問ｽﾚ【男女】
http://pc2.2ch.net/tech/kako/1025/10258/1025848458.html

0002デフォルトの名無しさん

NGNG

どぼん！のVB道のトップページとTipsページ
http://dobon.net/vb/
http://dobon.net/vb/dotnet/index.html
Microsoftクイックスタートチュートリアル
http://ja.gotdotnet.com/quickstart/default.aspx
リソースセンター> .NET関連リンク
http://www.atmarkit.co.jp/fwin2k/rescenter/indexpage/net.html
Insider.NET
http://www.atmarkit.co.jp/fdotnet/index.html
＠IT：連載 VB.NETプログラミング
http://www.atmarkit.co.jp/fdotnet/vb6tonet/index/index.html
＠IT：連載　改訂版 C#入門
http://www.atmarkit.co.jp/fdotnet/csharp_abc2/index/index.html
C#プログラミングTips
http://www.atmarkit.co.jp/fdotnet/csharptips/index/csharptips_index.html

0003デフォルトの名無しさん

NGNG

宇宙仮面の C# プログラミング / C# Programming
http://ukamen.hp.infoseek.co.jp/
VB.NETとC#でデザインパターン
http://hccweb1.bai.ne.jp/tsune-1/
ConvertCSharp2VB
http://www.kamalpatel.net/ConvertCSharp2VB.aspx
WisdomSoft ～Developers Network～
http://black.sakura.ne.jp/~third/
CodeProject
http://www.codeproject.com/vb/net/
the GotDotNet Home Page
http://www.gotdotnet.com/
KEN's .NET
http://www5b.biglobe.ne.jp/~yone-ken/VBNET/index.html
ソース置き場.NET
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1003826049
Cetus Links: 19,498 Links on Objects and Components / .NET
http://www.cetus-links.org/oo_dotnet.html

0004デフォルトの名無しさん

NGNG

0005デフォルトの名無しさん

NGNG

.NET TIPS
http://www.atmarkit.co.jp/fdotnet/dotnettips/index/index.html
緑のバイク ★ 初めてのC# プログラム全般
http://homepage3.nifty.com/midori_no_bike/CS/

MSDN
言語仕様などのリファレンス
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbref/html/vbmscLROverview.asp?frame=true
サンプルコード
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbref/html/vboriVBVCSharpSamples.asp?frame=true
.NET Framework を使用したプログラミング
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpconprogrammingwithnetframework.asp?frame=true
.NET Framework リファレンス
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/netstart/html/cpframeworkref_start.asp?frame=true

0006デフォルトの名無しさん

NGNG

.NET Framework のランタイムテクノロジに関するパフォーマンス上の注意事項
http://www.microsoft.com/japan/msdn/net/general/dotnetperftechs.asp

Microsoft .NET Framework の Windows フォームを使用したペインティングテクニック
http://www.gotdotnet.com/japan/team/windowsforms/windowsformspainting.aspx

ガベージコレクション入門: Microsoft .NET Framework の自動メモリ管理 Part I
http://www.microsoft.com/japan/msdn/net/mag00/GCI.asp

C# プログラミング言語の将来の機能
http://www.microsoft.com/japan/msdn/vs/vcsharp/vbconCProgrammingLanguageFutureFeatures.asp

適当に選んだ資料。

他
http://www.ne.jp/asahi/nami/mei/dotnetlink.html
http://www.atmarkit.co.jp/fdotnet/tools/index/index.html

JScript .NETはこちらで:
ECMAScript デス 2
http://pc5.2ch.net/test/read.cgi/tech/1088298991/l50

0007デフォルトの名無しさん

NGNG

テンプレ以上

0008デフォルトの名無しさん

NGNG

乙

0009デフォルトの名無しさん

NGNG

乙鰈

0010デフォルトの名無しさん

NGNG

教えてください
ＳＨＥＬＬで起動されたプログラム(.EXE)が起動元のプログラム名を判定するには
どうしたら良いのでしょうか？

例　Ａ→Ｂ　で　Ｂが自分を起動したプログラムがＡなら正常、
　　Ａ以外なら異常を判定したい
　　（Ａはログイン＆実行権限チェックプログラムという設定で、
　　　認証にかかわる処理を一手に引き受けている。
　　　Ｂはファイル名を指定して実行等、チェックプログラムを経由せずに
　　　起動される不正を防ぎたい）　　

0011デフォルトの名無しさん

NGNG

Microsoft Visual C++ .NET2003でCのコンソールアプリつくっているのですが、
gprofのような解析ありますか？

001211

NGNG

誤爆・・・。ここはVBです。

0013デフォルトの名無しさん

NGNG

>10
プログラム名とは？
プログラム名がないと起動できないと思ってる？

0014デフォルトの名無しさん

NGNG

>13
当然です。

0015デフォルトの名無しさん

NGNG

VBで質問なんですが、
開始押したら、いきなりフリーズする原因不明におちいりました。
やっぱ最初からやり直し？

0016デフォルトの名無しさん

NGNG

VB.NETで同じLAN内でファイル転送について色々調べましたがやっぱりわかりません。良いサンプルコードないでしょうか？

0017デフォルトの名無しさん

NGNG

Imports System.IO 'コード先頭

File.Copy("hoge.txt", "\\MachineName\FolderName\hoge.txt")

0018デフォルトの名無しさん

NGNG

ありがとｙございます。　やってみます

0019デフォルトの名無しさん

NGNG

クリレポでリストに縦の罫線を書いてるんだが
ページの終わりを

│
│
└───────────────────────────
のようにしたいんだけど

│
│

────────────────────────────
のように空白が出来てしまう
グルーピングは同じ地域（郵便番号）で1種類のみ
レポートフッターとグループフッターには集計はないので高さはゼロ
最下部の罫線の横棒はページフッターに設定してある

良い知恵ｷﾎﾞﾝﾇ

0020デフォルトの名無しさん

NGNG

画面の項目を、日本語と英語で切り替えるために、
外部にxmlで設定できたと思うんですが具体的にはどうやるんでしょうか？

0021デフォルトの名無しさん

NGNG

>19
クリレポってなーに？

0022フナ太郎

NGNG

>>10
方法はないと思うよ。ダサダサなやりかたなら、以下のような
のが考えられるけど。

　　・Ａからコマンドライン付きで呼び出し、Ｂはそのコマンドラインから判断する。

　　・外部ファイルを作ってチェックする。

　　・レジストリのスイッチを設ける。

など。

0023デフォルトの名無しさん

NGNG

うちも>>15と同じ現象が。実行→フリーズする

0024デフォルトの名無しさん

NGNG

>10
B単独で起動できないようにすればいいだけだよな。何でShellでやるの？
意味分からん。

0025デフォルトの名無しさん

NGNG

VB6から.NETへの移行を考え、勉強中の者です。
2つ質問させていただきます。

VB6では、COM EXEを使ってアウトプロセスのサーバを作成できました。
.NETでは、このようなものは作れないのでしょうか。(マネージコードで)
それとも、従来の COM を使う必要があるのでしょうか。
(プロセス間通信を主な目的としているので、インプロセスは除外とします)

また、.NET コンポーネントで COM の CreateObject のような、実行時バインディングは
できるのでしょうか。

以上、どうかご教授願います。

0026デフォルトの名無しさん

NGNG

>>23
つか、行ごとの実行で原因を突き止めるのが定番でそ。
しょっぱなからフリーズするなら、よっぽど妙なコード書いてる
っぽいし。

0027デフォルトの名無しさん

NGNG

教えてください。
フォームのウィンドウハンドルだけわかっている状態で
そのフォームに貼り付けられているテキストボックスの
ウィンドウハンドルを取得するにはどのようにすればよいでしょうか？
よろしくお願いします。

0028デフォルトの名無しさん

NGNG

>>27
EnumChildWindows()

0029デフォルトの名無しさん

NGNG

>>28
さんくすくす。

0030デフォルトの名無しさん

NGNG

VB6から.NETへの移行したばかりの初心者です。

移行後、いきなり壁にぶち当たってしまったのでお知恵を貸してください。

フォームの上に配置した二つのPictureBoxに、透過情報をもった画像をセットします。
背景色をTransparentで透過指定します。
PictureBoxを重ねると、背面の画像が、透過されている所も含めて隠れてしまいます。

調べたところ、親コントロールの情報を描画しているので、
前面にあるPictureBoxをControls.Addを使い、
背面にあるPictureBoxの子ににしてしまえば良い所までわかりました。

しかしコントロールは常に重なっているわけではないので、この方法だと使えません。
Regionを使ったやり方だと、単純な図形や文字は何とかできても、画像となるとあまり現実的とは思えません。

ＶＢ６のimageコントロールのように、背面にある画像を表示させる方法はないものでしょうか？

0031デフォルトの名無しさん

NGNG

単純なタイピングゲームを作っています。
テキストに文字列(ローマ字)を表示させる。
フォームがアクティブな時に入力すると、ラベルがOKとNGを表示する。

ここまではできました。
後は、文字列のどこまで入力したかをわかりやすくしたいのですが、
何かいい方法はありませんか？
次に打つ文字を、選択した状態にしようとしてselectstartとlengthを使おうとしたのですが、
なぜか選択されませんでした。

できれば打った文字までのところの色を変えたいのですが、何かいい手はありまんか？

0032デフォルトの名無しさん

NGNG

>>31
コントロールを二つ用意して、mid使ってやる方法はダメなん？

0033デフォルトの名無しさん

NGNG

RichTextBoxを使ってよりグラフィカルなのにするのも一興。

0034３１

NGNG

すいません。選択することはできました。
enabledをtrueと、tabstopをtrueにすると選択することはできました。

しかし、これだとテキストボックスが選択された状態になり、
フォームのkeypressが反応しません。

打った文字までの色を変える方法があれば教えてください。

何かと説明不足でわかりづらいかも・・・

0035デフォルトの名無しさん

NGNG

なんでkeypreviewを使わんの？

0036１０

NGNG

>24
１０です
ｓｈｅｌｌ起動は客先の要望です（正確に言うとファーストベンダ要求）
なので、この部分は変えられません。
起動元のＡと起動先のＢが会話できれば多分解決できると思いますが
（Ａのインスタンス情報をＢが参照できれば。。。）
どのようにすればいいのか分からないでいます。
ＶＢ．Ｎｅｔではプロセス間通信のコーディングはどのようにすれば
よいのでしょうか？（ＶＢ６．０だとＤＤＥが使えたという話も。。。）
ご存知の方、教えてプリーズ！！！

0037３１

NGNG

回答ありがとうございますm(_ _)m
>>32さん
すいません。midの使い方わかりません。
検索してもさっぱりでした。詳しくは調べてないけど。。。すいません。
>>33さん
さらにわかりません。textでいっぱいいっぱいです。

>>35
ありがとうございます。何とかできました。フォームに渡せるようになってるのですね。
ちょっと怪しい動きをしましたが、何とか改良はできそうです。

すぃかすぃ、できれば色を変える方法を・・・

0038デフォルトの名無しさん

NGNG

>>37
Dim temp As String = "abcdefghijklmn"
Dim j As Long = Len(temp)
Dim a, b, c As String
a = Mid(temp, 1, 1) 'return a
b = Mid(temp, 1, j) 'retun abcdefghijklmn
c = Mid(temp, 3, 1)'return c

色はデザイン上から変更していいんじゃね？

label1.ForeColor = Color.Red

リッチテキストボックスならSelectionColor

0039デフォルトの名無しさん

NGNG

>>36
ttp://d.hatena.ne.jp/N0MURA/20040108
.NET標準のリモート処理ではTCPのポートを使用するのでアンチウィルスソフトとかに引っかかるかも。PC内でポートを使う分には問題ないはずだけど。
WellKnownObjectModeはSingletonの方が良いのか。
AがBを起動時にカウンタを一つインクリメント＞Bが起動した時にデクリメントしてマイナスでなかったらOK、とか。
マルチスレッドに耐えられるようにInterlocked使って(イン|デ)クリメントするとか。

まあ内部で秘密の引数をつけて起動、それをチェックすればいいだけの話だけれど。

Bが一方的にAを知る手段はないだろう。

0040デフォルトの名無しさん

NGNG

　VBで、起動時の引数ってとれるの？

0041デフォルトの名無しさん

NGNG

とれなかったらびっくりだ。
Mainメソッドの引数としてでもSystem.Environment.GetCommandLineArgsメソッドでも楽勝でとれる。

0042デフォルトの名無しさん

NGNG

１０はアホ。頭固すぎ。ソフトウェア技術者の資格なし。

0043デフォルトの名無しさん

NGNG

>>42
アンカーつけろアホ

004427

NGNG

.netらしく
System.Windows.Forms.Control.FromChildHandle
を使ってみたのですが他のプロセスのウィンドウだと
取得できません。
権限とかあるのでしょうか？

0045デフォルトの名無しさん

NGNG

普通にEnumWindowとかGetWindowとかSendMessageTimeoutとか使った方がいいんじゃない？

他スレッドのコントロールへのアクセスでさえ Invoke が要求される .Net の Control では、
なんとかしてControl が取得できたところで何も出来ないと思うし。

004627

NGNG

>>45
そうですか。助かりました。さんくすくす。

0047デフォルトの名無しさん

NGNG

>41
初めて知った。ダイレクトにコマンドラインからプログラム名を
入れたりすることあまりないでしょ。引数って必要なことある？

0048デフォルトの名無しさん

NGNG

大抵のアプリケーションは起動時の引数で挙動が変わったりするもんだが。
IEだってurlを引数にすれば自動的にそのページを開けてくれる。

0049デフォルトの名無しさん

NGNG

ping >>47

0050デフォルトの名無しさん

NGNG

>48
挙動は立ち上げてから変えたら？　わざわざDOSなんか使うことないでしょ。

0051デフォルトの名無しさん

NGNG

>50
どこにDOSなんて書いてある？

0052デフォルトの名無しさん

NGNG

コマンドラインで
iexplore.exe -k

0053デフォルトの名無しさん

NGNG

>52
どれへのレスだ？

005431

NGNG

>>38さん
レスありがとうございます。
学校でしか出来ないので、月曜までできませぬ。

midの使い方は何とかなりそうですが、後ろのreturnってなんだろう？？
えっと、デザイン上ってのはどういうものなんでしょうか？
タイピングソフトのような感じなので、テキストボックスの文字色を
正確に打てた分だけ色をかえたいのです。
テキストボックスには打つ例文をいれています。
途中までの文字を取り出してそこまでの色を変えることは可能でしょうか？

月曜まで時間があるので自分でもしらべてみます。

0055デフォルトの名無しさん

NGNG

returnは戻り値。
そーいうレスが返ってくるって事は、ヘルプとか見てないだろ。

なにがしたいかわからんし。
一つのコントロール内で文字色を複数使いたいなら、リッチテキストかPictureBoxを使いな。

0056デフォルトの名無しさん

NGNG

基本的な質問を２つもすいません
formを２つ作って、片方をhideで隠してる時にもう片方を×で閉じると、
隠してる方のが閉じられてるみたいでプロレスに残るんですが、どうすれば消せるようになるんでしょうか？
もう１つはformの初期位置？の設定のやり方・・・
２つform表示させると片方が隠れて、少しずらしたいんです
ほんと初歩的なことですいませんorz

005756

NGNG

すいません自己解決
ほんと超簡単すぎてもう。。orz

0058デフォルトの名無しさん

NGNG

>57
そういうこともあるさ

0059デフォルトの名無しさん

NGNG

VB6からの移行、VS2003環境です

恥ずかしながらVB6の時から、拾ってきたDLLを使って楽をさせてもらっていました
VS2003の方からも同じDLLを利用したいのですが、うまく参照設定できません
もしかして.netからは既存のDLLは参照できないのでしょうか？

0060デフォルトの名無しさん

NGNG

どう上手くできないのか良くワカランが
COMだったらほぼ間違いなく参照できるはずだが

0061超初心者でスマソです

NGNG

VB.NETという言葉は聞いた事あるんですが
「VBが進化したもの」と考えていいんでしょうか？
あと、VB言語でプログラムを組む場合
なにか市販のソフトが必要なのでしょうか？
トンチンカンな質問かもしれませんがお願いしますｍ（__）ｍ

0062デフォルトの名無しさん

NGNG

>>61
マジレスしてみようか。

> VB.NETという言葉は聞いた事あるんですが
> 「VBが進化したもの」と考えていいんでしょうか？

VBを.NET Frameworkという環境に適応させたもの。
.NETがオブジェクト指向を要求するので、それに併せてVBを本格的っぽいオブジェクト指向言語にしてみた。

> あと、VB言語でプログラムを組む場合
> なにか市販のソフトが必要なのでしょうか？

少なくともVB.NETに関しては、実行環境にコンパイラとライブラリが含まれるので、一通りは無料で可能。
ただしビジュアライズされた統合開発環境(VisualBasic.NET2003)は当然有料。学生なら随分安く買えるが。
今なら次期.NETの統合開発環境のベータ版がMSからフリーでダウンロードできるので、それで雰囲気を味わってみるのも良いかも知れない。

0063デフォルトの名無しさん

NGNG

つまりVB.NETは何の役にも立たないってことですね

0064デフォルトの名無しさん

NGNG

>>61
>>62の適切な解説で理解できないなら、不明な単語から全部ぐぐれ。
おまいさんの質問は「パソコン使いたいんだけど、マウスって何です
か？　どうやって操作するんですか？」って感じだ。

0065デフォルトの名無しさん

NGNG

ミエミエのネタにいちいち相手するやつもはっきり言って同罪。

別に掲示板で馴れ合って戯れること自体が悪いとは言わんが、
TPOってもんがあるだろう。
つまりそういうことしたいならもっとそれに相応しい板に行ってやってくれ。

0066デフォルトの名無しさん

NGNG

まあ普通なら質問する前に過去ログ読んで、場の雰囲気を察してから
発言する罠。

0067超初心者でスマソです

NGNG

>>62
どうも答えてくれてありがとうです
早速ダウンロードしてみます

0068デフォルトの名無しさん

NGNG

>>19
アクティブレポートしか使って無いけど、参考になれば

ページフッターは、ページの下を基準に位置が決められる。
乱暴なやり方でいいなら、ページフッターの高さを広げて丁度いい位置にする。

別の方法だと、グループフッターを使ってページが変わったら出力するとか。
そんなプロパティがあったような気がする。無かったらゴメン。

0069デフォルトの名無しさん

NGNG

Private Declare Function FindWindowA Lib "user32" (ByVal cnm As String, ByVal cap As String) As Long
Msgbox(FindWindowA(vbNullString, "とあるウィンドウのタイトル"))

これを実行してやると、同じウィンドウハンドルが取得できるはずが
VB6 246750
VB.net 68961369294375470
と、なんかもう凄く桁とか違うんです

なんで？

0070デフォルトの名無しさん

NGNG

VBのLong > 32bit
VB.NETのLong = .NETのInt64 > 64bit

007169

NGNG

OK、そういうことは先に言ってくれマイクロソフト

リファレンス読まない俺が悪いのは言うまでもない

0072デフォルトの名無しさん

NGNG

>>71
しかたない慣れろ

0073デフォルトの名無しさん

NGNG

>>68
Thx
調べてみます

クリレポの市販の参考文献って2冊程度しか出て無くって
しかも初歩的内容しか書いてない
ちょっと込んだことやろうとするとすぐに躓いてしまいます・・・

0074デフォルトの名無しさん

NGNG

>71
1つ賢くなったってことにしよう。

0075斉藤 ◆kvYxWFRquQ

NGNG

質問です。

0076デフォルトの名無しさん

NGNG

どうぞ

0077デフォルトの名無しさん

NGNG

まーだー？

0078デフォルトの名無しさん

NGNG

失問です。

0079デフォルトの名無しさん

NGNG

てっきり、バカには見えない質問だと思ってたよ。
‥‥見えないのは俺だけじゃないよな？　な？

0080デフォルトの名無しさん

NGNG

>79
え？

0081デフォルトの名無しさん

NGNG

>>79が見えない

0082デフォルトの名無しさん

NGNG

>81
ユーザ登録しないと見れないよ。

0083デフォルトの名無しさん

NGNG

複数のボタンを動的にコントロールしたいんだけど、6.0であった
コントロール配列は無くなったんだよね。

どのボタンを押しても「Handlesを集約したひとつのプロシージャ」
で一括処理、区別はsenderからプロパティを取得するってのは調べ
てわかったんだけど、コード側からボタンに働きかけたいんよ。

やっぱりボタンを配列に入れて、ループ処理するしかないのかな？
変数の変化にあわせて、いくつかのボタン.enabledを切り替えたい
んだけど、以前みたいに添字で直接制御できたのは楽だったよなぁ。

0084デフォルトの名無しさん

NGNG

>>83
ボタンオブジェクトの配列を自前で宣言して、初期化処理でその配列
ひとつひとつにデザイン済みのボタンを代入すればOK
MyButton(3).Enabled=true
なんて記述は普通にできる。俺も以前の方がラクだとは思うけどね。

008583

NGNG

>>84
ここの２番目みたいな記述でやるってことだよね。
ttp://dobon.net/vb/dotnet/control/buttonarray.html

やっぱそうだよなぁ‥‥この手段で詰めてみます。
さんくす。

0086デフォルトの名無しさん

NGNG

１，２，３，４，５だけをランダムに出力するプログラムをRandam関数を使ってつくりたいんですけど数学的に難しいです。お願いします。

0087デフォルトの名無しさん

NGNG

ランダム値生成関数を自作するんじゃなくて、既存のランダム値生成関数を使って実装するってことだよな。
折角.NETになったのだから、.NETのクラスライブラリを使えば楽勝。
RandomクラスのNextメソッドには下限と上限(ただし、この数値「以下」ではなくこの数値「より小さい」)を指定してIntegerを返すオーバーロードがある。

0088デフォルトの名無しさん

NGNG

C++ でいうところの dynamic_cast <*class> に相当するものってVB.NETにはありますか？

プロシージャ内で sender を Button だとか、Labelだとかに明示的に型変換したいのですが。

008988

NGNG

あ、VB.NET のヘルプを「型変換」で検索して自己解決しますた。

CType（変数,クラス）

ですね。よく調べもせずに、クソくだらない質問すみませんでした。

0090デフォルトの名無しさん

NGNG

123456という入力を12-3456と変換する処理を考えています。
数値でFormat関数で00-0000とすればなるのですが、
入力が123の場合は12-3、1だけなら1_-（アンダーバーはスペース）としたいのです。
Format関数では値が右寄せになってしまうため無理と判断して、
StringクラスのFormatで("{0,-2:G}-{1,-4:G}","12","3456")とすればいいという事まではわかったのですが・・・

これを自作のテキストボックスのプロパティとして実装するにはどうしたらよいでしょうか？
第1引き数をそのまま設定するようにしようかと思いましたが、
区切りの数が毎回違うかも知れないし、そうすると後ろの引き数の数も変わってくるし。
なにかいい方法はありませんか？

0091デフォルトの名無しさん

NGNG

文字数が2より大きいかどうかで分けたら良いんじゃない？
12-3456-7890-1234なんてことも考えるならそういうわけにも行かないけど、12-345678901234なら。

009290

NGNG

>>91
レス感謝です。
今回だけというのであれば確かにその方法でもいけるのですが、
自作のコントロールにプロパティとして実装しようとしているので、
なんとか他の書式にも対応できないかと悩んでいます。

0093デフォルトの名無しさん

NGNG

>>92
ボックスを数値しか入力できないようにして、Lenで調べるやり方とかは？

0094デフォルトの名無しさん

NGNG

トリップを出力するプログラムはどんなカンジ？

0095デフォルトの名無しさん

NGNG

>>92
こんなマニアックなのに汎用性があるとも思えないが……。
他の書式ってことは、"{0,-2:G}-{1,-4:G}" を（あるいはその一部を）プロパティにするなりして変更可能にするってこと？
どのくらいの汎化を考えてるんだろう。

009690

NGNG

>>95
そうです、その引き数ごと設定するようなプロパティを考えています。
どのくらいの汎化と言われると・・・できるだけやりたいなと。
もちろん>>91の12-3456-7890-1234とかも。ちなみに数字だけに入力を絞るってのはできてます。

12-3456と12-34-56を考えると、
第2引き数以降が違うわけで、当然渡された123456を区切る数も長さも違う事になる。
この区切る回数と長さの特定に方法が見つからんのです。

0097デフォルトの名無しさん

NGNG

>96
データとしては1234567890で、表示形式をxxx-xxxやxx-xxxx-xxにするだけじゃないの？
ハイフン含めたデータで持つなら、DELキーとかの制御がすごい面倒そうだけど。

0098デフォルトの名無しさん

NGNG

質問ですがＶＢ.netでチェックボックスでドライブを選択して実行ボタンを押したら、
自動に再起動しチェックディスクを実行する機能を作りたいんですが教えてください。

009990

NGNG

>>97
現在内部ではそのようにしてますが、xxx-xxxやxx-xxxx-xxにする方法がわからんのです。

0100デフォルトの名無しさん

NGNG

VB.NETってOpenFileDialogを使ってファイルを開くとき、文字コード指定ってできないんだっけ？

0101100

NGNG

ﾐｽ・・・

文字コード指定を自分で選択できる？メモ帳みたいに

0102デフォルトの名無しさん

NGNG

>99
num.ToString("##-###-##")
こんなのは？

010390

NGNG

>>102
フル桁入力されれば大丈夫なのですが、1234だけの入力だと-12-34と右詰になってしまいます。
これを12-34-と左詰で返すような書式の設定の仕方を探しています。

0104デフォルトの名無しさん

NGNG

正規表現で|あたりを使ってやったら？

0105デフォルトの名無しさん

NGNG

整形済み文字列をTextBox自身が扱わないなら、整形は呼出側が処理すべきだよ。

書式指定文字列からstring.Formatの引数の配列を無理矢理作ってしまって整形させるコード。

Imports System.Text.RegularExpressions 'コードの先頭で宣言

Private Function DoFormat(ByVal txt As string, ByVal fmt As string) As String
Dim i As Integer, match As Match, txts As New ArrayList(), digit As Integer = 0
Dim matches As MatchCollection = Regex.Matches(fmt, "{\d+,-?(?<len>\d+)(:.|)}")
For i = 0 To matches.Count - 1
If txt.Length < digit Then
txts.Add("")
Else
Dim length As Integer = Integer.Parse(matches(i).Groups("len").Value)
If txt.length < (digit + length) Or i = matches.Count - 1 Then
txts.Add(txt.Substring(digit))
Else
txts.Add(txt.Substring(digit, length))
End If
digit += length
End If
Next
Return string.Format(fmt, txts.ToArray())
End Function

010690

NGNG

>>105
俺が実現したい事をあっさりと・・・orz
本当にありがとうございます。正規表現に行き着き勉強を始めたところでした。
ソース解析させていただきます。

010784

NGNG

>>83=>>85
ちゃうちゃう。そのページに書いてる例では自分でボタンの
インスタンス化やらプロパティの設定やらやっててメンド臭いでしょ。
デザイナでフツーにボタン（仮にButton1）を作っておいて、
フォームの初期化時に
　　testButtons(1) = Button1
って風に代入しちゃうの。この方が作るのはラク。

0108デフォルトの名無しさん

NGNG

>>107
デザイナで作って出来たソースをコピペしたほうが。。。。

010983

NGNG

>>107
ああ、そのページはサンプルが３種類あるんで、その２番目って
意味で書いてたんですよ。事前に作ったボタンをForm1_Loadで
配列にひとつずつ読み込んでるやつ。

いまのところ問題なく動いているようなんで、この方法で続けて
みます。

もうひとつ難点がでたんですが、.NETではForm1_Loadは使わず
にコンストラクタでやりなさいって言われたんだけど、用意して
ある初期化ボタンを押すために、Buttonの名前_PerformeClickっ
て記述しても動作してないっぽいんですよ。変数クリアしかやっ
てないんで、宣言時に規定値を明示してお茶を濁してますけど。

0110107

NGNG

>>109
すまん、よく見てなかった。。。ま、いっかｗ
おいらは客先指定で VB.net をにわかに使ってるだけなんで専門で
やってるヒトに見せれば >>108 さんみたくご指摘の点は多いかも。
どーもMSの開発環境って、デザイナが吐いたコードをいじると
壊れるイメージがあるもんで。。。動いてるものはいじりたくないんで。。。

もうひとつのモンダイについてだけれど、とりあえず動いてれば
おっけーな考えなんで、なにも答えられないっす。。。

0111デフォルトの名無しさん

NGNG

>109
　Handlesを調べてみよ。
　このプロシージャは、「どのオブジェクトのどのイベントで呼び出すのだ」と
言う宣言(関連付け)をしないとイベントプロシージャにならないからね。

　VB6.0以前やAccess VBAに慣れていると踏む地雷の典型だが。

0112デフォルトの名無しさん

NGNG

　いや、意味が違ったのねスマン。(111はNG)

　コンストラクタでやるべき事と、Form_Loadでやるべき事は
異なりますね。
　変数の初期化は通常コンストラクタですが。

>110
　デザイナが書いたコードを弄ると壊れるのは意味を理解しないで
弄るから。(他人が書いたコードでも同じことが言えるでしょう?)

0113デフォルトの名無しさん

NGNG

VB.NETで印刷時にプリンタの用紙サイズをソフト開発者側から
はがきサイズに設定しておくにはどうすればいいんでしょうか？
どなたか教えていただけないでしょうか？よろしくお願いします。

0114デフォルトの名無しさん

NGNG

メインフォームをメニュー画面にして、選択するとメニューは最小化し、
新たにフォームを表示することは出来るのですが、そのフォームを閉じる際に
メニューのフォームを最大化するための記述がわかりません。

Dim f As New Menu
f.WindowState = FormWindowState.Maximized

Me.Close()
では駄目でした。初心者な質問ですいません（；_；）

0115デフォルトの名無しさん

NGNG

System.Web.Mail.SmtpMailクラスを使わずに
ソケットでメール送信したい。
どこかサンプルとか参考になるサイトがあったら
教えてください。

0116デフォルトの名無しさん

NGNG

>>113
やったこと無いから勘で答えてみる。
『System.Drawing.Printing.PaperSize』

>>114
よくわかりません。
なにがしたいのか、なにがやりたいのか・・・・

DoEventsあたりを使えば出来そうな気もしますが。

>>115
『BATファイル』『SHELL』『DOSコマンド』
がんばれ。

0117デフォルトの名無しさん

NGNG

114の問題は、既にあるメインフォームではなく、もう一つ新しいメインフォームを作ってしまってる事だと思われる。
//しかしMenuってクラス名はわかりにくいな。

0118114

NGNG

すいません。書き方がおかしいですね；ｗ；

メニューのフォームと給料というフォームがあって、実行すると
最初にメニューのフォームが表れそのメニューのフォームから給料というボタンを押すと
給料フォームが開くようにするイベントなのですが、

その際、メニューのフォームは最小化し、EnabledにはFalseに設定して選択できないようにしたいのです。
そして、給料のフォームを閉じる際には最初のメニューのフォームのEnabledにTrueを設定し、下のように表示したいのです。

モーダルフォームにすれば似たようなことができるのですが、できればメニューは表示させずにタクスバーに格納したいのです。
よろしくお願いします；ｗ；

0119デフォルトの名無しさん

NGNG

メニュー画面
ボタンクリックイベント内

　　frm給与.Owner = Me '(親フォームをメニューフォームにする)
　　frm給与.Show '（給与フォーム表示）
　　Me.WindowState = FormWindowState.Minimized '(メニューを最小化にする)

一方、給与画面

フォームのClosedイベント内で
Private Sub frm給与_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
　　Me.Owner.WindowState = FormWindowState.Normal()　'（メニューフォーム表示)
End Sub

簡単に言うと開く先のフォームで親フォームを表示させてるだけ

0120デフォルトの名無しさん

NGNG

>>118
俺にはその説明でもわからんのだが？

ＡとＢという二つのフォームがあって
ＡからＢというフォームを起動させた時、Ａのフォームを最小化してイベントを受け付けなくさせ
Ｂというフォームを閉じた時、Ａというフォームを最大化してイベントを受け付けるようにするってだけか？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim B As New B_Form
Me.WindowState = FormWindowState.Minimized
B.WindowState = FormWindowState.Maximized
B.TopMost = True
B.ShowDialog()
Me.WindowState = FormWindowState.Maximized
Me.Activate()
End Sub

つまり、これじゃダメだってことだよな？

0121120

NGNG

俺って頭悪いな。
「TopMost = True」より、BringToFront()の方がマシじゃん・・・＿|￣|○

0122114

NGNG

>>199さん200さんありがとうございます♪
200さんのように説明すればよかったですね（＊д＊）

199さんのようにA(メニュー)のフォームをB(給料)の親フォームとしてするのはナイスですね♪
自分はプログラム初心者なので200さんの記述の分でできるかどうか分からないのですけど、
Ｂというフォームを閉じたときにＡのフォームのWindowStateにMaximizedを設定できるのでしょうか？

自分が試したときは（200さんのような記述ではないのですけど）できなかったもので・・・
今職場で空いた時間に掲示板見ているので帰って試してみますね♪

0123114

NGNG

200さんじゃなくて120さんですね；ｗ；
すいませんm(_ _)m

0124114

NGNG

またまたすいません；ｗ；
実際に試せたので199さんを参考に試しで作ってみました。

Ａのフォーム
Private Sub btn1_Click(略)
Dim f As New Ａ　'宣言
f.Owner = Me　　 '親フォーム宣言
Me.WindowState = FormWindowState.Minimized　　'アクティブなフォームのサイズを最小にする
Me.Enabled = False　　　　　　　　　　　　　　'ユーザーの受付を不可にする
f.Show()　　　　　　　　　　　　　　　　　　　'フォームＢを表示する
End Sub

Ｂのフォーム
Private Sub btn2_Click(略)

Me.Owner.WindowState = FormWindowState.Normal　　'親フォームのサイズを通常に戻す
Me.Owner.Enabled = True　　　　　　　　　　　　　'ユーザーの受付を可能にする
Me.Close()　　　　　　　　　　　　　　　　　　　 'フォームを閉じる
End Sub

のように記述したのですけれど、子フォームから親フォームに移るとき（Ｂを閉じてＡを通常サイズに戻す）は
成功したのですが、Ａのフォームを最小化してＢのフォームを表示させるときに
Ｂのフォームは表示できるのですが、最小化された状態で出てきます。

Bのフォームロードイベントに通常サイズに戻すように記述してもうまくいきませんでした。
よい方法ないでしょうか？聞いてばかりですいません；ｗ；

0125デフォルトの名無しさん

NGNG

>>114
落ち着け。

0126100

NGNG

リッチテキストのテキスト開始点の座標って取得できますか？
｜　←これの座標です

もしくは開始点の隣の文字座標でもいいんですが・・・

0127デフォルトの名無しさん

NGNG

>>126
SelStartってリッチテキストでも使えたような。

0128100

NGNG

>>127
それでできました。
ありがとうございます

0129デフォルトの名無しさん

NGNG

>>124
その問いかけに対する答えはすでに出ている。

0130114

NGNG

色々試してみてBのフォームを開けるときにＡのフォームで処理せずに、
ＢのＢ_Loadプロシージャ内でＡのフォームのサイズをNomalにするとうまくいきました＾＾

みなさんありがとうございました♪

0131デフォルトの名無しさん

NGNG

入力支援のようなものを作っているんですが、、

フォーム上にリッチテキストを配置して下部にDock
リッチテキストを親としたリストボックスを配置
「<」が入力された時にリストをその行の１つ下の行に表示

上記の場合、下部の行にきたときリストが見づらいので、その場合は上に表示
したいと思っているですが、なかなかうまくいきません。

つまりフォーム内にリストが必ず見える状態にしたいんですが、何かいい方法はありませんか？

0132デフォルトの名無しさん

NGNG

>>131
質問の仕方に問題ないか？何を聞きたいのかサッパリ理解できない。
何をやりたいかよりも何を聞きたいかを書こう。
読み手の立場に立って、読み手に理解されるかどうかを意識しながら
文書を推敲しよう。

って、こういうことは中学卒業までにマスターしておくべきだろう。。

0133デフォルトの名無しさん

NGNG

>>131
DesktopBounds とかで位置関係を判定しつつリストボックスの位置を変えればいいんじゃない？

0134デフォルトの名無しさん

NGNG

>>130
アクティブの時にBringToFrontで前面に出した方が、、、と思わなくもない。

>>131
「<」はキーが押された時にってなら、KeyPressあたりだろうなー。

0135デフォルトの名無しさん

NGNG

REALBasicってどうなのよ？
キャンペーンで半額らしいので良けりゃ買ってみようかと思うんだが

・REALbasic 5.5 Standard for Windows 日本語版ライセンス
ttps://secure.domain.ne.jp/asishop/soft/rb/camp/26000442.html

・REALbasic 5.5 Professional for Windows 日本語版ライセンス
ttps://secure.domain.ne.jp/asishop/soft/rb/camp/26000443.html

0136デフォルトの名無しさん

NGNG

なぜ此処で聞く

0137デフォルトの名無しさん

NGNG

>って、こういうことは中学卒業までにマスターしておくべきだろう。

読解力の方もね。

0138デフォルトの名無しさん

NGNG

>>137
そんな逃げ道残したようなすかしっ屁みたいな言い方しか出来ないのか。
チキンなお方。いやチキンというより頭悪いのな。

間違ってると思うなら堂々と反論したら？
ま、君の知能じゃ無理だよねえ。

0139デフォルトの名無しさん

NGNG

インターネット上の情報を取り込んで、
それをACCESSに登録する、というものを作りたいのですが、
「インターネット上の情報を取り込む」やり方がわかりません。
調べる上でのとっかかりになるキーワードでもいいので教えてください。

0140デフォルトの名無しさん

NGNG

System.Net名前空間

0141デフォルトの名無しさん

NGNG

>>140
ありがとうございます。調べてみます。

0142139

NGNG

もしかしてWindows XP Home Editionではできないですか？

0143デフォルトの名無しさん

NGNG

それはSystem.Web名前空間の一部(ASP.NETに関わる部分)。

0144デフォルトの名無しさん

NGNG

>>142
インターネットのどの系統の情報かさっぱり。

ttp://dobon.net/vb/dotnet/internet/
この辺で、自分で調べて勉強しなおして来い。

0145デフォルトの名無しさん

NGNG

>>142
HomeじゃIISうごかんのじゃないかね？

0146139

NGNG

取得したいのは、ホームページに記載されている情報です。

勉強して出直してきます。
ありがとうございました。

0147noname

NGNG

VB.NETのADO.NETでmdbとかに複数ユーザがアクセスする際、
エラーが出ないようにする方法を知りたいのですが、
質問はここでよろしいのでしょうか。データベース板には
ADO.NETスレがなかったので。。。汗

以下の手順を踏んでもエラーがでないようにしたいです。
１．ユーザＡがプログラムを起動し、サーバのデータを参照する。
２．ユーザＢがプログラムを起動し、サーバのデータを参照する。
３．ユーザＢがデータを書き換え、更新する。
４．ユーザＡがデータを書き換え、更新する。

４の時、Ａが更新を行おうとする際、サーバのデータが
１で読み込んだのと異なっているのが原因でエラーが起きて
しまいます。。
後で更新処理を行ったデータが最新のものになるように
したい（ユーザＡのデータ更新）のですが、どうしたら
よろしいでしょうか。よろしくお願いいたします。

0148デフォルトの名無しさん

NGNG

BeginTransaction

0149100

NGNG

リッチテキストで指定行の先頭文字ってどーやったら取得できますか？

0150デフォルトの名無しさん

NGNG

RichTextBox1.Lines(index).Chars(0)

0151デフォルトの名無しさん

NGNG

すべてのユーザー名を取得したくて
Public Const FILTER_NORMAL_ACCOUNT = &H2&
Public Structure USER_INFO_0
Dim usri0_name As Integer
End Structure
Public Declare Function NetUserEnum Lib "Netapi32.dll" (ByVal servername As String, ByVal level As Integer, _
ByVal filter As Integer, ByVal bufptr As Object, ByVal prefmaxlen As Integer, ByVal entriesread As Integer, ByVal totalentries As Integer, ByVal resume_handle As Integer) As Integer

とModuleで宣言して

Dim lngEntriesRead As Integer
Dim lngTotalEntries As Integer
Dim pUserInfo As Integer
Dim typUserInfo() As USER_INFO_0
Dim bytBuf() As Byte
Dim strUser As String

lngRet = NetUserEnum(vbNullString, 0, FILTER_NORMAL_ACCOUNT, ＿
pUserInfo, 10240, lngEntriesRead, lngTotalEntries, 0)

としてみたところ'System.NullReferenceException' のハンドルされていない例外が発生しました。
追加情報 : オブジェクト参照がオブジェクトインスタンスに設定されていません。

というエラーがでました。誰かどうすればいいか分かる方教えてください

0152デフォルトの名無しさん

NGNG

PictureBox1.imageを何も表示しない（PB1の背景色だけが見える）ように設定するにはどうすればいいのでしょうか。

0153デフォルトの名無しさん

NGNG

>>152
PictureBox1.image = nothing

0154152

NGNG

>>153
即答ありがとうございます！

0155デフォルトの名無しさん

NGNG

>>151
WMIで取得するというのはどうか。

'参照の追加でSystem.Management.dllを追加
Imports System.Management

Dim mc As New ManagementClass("Win32_UserAccount")
Dim mo As ManagementObject, prop As PropertyData
For Each mo In mc.GetInstances()
Console.WriteLine(mo.Item("Name"))
Next

0156デフォルトの名無しさん

NGNG

>>155
できた！できました。
本当にありがとうございます

0157デフォルトの名無しさん

NGNG

リストビューのサブアイテムに文字入れてやりたいのですがどうすればいいのでしょうか。

0158デフォルトの名無しさん

NGNG

ヘルプに載ってる。

0159デフォルトの名無しさん

NGNG

>>158
載ってました。
すみません。

0160デフォルトの名無しさん

NGNG

>159
どんまい

0161フナ太郎

NGNG

．NET tipsとか行ったら、C#のtipsしかなくてムカついた、ってこと
ないですか？

0162デフォルトの名無しさん

NGNG

これ使え

ttp://authors.aspalliance.com/aldotnet/examples/translate.aspx

0163デフォルトの名無しさん

NGNG

テキストボックスを拡張して、フォーカスが移ると境界線が変わるものを作成しています。
以下のようなイベントにすると、テキストボックス内でTabを押したときに、フォーカスが次のコントロールに移りません。
Private Sub MyTextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Enter
Me.BorderStyle = BorderStyle.Fixed3D
End Sub
Private Sub MyTextBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave
Me.BorderStyle = BorderStyle.FixedSingle
End Sub

ところが、境界線を変更する命令をなくすと、Tabでフォーカスが移ります。
Private Sub MyTextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Enter
Me.BorderStyle = BorderStyle.Fixed3D
End Sub
Private Sub MyTextBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave
' Me.BorderStyle = BorderStyle.FixedSingle
End Sub

境界線を変更しつつTabでフォーカスを移すには、どうしたらいいでしょうか。

0164ケン

NGNG

directdrawのように、裏画面で背景やキャラクターを合成して、表画面に転送するといったようなことをdirectdrawを参照しないで、GDI+だけで作成することはできますか？

0165デフォルトの名無しさん

NGNG

>>163
BorderStyleを変更するとフォーカスが当たりなおされるみたいだね。
BorderStyleを書き換える前後でフォーカスが当たらないようにEnabledをFalse -> TrueにすればOK。

>>164
できるよ。
Bitmapを作って書き込んで、最終的にそのBitmapを表に描画。

0166デフォルトの名無しさん

NGNG

以下のようなプログラムを書きました

フォームにファイルをドラッグアンドドロップ
→ドロップされたファイルの名前をリストボックスに表示
→ファイルを外部プログラムで処理（その際処理が終わるまで待つ）

ソース

Private Sub Form1_DragDrop･･･
Dim filename As String = e.Data.GetData(DataFormats.FileDrop, False)
ListBox1.Items.Add(filename)
Shell("hogehoge.exe " & filename, AppWinStyle.Hide, True)
End Sub

ところがこれだと、hogehoge.exeの処理が終わるまで（けっこう長い･･･）、
ファイル名がリストボックスに表示されません。

おそらく外部処理の終了まで待つように設定しているからなのですが、
外部処理はいくつかあり、順番を守らないといけないため、
この設定は変えられそうにありません。

リストボックスに表示されてから処理に移るようにするには、
どのようにしたら良いのでしょうか？

0167デフォルトの名無しさん

NGNG

Shellを実行する前にListBox1.Refresh()

0168166

NGNG

なんと簡単な・・・orz

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

0169デフォルトの名無しさん

NGNG

DoEventsとか、スレッドとかそっち方面でもいけそうだね。

0170163

NGNG

>>165
以下のように書いたら直りました。
Me.Enabled = False
BorderStyle = BorderStyle.FixedSingle
Me.Enabled = True

が、今度はShift+Tabを押したときの動作がおかしいです。
フォーカスが1つ前のコントロールに移らず、1つ後に移っています。
おそらくコントロールを無効にしたときに、すぐに次のコントロールにフォーカスが移るので、
そこで動作がおかしくなるのだと思います。
これを直すにはどのようにすればいいでしょうか。

0171デフォルトの名無しさん

NGNG

>>170
なんか165が言ってることと全然違うことやってるみたいだけど。。

しかし、こういうのは意図したとおり動作しない原因を考えることも
もちろん重要だけど、それ以上にいろいろ試行錯誤することが重要だと思う。

人に質問する前に、例えばEnter/LeaveじゃなくてGotFocus/LostFocusを使うとか
SelectNextControlメソッドを試すとか、やることあるでしょ？

0172デフォルトの名無しさん

NGNG

>>171
聞いて来たらすぐに答える俺らの対応も悪いかもね。

0173デフォルトの名無しさん

NGNG

どこで質問したものか迷って、
スレ違いとは思いますが、質問させてください。

今、Visual Stadio .NET 2002、 .NET Framework1.0 の環境で、
これをFramework1.1にしようと思ったのですが、これって出来ないのでしょうか？

0174デフォルトの名無しさん

NGNG

>172
しかもへぼい回答だしな。お前の場合。

0175デフォルトの名無しさん

NGNG

>173
実際できなかったのかどうかをまず書けよ。

0176デフォルトの名無しさん

NGNG

>>174
エスパーか？

0177173

NGNG

>>175
自分でやった限りではできませんでした。
マイクロソフトのダウンロードサイトから再頒布可能パッケージやらSDKやら落としましたが。

0178デフォルトの名無しさん

NGNG

>>177
WindowsUpdateで常に最新の状態を保ってるなら、すでにFramework1.1の状態。

個別で落としてきたって言っても、落としただけじゃ駄目だよな。インストールしないとよ。

0179デフォルトの名無しさん

NGNG

質問の意図は、VS2002で.NET1.1を扱えないかということではないのかな。
それなら一言、無理。

0180173

NGNG

>>178、>>179
レスありがとうございます。

＞質問の意図は、VS2002で.NET1.1を扱えないかということではないのかな。
そのとおりです。
無理なのですか・・・

0181デフォルトの名無しさん

NGNG

>>180
SharpDevelopでも入れたら？
あんまり活気ないけれど、専用スレもあることだし。

0182デフォルトの名無しさん

NGNG

音楽を再生するMMControlについて質問です。
MIDIデータを再生し、一時停止(Pause)した後、再びその位置から再生すると、何故か音色が変わってしまいます。
使った事のある方なら殆どの方がきっと「あれ？」と思うところだと思います。

どうもMMControlでは、頭から再生しようとした場合しか音色設定を読み込んでない気がするのですが、
何か解決方法は無いでしょうか。

0183デフォルトの名無しさん

NGNG

リストボックスにフォーカスをうつすときは
Listbox1.focus()
で、できるんですがリストの項目自体にフォーカスを移すことってできますか？

0184デフォルトの名無しさん

NGNG

セレクトすりゃ良いんで無い？

0185デフォルトの名無しさん

NGNG

>>184
すまん、そだった（;´Д｀）
サンクス

0186デフォルトの名無しさん

NGNG

>179
えー、そうなの？なんでなんで？

0187デフォルトの名無しさん

NGNG

2002で作成したアプリケーションを.NET Framework 1.1上で動かすことはできる

ただ、コード補完等の恩恵を受けられないから新しく加わった機能を使うことが結果的にできない
既存の機能にバグがあって避けたいなら有効な手段かもしれない

やり方は・・・忘れた（ぉ
exeファイルと一緒になんかファイルを置くだけだった希ガス

0188デフォルトの名無しさん

NGNG

あぁ、あった

http://www.microsoft.com/japan/msdn/library/ja/cpguide/html/cpcontargetingnetframeworkversion.asp?frame=true

これを使うと荒業ながら、1.1上でプログラムを"動かすことは"できる
所詮、1.1の新機能を使うことはできないからあんま意味無いかもしれないけどね

0189デフォルトの名無しさん

NGNG

よくわからないのですが、

2002 → 1.0
2003 → 1.1

なの？

0190デフォルトの名無しさん

NGNG

>>189
そう。
ついでに
2005 → 2.0

0191デフォルトの名無しさん

NGNG

Button コントロールを継承した色付きボタンを作成中なのですが、
OnPaint を上書きする以外の方法でフォーカス時の枠を表示させない方法は
ないですか？

OnPaint 乗っ取って自前の描画部分作ってたら泣きそうになりました。
素の　C++ で Windows アプリ書く人はえらいと思いつつ。

0192デフォルトの名無しさん

NGNG

Buttonの描画ごときでがたがた言うな。

0193デフォルトの名無しさん

NGNG

リッチテキストのスクロールを一行単位のスクロールにしたいんですが、どうすればできますか？

0194デフォルトの名無しさん

NGNG

>>193
マウスのプロパティでホイールのスクロールを1行に

0195デフォルトの名無しさん

NGNG

Dim A as String

で、このAに

LoadEstimate1,"saved_estimate1"
↑
のような、""を含んだ文字列を入れたいのですが

A　=　"LoadEstimate1,"saved_estimate1""

としても入れることができません。どうしたらよいのでしょう？

0196デフォルトの名無しさん

NGNG

"の中に書く"は""

0197デフォルトの名無しさん

NGNG

質問させてください。
データセットのfindメソッドで取得した特定のレコードのpositionを
取得したいんですが、どうすればいいでしょうか？

具体的にやりたいことは、テキストボックスにキーを入力すると
全レコードが表示されているグリッド上で
自動的にそのキーのレコードまで飛んで、選択状態になるようにすることです。
よろしくお願いします。

0198デフォルトの名無しさん

NGNG

VB.NETでメールの送受信をやろうとしています。
送信にはMailMessageクラスやSmtpMailクラスを使えばよい事が判ったのですが、
メールの受信をやってくれそうなクラスが見つかりません。
もしかして.NETのライブラリには受信クラスが無いんでしょうか？

0199デフォルトの名無しさん

NGNG

ないよ
がんがって自前でSocketをこねこね実装してくれ。

CodeProjectとかGotDotNetとかに転がってると思うけど。

0200デフォルトの名無しさん

NGNG

>>198
そうみたいだね。
ttp://dobon.net/vb/dotnet/internet/receivepop3mail.html

0201デフォルトの名無しさん

NGNG

>>199
GotDotNetでCSLMailっていうライブラリを見つけたんですが、これは駄目でした。
よくわかりませんがメールをダウンロードする途中でコケます。

>>200
リンク先で紹介されていたBASP21を使ってみました。
とりあえずファイルへの保存とヘッダーごとの読み取りはうまくいったのでこれを
使ってみようと思います。

>>199,200
ありがとうございました。

0202デフォルトの名無しさん

NGNG

Windows FormからFTPを使いたいのですが、なにか良いｸﾗｽかｺﾝﾎﾟｰﾈﾝﾄは無いでしょうか？
自作するほどｽｷﾙありません・・・・

今↓を使っているのですが、いまいち使い方がわからんです・・・
http://www.componentspot.com/products/review.aspx?id=6&MasterCat=0&Categories=2000

0203デフォルトの名無しさん

NGNG

ttp://gotdotnet.com/community/usersamples/Default.aspx?query=FTP

0204デフォルトの名無しさん

NGNG

>>203
Thanks！！

0205デフォルトの名無しさん

NGNG

Windowsフォームでテキストボックスが１つあるのですが、
例えばテキストボックスにフォーカスが無い状態で
キーが押されたらテキストボックスに押されたキーを入力するには
どうすれば良いのでしょうか？

KeyPreviewをTrueにして、テキストボックスにフォーカスしても
キー値は入力されません。

0206デフォルトの名無しさん

NGNG

Form.KeyPressイベントで入力文字をテキストボックスに追加する。

0207デフォルトの名無しさん

NGNG

ﾄﾞﾄﾈﾄってネイティブコンパイラついてますか？

0208デフォルトの名無しさん

NGNG

>>207
ネイティブコンパイラってCPU命令に変えてくれるコンパイラのことでいいんだよね？
それなら無い。VB.NETのコンパイラはCLRっていう中間言語に変えるコンパイラ。

0209デフォルトの名無しさん

NGNG

>>207
.NETのランタイムにはJITコンパイラとか事前コンパイル用コンパイラとかついてるけど、
.NETランタイム無しで動作するネイティブのバイナリを作る機能はどこにも無い。

0210デフォルトの名無しさん

NGNG

海外の市販ソフトにはアセンブリをネイティブな実行ファイルにするソフトもあったりする。

0211 ２０７

NGNG

＞＞２０８
うーーーん残念です
ドトネトに期待していたのですが

＞＞２０９
JIT？あとで調べてみますが最適化かなにかででしょうか

＞＞２１０
アセンブリは中間コードのことですね？

VBから乗り換えるきがしない　OｒZ

0212デフォルトの名無しさん

NGNG

いままでVBランタイムが必要だったのが、その代わりに.NET Frameworkが必要になるだけじゃん。

0213デフォルトの名無しさん

NGNG

ngen(CLR Native Image Generator)コマンドがあるけど、
ネイティブコードコンパイラとは程遠いです。
起動時のモッサリ感がなくなる程度。
あとC++で /clr を付けなきゃネイティブコードをはきます（笑）

0214デフォルトの名無しさん

NGNG

>>211
VBよりは言語仕様が大幅に強化されたってとこかな＞VB.NET
まぁ、「.NETになって何が良くなったか？」なんてのはいっぱい記事になってるから
適当な雑誌のバックナンバーでも漁ってみるといいよ

その上で乗り換えるかどうか考えたほうがいい

0215デフォルトの名無しさん

NGNG

VS2003を買ったんですけど、うちのPCはwinxp HOMEエディションでした・・・。
ウェブアプリの勉強をしたいのですが自分の環境ではウェブアプリ
ケーションは作れないのでしょうか・

0216デフォルトの名無しさん

NGNG

WebMatrixというのを調べてみな。

0217デフォルトの名無しさん

NGNG

すみません。
質問なんですが、
10進数→2進数に変換する関数ってあるのでしょうか？

10進数→16進数や10進数→8進数に変換する関数だったら
見つけたのですが…。

0218デフォルトの名無しさん

NGNG

教えて君で申し訳ございませんが、神様助けてください。
MSNメッセンジャーのアラートのような動きのするフォームを作れという客先からの無茶な要求に泣いております。
TCP通信にてメッセージが流れてくれば、そのWinsock経由でデータ取得し表示するform1を作成しました。
で、MSNメッセンジャーのアラーとのように約５秒間ポップアップしてポップアップしたform1クローズなのですが、
クローズする前に次のデーターがWinsock経由で流れてくればform1を新たに開いて表示しております。
（つまり、画面にはForm1が複数個表示されています。）
しかし、クローズ処理をしたときに当然ながらform1.closeだと表示しているすべてのフォームがクローズ
してしまいます。で、複数個オープンした場合、指定したフォームのみ閉じるということはできないのでしょうか。
そもそも、私のform1だけ使うという考え方に無茶があるような・・・（泣）
神様助けてください！

Private Sub Form1_Load
Me.Location = New Point(0, 850)
Me.Show()
Wait(5000)
Me.Close()
End Sub

Winsockからデータが来たときには
Dim f1 As New Form1()
f1.Location = New Point(x, y)
f1.Show()
としております。

0219デフォルトの名無しさん

NGNG

>>217
System.Convert.ToString(String, Integer)

0220デフォルトの名無しさん

NGNG

System.Convert.ToString(Integer, Integer)
だった。

0221デフォルトの名無しさん

NGNG

>>218
なんだそのコード？
Loadイベントの中でCloseは普通呼ばんだろ。

0222デフォルトの名無しさん

NGNG

>>220
ありがとうございます。助かりました。
早速使ってみます。

0223デフォルトの名無しさん

NGNG

>>221
すいません、別件でデバッグしていた名残が（汗
Me.Close()は今はありません。失礼しました。

0224218

NGNG

あぁ～ついでに、Wait(5000)も無い。
駄目だ俺・・・焦りすぎ（泣）
ちなみに、Show時にラベルに表示するプログラム部とかは省略しております。

0225デフォルトの名無しさん

NGNG

そもそも仕様がよくわからん。
メインフォームがあって、でソケットを受け取った時にForm1が表示されるって訳じゃないのか。
初めにソケットを受け取るものは何なんだ？
タスクトレイにでもしまってるとか？　ならその部分のコードを示せ。

0226218

NGNG

>>225さん
すいません、そうです。タスクにしまう予定です。でも、まだ作っておりません。
とりあえず、一つのフォームを何個もオープンさせて、それぞれの開いたフォームを個別制御できるの？
ってところを検証してみようとしている段階なので・・・
って、それだと、Form_LoadにMe.show()あること自体変ですね。
やっぱ、だめだ俺（泣）
そもそも、同じフォームを何個もオープンさせておいて、
それぞれ開いた同じフォームを個別で制御するにはどうしたら良いのでしょうか。

0227デフォルトの名無しさん

NGNG

>>226
ユーザーインターフェースを持たないnothifyiconのみの
フォームでそれぞれのFormを制御してみたら？

0228デフォルトの名無しさん

NGNG

>>218
フォームじゃなくて、NotificationWindowを使ったら？
ttp://msdn.microsoft.com/vbasic/default.aspx?pull=/library/en-us/dv_vstechart/html/vbpowerpack.asp

0229218

NGNG

>>227さん
ありがとうございます。
ユーザーインターフェースを持たないnothifyiconのみのフォーム
ってどういったフォームですか？申し訳ないのですが教えて頂けますでしょうか。
本当にすいません・・・

0230デフォルトの名無しさん

NGNG

まあまず自分でタスクトレイ部分を実装してみようや。

0231218

NGNG

>>228さん
おぉ～！！　ありがとうございます。
参照させていただきます。

>>230さん
そうですね。まずはそれをやってみます。
スレの神様たち本当にありがとうございました。
とりあえず、1つずつがんばってやっています。

0232デフォルトの名無しさん

NGNG

OS:Win2000 / VB.NET2003

While sr.Peek() > -1
txts = sr.ReadLine()
txt2 = txts.Split("<"c)
'txt2(1) = txts
ListBox1.Items.Add(txt2(1))
tlist(cnts) = txts
cnts += 1
End While

というソースの「tlist(cnts) = txts」の部分で下のエラーがでてしまいます。どうすればいいんでしょうか？

0233デフォルトの名無しさん

NGNG

あ、投稿が切れてしまった。

'System.NullReferenceException' のハンドルされていない例外が test.exe で発生しました。

追加情報 : オブジェクト参照がオブジェクトインスタンスに設定されていません。

です。よろしくお願いします。

0234デフォルトの名無しさん

NGNG

ぬるぽ

0235デフォルトの名無しさん

NGNG

>>232
Redim tlist(cnts)
tlist(cnts) = txts

0236232

NGNG

>>235
ありがとうございます！

0237232

NGNG

再び質問です。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f1 As Form1
Dim f4 As Form4
f4.MdiParent = f1
f4.Show()
End Sub

今度はこれなんですが、
追加情報 : オブジェクト参照がオブジェクトインスタンスに設定されていません。
がでます。よろしくお願いします。

0238232

NGNG

書き忘れです。

呼び出しているのはMDIの子フォームです。

0239デフォルトの名無しさん

NGNG

New

0240232

NGNG

ぐはぁっ

>>２３９
ありがとうございます

0241デフォルトの名無しさん

NGNG

またまたまた質問です。
このようなソースを書いたのですが、帰ってきたテキストが文字化けしてしまいます。
どうすれば解決するでしょうか？検索してもさっぱりわからん＿|￣| .....○

Dim tcpClient As New TcpClient
tcpClient.Connect("ex7.2ch.net", 80)
Dim stream As NetworkStream = tcpClient.GetStream
Dim bytsend As Byte() = System.Text.Encoding.ASCII.GetBytes("GET /morningcoffee/dat/" & msg & " HTTP/1.0" + vbCrLf + "Host: ex7.2ch.net" + vbCrLf + "User-Agent: Monazilla/1.00 test" + vbCrLf + vbCrLf)
stream.Write(bytsend, 0, bytsend.Length)
Dim bytread(4096) As Byte
Dim strtext As String
Dim intlength As Integer
strtext = ""
Do
intlength = stream.Read(bytread, 0, bytread.Length)
strtext += System.Text.Encoding.ASCII.GetString(bytread)
'strtext += Convert.ToString(bytread)
If intlength < bytread.Length Then
Exit Do
End If
tcpClient.Close()

Dim sw As New StreamWriter(Environment.CurrentDirectory & "\log\" & msg, False, _
System.Text.Encoding.GetEncoding(932))
sw.Write(strtext)
sw.Close()
MsgBox(strtext)
Loop

0242デフォルトの名無しさん

NGNG

2chのログが何でEncoding.ASCIIなんだ？ 0x7Fまでしか処理できないぞ。

0243デフォルトの名無しさん

NGNG

>>242
どうやればいいんでしょうか？
「VisualBasic.NET逆引き大全500の極意」って本の例文をみつつ、やったので・・・

0244デフォルトの名無しさん

NGNG

そんなのはこんなとこで聞いてるより　VB.NET Encoding　でぐぐれ。
2chのエンコーディングってどれですかとか聞くより自分で試せ。

0245デフォルトの名無しさん

NGNG

>>244
うまくいきました。ありがとうです。

やっぱサンプル通りはだめっすね

0246デフォルトの名無しさん

NGNG

>>245
何がいけなかったのかを理解しないとそのサンプルソースの作者に失礼だよ。

0247デフォルトの名無しさん

NGNG

>>245
サンプル通りが駄目じゃなくて、サンプルのコードを理解してないのが駄目なだけ。

0248デフォルトの名無しさん

NGNG

今度、.NETを勉強し始めようと思うのですが、
VC++6.0とか6.0のverやっていれば、.NETにすんなり移行できるでしょうか？

0249デフォルトの名無しさん

NGNG

全然違うと評判なので、思い立ったが吉日、勉強しようと思ったらさっさと始める。

0250デフォルトの名無しさん

NGNG

>245-247
すいません。自演でした。

0251デフォルトの名無しさん

NGNG

誰も聞いてない。

0252デフォルトの名無しさん

NGNG

>250-251
すいません。自演でした。

0253デフォルトの名無しさん

NGNG

>>249
ｻﾝｸｽ。

0254デフォルトの名無しさん

NGNG

たくさんのプロジェクトを一括でコンパイルする事は
出来ますか？

0255デフォルトの名無しさん

NGNG

まずやってから聞こう。

0256デフォルトの名無しさん

NGNG

>254
ソリューションのビルドではダメ？

0257デフォルトの名無しさん

NGNG

バッチビルドだし。

0258デフォルトの名無しさん

NGNG

>257
ソリューションのビルドでもできるでしょ。

0259デフォルトの名無しさん

NGNG

254です。
>255-258
有難うございます。
バッチビルドで検索したら
Devenvにたどり着きました。
ソリューションの方も試してみます。

0260デフォルトの名無しさん

NGNG

音声の.wmaファイルを出来るだけ手軽に再生する方法はありませんでしょうか？
.mp3と.wavは調べて分かったのですが、.wmaはなんんか見つかりませんです

0261デフォルトの名無しさん

NGNG

VB使って２ｃｈで連投レスできるプログラムって作れないのでしょうか？

0262デフォルトの名無しさん

NGNG

>>260
Managed DirectX9のAudioVideoPlaybackクラス。

0263デフォルトの名無しさん

NGNG

>261
もっと手軽にできると思うけど。何に使いたいの？

0264デフォルトの名無しさん

NGNG

>>263
手動連投で疲れたから自動化出来ないかなあって思って書き込んだだけです
もうこの板から消えますごめんなさい

0265デフォルトの名無しさん

NGNG

>264
いや、別に消えることないよ。連投ってのは具体的にどんな
感じにやるの？同じ投稿を一定間隔で投稿するような感じ？

0266デフォルトの名無しさん

NGNG

>>265
まあ、そんな感じです。要は、スレを埋めるのに必死で手動で書き込んでいるので
一気に自動で梅梅出来ないのかなあって思っただけです。

0267デフォルトの名無しさん

NGNG

プログラムで組むよりこういうのがおすすめ。試してみたら？

ttp://home.att.ne.jp/yellow/town/rockm.htm

0268デフォルトの名無しさん

NGNG

>>267
ありがとうございます。挑戦してみます。

0269デフォルトの名無しさん

NGNG

VBを起動できるのですが、なぜか新しいプロジェクトを作って、Form画面を
開こうとすると、『外部コンポーネントが例外をスローしました。』っていう
、画面がでて、何もできない状態です…　色々やってみたんですが、結局、
解決できずじまいです。どなたかわかる方いたら助けてください(T_T)

0270デフォルトの名無しさん

NGNG

>269
悲惨だな。再インストールしてみたら？

0271デフォルトの名無しさん

NGNG

>>270
やってみたんですけど、できませんでした…。はじめは、さっき言ったエラーじゃなかったんですけど、そのエラーを
直そうと再インストールした結果、今の状態になってしまいました・・・。もうどうしていいか、わからずじまいです。ほかに
いい方法ってないでしょうか？

0272デフォルトの名無しさん

NGNG

OSごと再インストールするのが一番手っ取り早かろうな。

0273デフォルトの名無しさん

NGNG

やっぱり、それしかないですよね。やってみます。ありがとうございます。

0274デフォルトの名無しさん

NGNG

それはVB.NETが割れモノの時に出る症状です。すぐに警察に出頭して下さい。

0275最凶VB厨房

NGNG

>>274
割れ物使ってるの？

0276デフォルトの名無しさん

NGNG

Socketクラスを使用してReceiveをするとき、タイムアウトを
設定したいのですが、どのようにすればよいでしょうか？
よろしくお願いします。

0277デフォルトの名無しさん

NGNG

SetSocketOption辺りか。

0278デフォルトの名無しさん

NGNG

Socket.Selectみたいです。

0279デフォルトの名無しさん

NGNG

>>276
できません。
Socket.Selectにタイムアウトを指定し、タイムアウトしたら処理中断、しなかったら読む、
という感じで頑張ってください。

0280デフォルトの名無しさん

NGNG

すいませんが、どなたか知恵を貸してください。
日付がキーになるレコードテーブルがあって、カレンダーで選択した或る日付の
レコードのみグリッドに表示するようにしようとしていろいろ調べたところ、

http://www.atmarkit.co.jp/fdotnet/dotnettips/129dgfilter/dgfilter.html

に書いてあるやり方で実現できました。

が！これをやると、グリッドをクリックして選択した行の各フィールドを
バインドして表示するのコンボボックス等が反応してくれません。
コンボボックス等のデータソースの設定が怪しそうなので、
いろいろモガいているんですが、なんだかよく分かりませんorz。
いいかげんな説明で申し訳ありませんが、同じような事例をクリアされた方がいましたら
コツを教えてください。宜しくお願いします。

0281デフォルトの名無しさん

NGNG

割れ物って何？

0282デフォルトの名無しさん

NGNG

ぐぐればトップに出る。

0283デフォルトの名無しさん

NGNG

>282
「ワレズ」と同義。

くー、こんどはワレズがわかんねーじゃん

0284デフォルトの名無しさん

NGNG

ぐぐれば４番目に出る。

0285デフォルトの名無しさん

NGNG

ょぅι゛ょのワレズ

0286デフォルトの名無しさん

NGNG

>284
ぐぐった結果が誰でも同じになると思ってる奴発見。

0287デフォルトの名無しさん

NGNG

Dim t As New System.Threading.Thread( _
New System.Threading.ThreadStart( _
AddressOf hoge))

hogeメソッドに引数を渡したいのですが
どうしたらよいでしょうか？

0288デフォルトの名無しさん

NGNG

クラスを自作して、そのプロパティに事前に設定しておく。
ThreadStartにはそのクラスのメソッドを渡す。

0289デフォルトの名無しさん

NGNG

>>288
なるほどー。
ありがとうございます。

0290デフォルトの名無しさん

NGNG

初心者な質問ですみません。
VB6ではフォームにunloadイベントを作るときは
コンボボックスからunloadイベントを選択すれば自動的に
作成されましたが.netの場合はどのようにすればよいでしょうか？
ダブルクリックではloadイベントが作成されますが
同様の手順ではできないでしょうか？

0291デフォルトの名無しさん

NGNG

>>286
反応が速かったから、順番も指定したんだけどな。(´･ω･`)
同一時間帯なら、どのマシンでやってもほぼ同じ検索結果になる
と思ってんだが違うの？

つか、その検索結果ページを斜め読みくらいするだろと。

0292デフォルトの名無しさん

NGNG

>>290
UnloadイベントはClosedイベントに置き換わったと聞いてる。
ttp://www.microsoft.com/japan/msdn/net/vbtransitionguide/chapter5/chapter5_2.asp

0293デフォルトの名無しさん

NGNG

外部プログラムを呼び出してその出力を受け取りたいです。
たとえば、shell( "dir" )とかで、その標準出力を受け取りたいのですが、
どうしたらいいでしょうか。そのプログラムが hoge.exe だとして、
shell( "dir | hoge.exe" ) でconsole.readline　ではうけとれませんでした。。

0294デフォルトの名無しさん

NGNG

API直呼び出しでパイプするしかないんでないの？

0295デフォルトの名無しさん

NGNG

.NETなんだからProcessクラスを使えと。

Imports System.Diagnostics

Dim p As New System.Diagnostics.Process()
With p.StartInfo
.FileName = "ping.exe"
.Arguments = "www.yahoo.com"
.UseShellExecute = False
.RedirectStandardOutput = True
End With
p.Start()
Console.WriteLine(p.StandardOutput.ReadToEnd())

0296デフォルトの名無しさん

NGNG

あの、VBA何で少し違うかもしれないんですけど、
ExcelVBAでアクティブになっているセルの数を知ることってできないですか？

0297デフォルトの名無しさん

NGNG

>>296

65536^2個です。

0298293

NGNG

>>295 ありがとございました。
けど、これだとワイルドカードの展開ができなかったので、
それは自前でやらんといかんですね。。

0299デフォルトの名無しさん

NGNG

ファイル一覧が欲しいならSystem.IO.Directory.GetFiles(String, String)でも使えば？

0300293

NGNG

>>299 いえ、>>293 のdirは本当に例なので、
ファイル一覧がほしいわけではないです。
でもワイルドカードの展開は System.IO.Directory.GetFiles ですね。
ありがとうございます。

0301デフォルトの名無しさん

NGNG

>>296
少しじゃない。全然スレ違い

0302デフォルトの名無しさん

NGNG

VB.NETでの継承について質問です。
C++だと
class test1 : public Base
class test2 : private Base
と指定する事でtest1ではBaseのpublicメソッドにアクセス出来たり
test2のようにするとBaseのpublicメソッドにアクセス出来なかったり
と継承先で指定できますがVB.NETで同等の機能は実現出来るのでしょうか？
また出来る場合はどのようにすればいいのでしょうか？
Public Class test2
Inherits Base
と指定しても class test1 : public Base と同等で、
class test2 : private Baseのようにしたいのですが・・・

0303デフォルトの名無しさん

NGNG

＠IT：連載　改訂版プロフェッショナルVB.NETプログラミング
http://www.atmarkit.co.jp/fdotnet/vb6tonet2/index/index.html

0304最凶VB厨房

NGNG

俺の知る限りでは
private継承はできん。全部暗黙public継承

0305デフォルトの名無しさん

NGNG

>304
お前の知識なんて誰も聞いてねーって。
仕様はどうなってんのか聞いてんのよ。
ヘルプ引くのめんどくさくて代わりに利用してんだから、
迅速に的確な回答をしろよな。お前ら全員。

0306デフォルトの名無しさん

NGNG

今日は釣り日和ですか？

0307デフォルトの名無しさん

NGNG

今日は釣れないでしょう

0308デフォルトの名無しさん

NGNG

冬休みは短めだから、まあいいか。

0309デフォルトの名無しさん

NGNG

ちょっと質問してみたいことがありますのでよろしくお願いします。

私の環境で、VB.NETを使用する際、ソースコードを入力したり
オブジェクトをフォームへ配置する操作やコンパイル、実行する操作は
VB6よりもちょっと遅いなと感じる程度なのですが、
作成したソースコードを一度実行した後、停止し、ソースコードの編集画面に
戻るまでの時間だけが、異様にかかっております。
それも、１０秒程度なら我慢できるのですが、２０～３０程かかります。
今後アプリ開発のことを考えると、とても作業にならない状況であります。

ためしに、タスクマネージャを起動してＣＰＵ使用率などをみても、
全く使用率100％にはなっておりません。また、メモリも十分に空き
があります。

そこで聞いてみたいのですが、皆さんの環境ではこのようなことは起きている
のでしょうか。
どうぞよろしくお願いいたします。

0310デフォルトの名無しさん

NGNG

>>309
VSのIDEの動作は、確かにセロリン+遅いHDみたいなショボイ環境だと激しく重い。

しかし、恐らく>>309はIDEから実行したアプリを終了したときにIDEのエディタが
編集可能になるまでに時間を言っているんだと思うが、30秒もかかるというのは
開発環境のせいとは思いにくい気がする。

アプリの終了処理に問題があるんじゃないの？
それとも、例えばフォームだけの空っぽのアプリでも同じように遅いの？

0311309

NGNG

>>310
フォームだけの空っぽのアプリで試したところ、遅くなることは
ありませんでした。

再度、終了時に重くなるプロジェクトファイルで以下の３つの終了の仕方
を何度か行ってみました。
１．フォームの右上の×印をクリックする。
２．application.exit()　のみを書いたボタンをクリックする。
３．VBの■[停止ボタン]をクリックする。
１と２は遅くなりましたが、３は遅くなることはありませんでした。
どうやらおっしゃるように終了処理に問題があるようです。
調べてみます。スペックを高くすべきかなと本気で思ったりしていた
ところでした。汗
ありがとうございます。

0312デフォルトの名無しさん

NGNG

>310
今時のセロリンは全然遅くないですよ。

0313デフォルトの名無しさん

NGNG

>>312
日本語不自由な人？

0314デフォルトの名無しさん

NGNG

>313
あれ？広い意味ではセロリンも遅いって意味かなと思ったんだけど。

0315デフォルトの名無しさん

NGNG

帯に短したすきに長し、ってことですよ。
物差しを替えれば「短い」ものが「長い」ものになるのは当たり前。

0316デフォルトの名無しさん

NGNG

>315
で？

0317302

NGNG

あけましておめでとう
>>303
ぐぐってみましたけども、どこにも答えが見当たりません。
当方の見落としでしょうか？

>>304
やはり、出来ないのでしょうか？
知る限りとおっしゃれているようなので、まだ可能性はあると言う事ですよね・・・

>>305
いや、ヘルプでもかなり調べてみましたが分からず
八方塞がりでここに書いた次第であります。

0318デフォルトの名無しさん

NGNG

こちら VB.NET 2002 Standerd 、.NET Framework 1.0 SP3　ですが、
System.Web名前空間がありません。
なぜですか？

0319デフォルトの名無しさん

NGNG

>317
お亡くなりになった方がいいですよ。

0320デフォルトの名無しさん

NGNG

ある特定のファイルの状態を監視するようなことって出来ますか。
状態というか変更の監視です。

VB.netでつくったアプリ、これはずーっと起動した状態です
そいでもって別な操作、たとえばWSH(VBS)によって、ある特定のテキストファイルに
何か文字が書き込まれたとか、内容の変更を察知したら、VB.netアプリが
あらかじめ仕込まれたアクションを起こす、みたいにしたいんです。

0321デフォルトの名無しさん

NGNG

またか。過去ログ嫁。

0322デフォルトの名無しさん

NGNG

>>321
すみません
言われて、もしかしたらFAQなのかと慌ててググったら、それっぽいのが
ぞろぞろ出てきました

0323デフォルトの名無しさん

NGNG

>322
そういうこともあるさ。

0324デフォルトの名無しさん

NGNG

http://www.uploda.org/file/uporg27345.jpg
こんなツールチップはVB.NETでは
どうやって表示するのでしょうか
おねがいします

0325最凶VB厨房

NGNG

それと完全に同じにするには標準のコントロールではできない（はず）。

ToolTipコントロールをはりつけて
例えばFormのLoadイベントハンドラ内に
ToolTip1.SetToolTip(CheckBox1, "Winny Utilsのログがなんたらかんたら")
を書いて

Private Sub CheckBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.MouseEnter
ToolTip1.GetToolTip(CheckBox1)
End Sub
こんな感じで呼び出す。

0326デフォルトの名無しさん

NGNG

>325
1行目はともかくその後のサンプルは何の意味があるの？

0327最凶VB厨房

NGNG

すまん。勘違いしてた。GetToolTipはいらんね。
>>326ども

0328最凶VB厨房

NGNG

>>320
FileSystemWatcherクラス

ツールボックス→コンポーネントから貼り付ければ簡単にできそう。

帰ってきたらためしに作ってみるかな。

0329デフォルトの名無しさん

NGNG

>328
お、そんなんあんのか。サンクス

0330最凶VB厨房

NGNG

>>318
参照の追加
System.Web.dll

0331!omikuji

NGNG

最凶ってのはおみくじ機能じゃなくてHN？

0332超初心者

NGNG

ボタンクリックで、htmlファイル
を別のフレームで表示したいんですけど
どうすればよいですか？

0333デフォルトの名無しさん

NGNG

抽象的すぎて貴方の考える状況を想定するのも困難なのでもっと詳しく書け。

0334超初心者

NGNG

単純に、ボタンクリックした時に、
既にHTMLファイルがあるので（index.htmという名前の）
それを、ボタンのあるフォームとは別に、表示させたいんですが
どのようにすれば？
本来は、いろいろ他の処理してからなのですが
とりあえず、ＨＴＭＬファイルを開いて表示させたいんで・・

0335デフォルトの名無しさん

NGNG

>>334
読み書き保存ができる程度の簡易エディタを作ったことある？
テキストボックス付きの新しいフォームを開いて、そこにファイル
の中身を流し込めばいいだけじゃないかと。

0336デフォルトの名無しさん

NGNG

HTMLを表示するだけなのかレンダリングしてなのかも分からないし。

0337超初心者

NGNG

>>その方法がわからないと

0338デフォルトの名無しさん

NGNG

>333
>335
>336

基本を理解できていない人間は初心者の質問にはうまく
回答できないといういい例です。

0339超初心者

NGNG

>>338
回答よろしくです！！

0340デフォルトの名無しさん

NGNG

>>338
じゃ、うまく回答してもらおうか。

0341デフォルトの名無しさん

NGNG

>>339
なあ、もしかしてVB.NETと言うよりASP.NETの質問じゃないのか？

0342超初心者

NGNG

VB.NETですよ

0343デフォルトの名無しさん

NGNG

>340
いや、俺わかんないけど知ったかぶって回答はしないってこと。

0344デフォルトの名無しさん

NGNG

わかんないけど煽ってみたかった。
自分がわからないのは関係ないと思った。
いまも反発してみる。

0345デフォルトの名無しさん

NGNG

>344
誰に何を？

0346デフォルトの名無しさん

NGNG

正月早々ご指導いただきたいのですが。。

WinフォームのComboboxなんですが、
DataSourceを設定してタブコントロール上に置くと、
Comboの載ったタブを選択したとたんselectedindex=-1から
強制的にselectedindex=0になっちゃいます。

ここまではM$のサイトで
"This behavior is by design."
などと書いてあったのであきらめるとして、
今度はDatatableの各DataRowをそれぞれ
ComboboxにAddしていくことにしてみました。

今度は"System.Data.DataRow"っていうのが追加した分だけ
表示されるんですが、なんとかDisplaymemberみたいのを設定できないものでしょうか？
偉い人お願いします。

0347346

NGNG

ちなみに
items.Addでselectedindexが勝手に変わるのを回避できるのは
調べてわかったんですが。。

0348324

NGNG

できなそうですね、ありがとうございますた

0349デフォルトの名無しさん

NGNG

VS2002ですが、きちんと Namespace A.B.C…としているのに
IntelliSenceの自動メンバ名補完では、A,B,Cともにリストに出てしまいます。

これは正常な動作なのでしょうか?

0350デフォルトの名無しさん

NGNG

>324
できないわけじゃないでしょ。単にこのスレの住人レベルでは
分からないというだけ。

0351デフォルトの名無しさん

NGNG

>>334
別のフォームに WebBrowserを貼り付けておいて、それにHTMLを、
読み込ませれば良いだけでは。

0352デフォルトの名無しさん

NGNG

>>324
よく読んでないがここに書いてないか？
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1041/shellcc/platform/commctls/tooltip/usingtooltips.htm

というか、ちょっとググってみた感じ結構情報みつかるように思えるが。。
とりあえず人に聞いとけってか？こういう人はPG向かないよな。

0353デフォルトの名無しさん

NGNG

>>350
自演z

0354デフォルトの名無しさん

NGNG

IPアドレスの文字列
127.0.0.1を数値に変換する関数はありませんか？

0355デフォルトの名無しさん

NGNG

その数値というのはSystem.Net.IPAddressクラスで扱われるLong値でいいのかね。
それならSystem.Net.IPAddressのParse静的メソッドとAddressプロパティを組み合わせればいいが。

0356デフォルトの名無しさん

NGNG

>>355
ありがとうございます。
いただいたヒントを元に
Dim le As New IPEndPoint(System.Net.IPAddress.Parse("127.0.0.1").Address, 10000)
とやってみたのですが
Dim le As New IPEndPoint(Dns.Resolve(System.Net.Dns.GetHostName()).AddressList(0), 10000)
ですとacceptできるのですが上だとできませんでした。
どこが問題なのでしょう。

0357最凶VB厨房

NGNG

127.0.0.1をipconfigなんかで出したIPアドレスに変えるか、
System.Net.IPAddress.Parse("127.0.0.1").AddressをIPAdress.Anyかにして
やってみて

0358デフォルトの名無しさん

NGNG

単にサーバとクライアントで使ってるIPが違うだけという話じゃないか？
あとIPEndPointのコンストラクタは(IPAddress, Integer)って引数のオーバーロードもあるから、
わざわざ.Addressを取得する必要はないよ。

0359最凶VB厨房

NGNG

>>349
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbls7/html/vblrfvbspec4_7.asp

0360デフォルトの名無しさん

NGNG

>>357
IPAdress.Anyでacceptできました。ありがとうございました。

>>358
すみません。
勉強します。

0361.NET初心者

NGNG

はじめまして
ASP.NETを使用し、Webアプリケーションを作りたいのですが、サーバPCのスペックはどれくらいを推奨しているのでしょうか？
教えてください。

0362デフォルトの名無しさん

NGNG

>>361
Pentiumシリーズ推奨。

0363324

NGNG

>>352
探してもなかなか見つかりませんでした。
英語わかんないけどやってみます。
>>350は違う人です。

0364デフォルトの名無しさん

NGNG

初めまして。
ＶＢ．ＮＥＴにて複数のテキストを読み込み、一つのテキストファイルにまとめるたいと思います。
ファイルをひとつづつ、read to endメソッドで読み込むプログラムを作ったのですが、他にもっとスマートな方法がありますでしょうか。
恐れ入りますが、ご教示頂ければ、幸いです。

0365デフォルトの名無しさん

NGNG

>>361
老婆心ながら、初心者って書くのはやめとき。
言い訳がましくとられる。

0366デフォルトの名無しさん

NGNG

>>364
Process.StartでDosのCopyコマンドで連結すれば。

0367364

NGNG

366様
早速のご回答、ありがとうございました。
おかげさまで、スッキリさせることができました。
本当に感謝致します。

0368超初心者

NGNG

>>351
別のフォームに WebBrowserを貼り付けておいて、それにHTMLを、
読み込ませれば良いだけでは。

このやり方が、わからんとです。
だれか丁寧に教えてください。

0369351

NGNG

>>368
どの部分がわからんとですか。

0370超初心者

NGNG

WebBrowserの貼り付けかたと、HTMLの
読み込ませかたとです。つまり全部ですorz

0371デフォルトの名無しさん

NGNG

>365
死ねば？

0372デフォルトの名無しさん

NGNG

System.Windows.Forms.Help.ShowHelp()でヘルプを表示できますが、
親コントロールとして Me（フォーム）を指定すると、ヘルプがフォームの
前面に表示されてしまいます。別プロセスとして起動したときのように、
フォームがアクティブになったらフォームがヘルプの上に来るように
したいのですが、ShowHelp()では無理でしょうか。

なお、Nothing を指定した NullReferenceException が発生して
しまいました。

0373デフォルトの名無しさん

NGNG

>372
訂正します。

Nothing を指定した → Nothing を指定したら

0374デフォルトの名無しさん

NGNG

>>370
あなたの代わりに私が探しておきました。
http://support.microsoft.com/default.aspx?scid=kb;ja;304643
ただし[ツールボックスのカスタマイズ]が無い場合は、
[ツールボックスアイテムの追加と削除]と読み替えてね。

0375デフォルトの名無しさん

NGNG

>>372
Controlクラス辺りのインスタンスを適当に作って、それをShowHelpの引数にするとか。

0376372

NGNG

>372-373に補足
>372ですが、一応別プロセスとして起動する方法で回避しました。
が、もしShowHelp()のパラメータで回避する方法があったら
教えてください。

別プロセスにすると、
・ヘルプを開いて本体を閉じる→ヘルプも閉じる。
・ヘルプを開いてヘルプを閉じて本体を閉じる→ちゃんと閉じるｗ
・ヘルプを二重に開かせない。
とかちょろっと書かなくてはならなくて、ちょっとイヤなので・・・

0377デフォルトの名無しさん

NGNG

375は鮮やかにスルーか。

0378デフォルトの名無しさん

NGNG

>>374 神ありがと～

0379デフォルトの名無しさん

NGNG

C#で恐縮です。よろしくおねがいします。
以下のようなメソッドがあると仮定します。

メソッド {
if (略) {
bool a
result1 = true;
}

if (略) {
bool result2;
result2 = true;
}

if (result1　== true || result2 == true) {
（終了）;
}

}

result1 とresult2 がtrueになったときに
一番下の（終了）という部分を実行したいのですが、
ビルドをすると「未割り当てのローカル変数が参照されました。」と
表示されエラーになってしまいますが、何が原因なのでしょうか。
よろしくおねがいします。

0380デフォルトの名無しさん

NGNG

…

0381デフォルトの名無しさん

NGNG

ふらっとC♯（Part5）
http://pc5.2ch.net/test/read.cgi/tech/1065196964/

0382デフォルトの名無しさん

NGNG

>result1 とresult2 がtrueになったときに
> ||
?

0383デフォルトの名無しさん

NGNG

質問です
Windowsが起動するたびに実行される
(スタートアップ)アプリケーションは
どう殺ったら出来るんでしょうか
レジストリ操作が必要なんでしょうか

0384デフォルトの名無しさん

NGNG

スタート→プログラム→スタートアップの中にショートカットを作ればできます。

0385デフォルトの名無しさん

NGNG

>>379
『 bool a 』は何なの？

0386デフォルトの名無しさん

NGNG

「どう殺ったら」
ろくなもんじゃねーな

0387超初心者

NGNG

>>374
WebBrowserの貼り付けかたわかりました。
でもhtmlファイル読み込ませて表示できません。
どうやるのでしょうか？

0388366,369,374

NGNG

>>387
おいおい
http://support.microsoft.com/default.aspx?scid=kb;ja;304643
ちゃんと読んだ。
AxWebBrowser1.Navigate("http://pc5.2ch.net/test/read.cgi/tech/1102512868/l50")

0389388

NGNG

お！ふぁいるか？
AxWebBrowser1.Navigate("c:\a\index.html")

0390超初心者

NGNG

>>389
ありがとうございました。
こんな事も分からない自分が恥ずかしいorz

0391389

NGNG

>390
VB.NETだって誰かが勝手に考えて作ったものだから、
始めは分からなくて当たり前、少しやってりゃ
勘で分かるようになるさ。

0392デフォルトの名無しさん

NGNG

質問をさせて頂きます。
正規表現を使って文字列の中にある、複数個の4桁の数字をすべて取り出したいのですが、
どうも正規表現の使い方が理解できずにいます。
皆様のお力をお貸しくださいませ。宜しくお願いします。

0393デフォルトの名無しさん

NGNG

ttp://www.google.com/search?q=正規表現&ie=UTF-8&oe=UTF-8

0394デフォルトの名無しさん

NGNG

どうせなら。
ttp://www.google.com/search?q=%E6%AD%A3%E8%A6%8F%E8%A1%A8%E7%8F%BE

0395デフォルトの名無しさん

NGNG

>>392
動くかどうか知らんが

Imports System.Text.RegularExpressions
Dim m As Match = Regex.Match(inString, "[\d+-]")
While (m.Success)
if len(m.Value)=4 then
(略)
end if
end while

0396デフォルトの名無しさん

NGNG

膣門です。
VB.NETでwavファイルを再生するにはどうしたら
いいですか？

0397デフォルトの名無しさん

NGNG

じゃあ>>395をふまえて動くことを確認したコード

Imports System.Text.RegularExpressions

Dim strText As String = "元の文字列"
Dim m As Match = Regex.Match(strText, "\d{4,}")
While m.Success
　　If m.Value.Length = 4 Then
　　　　'～ここに必要なコードを書くこと～
　　　　'～m.Valueに欲しいデータは入っている～
　　End If
　　m = m.NextMatch()
End While

0398デフォルトの名無しさん

NGNG

>>396
PlaySound APIを使え。

0399392

NGNG

>>395さん、>>397さん、ありがとうございます。
397記述のコードで動作しました。
VB.netのTipsがあるHPをまわったりMSDNを読んだりしたのですが、
結局どうしたらいいのか理解できず困っておりました。
お力添え大変感謝いたします。ありがとうございました。

0400デフォルトの名無しさん

NGNG

>>398
できましたありがとうございました

0401デフォルトの名無しさん

NGNG

指定したIPアドレスに到達可能かどうか調べるには
どうすればいいでしょうか。

0402デフォルトの名無しさん

NGNG

ping

0403デフォルトの名無しさん

NGNG

>402
それはVB.NET？

0404デフォルトの名無しさん

NGNG

>>401がVB.NETの質問なのか？っていう気もするな（笑

0405デフォルトの名無しさん

NGNG

>404
すいません。VB.NET質問スレなのでその辺ははしょってしまいました。
.NET Frameworkのクラスを使って実現したいです。
例えばSocket.connect してみてSocketExceptionが出たら
到達不可、とかはできると思うのですが、どうもスマートで
なくて・・・

0406デフォルトの名無しさん

NGNG

>>405
途中のFirewallやらルータやらの設定うんぬんを考えると、
確実なのは実際に行いたい操作を行ってみるってことだと思う。
Connectするなりなんなり。

外部からのPingに応答しないホストもあるし (ex. www.yahoo.co.jp)。

0407デフォルトの名無しさん

NGNG

>406
＞外部からのPingに応答しないホストもあるし (ex. www.yahoo.co.jp)。

そうなの？普通にコマンドプロンプトから

ping www.yahoo.co.jp
って打つと普通にReplyあるけど・・・
そういう意味じゃないのかな？

0408デフォルトの名無しさん

NGNG

>>407
さっきは応答しなかったけど今やって見ると応答するヽ(@д@)ﾉ
DNSラウンドロビンで応答しないサーバに当たってたのか？

0409デフォルトの名無しさん

NGNG

>408
どんまい

0410デフォルトの名無しさん

NGNG

つっても、pingはじく設定はできるのでやはり繋ぎたいプロトコルで繋いでCatchするのでいいんじゃね？
つーか、それ以外あるまい。

0411デフォルトの名無しさん

NGNG

>410
サンクス

0412デフォルトの名無しさん

NGNG

一つ質問。
EXEでビルドしたアセンブリは、COMClass属性を適用して、RegAsmで
タイプライブラリ吐かせても参照できないの？

0413デフォルトの名無しさん

NGNG

>>412
.vbprojをいじってやれば.exeも参照できるよ。

0414デフォルトの名無しさん

NGNG

なんで実行ファイルがこんなに遅いのかと

0415デフォルトの名無しさん

NGNG

>414
Debugだから。もしくはお前のプログラムがダメだから。
ソース公開してみ。

0416デフォルトの名無しさん

NGNG

>>414
中間言語だから遅いのよ。
速いの必要な人は、C++をどーぞ。

0417デフォルトの名無しさん

NGNG

>>417
だったらngen使えばいいじゃん。
中間言語だからって、(ネイティブコード生成以外で)遅いということは基本的には無いはず。

0418デフォルトの名無しさん

NGNG

中間言語を使用すればオーバーヘッドって物が増えるだろう。
C.NETがC++より遅いのは世界の常識、議論の余地無し。
以下この件打ち切り。

0419412

NGNG

>>413
VB6ではうまく参照できたのですが、.NETだとうまくいきません。
VS.NET 2002, Microsoft .NET 1.0.3705 です。
*.vbproj は、唯一 COM と関係ありそうな RegisterForComInterop を "true"
にしましたが、書き換える場所を間違えてしまったのでしょうか?

[ビルド後、COM-EXE.exeへ参照]
S:\COM-EXE\bin\COM-EXE.exe への参照を追加できませんでした。
これは有効なアセンブリまたは COM コンポーネントではありません。
拡張子 '.dll' を持つアセンブリまたは COM コンポーネントのみを
参照することができます。

[regasm.exe]
C:\>regasm s:\COM-EXE\bin\COM-EXE.exe /tlb:s:\COM-EXE.tlb /verbose
Microsoft (R) .NET Framework Assembly Registration Utility 1.0.3705.0
Copyright (C) Microsoft Corporation 1998-2001. All rights reserved.
型は正常に登録されました。
型 TestClass がエクスポートされました。
型 _TestClass がエクスポートされました。
アセンブリは 's:\COM-EXE.tlb' にエクスポートされ、タイプライブラリは正常に登録
されました。

[regasm 後、COM-EXE.tlbへ参照]
'COM-EXE' への参照を追加できませんでした。
タイプライブラリを .NET アセンブリに変換できませんでした。
タイプライブラリ COM-EXE は CLR アセンブリからエクスポートされたため、
CLR アセンブリとして再度インポートすることはできません。

0420デフォルトの名無しさん

NGNG

アセンブリなら.vbprojのReferences要素の中に、.exeを指定したReference要素を追加すればよし。
COMもregasmもいらない。

.exeの配置に気をつけてな。

0421412

NGNG

>>420の方法で見事参照に成功しました。

今まで長い間Googleなどで検索してきて、正直諦めようかと思っていたところでした。
本当にありがとうございました。

# EXEでもきちんと参照できるのに、なんでVSは参照設定ダイアログでEXEを弾くんだろう…?

0422デフォルトの名無しさん

NGNG

>>421
EXEを参照せざるを得ない状況ってのがいまいち想像出来ないんだが。
なんでDLLにしないんだ？

0423デフォルトの名無しさん

NGNG

>422
言葉遣いが悪いですよ。

0424デフォルトの名無しさん

NGNG

DataGridColumnStyle.GetColumnValueAtRow()の戻り値って
NULLチェックしないとダメ？

0425デフォルトの名無しさん

NGNG

>>423
嫌なら2chなんかに来るなよ。

0426デフォルトの名無しさん

NGNG

MSペイントみたいに、指定した座標の色と同じ色の領域を塗りつぶすような処理をしたいのですが
探してみても指定矩形領域塗りつぶしとか指定楕円領域塗り(ry だったりとかで、どうにも方法が思いつきません。

一般のグラフィックソフトで言う”塗りつぶし”の処理を行うにはどうしたらよいでしょうか？

0427デフォルトの名無しさん

NGNG

>425
理由は？

0428デフォルトの名無しさん

NGNG

ここはネットの海にたゆたうチラシの裏だから。

0429デフォルトの名無しさん

NGNG

>>428
その表現もらった！

0430デフォルトの名無しさん

NGNG

>428-429
自演乙。別に悪いことじゃないけど。

0431429

NGNG

んじゃー>>428とｹｺｰﾝする！

0432428

NGNG

>>431
おまいさんが新成人±４歳で美処女なら喜んで。(w

0433デフォルトの名無しさん

NGNG

>>426
APIのFloodFillかFloodFillEx

0434429

NGNG

>>432
残念！おいらは新成人±１０歳のｵｻｰﾝでつｗ

0435デフォルトの名無しさん

NGNG

>>433
調べてみたんですが、どうやらVB→VB.NETの仕様変更で(型が合わんとかGDI、GDI+云々)
.NET上でどうExtFloodFillを扱っていいものかよく分かりませんです…。
もしよろしければご教授を…(つД`)

0436デフォルトの名無しさん

NGNG

>>435
http://custom.programming-in.net/articles/art9-1.asp?f=FloodFill

0437デフォルトの名無しさん

NGNG

すいません、VB.NETでサービスを作ろうとしたのですが、VBのみを買ってきたせいか、サービスプロジェクトがありません。
どなたか、よい方法をご存知ないでしょうか?
よろしくご教授願います。

0438デフォルトの名無しさん

NGNG

自分のIPアドレス文字列（192.168.1.1）を取得するには
どうしたらいいでつか・・・？

0439デフォルトの名無しさん

NGNG

>356の下のコード(の一部)を使ってIPAddressクラスを取得して.ToString()。

0440435

NGNG

グラフィックからHDCを取得したところ( g.GetHDC( ) )IntPtr型が戻り値になっているため
FloodFillの引数のHDC( Int型 )と型が合わないといわれます。
色の値もIntegerとの事ですが、これはColorTranslatorによる変換でよろしいのですかね？

そして現在のブラシの色で塗りつぶすとありますが、このブラシの色をどこで設定するのかが分からずまともに動きません…orz
Dim b as New SolidBrush(ry では無さそうですし…。

ちなみに今

Dim bmp As Bitmap = New Bitmap(256, 256)
Dim g As Graphics = Graphics.FromImage(bmp)
Dim hdc As IntPtr = g.Gethdc()

(ﾟДﾟ)？？

g.ReleaseHdc(hdc)
( bmpはonPaintをオーバーライドして描画 )

こんな感じで詰まっております(´･ω･`)

0441デフォルトの名無しさん

NGNG

ExtFloodFillの定義のhDCをIntPtrで宣言してやればよし。
色はColorTranslator.ToWin32でOK。

描画にWin32APIを使うならグラフィクスオブジェクトもWin32APIの作法に則ってやらないといけない。
以下の関数は全部Win32API。Declareで宣言する必要があるぞ。

CreateSolidBrushでブラシを作成。
SelectObjectで作成したブラシを選択。
ExtFloodFillで描画。
SelectObjectで作成したブラシから元々選択していたオブジェクトに戻す。
DeleteObjectで作成したブラシを削除。

0442デフォルトの名無しさん

NGNG

User Agentを自分独自のものにカスタマイズしたいのですが、どうすればいいいのですか？

0443435

NGNG

>>441さん他に教えていただいたことをもとに以下の様なソースを書いてみたのですが動きません…orz

Private bmp As Bitmap = New Bitmap(256, 256)
Private Graph As Graphics = Graphics.FromImage(bmp)

Public Function Fill(ByVal FillColor As Color, ByVal x As Integer, ByVal y As Integer) As Integer
　Dim hdc As IntPtr = Graph.GetHdc()
　Dim brs As Integer = CreateSolidBrush(ColorTranslator.ToWin32(FillColor))
　Dim old As Integer = SelectObject(hdc, brs)
　Dim CrColor As Integer
　Dim ret As Integer

　'Me.GetPixel()：ﾏｳｽﾀﾞｳﾝされた座標点の色
　CrColor = ColorTranslator.ToWin32(Me.GetPixel(x, y))
　ret = ExtFloodFill(hdc, x, y, CrColor, 1)

　SelectObject(hdc, old)
　DeleteObject(brs)
　Graph.ReleaseHdc(hdc)
End Function

どこかご指摘点ありますでしょうか(´；ω；`)

0444デフォルトの名無しさん

NGNG

日本語おかしい奴おおすぎ

0445デフォルトの名無しさん

NGNG

>439
ありがとうございます。
ちなみに似たような方法でサブネットマスクも取得できますか？

0446デフォルトの名無しさん

NGNG

クリレポのシリアル付きインストーラつくったのだが
インストールしたら実行時「COMコンポーネント～エラー」が出る・・・
必要なファイルは全部含めてるんだが・・・

0447デフォルトの名無しさん

NGNG

すいません。>445なんですが、どなたかご存知ないでしょうか。

0448デフォルトの名無しさん

NGNG

>>443
GetDCするだけじゃ無理らしくて調べてたら説明するよりコードを書いた方が分かりやすくなったのでサンプルクラスをかいとく。
基本はイメージのサイズ指定してのNewすることで一つ四角を描画、あと任意にDrawRectangleで四角を追加。
FillFloodで指定位置の色の連続している部分を塗りつぶし。Bmpフィールドで描画結果を取得。
本文長杉だそうなのでインデントも無きが如し。
Public Class FillFloodTest
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As IntPtr) As IntPtr
Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal color As Integer, ByVal filltype As Integer) As Boolean
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As IntPtr, ByVal obj As IntPtr) As IntPtr
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal color As Integer) As IntPtr
Private Declare Function DeleteObject Lib "gdi32" (ByVal obj As IntPtr) As Boolean
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As IntPtr) As Boolean
Public Bmp As Bitmap 'Getのみのプロパティにしたいけど行がもったいないのでフィールド直接Public
Public Sub New(ByVal width As Integer, ByVal height As Integer)
Bmp = New Bitmap(width, height)
Clear(Color.Brown) '何となく決めうちで茶色でクリア
DrawRectangle(Color.Red, 100, 100, 100, 100) '何となく決めうちで初めの四角を描画
End Sub
Public Sub DrawRectangle(ByVal line As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer)
Dim g As Graphics = Graphics.FromImage(Bmp)
Dim p As New Pen(line)
g.DrawRectangle(p, x, y, width, height)
p.Dispose()
g.Dispose()
End Sub
Public Sub Clear(ByVal back As Color)
Dim g As Graphics = Graphics.FromImage(Bmp)
g.Clear(back)
g.Dispose()
End Sub

0449デフォルトの名無しさん

NGNG

Public Function FillFlood(ByVal fillColor As Color, ByVal x As Integer, ByVal y As Integer) As Boolean
Dim baseColor As Integer = ColorTranslator.ToWin32(bmp.GetPixel(x, y)) 'ほんとはGetPixelで例外処理が必要
Dim filler As Integer = ColorTranslator.ToWin32(fillColor)
Dim g As Graphics = Graphics.FromImage(bmp)
Dim originalDC As IntPtr = g.GetHdc()
Dim hBitmap As IntPtr = bmp.GetHbitmap() 'BmpのWin32APIで扱えるビットマップ表現HBITMAPを取得
Dim compatibleDC As IntPtr = CreateCompatibleDC(originalDC) '元DCとExtFloodFillで扱うDCに互換性がないので、互換DCを作成。以後描画するのはこの互換DCになる
Dim oldSelectedHbitmap As IntPtr = SelectObject(compatibleDC, hBitmap) '互換DCにHBITMAPをセット。互換DCの描画対象が元画像になる
Dim brush As IntPtr = CreateSolidBrush(filler)
Dim oldSelectedGraphicsObject As IntPtr = SelectObject(compatibleDC, brush) '互換DCにブラシをセット
Dim result As Boolean = ExtFloodFill(compatibleDC, x, y, baseColor, 1) '互換DCで塗りつぶし

0450デフォルトの名無しさん

NGNG

Dim newBitmap As Bitmap
If result Then newBitmap = Image.FromHbitmap(hBitmap) '塗りつぶせたら、描画したHBITMAPから.NETのBitmapオブジェクトを作成
DeleteObject(SelectObject(compatibleDC, oldSelectedGraphicsObject)) '互換DCのブラシを元に戻し、返ってきた自分で作ったブラシ(brush)を削除
DeleteObject(SelectObject(compatibleDC, oldSelectedHbitmap)) '互換DCのHBITMAPを元に戻し、返ってきた"既にImageオブジェクトを作って用済みのhBitmap"を削除
DeleteDC(compatibleDC) '不要になった互換DCを削除
g.ReleaseHdc(originalDC) '使い終わったDCを解放
g.Dispose() '使用済みGraphicsオブジェクトをDispose
If result Then '塗りつぶしに成功していたら
Dim originalBitmap As Bitmap = Bmp '描画前の画像を持つBitmapは後でDisposeするために待避
Bmp = newBitmap 'Bitmapを描画後の画像のものに差し替え
originalBitmap.Dispose() '以前のBmpだったビットマップはDispose
End If
Return result '成功したらTrueを返す
End Function
End Class

こうなるって分かってたらインデントとかまともにすべきだった……。

0451デフォルトの名無しさん

NGNG

ていうかなんか>>443のソース見る限り>>435の場合Win32APIとか以前にグラフィックの基本が分ってないようだから、
>>448-450みたいなの書かれても理解できないと思う。

グラフィックの基本が分ってないとしか思えないでしょ。
どう考えてもBitmapとかGraphicsが概念的に理解できてない人のコードだよ。
こんなの人に聞くよりMSDNでも読んだほうが100倍早いのになんでそういう
手間を惜しむんだろうねえ。。

それに恐らくこういうコード書く人はクラスもわかんない可能性高い。

ていうかBitmap返すクラスってなんか使いにくそう。
私だったらGraphicsをメソッドの引数に取るかコンストラクタで食わせるかするなたぶん。

0452デフォルトの名無しさん

NGNG

>>451
> ていうかBitmap返すクラスってなんか使いにくそう。
> 私だったらGraphicsをメソッドの引数に取るかコンストラクタで食わせるかするなたぶん。

あーうん。
元々はもうちょっとクラスとして意味のある構成を考えてたんだが、
掲示板に貼るのに最低限の部分だけにしたらクラスにする意味がすっかり薄れてしまったのさね。
ただGetHbitmapの為にBitmapインスタンスも必要というのが悩ましい。
//BitmapのHdc>BitmapのHdcにBitBltするにもこの操作が必要だし。
//なんかないかなー。

0453デフォルトの名無しさん

NGNG

>>451
>それに恐らくこういうコード書く人はクラスもわかんない可能性高い。
VB.NETへの移行過程でその手の厨房は淘汰されるので今しばらくのご辛抱を。

0454デフォルトの名無しさん

NGNG

.NETになって格段に日本語ドキュメントが充実したからなあ。まず読め、読みまくれ。
宝の山ですぞ！

0455435

NGNG

まったくもって頭が上がりません…。
>>448さん他非常にありがとうございました
謝罪のしようもありません。

>>452さん、>>454さんの仰るとおりMSDN穴が開くほど読み倒してきます（`･ω･´)

0456435

NGNG

そしてアンカーを間違える＿|￣|　...○
>>452→>>451

0457デフォルトの名無しさん

NGNG

すいません、VB.NETでサービスを作ろうとしたのですが、VBのみのやつを買ってきたせいか、サービスプロジェクトがありません。
どなたか、よい方法をご存知ないでしょうか?
よろしくご教授願います。

0458最凶VB厨房

NGNG

>>457
Microsoftクイックスタートチュートリアル
http://ja.gotdotnet.com/quickstart/default.aspx

0459デフォルトの名無しさん

NGNG

すいません。>445なんですが、どなたかご存知ないでしょうか。

0460最凶VB厨房

NGNG

Imports System
Imports Microsoft.Win32

Public Class SubnetMaskGetter
Shared Sub Main(ByVal args As String())
Dim interfacekeys As String = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces"
Dim rk As RegistryKey = Registry.LocalMachine.OpenSubKey(interfacekeys, False)
If rk Is Nothing Then
Console.WriteLine("キーはなさげ")
End If
Dim s As String() = rk.GetSubKeyNames()
Dim sk As String
For Each sk In s
Dim rrk As RegistryKey = Registry.LocalMachine.OpenSubKey(interfacekeys & "\" & sk, False)
Dim v As String() = CType(rrk.GetValue("SubnetMask"), String())
Console.WriteLine(sk)
Console.WriteLine(v(0))
Next
End Sub
End Class

http://support.microsoft.com/kb/q120642/

0461最凶VB厨房

NGNG

>>442
HttpWebRequestクラス

Imports System
Imports System.IO
Imports System.Net

Public Class UAHttpAccess
Shared Sub Main(ByVal args As String())
Dim hr As HttpWebRequest = WebRequest.Create("http://127.0.0.1:10000")
hr.UserAgent = "SaikyoVBChubo"
Dim wres As WebResponse = hr.GetResponse()
Dim st As Stream = wres.GetResponseStream()
Dim sr As StreamReader = New StreamReader(st)
Dim s As String = sr.ReadToEnd()
Console.WriteLine(s)
End Sub
End Class

0462デフォルトの名無しさん

NGNG

>460
うーん、レジストリから取得するってことですよねぇ。
他の方法をお願いします。もっとスマートなやつ。

0463デフォルトの名無しさん

NGNG

すみません，質問です．

ListBox に現在のプロジェクトにあるフォームをリストアップし，
そこから選んだアイテムに対応するフォームを開く，という処理を行ないたいのですが……

まず，現在のプロジェクトにあるフォームのリストを取得する方法がわかりません orz
で，とりあえず固定でフォーム名のリストを持たせてやってみようと思ったのですが，
今度は，ListBox から取得した文字列で示されるクラスを作る方法がわかりません orz

Dim f = New Form1() の「Form1」とかの部分を変数で指定できれば……と思ったのですが，
この発想自体が無理っぽいでしょうか？

0464最凶VB厨房

NGNG

Imports System.Reflection
-----------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim asm As [Assembly] = [Assembly].GetExecutingAssembly()
Dim t As Type
For Each t In asm.GetTypes()
If t.IsSubclassOf(GetType(System.Windows.Forms.Form)) Then
ListBox1.Items.Add(t.FullName)
End If
Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s As String = CType(ListBox1.Items.Item(ListBox1.SelectedIndex()), String)
Dim asm As [Assembly] = [Assembly].GetExecutingAssembly()
Dim f As Form = CType(asm.CreateInstance(s), Form)
f.Show()
End Sub
'Button1,Button2,ListBox1配置

0465463

NGNG

おぉー
とても感謝です．ありがとう！

# Assembly までは辿り着けたんですが GetExecutingAssembly() まで行けてませんでした orz

0466デフォルトの名無しさん

NGNG

>463
おお、なんかかっこいいな。

0467デフォルトの名無しさん

NGNG

>>462
何様？

0468超初心者

NGNG

質問です！
あるものを処理し（具体的にはJavaなのですが）、その結果をhtmlで作成
もしくは元からあるhtmlファイルに上書き、それをVBで表示さ
せたいのですが、そのhtml作成（更新）されてから、読み込んで
表示させるにはどのようにすればよいのでしょうか？

0469デフォルトの名無しさん

NGNG

>467
いや、気持ちは分かるんですが、もっとスマートな方法を
知りたかったので。他の方、分かりませんか？

0470デフォルトの名無しさん

NGNG

WMI使うとか

0471デフォルトの名無しさん

NGNG

>470
どうも。

ところでみんなわりぃ、サブネットマスク取得する必要
なくなっちゃったよ。まぁよくあることだわな。

0472デフォルトの名無しさん

NGNG

ばかじゃないの

0473最凶VB厨房

NGNG

Private Sub FileSystemWatcher1_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed
Dim fi As FileInfo = New FileInfo(e.FullPath)
While fi.LastAccessTime = DateTime.Now
System.Threading.Thread.Sleep(1000)
End While
AxWebBrowser1.Navigate(e.FullPath)
End Sub
'FileSystemWatchr1,AxWebBrowser1(Microsoft Web Browser)配置

0474最凶VB厨房

NGNG

Dim query As ObjectQuery = New ObjectQuery("Select IPSubnet FROM Win32_NetworkAdapterConfiguration")
Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(query)
Dim share As ManagementObject
For Each share In searcher.Get()
Dim o As Object = share("IPSubnet")
If Not o Is Nothing Then
If o.ToString() = "System.String[]" Then
Dim d() As String = CType(o, String())
Console.WriteLine(d(0))
End If
End If
Next
http://ukamen.hp.infoseek.co.jp/Programming/WMI/
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_networkadapterconfiguration.asp?frame=true

0475最凶VB厨房

NGNG

補足追加

Imports System.Management
参照の追加
System.Management

0476デフォルトの名無しさん

NGNG

>474
お前色々ソース出してるけど、その読みにくさなんとかしろ。
全角スペースでインデント付けろ。

0477デフォルトの名無しさん

NGNG

分かってると思うけど↑みたいのいちいち構うのよそう。
こういう人はそのうち自作自演で「構い」だすだろうが、そっちも含めて放置で。

0478476

NGNG

>477
なんで？ソースを読みやすくしてほしくないの？

0479476

NGNG

While fi.LastAccessTime = DateTime.Now
　　System.Threading.Thread.Sleep(1000)
End While

こう書いたほうが読みやすいとは思わんのかね？

0480デフォルトの名無しさん

NGNG

Thread.Sleepを使うとフリーズしちゃうでしょ(笑)

0481デフォルトの名無しさん

NGNG

>>477の↑は「最凶VB厨房」に向いてると思われ。

0482超初心者

NGNG

>>474
は468への答えでいいの？

0483デフォルトの名無しさん

NGNG

>482
いいの？じゃなくて、いいのですか？くらい書いてもらえますか？

0484超初心者

NGNG

>>483
ゴメンナサイ、いいのですか？

0485デフォルトの名無しさん

NGNG

すいません、MainMenuでヘルプメニューを作って、
それをクリックすると、txtファイルをよび出すようにしたいのですが、
どうすればいいのですか？

0486デフォルトの名無しさん

NGNG

txtファイルをどうしたいのかによるけれど。
関連づけられたエディタで開きたいのなら、System.Diagnostics.Procss.Start

0487デフォルトの名無しさん

NGNG

む、eが抜けた。System.Disgnostics.Process.Start

0488デフォルトの名無しさん

NGNG

>>485
呼び出すって？

0489485

NGNG

>>486
どうもです。できました。

>>488
すみません、なんと表現していいのか分からなかったもので^_^;
486さんの解釈の通りです。

0490デフォルトの名無しさん

NGNG

>>485
ヘルプテキストをhtml化して、ブラウザに投げるのが簡単。

0491デフォルトの名無しさん

NGNG

>490
はぁ？

0492超初心者

NGNG

>>473～475
ありがとう。でも、馬鹿すぎてよくわからんとです。
どこで何やってるのか誰か解説キボンです。

0493デフォルトの名無しさん

NGNG

>492
あなたは馬鹿じゃないですよ。質問者のレベルに合わせた
回答をできない方が馬鹿なんです。

0494デフォルトの名無しさん

NGNG

>>493
自演乙

0495デフォルトの名無しさん

NGNG

>494
根拠は？そうでないと証明もできませんが。
あなたは出来るの？

0496493

NGNG

自演じゃないですが、自演だったとして何か不都合がありますか？
どちらにしろあなたが馬鹿だという事実は変わりませんよ。

0497デフォルトの名無しさん

NGNG

うんそう、満足に初心者に一から教える事もできない、自演と決めつけて心の安寧を貪る馬鹿の巣窟の日記帳だから。
賢いあんたはこんな芥溜め痰壷に近づかない方が良いよ。

0498デフォルトの名無しさん

NGNG

>>492
あなたに対する解答は473だけ
474～475は471に対するもの、もういらないようだけど。
そのくらいは分かるよね。

0499デフォルトの名無しさん

NGNG

　　　　　　　　　　||￣￣￣￣￣￣￣￣￣￣||
　　　　　　　　　　||　図星だと　　　　　　Λ_Λ　　いいですね。
　　　　　　　　　　||　こうなります。＼　(ﾟーﾟ*)
　　　　　　　　　　||＿＿＿＿＿＿＿＿⊂⊂ |
　　∧ ∧　　　 ∧ ∧　　　 ∧ ∧　　　 |￣￣￣￣|
　 (　　∧ ∧　(　　 ∧ ∧　(　　∧ ∧　|　　　　|
～（＿(　　∧ ∧ __(　　∧ ∧__(　∧ ∧￣￣￣
　　～（＿(　　∧ ∧＿(∧ ∧　＿(∧ ∧　は～い、先生。
　　　　～（＿(　　,,)（＿(　　,,)（＿(　　,,)
　　　　　～（＿__ﾉ　～（＿__ﾉ　～（＿__ﾉ

0500デフォルトの名無しさん

NGNG

質問スレで「初心者」を免罪符にする香具師の典型的パターンだな

0501超初心者

NGNG

>>498
そうでしたか。
やさしい人、468お願いします！！

0502デフォルトの名無しさん

NGNG

ここにも釣り師登場か。

0503デフォルトの名無しさん

NGNG

>>501
>>334,>>337,>>368,>>378,>>387,>>390
これ皆あなたでしょ、少しは自分で考えないと。

0504デフォルトの名無しさん

NGNG

>503
どこまで考えればいいの？線引きしてください。

0505デフォルトの名無しさん

NGNG

答えを丸写ししてるだけじゃダメだから、MSDNやサンプルコード
を検索したり組み合わせたりして、自分がやりたい処理に持って行
く。

大まかな線引きとしては、「やりたいこと」だけを質問するんじゃ
なくて、「まずコードを書く」ことからやってみそ。

0506デフォルトの名無しさん

NGNG

>505
ｷﾞｬﾊﾊﾊﾊ。やってみそだって！ｷﾞｬﾊﾊﾊﾊﾊ

0507デフォルトの名無しさん

NGNG

>>505
ということは、コードをまったく書けない場合は質問するな、
ということですね。他の方もそうなんですか？

0508デフォルトの名無しさん

NGNG

>>507
コードがまったく書けない人に質問されても
答えることは難しいわな。
入門書である程度勉強するしかないのでは。
特にここは長い説明は嫌われるしな。

0509デフォルトの名無しさん

NGNG

>508
それはあなたのルールですか？
このスレのルールですか？

0510デフォルトの名無しさん

NGNG

コードが全く書けないのにプログラム板に来るのはなんで？
ここはコードやアルゴリズムを突き合わせて切磋琢磨するところ
だと思ってるんだが。

0511デフォルトの名無しさん

NGNG

>510
切磋琢磨してるのですが全く書けないので、こういう
掲示板を利用してみようかと思って辿り着きました。

0512デフォルトの名無しさん

NGNG

>510
それはあなたのルールですか？
このスレのルールですか？

0513デフォルトの名無しさん

NGNG

>510
そういうスレ立てれば？>>1には「VB.NETの質問全般です」としか
書かれていないので、別にレベルが低い質問もあっても
仕方ないのでは？

0514デフォルトの名無しさん

NGNG

まず、カイジの利根川のセリフを頭に叩き込まなければなりませんね。

少なくともコードの書き方（配列変数は文法的にどう書くのなど）は、自分で
勉強するものだろう。まさかそんなことまで人に教えてもらおうなんて奴は
居ないと思うが。

0515俺ルール

NGNG

ルールっぽいことを書く人は、「名前」欄に「俺ルール」や「スレルール」と
書くことにしましょう。何もない場合は「俺ルール」ということにしましょう。

0516デフォルトの名無しさん

NGNG

>514
それはあなたのルールですか？
このスレのルールですか？

0517デフォルトの名無しさん

NGNG

>>514
カイジの利根川のセリフって何ですか？
専門的すぎてよく分かりません。

0518俺が職場で学んだルール

NGNG

自分がやりたい処理がある。
↓
テンプレに載ってる数多のサンプルや手法を読んでみる。
↓
流用できそうなのをうまく編集してコードにしてみる。
↓
うまくいかなかったら、ここor識者に具体的な質問をする。

‥‥つか、学生にしろ社会人にしろこれくらいは常識だと思う。
教えて君は本人にとっても回りにとっても良くないだろ。
ttp://myu.daa.jp/osiete/index.html

0519デフォルトの名無しさん

NGNG

>>516
よほど難しい文法でない限り文法事項なんて独習が常識だろう。
I am a student in that high school.　を訳せません教えてくださいって聞くアホは
いないでしょ。

0520508

NGNG

>>509
どこにルールなんて書いたの？
コードが全くかけない人に、どのように説明するの。
それともコードは全くかけないが、人のコードは
理解できるとでも言うの。

0521デフォルトの名無しさん

NGNG

>518-519
あのぅ、さっきからずっと釣ってるのですが、いつまで反応してくれるのですか？
いい加減釣りも飽きてきたのでやめたいのですが。

0522デフォルトの名無しさん

NGNG

>520
>521

0523デフォルトの名無しさん

NGNG

>>521
立場が悪くなったら釣りの振りして逃げる。雑魚っていうかゴミの典型ですね。
恥ずかしい

0524デフォルトの名無しさん

NGNG

>>513
質問したっていいさ、ただ答えたくても、全くコードをかけないやつに
どうやって説明したらいいか、困ったな。といっているの。

0525デフォルトの名無しさん

NGNG

>523
うわ、まだ反応してるよ。

0526デフォルトの名無しさん

NGNG

>523
ゴミの定義は？

0527デフォルトの名無しさん

NGNG

明日から学校なんだし、ここも静かになるだろ。
枯れ葉も山のにぎわい程度に流しておけばいいじゃん。

0528デフォルトの名無しさん

NGNG

>>527
うんだ。

0529デフォルトの名無しさん

NGNG

>527-528
私に関して言えば引きこもってるので変わらないですよ。

0530デフォルトの名無しさん

NGNG

意味のわからない質問、答えにくい質問はスルーされる。
自然の摂理だ。
質問者が思っている以上に答えるのにはエネルギーを使うもんだ。

0531デフォルトの名無しさん

NGNG

>530
質問に回答するのはあなた方の自由のはずですが。

0532デフォルトの名無しさん

NGNG

別に、質問者の質問内容の程度なんてどうでもいいんでない？

答える側は、質問の意図を聞き返したりスルーしたり出来るし。
答えたい奴が答えるでいいじゃん。

0533超初心者

NGNG

なんかすいません。僕のせいで荒れてしまいましたね。
自分で検索したんですがさっぱり出てこなくて。
もう少しがんばってみます。それでもわからなかったら
ここで質問します。そん時はよろしくお願いします！

0534超初心者

NGNG

あともうひとつ、>>473-475は468の答えでは
ないんですか？なんか釣りとか書いてたから・・・

0535デフォルトの名無しさん

NGNG

ttp://jp.thespoke.net/MessageBoard/MessageBoard_ViewThread.aspx?postid=486

あの似顔絵ウィザードも含めて、HomeStyle+ って
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
.NET Framework で書かれてるんですね。。。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
逆アセンブルしてみたら気づきました・・・・。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ああいうのを作品に組み込むのも面白いかも(笑)

MSの製品を逆汗するような奴をMSはMVPに選んでいるんです。MSは逆汗を認めていると

0536デフォルトの名無しさん

NGNG

ちょい荒れ気味のところすまんけど、

VBCommenter + NDoc って使ってる？

試しに入れてみたけど、VBCommenter出力がいまいちうまくいかなかったり、
NDocが異常終了したり。どっか設定おかしいのかなあ。
でもうまくいったら便利そう。ちなみにC#未経験。

0537デフォルトの名無しさん

NGNG

上に便乗して質問ｗ

VB.netで勉強の為に簡単なチャットプログラムを作ろうと思ってるんですが、
VB6.0の資料はぐぐっても出てくるのですが、VB.net用の資料は全然ないのです。
VB6.0のソースを参考にして自分なりに書いてみたのですがどうも動かない・・・
一応、
http://www.comel.or.jp/~akira/soft/udp_s1/udp_s1.html
こちらのVB6.0用のソースを参考にして自分で作ったソースが↓です。
http://cdrtest.hp.infoseek.co.jp/cgi-bin/snup/src/VisualVision0028.zip
ソースをUpして「見て下さい」っていうのは失礼だとは思うのですが
どうか宜しくお願い致します。

0538デフォルトの名無しさん

NGNG

ソースを見ずにカキコ

非同期サーバーソケットの使用
ttp://www.microsoft.com/japan/msdn/library/ja/cpguide/html/cpconusingnon-blockingserversocket.asp

Google 検索: C# Socket
ttp://www.google.co.jp/search?q=C%23+Socket

0539デフォルトの名無しさん

NGNG

とりあえずMSWinsockLib.dllとか見えた時点で読むのを止めた。

0540デフォルトの名無しさん

NGNG

vb.netでおなじLAN内のファイル転送の仕方が色々調べましたが分かりません　教えてください

0541デフォルトの名無しさん

NGNG

>>540
何を調べたのか書いてみろ。

0542デフォルトの名無しさん

NGNG

imports system IO　file.copyでマシンネームを入れるやり方だったと思うのですがよく分からずできずにあきらめ、
色々サイトを見て回ったのですがそれらしい物すら見つからずです

0543デフォルトの名無しさん

NGNG

さっきの追加です　チャットするまではできます　
そこにファイル転送も加えたいです

0544531

NGNG

>532がいいこと言った

0545デフォルトの名無しさん

NGNG

取りあえずチャットのプロトコルとしてUDP使うのはやめとけ。ファイル転送もやりたいなら
なおさらTCP使った方がいいぞ。
俺は４年前から自宅サーバでチャットプログラム動かしてて内輪でチャットやってるから
チャットプログラムを本格的に作る気ならノウハウぐらいは提供できる。C#だが。
>>539
俺はいつもSystem.Net.Sockets名前空間のSocket使ってるから知らないんですけど
MSWinsockLibてなんですか？Winsockのラッパー？

0546デフォルトの名無しさん

NGNG

>>545
> 俺はいつもSystem.Net.Sockets名前空間のSocket使ってるから知らないんですけど
> MSWinsockLibてなんですか？Winsockのラッパー？

そう。
そりゃ.NETでWinsockのサンプルなんて無いだろ(System.Net.Socketsがあるんだから)、
まず>538でも見て.NETにおけるソケットの扱い方を勉強しろ、と。
そう思った次第。

0547デフォルトの名無しさん

NGNG

>546
勉強しろ、じゃなくて、勉強してください、ね。語尾は正確にお願いします。

0548デフォルトの名無しさん

NGNG

>>547
何様？

0549デフォルトの名無しさん

NGNG

殿様ん

0550デフォルトの名無しさん

NGNG

勉強しなくなけりゃしなくても
喪れは困らないので勉強しなくてもいいですよ。

0551デフォルトの名無しさん

NGNG

>550
なんでタイプミスするの？

0552デフォルトの名無しさん

NGNG

timer1のを一度disableするとenableにしてもEVENTかかりません。
なぜでしょう。？
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If picBar.Height > 0 Then
picBar.Height = picBar.Height - 1
Else
Timer1.Enabled = False　’ここで切ると二度と飛んでこない？
End If
End Sub
Sub threadMain()
Do
thread1.Sleep(100)
If Now.Second = 0 Then
Timer1.Enabled = True
Timer1.Interval = 100
Timer1.Start()
picBar.Height = 500
End If
Loop
End Sub

0553デフォルトの名無しさん

NGNG

>552
System.Windows.Forms.Timerを使っているのであればムリ。
他のTimer使ってみてはどうでしょう。

0554デフォルトの名無しさん

NGNG

えっ、他にもタイマーがあるの？
ちなみにバグってことでしょうか？

0555デフォルトの名無しさん

NGNG

>>552
MSDN読んだら、Start()の替わりにEnabledにtrueを設定することでもスタートさせることができると
書いてあったのだが二重起動にならないか？多分Timer内部でハネてるから大丈夫とは思うが。
他のタイマーとしてはSystem.ThreadingのものとSystem.Timersのものがある。
使い分けはMSDN読んだら書いてある。

0556デフォルトの名無しさん

NGNG

二重起動は気にする必要はない。
Start()はEnabledをtrueにしてるだけだし、
Enabledを変更した時に値が同一なら以降の処理をしないようにしてる。

0557デフォルトの名無しさん

NGNG

＞５５５
　ありがとう。
　良く分からんが、System.windows.forms.timerってのはComインターフェース
なのかな？　ｖｂ６．０で作ったActiveXなんかもNETでは動作がおかしい。
VB6.0のときはEnable=trueだけで制御できた。

結論：flgを追加して、ディスエーブルするようにした。timerはFalseにしない。

0558デフォルトの名無しさん

NGNG

バグかどうかよくわからんけど、System.Windows.Forms.Timerは
マルチスレッド環境でうまく動かないことがあったな。

0559デフォルトの名無しさん

NGNG

>Timer は、ユーザー定義の間隔でイベントを発生させるために使用されます。
>この Windows タイマは、UI スレッドを使用して処理を実行するシングルスレッド環境に合わせて設計されています。
>ユーザーコードには利用できる UI メッセージポンプが必要です。
>また、このコードは必ず同じスレッドから操作し、別のスレッドに対する呼び出しをマーシャリングする必要があります。

いかにもお手軽に使う以外は使うべきでなさそうじゃないか。

0560デフォルトの名無しさん

NGNG

>559
ありゃ。ちゃんと書いてあったのか。失礼しました。

0561デフォルトの名無しさん

NGNG

開発環境が変わったんだけど、C#なしのVB.NETだけ、VSSも入ってないマシンになっちゃったから、
とりあえずSubversion + AnkhSVNを試してみた。

……VC++.NETがないと動作しないってマジですか ○|￣}＿
（正確にはVCProjectEngine.dllだかが必要らしい）

Subversion + TortoiseSVNでがんがるべき？
NTCVS + Iglooってどうなのかな。

0562デフォルトの名無しさん

NGNG

ツールバーをウィンドウから独立させる方法教えてくだちい！
普通フォームの端につくか、枠内で動くかしかできませんよね。
そこをなんとか。
ツールバー自体がアプリの実体に見えるようなものを作りたいんです。

0563デフォルトの名無しさん

NGNG

>>562
PhotoShopみたいなフローティングのツールバーってこと？
空のフォーム生成してDockしちゃえば？

クリレポがうまく配布できない
あるPCでは動くのにあるPCでは動かない
｛XXXXX～XXXX｝のCOMが何とかってエラーが出る
何かファイルが足りないんだろうか

0564プログラマ初心者

NGNG

.netでversion番号を入力したいんですがどういった方法を用いればよろしいですか？

0565デフォルトの名無しさん

NGNG

>>565
AssemblyInfo

0566564

NGNG

>>565
すんません。
参考になりました。

0567デフォルトの名無しさん

NGNG

フォームに大幅に変更を加え、実行したところ、変更途中のものがビルドされて
出てきて、実際にビルダーで作ったものとは異なる状態で表示されます。

エラーのある状態で実行すると、こうなるのでしょうか？途中経過を見たいので
最新の状態でビルドして画面を見たいのですが、どうすればよいですか？

0568567

NGNG

すみません、エラー部分に片っ端から ' をつけることで解決しました。

もうひとつ、教えていただきたいのですが、frmAというフォームをそっくりそのままコピーして
同じプロジェクト内でfrmBというフォームを作りたいんですが、どうすればよいのでしょう？

別名で保存しても、プロジェクトからは見えないのですが。

0569デフォルトの名無しさん

NGNG

>>568
既存項目の追加

0570デフォルトの名無しさん

NGNG

VB6のDirListBoxを使うにはどうすればいいんですか？

0571デフォルトの名無しさん

NGNG

ttp://www.google.co.jp/search?num=100&lr=lang_ja&oe=utf8&ie=shift_jis&q=DirListBox

0572５７０

NGNG

　VB6で作ったプログラムにDirListBoxがあるんですが、これをウイザード
で自動変換すると、NETに上手く変換してくれます。ところが、ツールボックスに
はDIRListBoxが見当たらない。
.NETのデザインエディターでコピーして貼り付けると自動的にDirListBox２が
できます。
　ということで、デザインエディターはVB６のDirListBoxもサポートしているわけです。
どうすれば、ツールボックスにDirListBoxを追加できるのかが知りたいのです。
どなたか分かりませんか？　

0573デフォルトの名無しさん

NGNG

ツールボックスで右クリックして

0574デフォルトの名無しさん

NGNG

571の3つめ辺りにある宇宙仮面のとこに書いてるっての。

0575５７０

NGNG

>574
おっーサンクス。でけたー。
帰りにMSに石なげてかえろっと。

0576デフォルトの名無しさん

NGNG

10秒後とにファイルを読み込むということをしたいんですが
どのようにしたらよいでしょうか？

0577デフォルトの名無しさん

NGNG

System.Windows.Forms.Timerを使えばいいんじゃない？

0578576

NGNG

タイマーコントロールをフォームに貼り付ける
その中にファイルを読み込むコード入れればよいんですよね？
でも、ボタンをクリックしたときにタイマーを使ってその処理
をしたいんですがどうすれば？

0579デフォルトの名無しさん

NGNG

>>578
> でも、ボタンをクリックしたときにタイマーを使ってその処理
> をしたいんですがどうすれば？

ボタンをクリックしたらタイマをスタートさせるという事？
ならその通りにコーディングすればいい。
貼り付けただけじゃタイマはスタートしないぞ。

0580noname

NGNG

リストボックスに表示されている項目において、マウスでクリックした
項目のテキストを取得するにはどうしたらよいのでしょうか。

例）
リストボックスに、「Ａ」「Ｂ」「Ｃ」と表示されているとする。
２番目をクリックすると、「Ｂ」という文字が取得できる。

サイトをさがしてみたのですが、マウスでクリックした項目が何番目
であるのかを取得する方法はのっていましたが、テキストの取得方法は
のっていませんでしたので、どうしたらよいのか分かりません。（汗
http://vbdotnet.fc2web.com/vbnet/control/ListBoxMenu.htm

基本的な質問ですみませんが、よろしくお願いします。

0581デフォルトの名無しさん

NGNG

まあ項目のインデクスからでも取得はできるけどね。

SelectedItemプロパティ。
選択アイテムの文字列なら.ToString()メソッドも。

0582noname

NGNG

>>581
すばやい回答ありがとうございます！！
助かりました。

0583デフォルトの名無しさん

NGNG

nprofって日本語対応だれかやってないのかなあ。
パスに日本語が入ってるとエラーが出る。

しかし、ちゃんと動作しても、情報のうまい見方がいまいちよくわからないのであった。
devpartnerなんかはわかりやすいけど、50万円か……
http://www.atmarkit.co.jp/fdotnet/tools/devpartner/devpartner_03.html

ANTS Profilerってのも見やすそうだけど、$295... http://www.red-gate.com/code_profiling.htm

0584デフォルトの名無しさん

NGNG

質問よろしいでしょうか
Web上を探し回ってUSBカメラの映像をフォーム上に表示させることには成功しました。
VFWとDirectShowを使ったやり方、表示はどちらもうまくいったのですが、DirectShow
のほうで、スナップショットの扱いがどうもうまくいきません。
スナップショットを静止画として別フォームに表示、ではなく、それをBMPかJPGとして
保存したいのです。
VFWではそれをクリップボードに取り込んだうえ、Doodle2というフリーのdllを使って
BMPに出力できたのですが、DirectShowでそのやり方を無理にとると、モニター全体の
PrintScreen状態の画像になってしまいます(欲しい画像は隅にちょこっとうつってる
だけ。VFWでは画像部分だけが取れた)

やりたいことはすでにVFWで実現できており、これは後学のためにという程度の
質問なので、誰かひまなとき教えてください。

0585デフォルトの名無しさん

NGNG

ようわからんが、取りあえずそれっぽいところ
ttp://www.google.com/search?num=100&hl=ja&q=directshow+%E3%82%AD%E3%83%A3%E3%83%97%E3%83%81%E3%83%A3&lr=lang_ja
ttp://mobiquitous.com/programming/usbcamera.html

0586デフォルトの名無しさん

NGNG

>>585さん
ありがとうございます
後のほうのリンク、内容はすごく面白そうなんですけど、読解できないのが
なさけない。
Cってのはこういう書き方をする言語だったんですか、とか、新たな発見を
してしまうレベルの素人だったりするので・・・

0587デフォルトの名無しさん

NGNG

昨日書いた者ですが、タイマーが作動してないのですが・・・

0588デフォルトの名無しさん

NGNG

そうか頑張れ。

真面目な話それだけじゃ何も分からないのでせめて
・何をどうしたか
・例外が出るならどんな例外か
・できれば関連部分のコード
を書かないと答えようがないよ。

0589587

NGNG

とりあえずタイマーが動いてるかどうか見たいんで
ラベルに、１秒ごとに表示させたいのですが。
とりあえずタイマー貼り付けてそのなかに
i = i + 1
Label1.Text = i
iは、タイマーの外で宣言してます
としたのですがラベルが0のまま動きません・・・

0590デフォルトの名無しさん

NGNG

VB.NETで作ったものって、VB6で動かせますか？

0591デフォルトの名無しさん

NGNG

>>589
で、その貼り付けたタイマのインスタンスに.Start()はしたの？
って言うところから質問を一問一答で繰り返していくというのは掲示板というシステム上歓迎できない。

>>590
VB6で動かすという意味が分からないのだが。
VB.NETで作ったものは.NET Frameworkが必要だよ。
//統合開発環境の名前と言語の名前が同じだとややこしいな。

0592デフォルトの名無しさん

NGNG

してないです。どうするんですか？

0593デフォルトの名無しさん

NGNG

>>592
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i As Integer
i += 1
Label1.Text = Convert.ToString(i)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 1000
Timer1.Start()
End Sub

0594デフォルトの名無しさん

NGNG

>>593
タイマーの定義の部分を見せてください。昨日の流れから別のタイマーに代えたりしてませんか？
Label1にアクセスしてますからSystem.Windows.Forms.Timer以外では問題が出るはずです。

0595デフォルトの名無しさん

NGNG

なんかびみょーに話がずれてないか？

0596デフォルトの名無しさん

NGNG

うん、始めから話が変だな。
大体System.Windows.Forms.Timerだったら
Start() Stop() でも　Enableでもどちらでも
スタート＆ストップ出来るじゃん。

0597デフォルトの名無しさん

NGNG

はじめのコードはタイマーより別のところが突っ込みどころ満載だったんだよね。
Sub threadMain()　＜－ワーカースレッドぽかったり
Do
　thread1.Sleep(100)　＜－なんか寝てたり
　If Now.Second = 0 Then　＜－　意味わかんなかったり
　　Timer1.Enabled = True
　　Timer1.Interval = 100
　　Timer1.Start()
　　picBar.Height = 500
End If
Loop

0598デフォルトの名無しさん

NGNG

配列をリッチテキストボックス(もしくは、ラベルかテキストボックス)に1行ずついれたいのですが、
どうやればできるでしょうか？
配列はstring型で10個です。配列の0～9を一行ずつ表示させたいです。
調べましたが、簡単すぎるのかヒットしませんでした。お願いします。

0599デフォルトの名無しさん

NGNG

String.Join()だな。

0600デフォルトの名無しさん

NGNG

>>598
改行を入れたいって話かな？だったら改行文字で区切ればよい。
VBだとvbCrLfって定数が使えたはず。

0601デフォルトの名無しさん

NGNG

一番簡単なのはRichTextBoxのLinesプロパティにそのまま文字列配列を代入する事。
ただし上書きになる。

0602599

NGNG

1番取った記念にサンプル乗っけちゃお。
Dim str() As String = {"aa", "bb", "cc", "dd", "ee", "ff", "gg", "hh", "ii", "jj"}
TextBox1.Text = String.Join(vbCrLf, str)

0603ディフォルトの名無しさん

NGNG

ADO.NETのDataSetの使い方がいまいち分からないです。。
ADOでの、ADODB.RecordsetでopenしてFilterでデータをしぼりこんで、
movenextしながらデータ取得。という手順をやりたいんですけど、
DataSetではFilterにあたるものがみあたりません。。。
どうしたらよいのでしょうか？
よろしくお願いいたします。

0604デフォルトの名無しさん

NGNG

>597
なんで意味わかんないの？

0605デフォルトの名無しさん

NGNG

>>603
DataSetは、端的に言えばDataTableのコレクションとそれぞれのDataTableのリレーションを管理するためのクラス。
データそのものはDataTableの中に入ってる。
DataTableのSelectメソッドが目的のものだろうね。

0606デフォルトの名無しさん

NGNG

>>603
System.Data.DataViewがそれにあたるのだが、それ以前のところで悩んでそうですね。
System.Data.DataSetは高機能のデータトランスファオブジェクトであって、
データベースのテーブルとは直接の関係はないのですよ。
読み込んだデータをまとめて溜め込んでおいたり、持ち運んだりするためのものなのです。

unixとlinuxの間をみるといいことがあるかも、それからキーボードのuからqを続けて見る。

0607ディフォルトの名無しさん

NGNG

>>605 >>606
ADO.NETは、リファレンスとか読もうとしても、
情報量が膨大でどこを読めばいいのか良く分からなかった
ところもあったので、読み方の糸口が見つかった気がします。
早速調べてみます。
ありがとうございます。

0608デフォルトの名無しさん

NGNG

ついでに便乗質問。

Datatable.Select()は便利だけど、戻り値がDatarow()になる。
ソートのために使うときなんか、結果はDatatableで欲しいんだけど、
Datarow()をFor Eachかなんかで回して1行ずつDatatableを作り直すしかないの？
ADO.NET 2.0だと、Dataview.ToTable()ってのが使えるみたいなんだけど……。

あと。
SQLを発行してDatatableを作ったあと、そのテーブルに対して操作を行ないました。
その結果、いっぱい重複行ができちゃったのでDISTINCTしたいんだけど、そういうのはさくっと簡単には書けない？

とりあえず、Datatable.Copy()で同じスキーマの空テーブルを作り、全ColumnをUniqueにして、
Tryで例外無視してむりやり全行ぶっこんでみたい。遅い。
全Columnを複合主キーにして、Findできなければ追加、ってやったらちょっとマシになった。
もうちょいスマートに書けないのかなぁ

0609デフォルトの名無しさん

NGNG

あ、テーブルに対して操作したのは、単にちょっと便利な配列として使ってただけで、
ＤＢに書き戻すためじゃないからね。
だからキーやら行数やらを変えたりしても問題なし。

0610デフォルトの名無しさん

NGNG

初めまして。学生ですが最近企業実践に行っている者です。
JavaとかPHPやPerlなどのWebブラウザ向けの言語は多少かじって
いるのですが、企業実践に行っている会社でVB.netをやることになって
しまい、いろいろ分からないところがあるので教えてください。

System.IO.StreamReaderとか言うのを使い、テキストファイルから
一行ずつ読み込んで、テキストボックスなどに出力し、また次の行を
読み込んで出力するみたいのを作らなきゃダメなんですが、ファイル
の終わりまで（EOF）行ったらファイルの先頭からまた一行読み込んで
出力するようにしてくれと言われました。
つまり、OpenFileDialogで選んだファイルを延々と一行出力しEOFになったら
また一行目から出力するものにしなきゃだめらしいです。
んで、私はファイルポインタをファイルの先頭に戻すやり方が良くわかりません。
seekメソッドとかそれらしきモノはあったのですがいかんせんVB.netに
慣れていないので使いかたがよく分かりません。

自分でも説明が下手だと分かるくらい駄文で申し訳ないのですが、真剣に困っています。
どなたか分かる方がいらっしゃいましたらやり方を教えていただけないでしょうか？

0611デフォルトの名無しさん

NGNG

一旦クローズして開き直し。
……ところでその仕様じゃ無限ループにならないのか。

0612610

NGNG

無限ループになりますが、いいらしいです。
タイマーイベントをかまし何秒間に一回出力、それを繰り返すモノ
が作れればいいらしいです。

0613デフォルトの名無しさん

NGNG

LAN内の共有フォルダの一覧を取得するには、どうしたらいいか誰か教えてください。
最悪の場合、VB.NETじゃなくても構いません。あたりがつけば自分でも調べますので

0614610

NGNG

>>一旦クローズして開き直し。
>>……ところでその仕様じゃ無限ループにならないのか。

開き直すときにまたOpenFileDialogを使わずに継続して
開きたいのですが、何かいい方法とかソースはないでしょうか？

ほんと質問してばっかで申し訳ありませんがよろしくお願いします。

0615デフォルトの名無しさん

NGNG

>>613
DOSでNET VIEW

0616デフォルトの名無しさん

NGNG

>>613
ttp://www.gdncom.jp/general/bbs/ShowPost.aspx?PostID=15296

>>614
ファイルのパスをどっかに保存しておけば良いだけだろ。

0617デフォルトの名無しさん

NGNG

>>610
A:

（処理）

goto A

でいいんじゃないの？

0618613

NGNG

>>615,616
レスありがとうございました。本当に助かりました。

0619デフォルトの名無しさん

NGNG

>>610
全く関係ないが
久々にまともな日本語を読んだ気がする

0620598

NGNG

>>599さん
ありがとうございます。joinを使うとできました。
>>600さん
改行文字で区切るっていうのがわかりません。すいません。
>>601さん
ファイルから呼び出して使うので無理でした。

0621デフォルトの名無しさん

NGNG

Sub threadMain()
Do
　thread1.Sleep(100)　＜－なんか寝てたり
　If Now.Second = 0 Then　＜－　意味わかんなかったり
　　Timer1.Interval = 100
　　Timer1.Start()
　　picBar.Height = 500
End If
Loop

この説明が気になります。これは１分に一回Timer1を起動するものですね。
＞thread1.Sleep(100)　＜－なんか寝てたり
この行はあった方がいいのでしょうか？　それとも何かまずいのですか。
意図としては、
Now.Second = 0 のチエックは、常時チェックすると
CPUのロスになるのでSleepしています。ただし１秒以上スリープすると
最悪０をチエックできないタイミングが発生します。
本当は　thread1.Sleep(990)でも十分だと思いますが、判定中に長い処理が
割り込んだ場合、10msecを超える場合があるかもしれません。それで100msec
にしています。

しかしこれでも、900msec以上も時間がかかる割り込みが入ると問題があります。
I/O制御ですので一回でも０の判定をミスするとまずいのですが、大丈夫でしょうか？

0622デフォルトの名無しさん

NGNG

質問よろしいでしょうか。

指定したHTMLタグを抽出する.NETのクラスライブラリはありますか。

一応自分で探しましたが見つける事ができなかったので
よろしくお願いします。

0623デフォルトの名無しさん

NGNG

>>621
なんていうか、泥の台の上で彫刻を作ろうとしている感じだ。
まず一から整理し直して、「なにをするのにこうした、しかしこれこれでうまくいかない」をはっきりさせるべき。

0624デフォルトの名無しさん

NGNG

>>621
ワーカスレッドから、Windows.Forms.Timerの操作はしてはいけない。
正常動作する保証はないし、たぶん正常に動作しない。
picBarが Windows.Forms.Control の類だとすると、同じくワーカスレッドからの操作はしてはいけない。
正常動作する保証はない。正常に動作することもある。
そもそもTimer1のイベントハンドラはUIスレッドと同期的にしか実行されないわけだから、
フォームにTimer2でも置いて１分毎にTimer1.Start()でもすれば十分。

0625デフォルトの名無しさん

NGNG

フォームのアイコンを非表示にする方法はありますか？
探しても見つかりませんでした。

0626デフォルトの名無しさん

NGNG

フォームのアイコンってのが、何を示しているのかわからん。

フォームタイトルの左にある小アイコンのことか？
コンパイル時に適用される既定のアイコンのことか？
フォーム上にPictureBoxか何かで貼り付けたアイコンのことか？

0627デフォルトの名無しさん

NGNG

>>626
>フォームタイトルの左にある小アイコン

説明が足りませんでしたそれです。

0628598

NGNG

またわからないことがありました。
Dim mySR As New StreamReader(a.txt)(仮)としてファイルを読み出しました。
Dim mystring As String
Dim name(), rank(), ten() As String
Dim i As Integer = 0
mystring = mySR.ReadLine()
rank = Split(mystring, ",")
ten(i) = rank(1)
name(i) = rank(0)

ファイルの中身は
あ,47
い,92
う,39
といった感じです。これを実行させると
ten(i) = rank(1)の部分で
オブジェクト参照がオブジェクトインスタンスに設定されていません。
と表示されます。
rankの値は1が「47」となっています。0は「あ」です。
rank(0)とrank(1)をそのままlabel.textに入れると表示はされます。
点と名前を分割してファイルから読み出し配列にしたいのですが、なんとかなりますでしょうか？
ながったらしくなってすみません。お願いします。

0629デフォルトの名無しさん

NGNG

配列もオブジェクトなのでNewが必要。
が宣言時に要素数を指定する事でNewは省略できる。
Splitしたのを入れるrankはSplit内で配列が初期化されているからこちら側でどうこうする必要は無し。

Dim name(1) As Stringとか書けばいいわけだな。

0630デフォルトの名無しさん

NGNG

省略というかそもそもVBでは配列はNewを使わないけどな。概念的にはともかく。

0631598

NGNG

>>629-630さん
すばやいレスありがとうございます。
要素数をいれることでできました。

0632デフォルトの名無しさん

NGNG

>>628
前の方にもあったが

ten(i) = rank(1)
↓
Redim ten(i)
ten(i) = rank(1)

こう変えてやってもできる。

0633デフォルトの名無しさん

NGNG

初めて書き込みます。VB6ではbasモジュールで宣言すればよかったグローバル変数ですが、
VB.NET 2003でグローバル変数を宣言するには、どうすればいいのでしょうか。
ヘルプや参考書にも載っていなくて・・・。
よろしくお願いいたします。

0634デフォルトの名無しさん

NGNG

>>633
同じだよ

0635621

NGNG

＞６２４
>ワーカスレッドから、Windows.Forms.Timerの操作はしてはいけない。
>正常動作する保証はないし、たぶん正常に動作しない。

　そうでしたね。上で指摘いただいてました。すいません。
　
>picBarが Windows.Forms.Control の類だとすると、同じくワーカスレッドからの操作はしてはいけない。
>正常動作する保証はない。正常に動作することもある。

そうなんですか？　それではthreadの中で何が動作可能なのでしょうか？
たとえばNow.Second=0のチェックは問題ありませんか？
　DIM　I　as　Integer
I=I+1とかはOKですよね。Iが保証されなくてSleepから復帰すると時々１１から５０
にJumpしてしまうなんてことはないですよね。
問題となるのはContorolと名のつくもの全部ですか？

0636621

NGNG

>まず一から整理し直して、「なにをするのにこうした、しかしこれこれで
>うまくいかない」をはっきりさせるべき。
　
あんましはっきりしませんが。
＞なにをする
　thread内のdo　loop内でNow.Second=0のチエックをしたい。
＞こうした
　リスト参照
＞しかしこれこれでうまくいかない
　疑問がある。

１）threadないのDoLoopの１loopの時間保証があるか？
　確認する方法はあるか？
２）そのた色色

0637デフォルトの名無しさん

NGNG

>>635
申し訳ないけれども、もう少し・・・ではなくもっとちゃんとドキュメントを読んだほうがいいような気がします。

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpcondevelopingmultithreadedwindowsformscontrol.asp
難しげな用語も出てくるけど、無視しないでちゃんと読んでみてください。
こういうちゃんとしたドキュメントを無視して誰かに「もっと簡単な説明」を求めても、
もっといい加減で不適切な説明しか得られないと思います。

0638デフォルトの名無しさん

NGNG

もっと根元的なところの話だがね　＞なにをする

>>552のコードなら、わざわざスレッドを用意する必然性が全くない。
picBar.Height-1を行うタイマとpicBar.Height = 500を行うタイマの2つを用意すれば済む話。
//1つでも済むかもね。

0639621

NGNG

＞６３７
＞こういうちゃんとしたドキュメントを無視して誰かに「もっと簡単な説明」を求めても、
＞もっといい加減で不適切な説明しか得られないと思います。

　ご指摘ありがとうございます。チラッと読みかけましたがかなり解りにくそうですね。
他の参考書を探してみます。
　
　とりあえずの考え方として、
　threadないでは使ってはいけないものがあるのですね。
キーワードはthreadSafeという言葉でしょうか？
ビルドする時になにかスイッチの設定をするとthreadSafeでないものをthread内部で使うと
ワーニングがでるのでしょうか？
　なにか確認する方法はないですか？

0640デフォルトの名無しさん

NGNG

C♯相談室 Part20(http://pc5.2ch.net/test/read.cgi/tech/1103005153/)の
659から同じような話題で盛り上がってるから参考にどうぞ。
676にワーカスレッドの使い方のサンプルコードがあります。C#だけどVB.NETでも
考え方はさほど変わらないから見てみるといいです。
とりあえずワーカースレッドから使えないのはSystem.Windows.Forms配下のオブ
ジェクトと思ってれば間違いないです。

0641621

NGNG

＞６４０
　ありがとうございます。確認してみます。
少し読んでみましたが、色々と問題があるみたいですね。

0642デフォルトの名無しさん

NGNG

>619
自演乙

0643デフォルトの名無しさん

NGNG

>>642
俺の日本語がおかしいことに気がつかないのか

0644621

NGNG

>>552のコードなら、わざわざスレッドを用意する必然性が全くない。
>picBar.Height-1を行うタイマとpicBar.Height = 500を行うタイマの2つを用意すれば済む話。
>//1つでも済むかもね。

そうですね。問題があるときに回避する手立ては重要です。しかし、スレッドぐらい
まともに動いてもよいと思いませんか？
　「まともに」と言うのは、thread内で動作が保証されないものがあるなら、コンパイル
時にエラーを出すなり、注意をだしてもいいではないですか。
　しごく、当たり前のことだと思いますが。

0645デフォルトの名無しさん

NGNG

ﾗｲﾌﾞﾗﾘの仕様や制限をｺﾝﾊﾟｲﾙｴﾗｰに出来るかﾎﾞｹ

0646621

NGNG

>ﾗｲﾌﾞﾗﾘの仕様や制限をｺﾝﾊﾟｲﾙｴﾗｰに出来るかﾎﾞｹ

ライブラリの仕様の制限を判断できればよいだけです。
方法はいくらでもあります。ライブラリの先頭に「できるかボケ」と入れとけは
OK。
ましてVBなら勝手に仕様を作ってるわけだから言語仕様に組み込むことさえできる。

0647デフォルトの名無しさん

NGNG

マルチスレッドのサンプルプログラムがきまってコンソールアプリなのは
この制限のため。System.Console系は複数スレッド共有できます。

0648デフォルトの名無しさん

NGNG

ライブラリの先頭ってどこだ。
ライブラリのヘルプには書いてあるが。
※分かりにくいのは確かなのでもっと分かりやすいとこに書いといて欲しいのは事実だが。

ついでだがThread内からは使えないと言う意味不明の理解は正しておく事をお奨めする。

0649デフォルトの名無しさん

NGNG

VBの人って何でこんなにレベル低いの？

0650デフォルトの名無しさん

NGNG

>649
２ちゃん全体がそうだよ。

0651デフォルトの名無しさん

NGNG

>>625
だれもわかんないか

0652デフォルトの名無しさん

NGNG

>651
どこをどう探したか書かないと誰も答えてくれないよ。

0653デフォルトの名無しさん

NGNG

>651
ただのネタだと思って普通にスルーしてたけど、難しいのかと
思って今やってみたら1分でできたよ。
でも>651みたいな書き込みしちゃー、もう誰も教えてくれないわな。
残念だったね。

0654デフォルトの名無しさん

NGNG

InstallShieldの質問はここでしてよいでしょうか。

0655633

NGNG

>>634
ソリューションエクスプローラ見ても、basモジュールはありませんでした。また、ヘルプでbasモジュールで検索かけても
basモジュール自体については何も書かれていません。質問を変えます。basモジュールを作成するには
℃の様にすればよいのでしょうか??何度もすみません。

0656621

NGNG

>マルチスレッドのサンプルプログラムがきまってコンソールアプリなのは
>この制限のため。System.Console系は複数スレッド共有できます。

そうなんですか？　それは無茶苦茶制限ですね。
Console.Write("hello")くらいしかできないとしたら寂しいかぎりですよ。

System.Objectの派生クラスで
OK... System.Console
NG... System.Windows
その他不明
これがMSの公式見解ですかね？　実際に使ってみないと解らないので経験則で
判断してほしいってことでしょうか？

しかし「任意のスレッドから安全に呼び出すことができる関数として、コントロールには、
InvokeRequired、Invoke、BeginInvoke、EndInvoke、および CreateGraphics の 5
つがあります。ほかのメソッドを呼び出す場合は、Invoke のメソッドの 1 つ
を使用します。」
とありますので、Invokeを使えば、System.Windows.Formsも問題ないと
いうことらしいですね。

0657621

NGNG

＞ライブラリのヘルプには書いてあるが。
　どこにかいてあるんですか？
＞ついでだがThread内からは使えないと言う意味不明の理解は正しておく事をお奨めする。
解りません。おしえてください。お願いします。
「threadサブルーチン内でコントロールにアクセスすると変な挙動を示す。」では
だめ？
　そもそも必ず誤動作するのにコンパイラエラーがなぜでないのかが不思議です。

0658最凶VB厨房

NGNG

>>621
ウザイ

0659最凶VB厨房

NGNG

>>622
System.Text.RegularExpressions

0660デフォルトの名無しさん

NGNG

まぁ、621 が馬鹿なのはおいておいても、せっかく属性があるんだから、
スレッドセーフかどうかを示す属性があってもいいな。

0661デフォルトの名無しさん

NGNG

>>655
.bas も .vb に置き換わってる。ということで、.bas モジュールを作成する
ことは不可能。.vb で .bas 相当のものを作ればいい。

0662デフォルトの名無しさん

NGNG

ある一定時間ごとに、ファイルを読み込みたいのですが、
ただ、まだ読み込みたいファイルは存在せず、作成されるまで
数秒おきに読み込みを行い、読み込みに成功したら
ループを抜け出すというものを作りたいのですが
ループの中をうまく作れません。
とりあえず、countという変数を5秒ごとに1増えるというよう
にしました。

0663デフォルトの名無しさん

NGNG

>>655
ここで書き込んでる連中もC#中心に使ってるやつらはたまに知らないことがあるんで正解を
書いとこう。項目の追加でクラスというのとモジュールというのがあるだろう。
どっちも拡張子は.vbだがモジュールのほうはModule Module1 - End Moduleのブロックが出
てくるだろう。それがBASにあたるわけで、ここでPublicにしたものは他のクラスからその
まま使える。モジュールで定義したものはModule1.の修飾も省略できる。
Public NotInheritable Class GConst
　　Private Sub New()
　　End Sub
　　Shared Sub New()
　　　　TESTCONST = "Hello"
　　End Sub
　　Public Shared ReadOnly TESTCONST As String
End Class
こういう得体の知れないコードを書いてるやつがいたら間違いなくC#かJava厨なので気をつけろ。
おれも実は最近までこうやってたよぉ～～

0664デフォルトの名無しさん

NGNG

>663
脳内乙。

0665デフォルトの名無しさん

NGNG

サービスに登録するにはどうすればいいのでしょうか。

0666デフォルトの名無しさん

NGNG

ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbcon/html/vbconcreatingntserviceapplications.asp

0667デフォルトの名無しさん

NGNG

>666
ありがとう。

0668デフォルトの名無しさん

NGNG

>>633
おしい、Imports プロジェクト名.GConst をほかのモジュールの先頭に入れれば完璧。

>>664 乙厨？　乙であります。 >>430 >>642と同一犯かなアンカーの付け方が一緒。
他でいじめられたんだろうな。

0669668

NGNG

上記の>633は >>663　のミスです

0670デフォルトの名無しさん

NGNG

>668
俺のアンカーの付け方って特殊？
>100 か >>100 の2通りあるだけだと思うんだけど。
自分が >>100 だから俺を特殊と言ってるの？

0671670

NGNG

ちなみに430や642は俺じゃないよ。

0672デフォルトの名無しさん

NGNG

>>668
乙厨に文句言うのはいいんだけど、実際君の書き込みが脳内だから
いまいち説得力ないねｗ

0673デフォルトの名無しさん

NGNG

だれか662よろしくお願いします

0674デフォルトの名無しさん

NGNG

>>662
書き込みの続きがあるのかと待ってたのですけど

0675デフォルトの名無しさん

NGNG

>>662
タイマーとDIRを使って、ファイルが存在するか調べる。
ファイルが存在すれば、ファイルの読み込みを行い、タイマーを止める。

つーやり方でいいんじゃないの？

0676デフォルトの名無しさん

NGNG

>>674
スマソ。あれだけです。
よろしくお願いします

0677デフォルトの名無しさん

NGNG

>>675
ループでやってる以上、存在しない間は他の処理をしてはいけないんじゃないか？
しらんけど。

0678６６３っす

NGNG

６６３の脳内書き込みは俺なんだが、匿名版は誰が書いてるかわからんからややこしいな。
ここもIDを出して欲しいよ。書き方はあれだがうそは書いてないつもりだぞ、脳内な部分は
指摘してくれ。受けてたつぞい。

0679デフォルトの名無しさん

NGNG

>>675
ファイルが存在しなかったら
またループさせるとこが、うまく作れないんですorz

0680最凶VB厨房

NGNG

While Not File.Exists("読み込みたいファイル")
End While

0681& ◆R7PNoCmXUc

NGNG

インスタンス変数でフラグを持たせて処理が必要ならONにします。
同時にタイマーは数分おき切り替えし起動にします。
タイマーの処理ルーチン内で
　フラグチェックOFFならルーチン終了
　ファイルの存在チェック、無いならルーチン終了
　読み込み、エラーならルーチン終了。読まなかったことに。
　ファイルを処理済み用の名前に改名、エラーならルーチン終了。読まなかったことに（できるか？？）
　フラグをOFFにしてルーチン終了
タイマーは回り続ける。
ファイルは書き込み途中で読みにいくことがあるから、書き込んでから
処理対象の名前にリネームかけてもらうとよいです。

0682デフォルトの名無しさん

NGNG

>>679
>>680のやり方でいいとおもうけど、数秒おきにしたいなら

While Not File.Exists("読み込みたいファイル")
　i = DateTime.Now.Second + "待機したい秒数"
　While DateTime.Now.Second < i
　End While
End While

0683デフォルトの名無しさん

NGNG

へんなコテハンになってしまった orz
ロジックがわからないのか、具体的な命令の書き方がわからないのか
教えてください。
誤）切り替えし　正）繰り返し

0684デフォルトの名無しさん

NGNG

待機用のループには是非ともThread.Sleepを入れていただきたい。

0685デフォルトの名無しさん

NGNG

タイマーでやれって。

0686デフォルトの名無しさん

NGNG

>>683
具体的な命令の書き方です

0687662

NGNG

もしかして、ループとかタイマーとか使わなくても
ファイルが作成されたら、イベント発生させるような
ものがVB.NETにあったりするんですか？

0688デフォルトの名無しさん

NGNG

System.IO.FileSystemWatcherクラスがそうだが、NT系限定。

0689662

NGNG

NT系限定とは？？

0690デフォルトの名無しさん

NGNG

>>689
FileSystemWatcherクラスのヘルプ嫁。

0691デフォルトの名無しさん

NGNG

マニュアル読んでもよくわからないのは FileSystemWatcherが
今回の案件に使えるかどうかですね。今ひとつ使いどころが不明。
イベントがもれたり、逆に多すぎたりがないか不安ですね。
素直にタイマーでポーリングのほうが簡単じゃないかな。

0692デフォルトの名無しさん

NGNG

>>680
こんなやり方したらメッセージループが固まらないのか？それともそれでも無問題？
まあ無問題にしてもSleep(1)は是非入れないとな。

0693デフォルトの名無しさん

NGNG

予定のファイルがなかなかこなかったらずっとループしてますね。
ワーカースレッドやSystem.Timers.TimerならSleepを入れればいいかもしれ
ませんが、Windows.Forms.Timerだと画面が固まってしまいます。
それにマルチスレッドだとちょっと前の論争が復活しそうで怖い。

0694デフォルトの名無しさん

NGNG

Thread.Sleep(5000)とすれば、タイマいらないんじゃないか？

0695デフォルトの名無しさん

NGNG

>>674
どんな続きを期待したの？

>>678
ｱｯﾋｬｯﾋｬｯﾋｬｯﾋｬｯﾋｬ。腹いてー！！こいつおもしれーよ！！
今度から名前欄に「僕はピエロ」って書いてくれ！
ｱｰｰｰｰｯﾋｬｯﾋｬｯﾋｬｯﾋｬ！！

0696最凶VB厨房

NGNG

>>695
ﾜﾛﾀ
が、放置プレイよろ

0697デフォルトの名無しさん

NGNG

>>696
え？どこか面白かった？

0698僕はピエロ

NGNG

>>695
期待通りに来てやったぞ。さあ、どこが具体的に脳内か具体例を挙げてくれ。
さぁ。笑うだけなら猿以下だぞ。明日も休みだ思い切ってつられてやるぞい。

0699デフォルトの名無しさん

NGNG

>>698
えー、めんどくさいなぁ。他の人はみんな分かってるのに・・・
そのうちスレ違いって怒られるからイヤなんだ。
君が休みとかは全然関係ないんですわ。
例えば>>663の下から2行目とかな。

0700デフォルトの名無しさん

NGNG

>>695-699
いい加減にしろ。ピエロ君が>>663の件を謝罪して
終わりにしとけ。

0701699

NGNG

>>698
あとは↓のサイトで自習してもらえると（私も他の皆さんも）助かります。
ttp://www.media-k.co.jp/jiten/

0702& ◆R.0ARCa5Ow

NGNG

>>699
そこは当然主観だ。サンプルコード以下は最後の1行の笑いを取るための
レトリックって気づけよ。
あげ足取りにもならん、もっと骨のあるやつを頼む。

0703デフォルトの名無しさん

NGNG

>>702
意味不明な開き直りはやめてください。
まともな反論もできない方のようですので、もういじめるのは
やめておきます。

きっとあなたはこの後捨て台詞を吐くのだと思いますが、
私が呆れ果て、スレが汚れるのを防ぐために相手をするのを
やめたことは（あなた以外の）誰の目にも明らかですので
構いません。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

さあ、どうぞ！捨て台詞＆勝利宣言を！！

0704703

NGNG

↓が変な位置に入ってしまいましたが、捨て台詞＆勝利宣言を
次に書き込めよ、という指示事項です。

0705デフォルトの名無しさん

NGNG

>>702
>>701はスルーですか？ｗ

0706デフォルトの名無しさん

NGNG

>>702
すげー開き直りだな。お前専用の別スレ立てな。遊んであげるから。

0707703

NGNG

なんか誤解されそうでイヤだけど、>>705-706はオレじゃないよ。

0708デフォルトの名無しさん

NGNG

まだか？

0709デフォルトの名無しさん

NGNG

誰か代わりに捨て台詞書けよ。それで次の質問行こう。

0710デフォルトの名無しさん

NGNG

まだ？

0711デフォルトの名無しさん

NGNG

>>693
ループ内にDoEventsを入れることで画面が固まるのは回避できるが、ループから抜けるコードの作成はしておいた方がいいぞ。

0712デフォルトの名無しさん

NGNG

まだ？

0713デフォルトの名無しさん

NGNG

While Not File.Exists("読み込みたいファイル")
　i = DateTime.Now.Second + "待機したい秒数"
　While DateTime.Now.Second < i
　End While
End While

↑これやったんですが、Fileのとこでエラーでるんですが・・

0714デフォルトの名無しさん

NGNG

エラーは実行時かコンパイル時か？エラーの内容は？

0715デフォルトの名無しさん

NGNG

コンパイル時にFileが宣言されてませんと
なんでや～わからん

0716デフォルトの名無しさん

NGNG

System.IO.Fileだから次の1文がソースの先頭に必要。
Imports System.IO
それか
While Not System.IO.File.Exists("読み込みたいファイル")

0717デフォルトの名無しさん

NGNG

まだ？

0718デフォルトの名無しさん

NGNG

>>716
thanks

0719デフォルトの名無しさん

NGNG

ここは質問スレなので、無意味な揚げ足取り等はやめて頂けると助かります。
みんな、分かってて無視してたんだったらごめんなさい。

0720デフォルトの名無しさん

NGNG

>>719
どれのこと言ってるの？

0721デフォルトの名無しさん

NGNG

>>719
荒らしやあおりは完全スルーが良い。
俺は２ｃｈ専用ブラウザを使っているので、
目に付く煽りレスや嵐レスは片っ端から透明アポーン。
これで全然気にならなくなるよ。

0722デフォルトの名無しさん

NGNG

While Not Sstem.IO.File.Exists("読み込みたいファイル")
　i = count + 5
　While count < i
　End While
End While
Label1.text = "test" 'とりあえずできてるどうか試すため

countは1秒ごとに1増えるとタイマを
使ってやってみたのですがうまくいかないorz
コンパイルはできるのだが、 testが表示されない
砂時計がずっとでてる状態です。
なにを付け加えればいいですか？

0723719

NGNG

>>720

>717
>712
>710
>708

想像つきそうなものだが･･･。

0724デフォルトの名無しさん

NGNG

このループでスレッドが占有されてるから、同じスレッドで動くSystem.Windows.Forms.Timerはカウントできない。
カウントにタイマを使うんじゃなくて、ループの中でSystem.Threading.Thread.Sleepを使って時間を稼ぐとか。

というかUIを止めてていいの？
ループを使わずに、タイマで発生するイベント内で存在チェックをするべきだと思うんだけど……。

0725デフォルトの名無しさん

NGNG

Windows.Forms.Timerを使ってるならそのプログラムがループしてる間は
イベントは発生しない。つまり、countは永遠に加算されない。
根本的にロジックを見直したほうがよいが、あえていうなら、内側の
ループにDoEventsをいれる。

0726デフォルトの名無しさん

NGNG

>>723
バカが。せっかくオレがスルーの練習させようと思ったのによ。
あっさりレスすんなよ。

0727デフォルトの名無しさん

NGNG

>>722
While count < i
system.Windows.Forms.Application.DoEvents
End While

こうやれば、countに数値が加算されるので、できないこともない。
が、普通はそう言うやり方はしない。

0728デフォルトの名無しさん

NGNG

>>727
普通のやり方を教えてください！

0729デフォルトの名無しさん

NGNG

>>728
sleep()使えよ。

0730デフォルトの名無しさん

NGNG

>>729
えええええ、一体どうやれば。ソースコードを掲載してくださいよ。

0731デフォルトの名無しさん

NGNG

ワーカースレッド内ならThread.Sleepでいいが同一スレッド内だとUIが固まる。

0732デフォルトの名無しさん

NGNG

>>722
結局何がしたいのかをもう少し明確にしないとまともな人の回答は得られないよ。
DoEventsとか書いてる人はまともなプログラマじゃないから。

0733デフォルトの名無しさん

NGNG

>>732
え？DoEvents使っている人は全てまともじゃないって意味ですか？

0734デフォルトの名無しさん

NGNG

>>733
お前が学生なら違うやり方を考えたほうがいい。
お前が働いててVB使ってるなら先輩に相談しろ。

0735デフォルトの名無しさん

NGNG

俺は先輩からループ構造はifしか使うなって叩き込まれたなぁ。

0736デフォルトの名無しさん

NGNG

ListViewで選択されているアイテムのインデックス番号を取得する方法はないのでしょうか？
調べてみても、インデックス番号を指定して選択や
ListBoxのインデックス番号取得しか見つかりませんでした。

0737デフォルトの名無しさん

NGNG

ListView.SelectedIndices

0738デフォルトの名無しさん

NGNG

namespaceを利用してﾊﾟｯｹｰｼﾞ化したいんですが、
何かｻﾝﾌﾟﾙになるようなﾍﾟｰｼﾞ知りませんか？
基本的な機能をもつｸﾗｽをﾗｲﾌﾞﾗﾘ化したいです。

0739736

NGNG

>>737
出来ました！ありがとうございました。
それも先ほど見つけたのですが、経験不足故少し勘違いしてたみたいです。

0740デフォルトの名無しさん

NGNG

すいません。変数名.ControlChars.NextLineで改行文字が付加できますよね？
今度は改行文字があるかないかを判定してあれば削除したいのですが
どうすればできるんでしょうか？すいませんが教えてやってくださいまし。。。

0741デフォルトの名無しさん

NGNG

>え？DoEvents使っている人は全てまともじゃないって意味ですか？

そんなことはないと思うよ。DoEventを使ってシーケンシャルに書く方が
処理の流れがわかって解りやすい。DoEventを使うのが正解。

　レベルの低い先輩はDoEventを使わない。
　さらにレベルの低い先輩はDoEventを多用する。

こういう性質があります。

0742デフォルトの名無しさん

NGNG

>>741
だよな。>>734みたいなのが前者の先輩ってことかな。

>>735
これはどういうこと？

0743MSのバグ発見？

NGNG

'すいません。で改行文字が付加できますよね？
' 今度は改行文字があるかないかを判定してあれば削除したいのですが()
'どうすればできるんでしょうか？すいませんが教えてやってくださいまし。。。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strData As String
RichTextBox1.Text = "test" + ControlChars.NewLine + "A"
strData = RichTextBox1.Text
Dim src, dest As String, n As Int16

For n = 0 To strData.Length - 1
src = strData.Substring(n, 1)
If src = ControlChars.NewLine Then Exit For '判定できないBUGか？
dest += src
Next
RichTextBox2.Text = dest
End Sub
何で判定できないの？　わーいバグ駄馬具

0744最凶VB厨房

NGNG

>>743
改行文字が1文字だと決め付けているおまえがバグ

0745デフォルトの名無しさん

NGNG

>>743
アホさ加減でギネスに認定されました。
おめでとう！！

0746MSのバグ発見？

NGNG

Debug.Write("漢字は一文字で判断するくせに、NewLineも一文字で読めよボケー")

0747デフォルトの名無しさん

NGNG

身近にいれば泣きたくなるが、遠めに見てると微笑ましいな

0748MSのバグ発見？

NGNG

>改行文字が1文字だと決め付けているおまえがバグ

アフォか？　NewLineは一文字だろが。漢字が8バイトだから
つーて８charに分解するかボケ。
　お前な。ストリングつーのは文字あつかうオブジェクトなんだよー。
文字扱うオブジェクトで何でバイト展開すんだよ。
そういうのを中途半端いうんやな。わかったか？

0749デフォルトの名無しさん

NGNG

>748
>745

0750デフォルトの名無しさん

NGNG

＞これはどういうこと？
＞＞７４２
.●DoLoopの使い方
Do While (n)
Loop
Do
Loop While (n)
Do Until (n)
Loop
Do
Loop Until (n)

'whileは実はしばしば初期化が2重になる。しかも忘れる。
'UNTILは実はしばしば後処理が2重になる。しかもわすれる。
'使い分けが面倒。取り立てて意味なし。馬鹿な言語構造の見本としてしばしば
'取り立たされた。

Do
If n Then Exit Do
Loop
'仕方がないから、これに統一する。

0751デフォルトの名無しさん

NGNG

>>750
驚きの苺。

0752デフォルトの名無しさん

NGNG

>>748
8バイト漢字ってすごいな。 UTF-64？

0753デフォルトの名無しさん

NGNG

＞ＭＳのバカ
恥ずかしくて釣り師を装いたくなるのは分かるが、もう痛々しいだけだからやめとけ

0754デフォルトの名無しさん

NGNG

>恥ずかしくて釣り師を装いたくなるのは分かるが、
>もう痛々しいだけだからやめとけ

　痒いとか痛いとか、幼児語つかわないで、できたらオブジェクト指向にそって
反論してみたら？
どちらかというと君の方が痛いような。

0755デフォルトの名無しさん

NGNG

>>754
ちゃんと相手してほしいなら、まず君がみんなと同じ
土俵に上がってこないとね。でも幼児なら時間が立てば
大人になるけど、君の場合はどうなんだろう。
大人は大人だけど健常者じゃないよね。待てば直る？

0756デフォルトの名無しさん

NGNG

お前らさ、精神異常の人間をよってたかって袋叩きにするってのは
人間としてどうなのかな。放置してやれよ。せめてもの優しさを見せようぜ。

0757デフォルトの名無しさん

NGNG

>>754
ホント典型的な人。議論をケムにまくために、突拍子もない
飛躍をする。

得塁数、ホウボウ、という単語でググってみよう。
きっと君のお友達に会えるよ。
彼なら最後の最後まで君に付き合ってくれると思うから、彼の
掲示板に書き込みしてごらん。

↑

おお、いいアドバイス。オレ精神科医になる素質ありじゃん？

0758デフォルトの名無しさん

NGNG

得塁数HP
ttp://www.enjoy.ne.jp/~hoboiwak/

掲示板はこちら。
ttp://hyper2.amuser-net.ne.jp/~auto/b11/usr/hobo/brd1/bbs.cgi

0759デフォルトの名無しさん

NGNG

>>758
知ってる。プロ野球板にスレもあったけど消えたな。
ホウボウに比べたら、>>754なんて全然可愛いもんだぞ。
オレなんか微笑ましく見てられたもん。

0760デフォルトの名無しさん

NGNG

精神分析したがる馬鹿を精神分析すると、
>>755は「ちゃんと相手してほしいなら、」と‘語るに落ちて’いる。

分りやすくいうと、「相手してほしい」自分を他人に素朴に投射しているわけだ。
別に>>754は構って欲しくてレスしている訳ではなかろう。
いい歳してそれが本気で分らないようならそれこそ「精神分析の対象」だわ。

まあ前フリはこれぐらいにして、
＞MSのバグ発見？
ネタかもしれないがあえてマジレス。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vblr7/html/vamscmiscellaneousconstants.asp

よく分らないけど、要するに文字列の置き換えをしたいんならそのまんまの
メソッドがあるけど。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemstringclassreplacetopic2.asp

0761デフォルトの名無しさん

NGNG

>>760
ホント、分かりやすい人ｗ
あ、ごめんなさい。彼にレスするのはこれで最後にしますね。＞他の皆さん

0762デフォルトの名無しさん

NGNG

>>760
はい、自演乙。IP見えてますので。

0763デフォルトの名無しさん

NGNG

>>760
>>758は覗いて掲示板に書き込んでみてね。
もちろん喧嘩売るんですよ。
あ、あなたの場合普通に書き込めばいいのか。

0764デフォルトの名無しさん

NGNG

>>754と>>760が同じ人なのか別人なのか分からないけど、
いずれにしろ、最近精神異常者のかっこいい捨て台詞ブームが
起こってることはご存知ですよね。ここまでの経緯から、
かなり期待されてますよー。さあ、どうぞ！！

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

0765デフォルトの名無しさん

NGNG

＞大人は大人だけど健常者じゃないよね。待てば直る？
　
　待ってもむりだね。

＞お前らさ、精神異常の人間をよってたかって袋叩きにするってのは
＞人間としてどうなのかな。放置してやれよ。せめてもの優しさを見せようぜ。

　狂いかけってのが天才なんだよね。君は超健康優良児だな。W
ま、プログラマーにはもってこいだ。がんばりたまえ。

0766デフォルトの名無しさん

NGNG

なぜ放置できない？

0767デフォルトの名無しさん

NGNG

＞ホント典型的な人。議論をケムにまくために、突拍子もない
＞飛躍をする。
　
　ソリャおめーが飛躍してんじゃないの。説明になってないじゃん。
プログラムのプもないし。　７６０を見習いなせい。

＞いい歳してそれが本気で分らないようならそれこそ「精神分析の対象」だわ。

　いい歳して、せめて精神分析の対象になれるぐらいにはなりなさいね。

0768デフォルトの名無しさん

NGNG

＞７６０
　ご丁寧にありがとう。

印刷と表示の定数
印刷および表示の関数を呼び出すときに、実際の値の代わりに
コード内で次の定数を使用できます。

メンバ定数等価な値説明
CrLf vbCrLf Chr(13) + Chr(10) キャリッジリターン文字とラインフィード文字の組み合わせ。
NewLine vbNewLine Chr(13) + Chr(10) 改行文字。

たいそうにControlChars モジュールのメンバのくせにバイトの組み合わせと等価かよ。W

＞String.Replace メソッド (String, String)
＞このインスタンスに出現する指定 String 文字をすべて、別に指定した String 文字に置換します

　そうだそうだ、これがベストだな。

0769デフォルトの名無しさん

NGNG

＞いずれにしろ、最近精神異常者のかっこいい捨て台詞ブームが
＞起こってることはご存知ですよね。ここまでの経緯から、
＞かなり期待されてますよー。さあ、どうぞ！！

　コラー、精神正常者。可もなし、付加もなし。道端の石ころといっしょだよ。
チョックラ小便ひっかけさせてもらってもいいかい？

0770デフォルトの名無しさん

NGNG

>769
0点。ご苦労様。再投稿はいらないですよ。

0771デフォルトの名無しさん

NGNG

えらくスレが進んでると思ったら、改行文字すら扱えないバカの
粘着レスかよ。

0772デフォルトの名無しさん

NGNG

誰かCRLFぐらい教えてやれよ。

0773デフォルトの名無しさん

NGNG

0D 0Aの順番をポカミスして0A 0Dになっててハマったことならあるな。

0774デフォルトの名無しさん

NGNG

vb定数(vbCrLf)が楽でいいじゃん。

0775デフォルトの名無しさん

NGNG

iモードのメールを閲覧するプログラムを作っているのですが、絵文字の表示で躓いています。

絵文字の画像（gif）は用意してあり、ブラウザコントロールで表示させたいのですが、
実行ファイル内に埋め込んだ画像をブラウザコントロールで表示する（imgタグで使う？）方法はないでしょうか？

0776デフォルトの名無しさん

NGNG

すいません、>>740の者なんですが、結局改行文字（CRLF）を
削除するメソッドってないんでしょうか？
基本的な事かとは思いますがわからないので教えてください。

0777デフォルトの名無しさん

NGNG

テキストファイルの内容を全部読みこむ
にはどうすれば？

0778デフォルトの名無しさん

NGNG

>>776
だから>>760に書いてあるよ。

0779デフォルトの名無しさん

NGNG

>>777
ttp://dobon.net/vb/dotnet/file/readfile.html

0780777

NGNG

Inputとかではできないのですか？

0781776

NGNG

>>760さんが教えてくれたMSDNを見て、自分でちょっと考えてみたんですけど
行末の改行文字を削除するなら

Dim str1 As String = str2.Replace(ControlChars.NewLine, "")
で出来るんでしょうか？それか

Dim str1 As String = str2.Replace(Chr(13) & Chr(10),"")
でやればいいんでしょうか？改行コードはCRLFです。

0782デフォルトの名無しさん

NGNG

>>781
やってみりゃわかるじゃん。こんなとこで質問するより余程結論が早い。

>>777
その辺のことってMSDNに結構丁寧に書いてあると思うが。。
まずMSDN読めば？読んでわからなきゃプログラミングなんてやめるが吉。

0783デフォルトの名無しさん

NGNG

>>780
FileOpen

>>781
vbcrlf

0784デフォルトの名無しさん

NGNG

>>780
Inputってなんだよ？　もっと具体的にやりたいことを書いて。
StreamReaderを使わないなら、ループしながら一行ずつ変数に
加算していくような手段しかないよ。

>>781
実際にやってみた？

0785777

NGNG

>>784
テキストファイルの内容を全部読み込んで
その中身を別のテキストファイルに付け加えたい
のです。

0786777

NGNG

書き込むときはどうすれば？

0787デフォルトの名無しさん

NGNG

>>785
>>364,366に似たような事例がでてる。
ttp://pcweb.mycom.co.jp/special/msdos/10.html

0788776

NGNG

>>782、>>785
実際に試す事ができるならすぐにでもやりたいんですが、
VB.netを使って作業するのが会社のPCでして、自宅のPCには
.net環境がないんですよ。なのでとりあえずこんな感じでいいのかなって
いうのが聞きたかったんです。勘違いさせてすいません。。。

0789776

NGNG

>>785じゃなくて>>784でした、ごめんなさい。

0790デフォルトの名無しさん

NGNG

>>788
こいつでフリーの開発環境が構築できる。
VB.NETで作ったソースはImportで読み込む必要があるけどな。
ttp://sharpdevelop-jp.sourceforge.jp/index?SharpDevelop-jp

0791777

NGNG

何度もスイマセン
読み込んだものを、テキストファイルの中身のテキストの後に
付け加えるのがどうしてもわからないです・・

0792デフォルトの名無しさん

NGNG

>>791
文字列を２つに分けて読み込んでおいて、String1 &= String2とか。
書き出しはさっき教えてもらってたStreamReaderのすぐ下にある、
StreamWriterを使えばいいじゃん。
ttp://dobon.net/vb/dotnet/file/writefile.html

0793デフォルトの名無しさん

NGNG

StreamWriter(String, Boolean, Encoding)で追加される方のファイルを追加モードで開ける
StreamReader(String, Encoding)で追加する方のファイルを開ける
StreamReaderのReadToEnd()メソッドで全部読み込んだのを
StreamWriterのWrite(String)メソッドで書き込む
両方ともClose()を呼んでストリームを閉じる

こうやって一見親切に教えてやって本人の成長を妨害してみるテスト。

0794777

NGNG

>>792
ありごとうございました。感謝感謝

0795776

NGNG

>>790
これ、すごそうですね。いずれVS.net買おうと思ってますけど
それまでの自主勉強用に入れてみたいと思います。
有難うございました。

0796デフォルトの名無しさん

05/01/17 00:56:31

テキストファイルがEOFかどうかを判定する方法を教えていただけないでしょうか？

0797デフォルトの名無しさん

05/01/17 00:59:18

まずその文章の意味を教えていただけないでしょうか？

StreamReaderで開けてるのならPeek()メソッドで返値が-1かどうかで判断する。

0798デフォルトの名無しさん

05/01/17 01:02:40

FileOpenで読んでるならこっち。
ttp://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafcteof.asp

0799デフォルトの名無しさん

05/01/17 01:15:24

テキスト関連の質問が続いてるようだが、同一人物か？
貼ってるリンクとかしっかり熟読してから質問したほうがいいよ。

0800デフォルトの名無しさん

05/01/17 01:51:21

VB6もほとんどやった事無いのに面接で
「VB.NETならまかせて下さい。」
って大見得切ってしまった派遣プログラマーと予想。
会社で試行錯誤してる姿なんて周りに見せられよう筈も無い。

0801デフォルトの名無しさん

05/01/17 04:10:13

他のスレで無視されたのでここで質問します。
waveファイルを鳴らす方法(apiを利用して？)がなんとか分かったんですが、
その後再生中か停止中かの情報を取得するにはどうしたらいいのでしょうか？

0802デフォルトの名無しさん

05/01/17 04:25:40

ttp://homepage1.nifty.com/rucio/main/technique/teq_1.htm

0803655

05/01/17 13:35:52

>>663
できました!!何でこんな大事な事を、ヘルプや参考書は載せないんだろう・・・
.NET2002の時にはあったのかな??

0804デフォルトの名無しさん

05/01/17 13:50:31

いつまでもこんな非オブジェクト指向な仕様に頼ってんじゃねぇ、という暗黙のメッセージ。

0805デフォルトの名無しさん

05/01/17 13:56:43

VB.NETから、java起動させて、javaのプログラム
を実行することはできるでしょうか？
どうしてもそのやり方がわからなくて困ってます。。

0806デフォルトの名無しさん

05/01/17 14:10:21

>>805
IEコントロール使えば？

0807デフォルトの名無しさん

05/01/17 14:43:47

>>805

Shell("java.exe")

0808デフォルトの名無しさん

05/01/17 14:52:43

>>807
それだけでいけるんですか？
ファイルの実行はどうすれば？

0809デフォルトの名無しさん

05/01/17 14:57:15

>>808
>>それだけでいけるんですか？
いけるかどうか試してみろ
>>ファイルの実行はどうすれば？
同上

0810デフォルトの名無しさん

05/01/17 15:08:11

ファイルの実行できないですよ？

0811デフォルトの名無しさん

05/01/17 15:14:15

Shell("ここに実行したいファイル名")ですよね？
Shell("①")
↑がコマンドプロンプトに①を入力してるのと同じなんですか？

0812デフォルトの名無しさん

05/01/17 16:09:16

>>808
Shell("java.exe javaのファイル名")
Shell("start javaのファイル名")

か、Process.Start() でも使え。

0813デフォルトの名無しさん

05/01/17 16:12:06

ASP.netなんですけど、ADへのログインユーザーIDを取り出したいのですが、どうやれば良いのでしょう？
System.Environment.UserDomainName だと名前
System.Environment.UserName だと、ASPの名前？が出てきます。

他に何かありませんか？

0814805

05/01/17 16:26:28

Processコンポーネントを使って↓ようにやってみたのですが
うまくいきません・・・・・何が違うのでしょうか？
Shellでやりたいんですがうまくいかないですし・・

With Process1.StartInfo
.FileName = "java.exe"
.WindowStyle = ProcessWindowStyle.Normal
.Arguments = "ファイル名.class"
Process1.Start()

End With

0815デフォルトの名無しさん

05/01/17 17:18:32

開始時のディレクトリ？

0816デフォルトの名無しさん

05/01/17 17:18:49

Shell上手くいかないか？　”CMD　/C　"＋...　で上手く行くんじゃないか
Process.Startってはじめてきいた。そんなんができるんか？
なら、Shellよりその方がいいとおもう。
理由はしらんけど。

0817デフォルトの名無しさん

05/01/17 17:24:26

System.Diagnostics.Process.Start("ファイルパス")
だな。
jarが動くか確認してみたが、問題なく動いたぜよ。

0818デフォルトの名無しさん

05/01/17 17:31:42

マイクロソフトのサンプルに良く書いてある
Console.Write
だけど
Consoleとはいったいどこだろうか。
サンプルファイルを実行してもなにも表示されなくてこまっちゃう

0819デフォルトの名無しさん

05/01/17 17:34:12

コンソールとか標準出力とかいう概念を分からない人までいるのか……。

0820814

05/01/17 17:36:18

適当にノートパッドとかいろいろ開いてみたんですが
うまく起動するし、ファイルも開けるんですよ。
でもclassファイル実行しようとすると
コマンド画面が一瞬でてすぐ消えるって感じです。

Shellはよくわからないんですが、javaでtest.classを
実行したい時は具体的にどのように記述すればよいのですか？
一向に進まないので、恥じを承知で書きます。

0821デフォルトの名無しさん

05/01/17 17:45:28

せっかちだな
プロジェクトファイル作るときに指定してる

作った後に変更したければ
プロジェクトのプロパティ
出力の種類
「windowsアプリ」→「コンソールアプリ」

0822デフォルトの名無しさん

05/01/17 17:49:45

つーか、
java test
だろ？

コマンドラインで試してからShellで呼べよボケ。

環境変数とかカレントフォルダとかうぜえならバッチファイル作って叩け。

0823814

05/01/17 17:54:35

普通に実行したらできるんですけど・・・
やばいまじわかんないorz

0824デフォルトの名無しさん

05/01/17 17:57:39

>>823

>.FileName = "java.exe"

振るパスにしてもダメ？

0825デフォルトの名無しさん

05/01/17 17:58:09

>>821 どーもっ！

0826デフォルトの名無しさん

05/01/17 18:08:19

>>822
怒りたい理由はわかるが、落ち着け

>>823
出来ないってことは、エラーを吐き出してるんだが、なんていうエラーを吐き出してるか、まずそれを書いてみ。

0827デフォルトの名無しさん

05/01/17 18:11:41

最近のjavaは
java test.java
なんていいかげんな書きかたで動くようになったのか？

0828デフォルトの名無しさん

05/01/17 19:18:40

Shell と　Processコンポーネントどうちがうんですか？
ハッキシ言ってこたえてほしい。

0829デフォルトの名無しさん

05/01/17 19:20:25

814のやり方でなんですが、java.exeは起動
できるようなんですが、実行がうまくできて
ないようです。テストとしてjavaのプログラムは
"hello"をループで永遠表示させるものにしました。
VBを実行して、一瞬でるコマンドプロンプトの画面に
E～～～NoFoundERROR\Z:MY～～って表示され、その下に
helloと一回だけ表示されます。
一瞬でほとんど読み見とれなかったのですがかんな感じです。
全く実行されてないわけではないようですが・・・

0830デフォルトの名無しさん

05/01/17 19:21:49

>>829
javaのソースを抜粋して載せてください。
そっちに原因があるかも。

0831デフォルトの名無しさん

05/01/17 19:22:16

　JAVAってドットネットのプロジェクトにいれて、動かせないの？
C#とVBとC++と１プロジェクトで混在しても動くんでしょ？やったこと
ないけど。

0832デフォルトの名無しさん

05/01/17 19:24:11

＞８２９
　結果をファイルに落とすのがふつのやり方でしょ。javaの場合。

0833デフォルトの名無しさん

05/01/17 19:27:21,

ハードディスクに保存してあるShift-JISテキストファイルをSystem.IOで文字列変数に読み込むと
勝手にUnicodeに変換されちゃってるのかい？オレたちの許可なしに。

0834デフォルトの名無しさん

05/01/17 19:35:07,

>>833
Shift_JIS とかそういうのは文字列そのものじゃなくて文字列を「バイト列」に符号化するときの取り決め。
VB的には文字列は昔からUnicode。生のデータに触りたければ byte の配列にでも入れておくべし。

0835デフォルトの名無しさん

05/01/17 19:39:22,

>>832
いいえ。

0836デフォルトの名無しさん

05/01/17 19:42:55,

>>790
こういうのってどういう人が使ってるの？
普通にVisual Studioじゃダメなの？

0837デフォルトの名無しさん

05/01/17 19:43:55,

>>830
いや。全く問題なかったです。
VBとおさないと普通に実行できます。

0838デフォルトの名無しさん

05/01/17 19:44:45,

>>828

0839デフォルトの名無しさん

05/01/17 19:47:38,

>>828
俺もその違い気になるな。
誰かあJAVA実行するプログラムかいてやれ！
と初心者の俺が言ってみた

0840デフォルトの名無しさん

05/01/17 20:04:52

>>837
それはいまだに上手く実行できていないあなたの判断でしょ。
色々意見もらっといて、もしそこに原因があったらどうするの？

0841デフォルトの名無しさん

05/01/17 20:09:53

>>837
単独で動かすときの現在ディレクトリと、VBから動かすときの
現在ディレクトリの違いは？

0842デフォルトの名無しさん

05/01/17 20:21:53

終了モードが違うのでは

0843デフォルトの名無しさん

05/01/17 20:22:22

>>389 試験的なプログラムなんで、こんな簡単なものです
public class Hello {
public static void main(String[] args) {
for(;;){
System.out.println("Hello");
}
}
}

>>841
同じですね

814のプログラムはまちがってますか？

0844デフォルトの名無しさん

05/01/17 20:38:29

With Process1.StartInfo
.FileName = "java.exe"
.WindowStyle = ProcessWindowStyle.Normal
.Arguments = "ファイル名.class"
Process1.Start() ←この行をEnd With の外に書く

End With

0845デフォルトの名無しさん

05/01/17 21:16:30

ファイル名を指定して実行で「java Hello」と入力してOKを押すとどうなる？

0846デフォルトの名無しさん

05/01/17 22:32:50

最近、VS.netを買ったんですけど
VB.netとC＃って何が違うんですかね～？
文法が違うとか見た目が違うとかそういう事じゃなくて
VBだと、こんな苦労する物がC#だとお手軽に作れちゃうよとかその逆とか・・・
どちらも詳しい方、いましたら教えてくださ～い。

0847デフォルトの名無しさん

05/01/17 22:33:24

>>845
もう相手する必要ねーって。どうせ実行時ディレクトリが違うだけなんだから。

>>843で同じとか言ってるけど確認方法書いてないし。
どうせ見当違いのことしてんだよ。

0848デフォルトの名無しさん

05/01/17 22:34:24

>>846
その質問に至るまでにあなたが調べて分かったことは？
レポートよろしく。

0849デフォルトの名無しさん

05/01/17 22:44:17

>>847
あれから返事が無いところを見ると、まさに図星みたいだね。

0850801

05/01/17 23:07:13

>>802
何かもうマジで有難う。求めてたものです。

0851デフォルトの名無しさん

05/01/18 00:47:23

透過処理画像が重なったとき、ちゃんと下の画像が見える（>>30と同じ）
プログラム教えてください(；´Д`)調べても全然わからないしできないし

0852デフォルトの名無しさん

05/01/18 13:07:56

フォームにテキストボックスを貼り付けました。
そのテキストボックスをダブルクリックすると
Private Sub TextBox1_TextChanged(...
というメソッドができました。
他のイベント（メソッド）はどのように作成すればよいですか？
VB6ではイベントの一覧から選べたのですが・・・
すみません。よろしくお願いします。

0853デフォルトの名無しさん

05/01/18 13:29:18

>>852
いま開いてるコードエディタの右上に見当たらないか？

0854デフォルトの名無しさん

05/01/18 13:49:40

>>853
通常はVB6と同じように表示されるのですか？
こちらでは
(Declarations)
Finalize
InitializeComponent
New
TextBox1_TextChanged
しか表示されていません。
何か設定があるのでしょうか？
ちなみに.NET2002です。

0855デフォルトの名無しさん

05/01/18 13:52:05

すみません。わかりました。
左のコンボボックスでコントロールを選択しないといけないのですね
ありがとうございました。

0856デフォルトの名無しさん

05/01/18 17:27:52

テキストボックスで、現在選択されているテキスト上にマウスカーソルが来た時、マウスポインタを変更。
現在選択されているテキスト上からマウスカーソルが離れると、マウスポインタを元に戻す。

ということをやりたいのですが、どのようにすればできるでしょうか？

テキストのサイズを測ってやるやり方だと、スクロール前なら何とかなるのですが、
スクロールが起こると座標が変化してしまい、位置がずれてしまいます。

0857デフォルトの名無しさん

05/01/18 18:16:54

あげ万

0858デフォルトの名無しさん

05/01/18 18:34:38

こ

0859814

05/01/18 20:10:55

昨日ここに、java実行について質問したものです。
ちょっと用があって、今ここチェックしました。
いろいろ答えてくれた方々ありがとうございました。
どうも、エラーは、
Exception in thread "main" java.lang.NoClassDefFoundError:
こんなので、どうもクラスパス設定に問題があるようです。

0860デフォルトの名無しさん

05/01/18 20:14:17

>>859
じゃあインポートしているクラスが見えてないんじゃないの？
起動時に java -cp ～でクラスパスを指定すれば？

0861デフォルトの名無しさん

05/01/18 20:19:24

>>859
NoClassDefFoundError:
の後ろに何か付くだろ？

0862デフォルトの名無しさん

05/01/18 20:19:52

>>861
まったくだ。

0863デフォルトの名無しさん

05/01/18 20:20:28

>>861
バカのくせに、この情報は必要不要の判断を勝手にするから
なかなか正解に辿り着けないんだよな。

0864デフォルトの名無しさん

05/01/18 20:22:46

っていうか、昨日から釣りとしか思えないんだよな、回答する側も。
フォルダが違うか余計な拡張子付けてるかだけの話だろうに。

0865デフォルトの名無しさん

05/01/18 20:26:05

>>864
じゃあお前が早く解決してやれよ。

0866デフォルトの名無しさん

05/01/18 20:28:38

エラー出してるVBコード自体から、出てるエラーメッセージまで
余すところ無く全部吐き出してみそ。話はそれからだ。

0867デフォルトの名無しさん

05/01/18 22:01:59

もう誰かこいつと同じ事やってやれ
VBでボタンはっつけて、クリック↓これ
With Process1.StartInfo
.FileName = "java.exe"
.WindowStyle = ProcessWindowStyle.Normal
.Arguments = "Hello"
End With
Process1.Start()

javaは、↓これ
public class Hello {
public static void main(String[] args) {
for(;;){
System.out.println("Hello");
}
}
}

これまんまやって、ここのやつができたら,>>859は
諦めろということだ

0868867

05/01/18 22:03:33

ちなみに俺は、家にjava入ってないから無理だ

0869デフォルトの名無しさん

05/01/19 00:21:21

あれできね、なんでだ

0870デフォルトの名無しさん

05/01/19 01:19:38

ゲームとかリアルタイムっぽい事するために、
スレッドの基本的な使い方まではなんとか分かったのですが、
正確に16msごとにループ(1秒に60回にするため)する制御が出来ません・・・
いまんとこGetTickCount()を使ってヘタレながらループしてるけど
このタイマーの精度は良くないっぽいです。。。

0871デフォルトの名無しさん

05/01/19 02:37:10

すいません、ＶＢ.ＮＥＴの初心者ですが、
vb>netの使い方など分かりやすいサイトもしくは本
ってありますか？なんかたくさんありすぎて
困ってます。。

0872デフォルトの名無しさん

05/01/19 07:01:56

>>871
ム板の説明読んで来い

0873デフォルトの名無しさん

05/01/19 13:14:49

VB.NETには標準でデータを入力できるグリッドはありますますか？

0874デフォルトの名無しさん

05/01/19 13:17:40

ありますますます

0875デフォルトの名無しさん

05/01/19 13:29:57

>>874
DataGridでしょうか？
これはDBと接続しなくても使えますか？

0876デフォルトの名無しさん

05/01/19 13:34:00

使える。

0877870

05/01/19 13:35:27

いろいろ調べたんですが、mSecオーダで時間を返してくれるやつが無いです・・・。
間隔を測ってメソッドを呼ぶもの？は見つかりましたがそれじゃないです・・・。
誰か知りませんか？

0878デフォルトの名無しさん

05/01/19 13:37:46

>>876
どうも！
ちなみに使い方がわかるサイトなどあれば・・・・
だめ？

0879デフォルトの名無しさん

05/01/19 13:45:53

DataGrid貼り付けました。
カラムヘッダーを設定したいのですがそれらしいメソッドがありません。
激しくむずい

0880デフォルトの名無しさん

05/01/19 14:35:12

>>877
マルチメディアタイマを使うとか。分解能は1ms。
ttp://homepage2.nifty.com/DSS/WinSys/Win/MMTimer.htm
//って間隔を計って～ってのはこれのことか？

QueryPerformanceCounter/QueryPerformanceFrequncyを使うとか。

0881イチゴ

05/01/19 14:43:38

vb.net2003でスキャンディスク・デフラグの自動実行・終了させたいのですが
どうすればいいですか？

0882デフォルトの名無しさん

05/01/19 17:54:29

Protected Overrides Sub Finalize()
っていつ動くの？
ブレーク張っててもさっぱり来ないんだけど・・・

0883デフォルトの名無しさん

05/01/19 18:05:45

GCに片づけられる時。
具体的には（或いは魔法の呪文的には）、
WeakReferenceによる参照を除く参照が無くなってから、
そのオブジェクトのジェネレーション以上のオブジェクトを片づけるGCが走った時。

実例を挙げれば、

Dim a As new Hoge()
a = Nothing
GC.Collect()

で発生する。

0884デフォルトの名無しさん

05/01/19 18:37:53

>>883
うわー、すごーい

0885デフォルトの名無しさん

05/01/19 22:24:37

誰でも読めるMSDNも読まずに質問してる奴が多いな。流石VB

0886デフォルトの名無しさん

05/01/19 22:35:40

>>885
？

0887デフォルトの名無しさん

05/01/19 22:39:52

ガベージコレクタの仕様は.NET開発者ガイドに明記してある。

0888デフォルトの名無しさん

05/01/19 22:54:34

仕方ないよ。VB６上がりが多いんだから。これからドットNETやるとなって、
C#があるのにわざわざ好き好んでVB選ぶ奴なんかいるわけないだろ。

0889デフォルトの名無しさん

05/01/19 23:04:15

それにしたって、マイクロソフトがせっかく手間ヒマかけて用意してくれた
ドキュメントを読もうとしないのはなぜなんだろうね。
あーいうのはちゃんと読んだほうが時間と労力の節約になるのになー。
字が読めないわけでもなさそうだし・・・

0890デフォルトの名無しさん

05/01/19 23:06:46

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

0891デフォルトの名無しさん

05/01/19 23:42:19

>>887-889
ダ　メ　な　奴　は　何　を　や　っ　て　も　ダ　メ

0892デフォルトの名無しさん

05/01/20 00:15:49

テキストボックス（複数行）の文字列内の改行を他の文字に変換したいのですが、
どうしたらいいでしょうか？

例

りんご
ごりら
らっぱ

↓

りんご→ごりら→らっぱ

0893デフォルトの名無しさん

05/01/20 00:31:44

>>892
悩みどころが全く分からない。

0894デフォルトの名無しさん

05/01/20 01:06:22

>>892
TextBoxのTextプロパティは改行を含めた文字列を持っているから、
適当に文字列操作関連のメソッドを使って好きな文字列に置換。

0895デフォルトの名無しさん

05/01/20 09:51:31

相談なんですが
VB.NETでOracleのデータベースへ接続する普通のC/Sアプリを
作ることになりました。
この際、Oracleへ接続する方法がいくつかあるようですが
お勧めはなんでしょうか？
OLE.NETやODP.NETなどがあるようですが・・・・
よろしくお願いします。

0896デフォルトの名無しさん

05/01/20 10:04:36

>>895
それならまずADO.NETのOracleClientを使いたくない理由を説明すべきだろ？

0897デフォルトの名無しさん

05/01/20 11:02:07

>>896
ADO.NETが標準的なやりかたですか？
ありがとう
OLE.NETがADO.NETだと思ってました。違うんですね。

0898892

05/01/20 14:06:20

ありがとうございました。
バッチリできました。

0899デフォルトの名無しさん

05/01/21 01:01:39

質問です。

Chr関数を使って文字コードを取得したいんですが、
128(&H80)以上になると文字コードが0と表示されてしまいます。

こういった場合はどうしたらいいですか？

0900デフォルトの名無しさん

05/01/21 01:06:55

>>899
アスキーコード表
http://www.shibu.jp/cppreference/ascii.html

0901デフォルトの名無しさん

05/01/21 01:21:35

たとえばパネルとかに、線とか画像とか描画した今、正にそれ自体を
Imageに格納できないのですか？？？
ファイルに保存はできるのに・・・。

0902デフォルトの名無しさん

05/01/21 01:22:13

>>900
やっぱり無理ッスよね・・・
諦めます

0903デフォルトの名無しさん

05/01/21 01:50:33

>>902
入力されたキーのコードを取得したいのか、コード表を生成したいのか
などなど、もう少し具体的に「何をしたいのか」を書いてくれないと、
できるのかできないのか、そもそも方法が合ってのかもアドバイスできません。

0904デフォルトの名無しさん

05/01/21 02:12:12

>>903
902です。
すいませんでした。説明不足で・・・。
具体的にはコード表を生成したいんです。
ですから0～255(FF)の文字コードがあれば可能なんですけど、
chr関数には0～127までしかなく、128以上は・・・。
もし、chr関数を使えないとしたら
chr関数を使わない別の方法でコード生成とかできる方法とかって
ありますか？

どうかよろしくお願いいたします。

0905デフォルトの名無しさん

05/01/21 02:39:31

>>904
文字コードの128以上に「何を」表示したいんだ？

0906903

05/01/21 02:44:24

>>904
以下の６つのコードを chr関数で Char型にして String型の１つの変数に
代入してごらん。128以上のコードが何に使われているのかが解るよ。
138 230 146 163 130 234

0907デフォルトの名無しさん

05/01/21 07:17:10

>>901
Imageに格納できないのですか？
自分がこんな質問されたらムカつかないのかな。

0908デフォルトの名無しさん

05/01/21 10:04:19

>>907
別にいいんじゃないか？
やり方を聞いてるわけじゃないし。
後出しで「じゃぁどうやればいいんですか」なんて言い出してきたら放置だが。

>>901
出来る。

0909デフォルトの名無しさん

05/01/21 11:10:55

諸先輩方教えてください。
VB6.0は結構やりました。
このたびVB.NETの仕事をやることになりました。
こういった人間が参考にしたらいい書籍がありましたら
教えてください。

0910デフォルトの名無しさん

05/01/21 13:06:00

幅が広過ぎてなんとも。
大きめの本屋でVB.NETの欄をざっと立ち読みしてみたら？

0911デフォルトの名無しさん

05/01/21 15:16:47

質問です｡
HttpWebRequestでサーブレットと通信するソフトを作るのですが、中身をgzipで圧縮したり、解凍したいのです。
どこかにgzipのDLLはありませんか？
もしくは参考書、おすすめのHPとかないでしょうか。

よろしくお願いします。

0912911

05/01/21 15:19:30

↑
すみません。
なんか誤解をまねくというより書き方がおかしいです。

×：サーブレット
○：Webサーバー

0913デフォルトの名無しさん

05/01/21 15:28:05

>>911
これは？
ttp://www.gzip.org/zlib/

0914デフォルトの名無しさん

05/01/21 15:31:38

ttp://www.icsharpcode.net/OpenSource/SharpZipLib/
マネージドならこれだな。

0915デフォルトの名無しさん

05/01/21 15:42:58

Compact Framework にてPDAのアプリを作り始めました。
・form1にはbutton1～button4がある。
・それぞれクリックした時に画像ファイル名を引数で渡してform2を生成
・form2にはform1で選択した画像を大きく表示する。
こんなん作りたいです。でもよくわかりません。
[button1クリックでtest.jpgをform2に渡してform2のloadイベントで自身のpictureboxに取得した画像を表示]
の方法について教えてください。

0916デフォルトの名無しさん

05/01/21 16:40:58

普通にコンストラクタに書けばいいんじゃないか？

0917デフォルトの名無しさん

05/01/21 17:20:04

質問です。
Ｂというスレッドで作ったコントロールを、Ａというスレッドで作ったフォームに貼り付けたいのですが、どうすればよいでしょうか？

0918デフォルトの名無しさん

05/01/21 17:26:29

諦めてフォームが動いているスレッドでコントロールを作るようにする。

0919911

05/01/21 17:28:05

>913
>914

ありがとうございました。
やってみます。

ただ、英語が…orz

0920デフォルトの名無しさん

05/01/21 17:35:08

英語のドキュメントぐらい読めないとやってけないよ。
技術系のドキュメント英語は基本的に平易だし。

0921デフォルトの名無しさん

05/01/21 18:49:13

俺は難解な日本語のMSDNを四苦八苦しながら読んでいるうちに、
英語のMSDNもなんとなく読めるようになった気がする。(w

0922デフォルトの名無しさん

05/01/21 20:52:04

M$の訳はおかしいから日本語と英語見比べないとはまる事もあるぞ。

0923デフォルトの名無しさん

05/01/21 22:20:28

実情は米M$の外注に勤める日本人PGが
和英辞典片手にせっせと書いてたりするがなｗ

0924デフォルトの名無しさん

05/01/21 22:26:55

なんかきな臭いときは必ず英語版も確認するようにしてる。

0925デフォルトの名無しさん

05/01/21 23:39:43

画面のプロパティでDPI設定を「大きいフォント」に変更すると
フォームのレイアウトが崩れてしまうのですが、どう対処
したらよいでしょうか。

おそらくFormのAutoScaleというプロパティが関係あると
思うのですが、これをTrueにしただけではダメでした。
他に注意しなければならないプロパティ等はあるでしょうか。

0926デフォルトの名無しさん

05/01/22 00:03:22

テキストファイルからStreamReaderで1行ずつ読み込み、それを指定ミリ秒毎に
送信ってなものを作ろうとしてるんですけど、ツールのタイマーコントロールって
精度悪いですよね？1秒単位とか５００ミリ秒単位なら大丈夫っぽいけど
２００ミリ秒単位くらいからかなり精度が怪しくなります。
高精度のタイマーを作るにはやっぱりAPI使うしかないんでしょうか？
APIはさっぱり分からないので、どなたかいいサイトなんかありましたら
教えてください。

0927デフォルトの名無しさん

05/01/22 00:08:21

System.Timers.Timerを使う。

0928デフォルトの名無しさん

05/01/22 02:07:33

>>926
.NETはどうかしらんが、6.0時代はTimerを使うと処理の間隔が
マシン環境によって変わってくるからなぁ・・・。

スレッド立ててループで回して送信したら？

0929デフォルトの名無しさん

05/01/22 02:18:17

まずはドキュメント読もうや。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbcon/html/vbconserverbasedtimers.asp

0930デフォルトの名無しさん

05/01/22 02:23:20

>>907
何か良く分かりませんが、迷惑掛けたのならあやまります。
すみませんでした。

0931デフォルトの名無しさん

05/01/22 07:16:27

>>930
よく分からずに謝っても意味がない。

0932デフォルトの名無しさん

05/01/22 14:07:06

vbではglobalでフォーム間の共通変数がみれたのに
vb.netはなくなったのですか？
どうやればいいのだろう？

0933デフォルトの名無しさん

05/01/22 14:15:12

>>932
少し上のレスを読め

0934デフォルトの名無しさん

05/01/22 14:18:22

>>926
ていうか本当にmSec単位で処理する必要なんてあるの？
こういうこと書く人って９割方本人の「思い込み」で書いてると思う。

0935デフォルトの名無しさん

05/01/22 15:43:36

気になるな。テキストファイルの１行ごとを定期送信するのにAPIのタイマーじゃ精度不足って
どんな案件なんだろうか。

0936デフォルトの名無しさん

05/01/22 18:14:11

他プロセスの動作負荷にはげしく増減があるとか？
‥‥つか、パソコンの処理能力が足りてないのかも。

0937デフォルトの名無しさん

05/01/22 18:45:13

いや、そういう意味じゃなくてmSecオーダーのリアルタイム性が要求される処理なんて
そんなにないんだよ。

単に「バッファ」って考え方がわかってないだけのような気がするんだけど。

0938デフォルトの名無しさん

05/01/22 20:49:14

Javaで言うHTMLEditorKit.Parserみたいなクラスはないでしょうか。

0939デフォルトの名無しさん

05/01/22 20:54:16

すいません。どなたか>>925をお願いします。

0940デフォルトの名無しさん

05/01/22 21:07:41

>>939
人に物を尋ねるときはまず自分の問題が他人に正確に過不足なく伝わるような
文章を書くこと。

他人に「エスパー」であることを期待しないこと。
こんなの中学卒業までにしっかりマスターしとけよ。

フォームのレイアウトが崩れるって言われてもねえ。。

文章で問題を表現する自信がないなら、
とりあえずどっかのアプロダに画像上げるとか手はあるでしょ。

0941デフォルトの名無しさん

05/01/22 21:10:49

>>940
わかんないのか・・・

0942デフォルトの名無しさん

05/01/22 21:11:23

938は具体的にそのクラスがどういう機能なのか説明すべきだな。

0943941

05/01/22 21:11:41

他の方どうぞー

940さんはもう書き込まなくていいですよ。

0944デフォルトの名無しさん

05/01/22 21:12:52

>>942
はあ？説明しなきゃいけないの？常識として知っといてほしいな。
まぁあんた以外には伝わってると思うが・・・

0945デフォルトの名無しさん

05/01/22 21:13:25

随分下手な煽りだな。

0946デフォルトの名無しさん

05/01/22 21:14:08

>>945
わかんないのか・・・なんでわかんない奴に限って書き込むんだ？

0947946

05/01/22 21:18:09

おっとと・・・そう書いたらみんな黙っちまったか。
ホントしょーもねー奴ら

0948デフォルトの名無しさん

05/01/23 01:15:47

>>938
ある。
以上。

0949938

05/01/23 08:24:46

>>948
あれ？とっくに自己解決してたんですけど。知ってますよ。
調査に何時間もかけちゃいました？だとしたらすいません。

0950デフォルトの名無しさん

05/01/23 10:32:45

forループ処理でコントロールのロックを防ぐ、DelphiでいうとProcessMessageのような
機能は.NETではどのようにするのでしょうか？

0951最凶VB厨房

05/01/23 10:49:25

Application.DoEvents()かな。

0952950

05/01/23 11:39:09

>>951 ありがとう。

0953デフォルトの名無しさん

05/01/23 12:39:18

>>951
純粋に問われたことに対する答えとしては正しいけどなんかなあ。

こういう質問には、「そもそもUIスレッドにそういうコード書くのが間違い」
って答えが正解だと思う。

0954デフォルトの名無しさん

05/01/23 18:26:23

>>953
大正解。スレッド作ってそっちで処理だね。

0955デフォルトの名無しさん

05/01/23 19:16:46

>>953
いいじゃん別に。お前が使うんだからさ。

0956デフォルトの名無しさん

05/01/23 19:40:32

>>954
そして>>917のような状況に陥ると。

0957デフォルトの名無しさん

05/01/23 20:23:43

フォームを作成すると拡張子がresxというファイルができているのですが、
これは何のファイルなのでしょうか。

0958デフォルトの名無しさん

05/01/23 20:38:50

>>957
ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpconResourcesInResxFileFormat.asp

ttp://www.atmarkit.co.jp/fdotnet/dotnettips/214resources1/resources1.html

0959デフォルトの名無しさん

05/01/23 21:12:45

他のプロシージャで使っていた変数を他のプロシージャで使うにはどうすれば良いですか？
教えてください

0960デフォルトの名無しさん

05/01/23 21:16:10

>>959
モジュールに記載

0961デフォルトの名無しさん

05/01/23 21:29:27

http://pc5.2ch.net/test/read.cgi/tech/1053157149/190
マルチポストか？

0962デフォルトの名無しさん

05/01/23 21:43:52

>>959
プロシージャ外で宣言。

0963デフォルトの名無しさん

05/01/23 21:46:45

>>962
どうやればよろしいのでしょうか？

0964デフォルトの名無しさん

05/01/23 22:03:47

>>963
古い資料だけど参考になる。
ttp://www.sakai.zaq.ne.jp/hide/vb_bgpro.htm

0965デフォルトの名無しさん

05/01/24 11:29:02

DataGridで選択した行を削除するボタンを作ってます。

１、DataGridでマウスクリックし特定の行を選択
２、Form上の削除ボタンを押して、該当行の削除
３、ひととおり削除処理が終わったら、マスターファイル更新

コード上ではこんな感じです。

ａ、クリックした行をCurrentRowIndexで取得して
ｂ、DataRow.DeleteでRowStateを変更
ｃ、終了時にDataAdapter.Updateでマスターファイルを更新

しかし、この方法で１－２の手順を繰り返し、複数回の行削除を行
おうとすると、RowIndexがダブってしまい誤動作を引き起こします。

最終行以外を消すと、DataGrid上の表示とDataTable内のIndexに
不整合が起こるからだと思います。AcceptChangesを適用すると
DataGrid上では問題なく削除できますが、RowStateが変わってし
まうため、今度はマスターファイル更新ができなくなります。

DataGrid上で直接削除すればいいんでしょうが、大量にある行か
ら特定のものを見つけるのに時間がかかります。最悪、DataView
で抽出して直接削除という手段を考えていますが、１－３の手順で
他にうまい方法はないでしょうか？　長文すみません。(´・ω・`)

0966デフォルトの名無しさん

05/01/24 11:34:55

ttp://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=18385&forum=7&3

0967デフォルトの名無しさん

05/01/24 11:43:33

　Win32APIを呼ぶ方法がうまくいかないので悩んでいます。
　具体例としてウィンドウ上のボタンを押すと、user32.dllのExitWindowsExを
呼ぶというプログラムを作ろうとしました。

【実装】
1) 普通にウィンドウ上にPushボタ(Button1)を１つ配置した。
2) (全般) - (Declarations)のところに

Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF = 0

というExitWindowsExを用いるための宣言を行う。

3) (Button1) - (Click)のところに

Dim lngWin32apiResultCode As Long
lngWin32apiResultCode = ExitWindowsEx(EWX_LOGOFF, &HFFFFFFFF)

という変数宣言と呼び出しを行った。

【現象】
Form1.vb(1) : error BC30001: 名前空間のステートメントが無効です。
Form1.vb(2) : error BC30001: 名前空間のステートメントが無効です。
Form1.vb(62) : error BC30451: 名前 'ExitWindowsEx' は宣言されていません。
Form1.vb(62) : error BC30451: 名前 'EWX_LOGOFF' は宣言されていません。
といった具合にBuildもできません。

【疑問】
　なぜ、宣言がことごとく否定されてしまうのでしょうか？

0968デフォルトの名無しさん

05/01/24 11:53:08

>>967
FormモジュールにDeclare文を書くことはできたっけ？

0969デフォルトの名無しさん

05/01/24 11:55:27

>>967
> 2) (全般) - (Declarations)のところに

と言うのが良くわからんが、

> Form1.vb(1) : error BC30001: 名前空間のステートメントが無効です。

は要するに名前空間直下に関数を宣言してるってエラーで、
例えばImports文のすぐ下にClass宣言も無しにいきなりメソッドを書いてるようなもの。

モジュールを追加するなりしてそこでAPI宣言をすればいいだろう。

> Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

あとVB.NETでは32ビット値はInteger (.NET FrameworkでいうInt32) だよ。

0970デフォルトの名無しさん

05/01/24 12:09:50

>>967
Form1内に書くなら
>Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
ではなく
Private Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Declareは基本的にモジュール記述時にグローバルな参照として使用するときに記述する宣言。
その辺を考慮すればできると思う。

0971デフォルトの名無しさん

05/01/24 13:09:56

>>966
ありがとうございます。
CurrencyManagerの使い方を学ぼうと思ってぐぐってたら、別の
方法も見つかったので、こちらを試したところうまくいきました。
ttp://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=16719&forum=7&6

C# to VB.NET Translatorにかけたらこんな感じになったので、こ
のRowに対してDeleteを実行したところ、整合性を保ったまま継続
削除できました。

Dim row As DataRow = CType(dgSample.BindingContext(dgSample.DataSource, dgSample.DataMember).Current, DataRowView).Row

VB6.0のADOから移行するため勉強中ですが、カレント行の扱い
が変わってて四苦八苦してたところでした。ほんと助かりました。

0972デフォルトの名無しさん

05/01/24 13:51:32

>>968-970
皆さん、どうもありがとうございました。どうにか解決しました。

結局、自分の採った方法は>>969さんのものでした。

1) ソリューションエクスプローラ上で [追加(D)] - [モジュールの追加(M)]の
　操作でModule1.vbを追加。
2) Module Module1 ～ End Module間に
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF = 0
を追加

でBuildしたらエラーが出ませんでした。動作内容もほぼ期待どおりでした
(なんか処理が遅いようだけど、それは質問の主旨とは無関係なので略)。

　このExitWindowsExを使うのは8年近く前の雑誌の記事を参考にしたため
このような記述になっていますが、>>969さんのおっしゃるようにVB.NETでは
LongでなくIntegerを使うべきだったように思います。

　そもそもの狙いはVCで作ったプログラムがあり、それを
GUIはVB、内部処理はVCでDLLにしたものを呼び出す
という形にするということで、その前段階で引っかかっていたのでした。

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

0973デフォルトの名無しさん

05/01/24 14:13:15

すみません、1年目の初心者です
Image型変数に格納されている画像の左側30ピクセル分を廃棄して
元のImage型変数に格納し戻すにはどのようにすれば良いのでしょうか

0974デフォルトの名無しさん

05/01/24 14:31:27

廃棄した部分はどうなるの？
イメージの幅が狭くなる?　黒で塗りつぶす？

0975デフォルトの名無しさん

05/01/24 14:41:18

ファイル名がtest1.txt、test2.txt,test3.txt・・・・・・test50.txt
の５０個のテキストファイルを、消去するにはどうすれば？
ファイル名の１，２，３などの整数部分を、変数にし、ループさせて
消すにはどうしたらよいですか？

0976デフォルトの名無しさん

05/01/24 14:43:08

ループカウンタがiとして、
"test" & i,ToString() & ".txt"
でいいんじゃないかね。

0977973

05/01/24 14:49:23

>>974
イメージの幅を狭くしたいです。

0978デフォルトの名無しさん

05/01/24 14:54:56

なら、
1)元の画像より幅が30ピクセル小さいBitmapオブジェクトをNewする
2)Graphics.FromImageメソッドで作ったBitmapオブジェクトからGraphicsオブジェクトを取得する
3)GraphicsのDrawImageメソッドを適切な引数で実行し、元画像を描画する
4)GraphicsのDisposeメソッドを実行する
5)Image型変数Image2を宣言し、元のImageを代入する
6)元のImageに (2)で作成したBitmapを代入する
7)Image2のDisposeメソッドを実行する

5・7は必須ではないがモアベターな手法として。
3は色々試して。

0979琴音

05/01/24 15:23:32

プログラミング初心者です。いまVB.NETで以下のようなフォームを作成してます。
＜FORM1＞
テキストボックスと更新ボタン

＜CLASS1＞
更新ボタンを押したときの処理

=====================
Public Class Form1
Inherits System.Windows.Forms.Form

//" Windows フォームデザイナで生成されたコード "

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim TestClass As New Class1
TestClass.Main1()
End Sub
End Class
=====================
Public Class Class1
Dim i As Integer
Public Sub Main1()
Dim TestForm As New Form1
TestForm.TextBox1.Text = "あいうえお"
TestForm.Refresh()
End Sub
End Class
=====================
更新ボタンを押したときフォームがうまく再表示されません。やり方が間違ってるのだと思いますがご存知でしたら教えてください。

0980973

05/01/24 16:02:43

>>974
>>978
ありがとうございます
リーダーの簡易レビューでもその手順でOK通れました

0981デフォルトの名無しさん

05/01/24 16:58:42

ある指定したディレクトリに、テキストファイルが作成されたら
イベント発生させたいです。ファイルは5つほど、時間を置いて作成されて
ファイル名は指定せず、単にtxtファイルが作成されたら、その度に
イベント発生という形にしたいですが
ある指定したディレクトリにtxtファイル（ファイル名指定なし）
が作成されたらという条件が書けません、どうすればよいでしょうか？

0982デフォルトの名無しさん

05/01/24 18:23:14

>>981
FileSystemWatcher

0983デフォルトの名無しさん

05/01/24 18:59:42

labelの表示に、一定時間後に表示を変えるにはどうすればいいんですか？

たとえば、「あいうえお」を一文字ずつ一秒間だけ表示するとか。

0984デフォルトの名無しさん

05/01/24 19:05:52

System.Windows.Forms.Timer

0985デフォルトの名無しさん

05/01/24 19:19:08

>>979
だから何度でも言うが、まず問題が人に正確に伝わらない限り
答えは永遠に得られないよ。どんな親切な人がいようとね。

ハッキリ言うとそのコードと文章では、結局何がしたいのかいまいちよく分らない。
新しく作ったフォームを操作しているのに再表示？っていうか再表示って何？

というか、君そもそも何の学習もせずに質問してないか？
人とコミュニケーションする以上、
質問するのにも最低限の知識は押さえてないと始まらないでしょ。

>>983
そんなことを人に尋ねるおたんちんにプログラミングは無理。

0986デフォルトの名無しさん

05/01/24 19:25:09

質問する人にあれこれいうつもりは全くないんだけど、
C#スレとVBスレで質問のレベルが全然違うのはどうしてだ。
同じ.NETなのに。そもそもどちらで聞いてもいいような質問がほとんどだから
スレが分かれている必要性も疑問だが。

0987デフォルトの名無しさん

05/01/24 19:36:33

>>979
TestForm.Show
でもダメか？

0988デフォルトの名無しさん

05/01/24 19:41:46

>>987
TestForm変数はMain1()の中だけのローカル変数なので、
Show()してMain1()を抜けた瞬間ダングリングポインタになる。
どっかにスコープの確保した変数でおかないと。

そもそも何やりたいのかサッパリ分からんしね。

0989デフォルトの名無しさん

05/01/24 20:04:58

ごつい参考書のClass解説を斜め読みして、とりあえず作ってみました
感が満ちあふれてるような。もっと初心者向けの解説書から始めたほ
うがいいんでないかと。

0990デフォルトの名無しさん

05/01/24 21:27:11

MSCommを使ってRS-232Cケーブルでシリアル接続してデータ
のやりとりを行うプログラムを作成中なんですが
COMポートの変更をVBのプログラム上から行いたいのです。
デフォルトではCOM1なのですが、例えばプログラム上で
コンボボックスを利用し
　　MSComm1.ComPort = comport.selectedIndex + 1
というようなことをやりその後ComOpenを真にしても
使われているポートでもないっぽいのにエラーが起きてしまいます。
マイコンピュータのデバイスマネージャーから手動でCOMを変えてやると
うまくいきます。
これを何とかプログラム上から操作したいですが、どうすればよろしいんでしょうか？
ご存知の方、ご教授ください。宜しくお願いします。

0991デフォルトの名無しさん

05/01/24 21:35:13

>>990
エラー内容を一言一句書いてくれ。
話はそれからだ。

0992デフォルトの名無しさん

05/01/24 21:39:39

>>990
質問する前にヘルプぐらい読んだらどうよ？
MSComm使うってことは旧VBの正規版Pro以上の持ってるんでしょ？
だったらMSDN読めるはずじゃん。
持ってないならライセンス違反だよ。

おまけに質問の文章もいまいちわかり難い。つかみどころがない。
＞使われているポートでもないっぽいのに
想像だが、「使えない」ポート指定してるからじゃないの？

0993デフォルトの名無しさん

05/01/24 21:50:18

>>990
次スレよろ

それと不十分な質問分への返り討ちテンプレ案

「もうちょっと詳しく丁寧に」

0994デフォルトの名無しさん

05/01/24 21:50:29

ここは、.NETスレだよな？VB6スレじゃないよな？

0995デフォルトの名無しさん

05/01/24 21:55:40

>>991
学校のPCで作業していて、自宅のPCには.net環境がないのでエラー内容が
分からないんです。申し訳ありません。

>>992
On Error Resume
　　 For i=0 To 16
MSComm1.CommPort = i
MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then
comport.Items.Add("COM" & i & "OK")
Else
comport.Items.Add("COM" & i & "NG")
End If
MSComm1.PortOpen = False
For　Next
みたいなカンジでとりあえずポート1から16までをオープンしてみては
使えるかどうかをif文で分けて、コンボボックスのリストに追加して
いってるんですが、デフォルトの１と３しかOKにならないのです。
これはそれ以外は使えないという事なんでしょうか？

なんかまた良く分からない文章になってすいません。これ以上自分でも
詳しく書けないので・・・真剣に困ってるのでどうか宜しくお願いします。

0996デフォルトの名無しさん

05/01/24 22:03:38

>>995
COMポートってのは、実際にデバイス(仮想デバイスでもいいけど)がないと使えない。
急に「COM6が欲しい！」とか思ってもそうは行かない。

0997デフォルトの名無しさん

05/01/24 22:09:03

自宅のＰＣにもドットネット環境作れ。当然だろんなもん。はっきり言って真剣に勉強する意欲を疑う。

0998デフォルトの名無しさん

05/01/24 22:16:17

学生さん専用の格安の奴たしかあったよね。
学生さんはいいな。

ま、でもMSCommのライセンスが困るわけだが。

0999997

05/01/24 22:16:44

まぁオレなんて医者から脳みそが少ないって言われてから
真剣に生きる気もないけどな。

1000デフォルトの名無しさん

05/01/24 22:18:13

終了

1001１００１

Over 1000Thread

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

レス数が1000を超えています。これ以上書き込みはできません。