VB.NET質問ｽﾚ (Part7)

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 06/22 15:05 / Filesize : 273 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

VB.NET質問ｽﾚ (Part7)

1 名前：デフォルトの名無しさん [04/10/02 11:10:17]: VB.NETの質問全般です

過去スレ
VB.NET質問ｽﾚ (Part6)
pc5.2ch.net/test/read.cgi/tech/1088812165/
VB.NET質問ｽﾚ (Part5)
pc5.2ch.net/test/read.cgi/tech/1078134703/
VB.NET質問ｽﾚ (Part4)
pc2.2ch.net/test/read.cgi/tech/1065269043/
【老若】VB.net質問ｽﾚ【男女】 (Part3)
pc2.2ch.net/test/read.cgi/tech/1056281084/
【老若】VB.net質問ｽﾚ【男女】 (Part2)
pc2.2ch.net/tech/kako/1043/10436/1043629429.html
【老若】VB.net質問ｽﾚ【男女】
pc2.2ch.net/tech/kako/1025/10258/1025848458.html
698 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:34:48]: 689 名前：デフォルトの名無しさん [sage] 投稿日： 04/11/28 13:00:33
>688
謝って済む問題じゃないだろ。

お前が定義してるね↑笑

>696はVBよりもまずは日本語を覚えようよ♪うん♪
699 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:36:21]: >698
笑じゃなくて。質問に答えてくれませんかね。

あーーーー、すいません。脳が少ない方でしたか。
あらかじめ言って頂ければそれなりに対処したんですが。
すいません。
700 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:40:12]: >>698
定義してないよ。

>694
＞基本的に「謝ってすむ問題」の定義からしておかしいしね
何に対して何がどうだからおかしいと思ったの？
701 名前：デフォルトの名無しさん [04/11/28 13:40:18]: 　定義：謝って住む問題。
　　謝ると、それ以後問題とならない問題。もともと問題とならない
　　些細な問題を含む。
　　もともと謝って住む問題であっても、一旦謝ると謝っても済まない
　　問題となることがある。
702 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:41:33]: >701
余計な書き込みをしないように。お前には関係ないし、誤字があって
意味がわからん。
703 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:43:01]: 694に質問。「定義」ってどういう意味？
君が思う（思い込んでいる）「定義」の意味でいいよ。
704 名前：デフォルトの名無しさん [04/11/28 13:43:54]: >700
アホをまともに相手するな。お前も荒らしと言われるぞ。
705 名前：デフォルトの名無しさん [04/11/28 13:44:52]: >701
いそうろうのことか？
706 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:47:20]: >>699

お前が定義してるっていってるじゃん。爆笑
俺があやまってるのをみて。謝ってすむ問題じゃないって思ったんでしょ？ｗ

それで、謝ってすむ済む問題じゃないだろ。↓笑

689 名前：デフォルトの名無しさん [sage] 投稿日： 04/11/28 13:00:33
>688
謝って済む問題じゃないだろ。

お前は、日本語読めてるの？ワラ
脳が少ない？？
へぇ。ケッサクだね。脳が少ないなんて普通言わないしねｗ普通はｗ　Iちなみに俺とお前だったら、レスの内容から、あきらかにお前の方が少ないしね
うん。それから、別に話しかけてこなくて良いよｗ
すいません。ってｗ
707 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:52:00]: >>703
定義：謝って住む問題。
　　謝ると、それ以後問題とならない問題。もともと問題とならない
　　些細な問題を含む。
　　もともと謝って住む問題であっても、一旦謝ると謝っても済まない
　　問題となることがある。

おれもこれで↑定義はあってると思うよ。
708 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:53:43]: カリカリして書き込みするなや。
とりあえず飯食って昼寝しろ。いま職場でもカップ麺くらいある
だろし、今日なら上司もいないだろ？

俺は金曜から一歩も外に出られない。(´；ω；`)ｳｯ…
709 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:57:59]: >>700＝702
702 名前：デフォルトの名無しさん [sage] 投稿日： 04/11/28 13:41:33
>701
余計な書き込みをしないように。お前には関係ないし、誤字があって
意味がわからん。

別に、誤字脱字ないでしょ？ワラ
コレぐらいの文章くらい読解してくださいね。厨房さん
でなきゃ700＝702は荒らしでｗ
710 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:58:54]: >>708
乙。
711 名前：デフォルトの名無しさん mailto:sage [04/11/28 13:59:58]: >>697
>ｈDCからGraphicsをとる方法おしえてくだされ。

一度Graphicsクラスのメンバ一覧をじっくり目を通すと良いと思う。
質問の解答以外にも意外な発見もあるかも知れない。
712 名前：デフォルトの名無しさん [04/11/28 14:01:55]: >709
誤字はホントにあるよ。バカだな。
713 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:03:02]: >706
ふぅ・・・一体どこまでレベルを下げてあげれば伝わるのか。
脳が少ないというかない人にからんだ私が間違ってましたよ。
714 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:03:23]: >709
誤字あるじゃん。
715 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:03:50]: >709
>705のツッコミで気付けよｗうまいこと言ってるのに。
716 名前：デフォルトの名無しさん [04/11/28 14:05:21]: >708
＞俺は金曜から一歩も外に出られない。(´；ω；`)ｳｯ…
こいつ臭そう。相当デキが悪いんだろうな。
うちに来てる協力会社でも机に座った分しっかり
請求してくるバカがいるからな。成果物チェックしまくって
めちゃくちゃ減らしてやってるけど。
717 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:05:49]: 誤字に気付いた後の逆ギレに期待。
718 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:06:35]: >713
気付くの遅すぎ。
719 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:09:02]: 謝って住む問題か。確かに居候っぽいなｗ
720 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:09:54]: >706
>703はスルーですね？分かりました。
721 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:11:17]: >716
そんな奴ばっかだろ。小さい会社は精鋭揃いだと思ったら
大間違いだからな。金曜も協力会社の奴一人泣かし
ちまった。
722 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:11:53]: >707
自演、かっこ悪いよｗ
723 名前：デフォルトの名無しさん [04/11/28 14:13:13]: >688-719は全部688の自演って皆気付いている？
724 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:14:51]: またか・・・スレ埋めたいのかなんだか知らんが・・・
725 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:17:07]: >>708
そうですよね。このスレには、どうやら厨房がいるみたいなので。お互い監視してないとスレが続きませんね
乙
726 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:17:43]: >721
とことんやらないとな。慈善事業じゃないんだから。
727 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:18:18]: >725
まだ自演は続くのか。
728 名前：デフォルトの名無しさん [04/11/28 14:19:45]: ＞７１１
>一度Graphicsクラスのメンバ一覧をじっくり目を通すと良いと思う。
>質問の解答以外にも意外な発見もあるかも知れない。

みました。わかりません。hdcからGraphicsをとるのに
そもそもGraphicsのメンバーは関係ないでしょう。
　Graphics　=　GetGraphics(hDC)
　だから。そのGetGraphicsがどこにあるのか分からないのです。

hdc=gGraphics.GetHdc()
これはわかります。

発見もありました。
なんで平行移動がTranlateTransformなのか？
ReleaseHDCInternalは内部関数で使ってはいけないのになんでPublicなのか？
そういう発見です。
729 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:24:47]: >>726
厨房へ。釣り、ご苦労様です。ｗ
730 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:26:08]: >729
いつになったら自演やめてくれるの？
731 名前：デフォルトの名無しさん [04/11/28 14:27:19]: あきらかに自演じゃないだろ。笑
732 名前：708 mailto:sage [04/11/28 14:27:47]: >>716
>>721
まあ確かに俺は出来がいいとは言えないが、今回は後輩の後始末だよ。
月曜テスト予定のファイルをバックアップごと破壊して蒸発した。
いろいろ溜め込んでいたようだが、ここまでするとは‥‥。orz

やつの管理外バックアップと各端末から差分の残滓を回収したりして、
ようやくメドが立ったよ。社内にシャワー室があるんで、臭くならな
い＆眠気取りができたのも助かったかな‥‥まあ、普段もよく使って
るんだが。

じゃ、仮眠してからシナリオと照らし合わせる最終チェックに入りま
す。(´・ω・`)ﾉｼ
733 名前：デフォルトの名無しさん [04/11/28 14:28:16]: 730は、もう書き込まなくていいよ
734 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:34:05]: こいつの場合>730みたいなツッコミも含めた自演だからな。
マジでタチが悪い。

>733も自分自身に対するツッコミで、しばらく待って
誰も書き込まないと見るや、自分で別人のフリして
続けるからな。誰も釣られてないのに終わらないんだ。
735 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:36:26]: プログラム上からブロードバンドルータのリブートってできる？
736 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:38:17]: >>735
そのルーターの制御コードがわかってるなら。
737 名前：690 mailto:sage [04/11/28 14:39:38]: >>708
僕の方はようやく内定が決まって、一段落した感じです。プログラミングではなくて、メーカーで評価・シュミレーションというやつをやることになりました。＾＾；
分野は違いますが、お互い頑張りましょう。レス㌧クスでした。嬉しかったです。では。乙
738 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:46:53]: >>728
> ＞７１１
> みました。わかりません。hdcからGraphicsをとるのに
> そもそもGraphicsのメンバーは関係ないでしょう。
> 　Graphics　=　GetGraphics(hDC)
> 　だから。そのGetGraphicsがどこにあるのか分からないのです。

Sharedと言う可能性を忘れていないか。
Image.FromFileとかあるじゃんか。
Graphics.FromHdcがあるじゃないか。

> なんで平行移動がTranlateTransformなのか？

Translateに平行移動って意味もあるんだが……。
ttp://dictionary.goo.ne.jp/search.php?MT=translate&kind=ej&mode=0

> ReleaseHDCInternalは内部関数で使ってはいけないのになんでPublicなのか？

そういうのは他にも色々あるが……。
何でだろうね？
739 名前：デフォルトの名無しさん mailto:sage [04/11/28 14:53:04]: >736
制御コードってどんな形式のもの？
corega BAR SW-4P HGなんだけど、やったことある
人いないかな。
740 名前：デフォルトの名無しさん mailto:sage [04/11/28 15:03:17]: >739
パケットキャプってみて、同じパケット作って飛ばして
あげればできたりするかな。
741 名前：デフォルトの名無しさん mailto:sage [04/11/28 15:34:13]: >>739
メーカーが公表する性質のものでもないし、>>740の助言みたい
にするのが大吉。管理者ログインからリブート指示まで、丸ごと
捕獲して解析してみそ。

つか、そのあたりの話はスレ違いになるから、メーカースレにで
も行ってみたらいい助言が得られる悪寒。
742 名前：デフォルトの名無しさん mailto:sage [04/11/28 15:47:18]: >741
>740は助言じゃなくて俺の独り言でした。
まぁとにかくやってみます。
743 名前：デフォルトの名無しさん [04/11/28 15:59:00]: ＞Translateに平行移動って意味もあるんだが……。

そうなのか、しらんかった。　自分ならTransferにするけど、Translateの方が
適当なのかな？

＞Sharedと言う可能性を忘れていないか。
＞Image.FromFileとかあるじゃんか。
＞Graphics.FromHdcがあるじゃないか。
　　うー意味不明。サッパリわからん。

　RotateTransformをつかおうとすれば、結局DrawRectangleやDrawLineなど
　Graphicsが持っているメソードを使わないとだめみたいね。
　　APIのGLIBでイメージメモリに描いてそれをGraphicsに渡して描画する
　　みたいなことができたらできるかも？　MatrixOrderというぐらいだから
　対象はベクターだろうね。
　　よく知らんが、まともなグラフィックスというとOpenGlとかはVBNETでも
　うごくんだろか？　VB6だったら動くみたいだね。これがまた簡単には動かんの
　だろな。　aUTOCADのVBAだったらすごく楽にかけるんだけどね。ところがこれが
　バグだらけで、すぐにハングする。ろくなものがない。
744 名前：デフォルトの名無しさん mailto:sage [04/11/28 16:05:28]: >>743

ホントに意味がわからんのか？
こう言えばわかるか？

Graphics クラスには FromHdc という Shared メソッドがあるんだよ。
745 名前：フナ太郎 mailto:sage [04/11/28 17:30:26]: (-｡-)y-~~~~ ここはまじめな人がおおいね。いいことだ。
746 名前：デフォルトの名無しさん [04/11/28 17:53:45]: >Graphics クラスには FromHdc という Shared メソッドがあるんだよ。

あっ、すまん。そういう言葉に対して基本的知識がかなり不足している。
思えば、適当にプログラムを作ってきたツケだとおもう。
　そこで適当に想像したり、検索したりしてその場をしのいでいるが
Sharedというのは共有になるということらしい。技術評論社の
VisualBasic.NETプログラミングマニュアルというのを参考にしているが
サッパリ意味不明だ。この本は失敗だった。技術評論社は信頼しているんだが、
やっぱり女の書いた本はロクなのがない。適当に本を買ったのが失敗だったなー。
麻奈ちゃんも恵子ちゃんも香織ちゃんも明子ちゃんもだめ。もうお前らの本は買わん。
わからん。もう一度買ってほしかったらわかるように書いてくれ。
　それはいいとして、Sharedだからどうにかなるというものでもないような気がする。
Sharedの意味は分からんが　
こうすれば
Dim hn As IntPtr = pic.Handle
Dim hDC As IntPtr = GetDC(hn)
Dim gr As Graphics

gr = gr.FromHdc(hDC)
Dim pen As New Pen(Color.Green)
gr.DrawLine(pen, 0, 0, 200, 200)
　たしかに、PictureboxのハンドルからGraphicsが取れる。これは驚き。
かなり、知識のバリエーションが広がった気がする。
747 名前：最凶VB厨房 mailto:sage [04/11/28 18:01:04]: >>746
おもろい
748 名前：デフォルトの名無しさん mailto:sage [04/11/28 18:11:20]: >>746
> Dim gr As Graphics
> gr = gr.FromHdc(hDC)

気持ち悪い……。
gr = Graphics.FromHdc(hDC)
と書こうよ。

つまり、Sharedであるものは特に前提条件無くその場で使用可能なわけ。
hDCさえあればGraphicsオブジェクトを作成可能なの。

つかそもそも.NET内でならデバイスコンテキストを意識する必要すらない。

Dim pic As PictureBox = new PictureBox()
Dim g As Graphics = pic.CreateGraphics()
...
'Dim hdc As IntPtr = g.GetHdc() 'デバイスコンテキストは取得するならGraphicsから取得する。必要な事態は余り無いが
...
'g.ReleaseHdc(hdc)　'もちろんアンマネージドリソースはそれに相応しく破棄処理
...
g.Dispose()

で終了だ。
749 名前：デフォルトの名無しさん [04/11/28 18:25:17]: ＞７４８
おお、すっきり。ありがとう。
ところで色々教えてもらったので一ついいことを教えてあげましょう。
　Strict　ON
　ってスイッチしってます？
これをONすると、自分のコードはエラーだらけになった。実に強力に
エラーチェックをしてくれます。
大事な仕事の時はぜひStrict　ONです。昨日はじめて知りました。
750 名前：最凶VB厨房 mailto:sage [04/11/28 19:00:49]: >ReleaseHDCInternalは内部関数で使ってはいけないのになんでPublicなのか？
内部は内部でもクラス内部という意味じゃなくて
MS内部という意味じゃねぇか?ｗ
クラスライブラリ内部と言った方がいいかな。
751 名前：最凶VB厨房 mailto:sage [04/11/28 19:04:44]: >>749
www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbcn7/html/vaconprogrammingwithvb.asp?frame=true
これ見たら驚きの連続だぞ（ﾜﾗ
752 名前：デフォルトの名無しさん mailto:sage [04/11/28 20:19:08]: >741
キャプってみたけど訳分からん。ネットワークの基礎から
勉強しないと・・・とりあえずロケットマウスでしのぎますｗ
753 名前：613 mailto:sage [04/11/28 22:51:35]: >>689
俺は別に構わんがｗ
754 名前：デフォルトの名無しさん [04/11/28 23:49:39]: ＞７５１
>これ見たら驚きの連続だぞ（ﾜﾗ

そんなにいっぺんに驚いても勿体ないでしょ。
ところで、最凶はVBにかかるの？　厨房にかかるの？　
今回Graphicsのサンプルをテストするとき、C#をすこし使いましたが、
InterisenceとかがVBにくらべて弱いですね。VBの方がかなり楽にプログラム
できます。
　言語的に幾分弱いVBに便利さで意図的にアドバンテージをおくのはMSの戦略ですかね。
755 名前：デフォルトの名無しさん mailto:sage [04/11/28 23:53:16]: 逆にVB.NETのインテリセンスのしつこさにちょっとウザさを感じるところもある。
やっぱり初心者に優しくという方向性なんだろうな。
756 名前：デフォルトの名無しさん mailto:sage [04/11/29 05:46:17]: >755
なんで初心者のお前がうざいと感じるんだよ。
757 名前：フナ太郎 mailto:sage [04/11/29 06:55:53]: >>756
インテリセンスはベテランの俺でもありがたい機能だぞ。
だれが、あんな長いクラス名やメソッド名を手で打ち込みたいと思うかね？
758 名前：デフォルトの名無しさん [04/11/29 08:13:22]: incremental build　のチェックをはずすとベテラン向きに１０倍
速くなるのか？　やってみたことあるベテランさん感想をどうぞ！
759 名前：デフォルトの名無しさん [04/11/29 08:15:55]: ちなみにデフォールトでは
　C#はOFF、VBはON
このちがいか？
760 名前：デフォルトの名無しさん mailto:sage [04/11/29 09:29:25]: >757
俺にレスするな
761 名前：デフォルトの名無しさん mailto:sage [04/11/29 10:42:56]: ユーザーコントロールでテキストボックスを作ろうと考えてます。
MultiLineがいつもTrueで、通常は1行表示でフォーカスを持つと入力部分が大きくなるような奴です。

で、入力部分を大きくする時にフォーム中央にある場合は問題ないんですが、
隅にあったりして大きくなるとフォームからはみ出す場合に途切れずに
表示するにはどのようなアイデアがあるでしょうか？
現在はフォームにテキストボックスだけを貼り付けて、それを表示させようかと考えてはいるのですが・・・
762 名前：フナ太郎 mailto:sage [04/11/29 10:52:57]: >>760
あ、７５５だった。すまん。
763 名前：デフォルトの名無しさん mailto:sage [04/11/29 11:13:55]: >>761
フォーム側がユーザコントロールのResizeイベント辺りでフォーム自身のサイズ変更すればいいんじゃない？
764 名前：デフォルトの名無しさん mailto:sage [04/11/29 16:46:33]: Private Sub cangeStrNarrow()
Dim sText As String
sText = a
Dim sNewText As String
sNewText = StrConv(sText, VbStrConv.Narrow)
a2 = sNewText
End Sub

入力された文字を、上のコードで半角にしてみましたが、作ったデーターを渡す
相手がオフコンなので、半角の長音が通りません。

半角の長音をマイナスに入れ替えるルーチンを書きたいのですが、どなたかど
の命令を使えばよいかアドバイスください。
765 名前：デフォルトの名無しさん mailto:sage [04/11/29 16:50:10]: String.Replaceでいいんじゃね。
766 名前：デフォルトの名無しさん [04/11/29 20:57:35]: すんません。どなたか教えてください。
MSDEのVIEWを作り、列にコード値に対応する文字を持たせたテーブルの用意して
テキストボックスにその文字が表示されるように.Databinding.Textに設定したいんですが、
オブジェクトのプロパティ設定画面上では、設定したい列名がすべてExprn（nは数字）
となっていて、すごく使いにくいです。
MSDEでVIEWをデザインした時に、結合した列には全て別名を登録したのに
VS.NETのエディター上は別名で表示してくれる機能はないのでしょうか？
767 名前：デフォルトの名無しさん [04/11/30 04:48:36]: >766
どうしたらそんなことになるの？　列名はチャンとレコードアイテムが
でるはずよ。もっと手順を追って詳しく説明してくれたら何かアドバイス
できると思う。DBの作り方はいろんな方法、I/Fがあるから、その説明では
何をやってるのかサッパリわかりません。
768 名前：デフォルトの名無しさん mailto:sage [04/11/30 09:33:03]: >767
分からないなら書くなよ。
769 名前：デフォルトの名無しさん mailto:sage [04/11/30 09:35:56]: >>768
そんなに自分を責めるなよ。
770 名前：769 mailto:sage [04/11/30 09:44:08]: すまん。769は767へのレスね
771 名前：デフォルトの名無しさん [04/11/30 10:21:35]: MSDEで重要なのは周期的な処理丸木バックアップを作成しすることだよ。
772 名前：本物の769 mailto:sage [04/11/30 10:32:59]: >>770
（´,_ゝ｀）ﾌﾟｯ
773 名前：デフォルトの名無しさん mailto:sage [04/11/30 10:34:48]: >772
なにこいつ
774 名前：デフォルトの名無しさん [04/11/30 11:02:16]: 　MSDEの特徴はBACKUPはいくらでもできるが、RESTOREはどんなにがんばっても
できないこと。
　結局リストアーに仕方が分からんままに中国に納めたよ。
まあトラブルことはめったにないし大丈夫だろ。
775 名前：デフォルトの名無しさん mailto:sage [04/11/30 11:42:58]: VBにて三角形2次元モデルの描画を行いたいのですが、全然わからないので助けていただきたいのですがここで聞いてもいいでしょうか？
776 名前：デフォルトの名無しさん mailto:sage [04/11/30 11:46:46]: 何を質問したらいいですかみたいなメタ質問は無しな。
777 名前：775 mailto:sage [04/11/30 11:57:38]: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Color
Dim vp As ViewPort
c = Color.FromArgb(255, 255, 0, 0)
vp.Xgw = ○○
vp.Ygw = ○○
vp.Xgc = ○○
vp.Ygc = ○○
vp.Xvw = ○○
vp.Yvw = ○○
vp.Xvc = ○○
vp.Yvc = ○○
DrawPoint(○, ○, c)
DrawPointScs(○, ○, c, vp)
DrawPointWcs(○, ○, c, vp)
DrawLine(○, ○, ○, ○, c)
DrawLineScs(○, ○, ○, ○, c, vp)
DrawLineWcs(○, ○, ○, ○, c, vp)
End Sub

で、三角形の各頂点　(200,200) (400,200) (300,400)
ViewPort　左下座標(150,150) 幅300 高さ300

なのですが座標系についてさっぱりなので埋めることができなくて困ってます(´･ω･`)
必要でしたらコードをうｐします。
778 名前：デフォルトの名無しさん mailto:sage [04/11/30 12:22:43]: >776
どこにそんなルールが？
779 名前：デフォルトの名無しさん [04/11/30 12:32:42]: Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

このイベントのSenderから選択されたファイル名を取得する方法はありませせんでしょうか？
780 名前：デフォルトの名無しさん mailto:sage [04/11/30 12:34:45]: >779
なんでsenderから取りたいのでしょうか？
OpenFileDialog1 からは取れないの？
781 名前：デフォルトの名無しさん mailto:sage [04/11/30 12:42:53]: senderをOpenFileDialogにキャストしてやれば問題ないが。
なぜわざわざイベントで？　とは思うな。
782 名前：デフォルトの名無しさん [04/11/30 14:16:05]: MSDEのように、データセットをウィザードで作れるDBを探しています。
リナックスで作動するDBがよいのですがMySQLは上記のような作り方で
作動しますか？
783 名前：デフォルトの名無しさん mailto:sage [04/11/30 14:51:12]: >>777
自分も詳しくないけどさ、取りあえずViewPortというクラスか構造体か、
.NET FrameworkにもManaged DirectX9.0にも無いようなんだけど。
DrawPointScsとかのメソッドも分からないわけだし。
784 名前：デフォルトの名無しさん mailto:sage [04/11/30 14:53:29]: >781
なぜわざわざイベントで？？？
785 名前：７７９ [04/11/30 15:28:49]: >784
>なぜわざわざイベントで？？？
「わざわざそういうプログラムをしてみたい」としか答えようがありませんが、
そういうこともできるのかというのが分かると、これはまた別の応用が、つまり
senderとは何かについての性質がよりはっきりと理解できるのではないでしょうか？
これで理由になりますか？　理由に間違いないのですが、この気持ちを
理解可能ですか？
786 名前：７７９ [04/11/30 15:30:23]: ＞７８１
　そういうやり方が即座に浮かぶようになりたい。です。
787 名前：７７９ [04/11/30 15:31:41]: 　ところで、VB6のFile１やDir1に変わるものはないのでしょうか？
パスを取りたいのですが。
788 名前：７７９ [04/11/30 15:36:57]: ＞なんでsenderから取りたいのでしょうか？
＞OpenFileDialog1 からは取れないの？
　OKボタンを押したことを知る方法はEVENT以外にありません。
イベントで待ち構えているとSender、とE　がやってきます。
ですからこの二つからすべてを処理するのが、自分の感性として
はスマートなのです。
789 名前：デフォルトの名無しさん mailto:sage [04/11/30 17:37:44]: >>787
.NET Frameworkにはない。 //Frameworkの扱うべきレイヤからかなり外れてるから。
手っ取り早いのはVBのコンポーネントを参照するこったね。
790 名前：デフォルトの名無しさん mailto:sage [04/11/30 18:03:40]: >788
＞OKボタンを押したことを知る方法はEVENT以外にありません。
平然とウソを書くなよ。ちゃんとヘルプ読んだか？
791 名前：デフォルトの名無しさん mailto:sage [04/11/30 18:05:53]: >788
OKボタンってOpenFileDialog上にあるOKボタンのこと？
ShowDialog()の戻り値を見るのが普通だと思うけど
いまいち何がしたいのか分からないなぁ。
792 名前：デフォルトの名無しさん mailto:sage [04/11/30 18:20:31]: >787
あのさ、どういう機能を実現したいのかまずは日本語だけで
まとめてみれば？

あと>785みたいな人の神経を逆撫でするような書き込みしといて
その後すぐ質問ってどういう神経なんだろう。投稿前に見直し
とかしてる？
793 名前：デフォルトの名無しさん mailto:sage [04/11/30 18:22:53]: ちなみに779はMSDN見れる人？
単に見れないからMSDN代わりにここを利用しようとしてる？
ちょいとそこんとこ教えて。
794 名前：デフォルトの名無しさん mailto:sage [04/11/30 19:31:09]: >>783
ttp://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1003826049&res=84&fi=no
にソースコードを書いておきました。
埋める場所は空欄（先の通り）となっています。
795 名前：デフォルトの名無しさん mailto:sage [04/11/30 22:28:05]: VB6からVB.NETになってジレンマに陥ってるのか

漏れも一時期Senderをキャストしてイベントの内容拾ったりしてたが
無駄だということに気が付いてやめた
796 名前：７７９ [04/11/30 23:07:33]: >ShowDialog()の戻り値を見るのが普通だと思うけど

ええっ、戻り値があったのか？　知らんかった。そうだったの。ガックシ。
FolderBrawserDialogはもっと悲惨だった。こっちは探してもEVENTがない。
継承元からイベントを取れないか半日も悪戦苦闘してあきらめた。
いつにもまして「MSのアフォたれ、馬鹿たれ」と思っていが、戻り値があるんか？
なら簡単だった。

＞平然とウソを書くなよ。ちゃんとヘルプ読んだか？
HELP
■ShowDialog
(CommonDialog から継承されます)
　オーバーロード。コモンダイアログボックスを実行します。

何だこのHELPは。このHELPをみて分かるか？　わかるか？おい。
797 名前：デフォルトの名無しさん mailto:sage [04/11/30 23:11:10]: >796
じゃあCommonDialogの方も読むだろ、普通
798 名前：デフォルトの名無しさん mailto:sage [04/11/30 23:11:32]: いや...についてに書かれてるサンプルコード見りゃすぐ分かるこったろ……。
799 名前：デフォルトの名無しさん mailto:sage [04/11/30 23:12:10]: >796
アホ
800 名前：デフォルトの名無しさん mailto:sage [04/11/30 23:25:39]: とりあえずチンコの皮は剥けたようだな
801 名前：デフォルトの名無しさん mailto:sage [04/11/30 23:27:11]: ヘルプに文句をたれる前に、初心者用の入門書を読んだほうがいいね。
802 名前：デフォルトの名無しさん mailto:sage [04/12/01 03:36:56]: Overloads Public Function ShowDialog() As DialogResult

なんで"As DialogResult"が目に入らないかなあ。つか、それ以前にVB.NETの構文を知らないのか？
803 名前：７７９ [04/12/01 06:41:54]: >じゃあCommonDialogの方も読むだろ、普通
普通は読まん。遡るほど分からなくなるものだとは知らないの？普通。
分かりやすく、使いやすくするために継承するんですよ。
遡るほど、分かりやすいなら最初からSystemを読んでください。分かりやすいですか？

＞いや...についてに書かれてるサンプルコード見りゃすぐ分かるこったろ……。

　　エムエスの
　　アフォ糞餓鬼の
　　ガタガタの
　　能書き言わず
　　サンプルを出せ
　　　　　　（一首贈呈）

　サンプルコードが大切だよね。マトモな。
＞800　
お前は剥けすぎベロリンチョ
＞ヘルプに文句をたれる前に、初心者用の入門書を読んだほうがいいね。
　林晴彦のサンプル全部みたよ。１０ページに渡って穴が開くほど見たが、
戻り値を使う例はただの一つも無い。（VB6のだけどね）
すまん、このセンセのチンコも剥いてやってくれ。

＞Overloads Public Function ShowDialog() As DialogResult
＞なんで"As DialogResult"が目に入らないかなあ。つか、それ以前にVB.NETの構文を知らないのか？
　なんでそれを目に入るところに書かないのかなあ？
804 名前：デフォルトの名無しさん [04/12/01 06:49:05]: ここホントにC#スレか？
VB.NETは別スレあるからそっちでやれよ。
805 名前：７７９ [04/12/01 06:58:26]: >789
.> NET Frameworkにはない。 //Frameworkの扱うべきレイヤからかなり外れてるから。
どういう意味なの？　File1やDir1の方がシンプルでスマートだと思うよ。
対応するのはFoldeBrowzerDialogだろうけど、今一って感じる。ダイアログは簡単
だけど、フォームに貼り付ける方がいい場合がたまにある。

>手っ取り早いのはVBのコンポーネントを参照するこったね。
　このコンポーネントって参照できるの？　どうやって？　OCXが分からん。
　VB6組み込みじゃないの？
　分からないからVB6でDirとFileをフォームに貼り付けてActiveXを作って
　VBNETに貼り付けてやってみたが誤動作する。
　　Dirをダブルクリックすると内部でエラーがでてハングする。
　うまくいかんかった。
　もちろんそのActiveXはVb6上ではテストしてますよ。
806 名前：デフォルトの名無しさん mailto:sage [04/12/01 07:17:31]: うは
チンコの皮までレスしてる
VB6の概念から抜け出せてないようだから.NETはしばらくやめておいたら？
もしかしたら2005でお望みの機能が追加されてるかもしれんし

>>805のようなOCXの事書いているようだから
マニュアル類は一切読んでないか、読んだつもりにいなってるんだろうな
コントロールの上でF1押せばほとんどのHELPが載っているし
記述の癖も1日2日すれば慣れると思うんだが
良くも悪くもHELPまでMicrosofｔオブジェクト指向で書かれてるので
掘っていけばほぼ答えは見つかる
それでもなければ全文検索

＞フォームに貼り付ける方がいい場合がたまにある。
フォームに張り付かないのか？
807 名前：デフォルトの名無しさん mailto:sage [04/12/01 07:21:18]: >803
素晴らしいよ、君は。
一生そうやって生きればいいね。
808 名前：デフォルトの名無しさん [04/12/01 07:39:51]: オーバーロードの一覧
フォームをオーナーウィンドウのないモーダルダイアログボックスとして表示します。

.NET Compact Framework でもサポート。

[Visual Basic] Overloads Public Function ShowDialog() As DialogResult
[指定した所有者を持つモーダルダイアログとしてフォームを表示します。

[Visual Basic] Overloads Public Function ShowDialog(IWin32Window) As DialogResult
使用例

[Visual Basic]
Public Sub ShowMyDialogBox()
　　Dim testDialog As New Form2()

　　'Show testDialog as a modal dialog and determine if DialogResult = OK.
    If testDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
        Read the contents of testDialog's TextBox.
        txtResult.Text = testDialog.TextBox1.Text
    Else
        txtResult.Text = "Cancelled"
    End If
    testDialog.Dispose()
End Sub 'ShowMyDialogBox
809 名前：７７９ [04/12/01 07:47:09]: > Dim testDialog As New Form2
まちがってない？
810 名前：デフォルトの名無しさん mailto:sage [04/12/01 07:47:10]: VB6の参考書を読んで.NETが解らないと言ってたのか
冷蔵庫の取扱説明書を読んでも洗濯機は動かないわな
811 名前：デフォルトの名無しさん [04/12/01 07:47:49]: >>809
あってるよ
812 名前：７７９ [04/12/01 07:50:49]: 糞長いOK書くくせに
System.Windows.Forms.DialogResult.OK
これは何？
　　Dim testDialog As New Form2
宣言をしっかりして、Localでは省略するのが正解だと思うよ
第一動かんサンプル（W
813 名前：811 [04/12/01 07:51:12]: VSのヘルプをまるまるコピーしてある
もしForm2の下に並線が出るようだったら
ソリューションエクスプローラで新規のフォーム（Form2）を追加してくれ
814 名前：７７９ [04/12/01 08:07:24]: ＞８１１
　ありがとう。しかしこの例は何を説明したいのかサッパリ分からん。
　実行したらFolderBrowserDialogが立ち上がって、OKしても
　txtResultには何にも帰ってこない。

　あれ、Form2ってインスタンスなんでしょ
　クラスとしても認識するんですか？　わけわからん。
815 名前：７７９ [04/12/01 08:13:01]: 　あっごめんForm2は継承クラスでした。Vb6がぬけませんね。
816 名前：７７９ [04/12/01 08:32:35]: へんなコードがまざっていて勘違いした。
例の意味はこういうことね。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As New Form2
If x.ShowDialog() = DialogResult.OK Then
Debug.Write("OK")
Else
Debug.Write("CAN")
End If
End Sub

MSってなんで持って回ったような頓珍漢な例をかくんだろね。
817 名前：７７９ [04/12/01 08:37:56]: 林センセの場合もそうですが、、、
（日経BPソフトプレスの全サンプルもそうですからしかたありませんが）
先生方こういうサンプルが多いんですがだめですよ。
戻り値がある場合は必ず戻り値を見るようにしましょうね。
If CommonDialog1.filename <> "" Then
とくにこの判別のしかたはまずいですよ。誰かの本みて真似してるんでしょ。

■サンプル（悪）
Private Sub Command1_Click()
'***** ファイル名の取得 *****
With CommonDialog1
.filename = ""
.Filter = "Data(*.dat)|*.dat"
.ShowOpen
End With
'***** ファイルのオープンと表示 *****
If CommonDialog1.filename <> "" Then
Open CommonDialog1.filename For Input As #1
Do Until EOF(1)
Line Input #1, a$
Print a$
Loop
Else
MsgBox "キャンセルされました。", , "メッセージ"
End If
End Sub
818 名前：７７９ [04/12/01 08:38:17]: ■改良サンプル
try
cd = CommonDialog1
　 cd.filename = ""：cd.Filter = "Data(*.dat)|*.dat"
if cd.ShowOpen = vbOk then
　　 fname = CommonDialog1.filename
　If fname <> "" Then
　　　　'***** ファイルのオープンと表示 *****
End If
end if
catch ex as Exception
msgbox ex.discription
end try
819 名前：７７９ [04/12/01 09:20:05]: Public Sub ShowMyDialogBox()
　　Dim testDialog As New Form2()
....
testDialog.Dispose()
End Sub

このMSサンプルの testDialog.Dispose()　は意味の無いコード
もし意図的に終了処理をする必要があるなら、内部でするべきだ。
（ShowDialog、モーダルだろ！）
こういう無造作に何でも追加したコードは最も悪い例だね。
820 名前：７７９ [04/12/01 09:28:43]: ＞VB6の参考書を読んで.NETが解らないと言ってたのか
＞冷蔵庫の取扱説明書を読んでも洗濯機は動かないわな
　コンプレッサーをモーターに置き換えて読むんだよ。そんなに違いはない。
ボタンを押したら、ランプがついて、回って、時間が来たらとまる。
821 名前：７７９ [04/12/01 09:40:31]: ＞マニュアル類は一切読んでないか、読んだつもりにいなってるんだろうな
＞コントロールの上でF1押せばほとんどのHELPが載っているし
　NETになって多少はよくなってるな。
　
＞記述の癖も1日2日すれば慣れると思うんだが
＞良くも悪くもHELPまでMicrosofｔオブジェクト指向で書かれてるので

　これは皮肉？　どこがオブジェクト指向？
　MSオブジェクト羅列っていうんだよ。
　
＞掘っていけばほぼ答えは見つかる
それがみつからないから、藁おもつかむ。
822 名前：デフォルトの名無しさん [04/12/01 09:46:40]: 構造体の中身のクリアってどうやるんだっけ？？？
823 名前：デフォルトの名無しさん mailto:sage [04/12/01 10:05:26]: Disposeの意味も知らずにまあ吠える事。

>>822
構造体という物にクリアという概念そのものが余りなじまないわけだが。
//Integerをクリアって何それ、って感じでしょ。
用意されているならEmpty静的読み込み専用フィールドを使うとか。
(引数を取らない)デフォルトコンストラクタがあるならnewし直すとか。
引数を0とNothingのみでnewし直すとか。
824 名前：７７９ [04/12/01 10:52:27]: >823
外部でDisposeが必要なのはComponentのメモリーリリース。
FormはCompornetじゃない。リリースの必要はない。やってもｇｃに対しては意味がない。
ひょっとすると君の方じゃないのか吼えてるのは
Disposeの意味より、Compornentの意味だな重要なのは。
さて正しいのはどちらだろう。
825 名前：デフォルトの名無しさん [04/12/01 11:03:49]: >>823
なるほど！ちょっとやってみます。
826 名前：デフォルトの名無しさん mailto:sage [04/12/01 11:06:33]: >>824
これでも読んでみると良いよ。
ttp://www7.big.or.jp/~pinball/discus/vb/54337.html
827 名前：７７９ [04/12/01 11:10:08]: >８２２
　クラスは構造体のバージョンアップ。
だから構造体は使わない方がいいですよ。全部クラスでやる。
構造体を使う意味はない。
　だからクラスにしてClear（）メソードを実装するのが正解。
かな？
828 名前：デフォルトの名無しさん [04/12/01 11:23:02]: >>827
ありがとうございます！
上手い具合にいきました！
829 名前：デフォルトの名無しさん [04/12/01 11:26:46]: >>779は初心者神か
相当偉い人のようだが
830 名前：デフォルトの名無しさん mailto:sage [04/12/01 11:48:24]: さすがに828には失笑を隠せなかった。
831 名前：７７９ [04/12/01 11:53:05]: >829
>さすがに828には失笑を隠せなかった。
お前の方が失笑ものだ。構造体をまだ使ってるんだろ。
832 名前：デフォルトの名無しさん mailto:sage [04/12/01 11:54:19]: >>827
> 構造体を使う意味はない。
言い過ぎ。
833 名前：７７９ [04/12/01 12:02:06]: >これでも読んでみると良いよ。
>ttp://www7.big.or.jp/~pinball/discus/vb/54337.html
たしかにShowDialogの時はDisposeに飛んでこないね。フォームを閉じた時点で
内部のコンポーネントを使うことを意識しているのか？
　xx.ShowDialogをやったからと言って、そのあとでxx.Dispose()をやってる
例はないな。ざっと１０例近くのサンプルを見たがそういう例はない。
MSのあのサンプルだけだね。

　大事なことがよく分からんなー。
　1000万回ほどぐるぐる回ししてテストしてみるか。
834 名前：デフォルトの名無しさん mailto:sage [04/12/01 12:02:23]: 構造体をつかわにゃ実現できない機能もあるだろうに
835 名前：７７９ [04/12/01 12:05:34]: ＞言い過ぎ。
　言いすぎではないとおもうよ。構造体は使わない方がいいと思う。
　どうしても区別したいなら、名前のつけ方を変えたらいい。
836 名前：７７９ [04/12/01 12:06:13]: ＞構造体をつかわにゃ実現できない機能もあるだろうに
ない
837 名前：７７９ [04/12/01 12:08:49]: ＞相当偉い人のようだが
　きみの観察眼は鋭いかも？ウホン。
838 名前：デフォルトの名無しさん mailto:sage [04/12/01 12:08:56]: 是非クラスだけでP/Invokeを宣言する偉業に取り組んでいただきたい。
839 名前：デフォルトの名無しさん [04/12/01 12:10:33]: >>836
どうして言い切れる？
840 名前：７７９ [04/12/01 12:20:01]: おい。P.Invokeで検索したら

■高度なトピック
Obfuscation for .NET -- Dotfuscator by PreEmptive Solutions
P/Invoke メソッド
　 P/Invoke メソッド (つまり、ネイティブプラットフォームメソッド) の名前は自動的に変更されません。

これのどこが高度なトピックなのか？　中身がないのが高度なのか。Pu
そりゃ中身が無けりゃ誰にもわからん。高度だよな。ｐU。
841 名前：７７９ [04/12/01 12:22:04]: ＞どうして言い切れる？
　できない例をだしてください。
たちどころに、、、、ｃｌｓでかいて見ましょう。
高度すぎて中身が書いて無いとどうにもなりませんが。
842 名前：７７９ [04/12/01 12:31:31]: Obfuscation for .NET
ドットネットのこころを暗くする要因
-- Dotfuscator by PreEmptive Solutions
先制攻撃的解決によるドットフスケーター（これは英語かよ？）
843 名前：７７９ [04/12/01 12:45:20]: 　なんだDotfuscatorって隠蔽ツールか。マニュアルまで隠蔽ツールで
処理しないでね。
844 名前：デフォルトの名無しさん mailto:sage [04/12/01 13:04:57]: 構造体はバイト配列などで代用できるな
845 名前：832 mailto:sage [04/12/01 13:06:23]: クラスだけで実装ができるからって構造体が無意味とは
いえない。
初心者の内はそれでいいが、最適化の過程で構造体を
使いたくなってくる場面もある。
「なくてもできる=無意味」じゃないということだ。
846 名前：７７９ [04/12/01 13:30:17]: 　何の最適化ですか？　ソースの見栄え、飾りのこと？
それとも実行コードの？　コードには違いは影響しないと思うよ。
違いを儲ける必然せいがない。
いらない機能は有害とおもう。
　まあベテランが新しい技術についていけないから、とりあえず残してある
という理由はわかりますが。
　少なくとも初心者にとっては有害ですね。
847 名前：デフォルトの名無しさん mailto:sage [04/12/01 13:41:00]: 非管理のメッセージをやり取りするにはどうしても構造体が必要になるな
ﾓﾉによってはｸﾗｽでも大丈夫だが、厳密に定義されて無いメッセージが戻る場合や
構造体そのもののサイズが重要な場合はｸﾗｽだとちと難しい罠
848 名前：832 mailto:sage [04/12/01 13:45:31]: >>846
まー、いずれわかる。
要らないうちはあわてて知る必要もないから、せいぜい頑張れ。
将来なにかで行き詰まったら、まじめに検証してみるといい。
849 名前：７７９ [04/12/01 14:07:03]: >非管理のメッセージをやり取りするにはどうしても構造体が必要になるな
>ﾓﾉによってはｸﾗｽでも大丈夫だが、厳密に定義されて無いメッセージが戻る場合や
>構造体そのもののサイズが重要な場合はｸﾗｽだとちと難しい罠

　それは配列でしょ。
　構造体というのは配列を含んでいるの？　配列は重要だとおもうよ。
配列以外の構造体のことね。
　　それとも、構造体はメモリーアレンジが予測可能とかそういう性質が
　あるの？　うんそれなら意味あるね。クラスにはそんな機能は無いかも？
　つければいいだけなんだけどね。
　　そういう違いがあるのか？　ヒョットシテ。
850 名前：デフォルトの名無しさん [04/12/01 14:23:32]: (　ﾟДﾟ)ﾎﾟｶｰﾝ
851 名前：７７９ [04/12/01 14:36:29]: ＞将来なにかで行き詰まったら、まじめに検証してみるといい。
そうします。
　要するに、要らん機能がOS周辺にあるから、それに合わすために
言語にも要らん機能がいるってことですね。
852 名前：デフォルトの名無しさん mailto:sage [04/12/01 14:52:23]: (　ﾟДﾟ)ﾎﾟｶｰﾝ
853 名前：デフォルトの名無しさん mailto:sage [04/12/01 22:03:43]: マルチスレッドに対応していないDLL内のメソッドをマルチスレッド
プログラムから呼び出したいのですが、安全に呼び出すための
常套手段はどんな方法でしょうか。

イメージ的には呼び出し前に何らかのロックを取得して
呼びだし、実行後にロックを解除するみたいな
感じかなと・・・
854 名前：デフォルトの名無しさん mailto:sage [04/12/01 22:31:45]: Monitor
　Enter
　Exit
855 名前：デフォルトの名無しさん [04/12/01 23:11:51]: ハイパーリンクで飛ばす時に、Submitボタンのように
フォームの内容をURLに追記したいのですが、
どうすれば良いのでしょうか？
856 名前：デフォルトの名無しさん mailto:sage [04/12/02 00:00:45]: >855
もうちょい詳しくお願い
857 名前：デフォルトの名無しさん mailto:sage [04/12/02 00:08:36]: >>779
まぁ、記述が長いと思うならImports　であってるんだっけ？
それで名前空間をインポートしてもいいと思うんだが？

そこまで判らないとは言わせない（;´Д｀）

そこまでの記述を吹っ飛ばせるから長さは感じないはず
まぁ、コレをするとそのうち似たよな名前作ってしまうと、名前空間がこんがらがってくるのだが・・・
まぁ、普通に問題ないと思われ
858 名前：777 mailto:sage [04/12/02 09:29:24]: HELPヽ(´Д`)ノ

全然わかんないよママン_|￣|○
859 名前：フナ太郎 mailto:sage [04/12/02 10:23:08]: >>858
もうリンク切れてるし。
860 名前：777 mailto:sage [04/12/02 11:26:36]: Public Class Form1
Structure ViewPort
Dim Xgw As Integer
Dim Ygw As Integer
Dim Xgc As Integer
Dim Ygc As Integer
Dim Xvw As Double
Dim Yvw As Double
Dim Xvc As Double
Dim Yvc As Double
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Color
Dim vp As ViewPort
c = Color.FromArgb(255, 255, 0, 0)
↓ここから
　vp.Xgw = 000
vp.Ygw = 000
vp.Xgc = vp.Xgw / 2
vp.Ygc = vp.Ygw / 2
vp.Xvw = 000
vp.Yvw = 000
vp.Xvc = 000
vp.Yvc = 000
DrawPoint(000, 000, c)
DrawPointScs(000, 000, c, vp)
DrawPointWcs(000, 000, c, vp)
DrawLine(000, 000, 000, 000, c)
DrawLineScs(000, 000, 000, 000, c, vp)
DrawLineWcs(000, 000, 000, 000, c, vp)
↑ここまで　の数値入力がわかりません。
End Sub
861 名前：777 mailto:sage [04/12/02 11:32:43]: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PictureBox1.Refresh()
End Sub
Private Sub DrawPoint(ByVal x As Integer, ByVal y As Integer, ByVal c As Color)
Dim g As Graphics
Dim p As Pen
g = PictureBox1.CreateGraphics
p = New Pen(c)
g.DrawEllipse(p, x, y, 1, 1)
End Sub
862 名前：777 mailto:sage [04/12/02 11:35:48]: Private Sub DrawLine(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal c As Color)
Dim x As Integer
Dim y As Integer
Dim a As Double
If x1 = x2 Then
x = x1
If y1 <= y2 Then
For y = y1 To y2 Step 1
DrawPoint(x, y, c)
Next
Else
For y = y2 To y1 Step 1
DrawPoint(x, y, c)
Next
End If
863 名前：777 mailto:sage [04/12/02 11:36:15]: Else
a = CDbl(y2 - y1) / CDbl(x2 - x1)
If Math.Abs(a) <= 1 Then
If x1 < x2 Then
For x = x1 To x2 Step 1
y = CInt(a * CDbl(x - x1) + CDbl(y1))
DrawPoint(x, y, c)
Next
Else
For x = x2 To x1 Step 1
y = CInt(a * CDbl(x - x1) + CDbl(y1))
DrawPoint(x, y, c)
Next
End If
Else
If y1 < y2 Then
For y = y1 To y2 Step 1
x = CInt(1.0 / a * CDbl(y - y1) + CDbl(x1))
DrawPoint(x, y, c)
Next
Else
For y = y2 To y1 Step 1
x = CInt(1.0 / a * CDbl(y - y1) + CDbl(x1))
DrawPoint(x, y, c)
Next
End If
End If
End If
End Sub
864 名前：777 mailto:sage [04/12/02 11:36:40]: Private Sub DrawPointScs(ByVal x As Integer, ByVal y As Integer, ByVal c As Color, ByVal vp As ViewPort)
Dim Xg As Integer
Dim Yg As Integer
Xg = x + vp.Xgc
Yg = -y + vp.Ygc
DrawPoint(Xg, Yg, c)
End Sub

Private Sub DrawPointWcs(ByVal x As Double, ByVal y As Double, ByVal c As Color, ByVal vp As ViewPort)
Dim Xv As Double
Dim Yv As Double
Dim Xs As Integer
Dim Ys As Integer
Xv = x - vp.Xvc
Yv = y - vp.Yvc
Xs = CInt(Xv * vp.Xgw / vp.Xvw)
Ys = CInt(Yv * vp.Ygw / vp.Yvw)
DrawPointScs(Xs, Ys, c, vp)
End Sub
865 名前：777 mailto:sage [04/12/02 11:37:01]: Private Sub DrawLineScs(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal c As Color, ByVal vp As ViewPort)
Dim Xg1 As Integer
Dim Yg1 As Integer
Dim Xg2 As Integer
Dim Yg2 As Integer
Xg1 = x1 + vp.Xgc
Yg1 = -y1 + vp.Xgc
Xg2 = x2 + vp.Xgc
Yg2 = y2 + vp.Ygc
DrawLine(Xg1, Yg1, Xg2, Yg2, c)
End Sub
Private Sub DrawLineWcs(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal c As Color, ByVal vp As ViewPort)
Dim Xv1 As Double
Dim Yv1 As Double
Dim Xv2 As Double
Dim Yv2 As Double
Dim Xs1 As Double
Dim Ys1 As Double
Dim Xs2 As Double
Dim Ys2 As Double
Xv1 = x1 - vp.Xvc
Yv1 = y1 - vp.Yvc
Xv2 = x2 - vp.Xvc
Yv2 = y2 - vp.Xvc
Xs1 = CInt(Xv1 * vp.Xgw / vp.Xvw)
Ys1 = CInt(Yv1 * vp.Ygw / vp.Yvw)
Xs2 = CInt(Xv2 * vp.Xgw / vp.Xvw)
Ys2 = CInt(Yv2 * vp.Ygw / vp.Yvw)
DrawLineScs(Xs1, Ys1, Xs2, Ys2, c, vp)
End Sub
End Class
866 名前：777 mailto:sage [04/12/02 11:40:01]: リンク切れてると言うか本体ごと無くなってますね_|￣|○
ちょっと長いですがこちらに張らせて頂きました。すみません。

求めるモデルが
三角形の頂点　(200,200) (400,200) (300,400)
ViewPort 左下座標(150,150) 幅300　高さ300
となります。
867 名前：デフォルトの名無しさん [04/12/02 12:56:04]: >856
反応サンクスです。
>855　の続きです。
まるっきり初心者ですので宜しくお願いします。

Submitでページを移行させると、フォームの内容がURLの後ろの方に
「 hogehoge=**** 」
のように追記されて、次のページで内容を取得できますよね？
同じように、Hyper Linkでページを移行させて、次のページで元ページの
フォームの内容を取得する為には、どのような方法を使えば良いのでしょうか？

SubmitのようにURLの後ろに付いてくれるとありがたいのですが、
全く別の方法でも構わないので教えて頂けるとありがたいす。
868 名前：デフォルトの名無しさん [04/12/02 15:24:41]: DataGridにArrayListをバインドさせているのですが、
869 名前：デフォルトの名無しさん [04/12/02 15:27:09]: ぐはっミスッタ
途中でArrayListの編集を行った後
DataGridが更新されないのです。
フォーカスが移るとDataGridも反映されます。

DataGrid1.DataSource = objArray
DataGrid1.Refresh()
DataGrid1.Update()

じゃ駄目ですか・・
870 名前：869 [04/12/02 17:35:28]: 仕様上ArrayListを使用した時のDataGridは反映されないみたいですね。
871 名前：デフォルトの名無しさん mailto:sage [04/12/02 18:05:51]: >>867
<A href="www.google.co.jp/search?ie=UTF-8&q=%e3%83%8f%e3%82%a1%ef%bc%9f">
872 名前：デフォルトの名無しさん [04/12/02 18:39:31]: >>871
すみません、用語の使い方とかメチャクチャってことっすか？

もっと簡単に書くと、「Submitボタン」を
「下線付きの文字列」(hrefとかasp:hyperlink)に変えたいんですが、
テキストボックスに入力された内容を次のページで取得する為には
どうすれば良いのでしょうか？
（Submitの時は、URLから前頁の情報を引っ張ってました。）
873 名前：デフォルトの名無しさん mailto:sage [04/12/02 18:57:20]: <A href="javascript:document.forms('xxx').submit()"
874 名前：デフォルトの名無しさん mailto:sage [04/12/02 19:00:39]: >872
うろ覚えだけど、リンクボタンっていうオブジェクトがなかったっけ？
875 名前：デフォルトの名無しさん [04/12/02 21:08:50]: C#のイベントのアクセサってVBだとどうかくのでしょうか？
もしかしてVBにはない？

[attributes] [modifiers] event type member-name {accessor-declarations};
の{accessor-declarations}を書きたいんですが
876 名前：デフォルトの名無しさん mailto:sage [04/12/02 21:31:01]: >874
　確かにあるし、普通のボタンと全く同じ感覚で使えるので、867=872が
普通にWebアプリケーションの処理を理解していれば問題ないんだけどね。

>872
　あのねぇ、Webアプリケーションの基礎的な動作について、根本的な
理解が足りないのね。
　そして、根本的にASP.NETでのコントロールの値の取り方が分かって
いない。(以前の経験を引きずりすぎ)

　Submitボタンでページ遷移(サーバーに送信)を行う際の動作は、
「GET」Methodと「POST」Methodの二種類あるのよ。
　「GET」Methodの場合は、ブラウザが自動的にsubmit先のURLに
QueryStringを自動的に生成・追加して送っているのよ。
　「POST」MethodはQueryStringを使わず、submit先のサーバーに
接続した後にデータを送っているのよ。
　ASP.NET(VB.NETのWebアプリケーション)は「POST」Methodを使う様に
作られているのよ。(まずGETを使おうと思わないし)

　VB.NETで普通にWebフォームを作成して、普通にWebフォームに
配置したコントロールの値は、Me.コントロール名.(値の格納されているプロパティ)
だけで取れるんだよ。余計な事を考えすぎ。
877 名前：デフォルトの名無しさん mailto:sage [04/12/02 23:40:39]: 質問なんですがVB.netでEXCELシートにテキストボックスから
文字列を出力させる方法を誰か知っている方教えてください。
いろいろ調べてはいるんですが、よく分からなくて
初歩的な質問でｽﾏｿ
878 名前：デフォルトの名無しさん mailto:sage [04/12/03 00:53:57]: InstallShieldで作成したインストーラでアプリをインストールすると
同時に.NET Frameworkを最新版にするようなことは可能でしょうか。
879 名前：872 [04/12/03 00:57:56]: >>874 >> 876
ありがとうございます。
全てが初めてなので大変参考になります！
POSTにすべきというのは理解しました。
遷移先での取得方法ですが、サンプルでもよく「Me」という単語
を見かけるのですが、どう使うのでしょうか？
880 名前：デフォルトの名無しさん [04/12/03 07:40:07]: ２つのコンボボックスの選択メンバのデータソースに同一のＤＢテーブルを設定すると
片方のドロップダウンから選択した値が、
もう片方のコンボボックスにも自動的に入ってしまうんですが、
それぞれ独立して選択できるようにするにはどうしたらいいでしょうか？
できればテーブルは増やしたくないです。
仕事いってきます。
881 名前：デフォルトの名無しさん mailto:sage [04/12/03 09:25:16]: >>877
「Excel.Application」を検さくぁｗせｄｒｆｔｇｙふじこ
882 名前：デフォルトの名無しさん mailto:sage [04/12/03 09:31:52]: >>880
そんな変態的な設計を止める
883 名前：デフォルトの名無しさん mailto:sage [04/12/03 09:48:56]: アクセス形式のDBを使っているのですが、NULL値の取得方法が分かりません。
例えば、コンボボックスを使ってSelectionValueがNULL値のときに他のコンボボックスの
EnabledをFalseのようにしたいのですが、うまくいきません。

Private Sub combobox1_SelectedIndexChanged(・・・・・・）
If combobox2.SelectionValue ="" then
combobbox1.Enabled = False
End If
End Sub
のようにすると「演算子が、型 'DBNull' および文字列 "System.DBNull" に対して有効ではありません。」
になってしまいます。　　
　「If combobox2.SelectionValue ="" then」　の部分を「If combobox2.SelectionValue =　null then」
にしても同じでした。。。このような場合どのようにしてNULL値を取得するのでしょうか？
よろしくお願いします。
884 名前：デフォルトの名無しさん mailto:sage [04/12/03 09:54:08]: すいません(T_T)コンボボックスの「１」と「２」が間違ってました。
Private Sub combobox1_SelectedIndexChanged(・・・・・・）
If combobox1.SelectionValue ="" then
combobbox2.Enabled = False
End If
End Sub

でした（*_*)よろしくお願いします
885 名前：デフォルトの名無しさん mailto:sage [04/12/03 10:27:03]: DBのNULL値はSystem.DBNullという独自クラスなので、チェックにはIsDBNull関数を使うんだったはず。
886 名前：デフォルトの名無しさん mailto:sage [04/12/03 11:26:19]: おお♪IsNull関数を調べたら出てきました♪

null値は""でもnullでもないのですね（汗）
オブジェクトの型にデータ（system.DBNull)を渡して、IsNull関数を使ってBoolean型にTrue、Falseを返すのですね＾＾
ちなみに自分なりに書いてみたのですがうまく行きました♪

Dim aaa As Object
Dim bbb As Boolean
aaa = ComboBox1.SelectedValue
bbb = IsDBNull(aaa)
If bbb = True Then
TextBox1.Text = "self"
Else
TextBox1.Enabled = True
TextBox1.Text = ComboBox1.SelectedValue
End If
End Sub

>>885さんありがとうございます♪♪♪
887 名前：デフォルトの名無しさん [04/12/03 15:00:36]: 簡単なタイピングソフトを作ろうと思ってます。
やろうとしてること↓

例文(ローマ字)をテキストボックスに表示して、
フォームがアクティブなときに打ったキーを取り出して、
例文の1文字目から順番に比較しようとしました。

しようとしたのですが、例文から1文字ずつ取り出すっていうのができません。
substringで文字を取り出して、for文でまわそうとしたのですが失敗しました。
文字列を配列のようにするにはどのようにすればよいでしょうか？
888 名前：デフォルトの名無しさん mailto:sage [04/12/03 15:14:42]: StringのCharsプロパティが各文字の配列になってる。
TextBox1.Textの三文字目が欲しいならTextBox1.Text.Chars(2)。
String.Lengthプロパティで文字列の長さも分かる。
889 名前：デフォルトの名無しさん [04/12/03 16:29:38]: WindowsのDataGridって表示行数指定するプロパティない？
890 名前：デフォルトの名無しさん mailto:sage [04/12/03 16:59:55]: >>889
好きが行数のデータソースを作ればいいだろ。
891 名前：デフォルトの名無しさん mailto:sage [04/12/03 17:13:49]: VB.NETって何ですか？
892 名前：880 mailto:sage [04/12/03 18:13:58]: 結局ひとつのテーブルから、まったく同じデザインのVIEWを２つ定義することで解決しました。
こういうやり方が妥当かどうか分かりませんが、
データの冗長性を排除して保守性を高めるには、とりあえずこれしか思い浮かびませんでした。
朝っぱらからすんませんでした。
これから残業です。
多分また来ます。
893 名前：デフォルトの名無しさん [04/12/03 18:50:26]: VB.NET 2003ってさVSSついてないんですね。
んで、VB6.0のVSSをUpdateすればVB.NET2003で使えるようになるのかなって
試してみたらソース管理の項目が出ねー
どうなってんだこらー
894 名前：デフォルトの名無しさん mailto:sage [04/12/03 19:04:25]: ふつうCVS
895 名前：デフォルトの名無しさん mailto:sage [04/12/03 19:21:08]: >>893
[ﾌｧｲﾙ]の中に無え？
tu-ka、”ＶＢ”6.0 にもVSSは憑いてない訳だが・・・・・・
896 名前：デフォルトの名無しさん mailto:sage [04/12/03 21:08:08]: >891
それを説明できるレベルの人はこのスレにはいないでしょう。
897 名前：デフォルトの名無しさん mailto:sage [04/12/04 00:29:31]: VSSはMSDN買わないとついてこなかったはず
ついてきても使わないけど
898 名前：デフォルトの名無しさん mailto:sage [04/12/04 04:25:21]: .NETじゃないスレに質問してしまいました。
わざわざ謝罪でスレを消費するのは良くないと思いましたので、ここでお詫びします；

>昨日購入し、まだ条件分岐を覚えたレベルです。
>binフォルダにあるexeはVBがインストールされているPCでしか使えない。
>という事ですが、配布されている方はどうやってexeを作っているのですか？
>アプリケーションをうまく初期化できませんでした？見たいに表示されるみたいです。
>自PCじゃないので詳細なエラーメッセージがわからないのですが、宜しくお願いします。。

>相手のPCに.NET Frameworkが入ってないとか…

との事ですが、.NET Frameworkを入れてあるPCに、binフォルダのEXE渡せば良いのですか？
ディストリビューションウィザードでしたっけ？そういうの無いんですか？
アホすぎる質問ですが・・・誰か教えて下さいorz
899 名前：デフォルトの名無しさん [04/12/04 05:35:39]: >898
そうみたいね。でも昔のDLLとかも使うでしょ。だからその時はむかしの
ディストリビューションウィザードをつかうんじゃない？
　
900 名前：yukki mailto:sage [04/12/04 11:07:49]: メインフォームに「更新」などのボタンを設置し、ボタンが押されたときにメインフォームを閉じ、フォームを再表示する方法はありませんか？
ShowDialogではなく、フォームをアップデートするイメージです。
ご存知の方いましたら伝授お願いします。
901 名前：デフォルトの名無しさん mailto:sage [04/12/04 11:32:56]: できない事はないが、たかがフォームのアップデートごときでフォームを作り直すのも馬鹿馬鹿しい。
必要な部分をメソッドに切り出してそれを実行すれば済む話。じゃないのか？
902 名前：デフォルトの名無しさん mailto:sage [04/12/04 13:58:32]: >>900

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click

Refresh()

End Sub

じゃだめなの？
903 名前：887 [04/12/04 15:54:29]: >>888さん
ありがとうございます。配列として使うことは出来ました。

後は打った文字を取り出す処理ができれば・・・
出来てると思ってたらそれも出来てなかった(´･ω･｀)
keypressでできると思ってたら甘かった罠・・・
904 名前：デフォルトの名無しさん mailto:sage [04/12/04 20:54:19]: .NET Framework 1.1はSP1が出てるけど、dotnetfx.exe は
新しいの出ないの？
905 名前：デフォルトの名無しさん mailto:sage [04/12/04 22:15:38]: >904
これ誰か分かりませんか？SP1用のdotnetfx.exeを自分で
作れたりするといいのですが・・・
906 名前：デフォルトの名無しさん mailto:sage [04/12/05 02:57:02]: nyやshareで使われてるListViewの中に進行状況のグラフ
があるやつってVB.NETで作れるの？誰かわかる人いる？
ぐぐってもでてこない
907 名前：デフォルトの名無しさん mailto:sage [04/12/05 05:23:36]: >>906
OwnerDrawで描画制御を乗っ取る
初期のny1はVB.NETで作られてるらしいからｶﾞﾝｶﾞﾚ
908 名前：デフォルトの名無しさん [04/12/05 06:43:41]: とある測定マシンの制御プログラムを書いているのですが、
マシンがある状態になるまで処理を中断するうまい方法が思い浮かびません。
とりあえず考えたのは、

～メイン処理
While 1
System.Windows.Forms.Application.DoEvents()
If Timer2.Enabled = False Then
Exit While
End If
End While

～タイマー
Private Sub Timer2_Tick(…)
If (マシン = ある状態) Then
Timer2.Enabled = False
End If
End Sub

として、Timer2で設定した時間ごとにマシンの状態を聞き、
所望の状態になったらTimer2を無効化する、というものです。

が、これだとWhileループで無駄な負荷が生じてしまい、困っています。
何か良い方法はありませんでしょうか？
909 名前：デフォルトの名無しさん mailto:sage [04/12/05 08:36:22]: 普通はメイン処理のwhileの中でSLEEPするわな。
910 名前：908 mailto:sage [04/12/05 10:38:28]: >909　ありがとうございます、うまくできました！
911 名前：デフォルトの名無しさん mailto:sage [04/12/05 12:56:17]: ネットに送信、ネットから受信した総バイト数を所得できますか？
912 名前：1 ◆ExGQrDul2E mailto:sage [04/12/05 13:12:50]: 4年前私はマイクロソフトのCOM+2.0の評価メンバーに誘われました。
私の興味はASPの組み込みオブジェクトに興味があったのですがそれでも参加することにしました。
COM+2.0の仕様書を見て私は驚愕しました。
すべての言語の境界がなくなり、さらに便利で強力なクラスが膨大に盛り込まれていたのです。
それは後に.NETと名づけられました。
強力なWEBアプリを構築できる.NETを知ってからはもはやASPに戻ることはありませんでした。
913 名前：デフォルトの名無しさん mailto:sage [04/12/05 13:39:01]: >>911
コントロールパネル内のどっかのローカルエリア接続の状態
でパケット数が出てるからな。取れるだろ。
送信したバイトって自分で数えりゃ出るじゃん。
カウント関数はないのか？VB
914 名前：デフォルトの名無しさん mailto:sage [04/12/05 16:44:35]: >910
おー、そりゃよかった。乙。
915 名前：デフォルトの名無しさん mailto:sage [04/12/05 16:45:28]: >912
で？
916 名前：デフォルトの名無しさん mailto:sage [04/12/05 17:01:48]: >>913
どうやったらいいんですかねー
917 名前：デフォルトの名無しさん mailto:sage [04/12/05 17:17:06]: >>916
ttp://www.google.com/search?hl=ja&lr=lang_ja&oe=utf8&q=%E9%80%81%E5%8F%97%E4%BF%A1%E3%83%90%E3%82%A4%E3%83%88%E6%95%B0+%E3%82%B3%E3%83%BC%E3%83%89
918 名前：デフォルトの名無しさん mailto:sage [04/12/05 17:53:42]: >>917
㌧
やってみます
919 名前：デフォルトの名無しさん mailto:sage [04/12/05 18:53:58]: マルチうぜー
920 名前：デフォルトの名無しさん [04/12/05 23:16:31]: 夜分遅くにすいませんが、助けてください。
データグリッドにテーブルの情報を表示させる時、
そのテーブルの或る列に持っている１～７の文字値については
グリッド上では月～日に読み替えて表示させたいのです。
列スタイルクラスのFONTプロパティが怪しそうですが、
使い方を調べてもなんだかよく分かりません。
自分ももっと調べてみますが、何かいい方法があれば教えてください
お願いします。
921 名前：デフォルトの名無しさん [04/12/05 23:20:56]: >>912
同じ言語仕様にいろんな文法をかぶせただけとも言える。

まぁ、従来の構造化オブジェクト指向言語も少なからずそんな感じだったから
相互運用出来るようになったくらいか。
922 名前：フナ太郎 mailto:sage [04/12/05 23:31:02]: >>920
DataColumnオブジェクトのExpressionプロパティでなんとかなんないっすかね。
923 名前：デフォルトの名無しさん [04/12/05 23:51:02]: >>922
早いレスthxです。
グリッド上のその列は、ネットで拾った、グリッド上にコンボボックスを乗せるクラス
から生成した列スタイルオブジェクトを使っていて、
教えていただいたプロパティはないんですよ。
そのクラスはコンボボックス得意のDisplayMenberと
ValueMenberが設定できるので、１～７を月～日に表示させる
こと自体はできるんですが、でもコンボボックスは要らないってことで（汗
なんとかならないもんかと。
コンボボックスを使用不可設定してもいいんですが、
見た目も変だし、そもそも編集不可の列としたいんで
なんかもっとちゃんとしたやり方があるような気がしてるんです。
もうちっと調べてみます。ありがとうございました。

920の訂正：FONTプロパティ→formatプロパティ
924 名前：デフォルトの名無しさん [04/12/06 01:00:49]: ピクチャーボックス又は読み込んだ画像を1度単位で回転させるにはどうすればいいのでしょうか。
RotateFlipType.Rotate90FlipNoneで90、180、270度の回転はできるのですが・・・。
925 名前：デフォルトの名無しさん mailto:sage [04/12/06 01:06:59]: うざ
926 名前：デフォルトの名無しさん mailto:sage [04/12/06 01:12:30]: >>924
これは？
ttp://dobon.net/vb/dotnet/graphics/skewing.html
927 名前：924 mailto:sage [04/12/06 01:17:34]: >>926
ありがとうございます、求めたい表現ができるようになりました。
このテンプレサイトはみてたけど回転しか見てなかった(´・ω・`)
928 名前：デフォルトの名無しさん mailto:sage [04/12/06 02:11:08]: う
929 名前：デフォルトの名無しさん mailto:sage [04/12/06 02:16:57]: チェックボックスがチェックされているかされていないかってどうやってわかるんですか？
チェックボックス
Dim box1 As Integer
box1 = CheckBox1.Checked
ボタン
Dim box1 As Integer
If box1 = True Then MsgBox("on") Else MsgBox("off")
こんな感じでやってもダメでした。。
930 名前：デフォルトの名無しさん mailto:sage [04/12/06 02:25:22]: なぜBoolean型をわざわざInteger型にするのかさっぱりわからん。
.NETではBooleanとIntegerは全く別物であるという認識を持ってないからか。

そもそも
If CheckBox1.Checked Then ...
で済むし。
Ifの条件式はBoolean型ならOKなんだから。
931 名前：デフォルトの名無しさん mailto:sage [04/12/06 02:33:38]: >>930
ありがとうございます！
実は数日前届いたばかりで・・・。
意味不明な質問すいません。。
932 名前：デフォルトの名無しさん mailto:sage [04/12/06 07:24:36]: >931
いや、意味は分かるよ。>930が人としてなっちゃいないだけ。
気にするな。
933 名前：デフォルトの名無しさん mailto:sage [04/12/06 11:59:50]: うぜー
934 名前：デフォルトの名無しさん [04/12/06 13:45:43]: この問題は全てｸﾗｽで解決できるのか？
935 名前：デフォルトの名無しさん mailto:sage [04/12/06 16:08:44]: 条件式にBooleanをつっこむのは同意だが、BooleanとIntegerが
まったく別物と言い切るのもどうよ。"-1"や"0"で相互に扱えるし。
936 名前：デフォルトの名無しさん mailto:sage [04/12/06 16:35:02]: 「いちおう別物」ぐらいだな。
937 名前：デフォルトの名無しさん mailto:sage [04/12/06 17:14:20]: DialogResultをBooleanで受けて変になったことがあったな。
938 名前：デフォルトの名無しさん mailto:sage [04/12/06 17:15:21]: DialogResultをBooleanで受けて変になったことがあったな。
939 名前：デフォルトの名無しさん mailto:sage [04/12/06 17:16:28]: DialogResultをBooleanで受けて変になったことがあったな。
940 名前：デフォルトの名無しさん mailto:sage [04/12/06 17:43:11]: DialogResultをBooleanで受けて変になったことがあったな。
941 名前：デフォルトの名無しさん mailto:sage [04/12/06 19:00:25]: あえて聞こう。

DialogResult列挙体をどうやってBooleanで受けるんだ？
俺の知らない隠し値でも定義されてるのか。
942 名前：デフォルトの名無しさん mailto:sage [04/12/06 19:01:56]: >>941
空気嫁

DialogResultをBooleanで受けて変になったことがあったな。
943 名前：デフォルトの名無しさん mailto:sage [04/12/06 19:31:49]: Dim result As Boolean, box As New System.Windows.Forms.OpenFileDialog()
result = box.ShowDialog()
System.Windows.Forms.MessageBox.Show(result) '問答無用でTrue。　FalseになるのはDialogResult.Noneだけ

とにかくOption Strict Onしとけってことだな。
944 名前：デフォルトの名無しさん mailto:sage [04/12/06 19:40:02]: ( ﾟДﾟ)‥‥
945 名前：デフォの名無しさん [04/12/07 00:11:48]: 文字列変換処理を作っています。

ab→xyのときabc→xyc

はReplace関数を使えばイイんですが

a?b→xyのときacb→xy（？は任意の1字）
a*b→xyのときacpqb→xy（*は任意の文字列）

のような変換をしたいのですが、
このような機能を実現する関数は用意されているでしょうか？
946 名前：デフォルトの名無しさん mailto:sage [04/12/07 00:44:12]: Regexクラスで実装されている正規表現を使う。
947 名前：デフォルトの名無しさん [04/12/07 00:44:39]: 項目 'Form1.resx' はプロジェクトディレクトリに存在しません。移動したか、名前が変更されたか、または削除された可能性があります。
というエラーが出たんですが修復可能でしょうか？？
948 名前：デフォルトの名無しさん mailto:sage [04/12/07 01:58:22]: Form1.vbを保存するか何かしたら再度作ってくれたような気がする
漏れも一度出したことがあるんだけど簡単に解決できたので余りよく覚えてない
949 名前：デフォルトの名無しさん mailto:sage [04/12/07 02:05:15]: >>948
訂正
メモ帳でForm1.resxって空ファイル作って
Form1.vbと同じフォルダに突っ込む
950 名前：デフォルトの名無しさん mailto:sage [04/12/07 02:16:59]: だいぶ作り直してしまいました・・・
でもありがとうございます！！！(TT)
951 名前：デフォルトの名無しさん [04/12/07 08:10:20]: VB.NETで作ったＰＧのＩＣＯＮはどのツールで作るんですか？
952 名前：デフォルトの名無しさん mailto:sage [04/12/07 08:21:02]: >>951
VB.NET
953 名前：デフォルトの名無しさん [04/12/07 08:35:36]: VB.NET のどこにＩＣＯＮ作るツールがある？　
えっプログラムでつくるのか？
　ＢＭＰともフォーマット違うみたいだし。
ＢＭＰ＋＠だろけどね。だれかフォーマットの規格どこにあるか
おしえてくれ。
954 名前：デフォルトの名無しさん [04/12/07 08:58:43]: VB.NETににはICON作成はできない。そういうツールはない。
ICOとBMPのファイルをStreamで開いて解析する。どうせ２，３バイトの
ヘッダーが付いてるぐらいだから、BMPにそのヘッダーをつければいい。
955 名前：デフォルトの名無しさん [04/12/07 09:18:22]: >954
やってみました、なんだ簡単なんだね。
956 名前：デフォルトの名無しさん mailto:sage [04/12/07 09:27:18]: VS.NETならファイル→新規作成→ファイルにアイコンファイルがあるんだがな。
VB.NET単体にはなかったのかorz
957 名前：最凶VB厨房 mailto:sage [04/12/07 20:40:24]: App.icoだぼぉくぃっくしたら編集できるぞ。
2002。
VB.NET2003単体にはなかったのかorz
958 名前：デフォルトの名無しさん [04/12/07 21:10:45]: ［Ｔｅｘｔ１］に入力した文字（アルファベット）を
［Ｔｅｘｔ２］（数値）文字分マイナス転置（アスキーコードで）する
プログラムを作っています。
例：cde⇒abc　2文字動かす

下のプログラムだと最初の１文字しか表示されません。
入力した数だけ表示させるにはどうすればいいでしょうか？
お願いします。

Private Sub Command1_Click()
i = Len(Text1.Text)
Text3.Text = Chr(Asc(Mid(Text1.Text, i, 1)) - Val(Text2.Text))
End Sub
959 名前：デフォルトの名無しさん mailto:sage [04/12/07 21:11:28]: Dim num As Integer
If num = 0 Then
num = 1
Else
num = 0

End If
MsgBox(num)
これでボタン押すたびに1になったり0になったりするはずなのに！！！
ならないのは何故ですか('A｀)
960 名前：デフォルトの名無しさん mailto:sage [04/12/07 21:24:18]: num の定義を public とかにする。
961 名前：デフォルトの名無しさん mailto:sage [04/12/07 21:26:19]: 定義というのは型という事ですか？
962 名前：デフォルトの名無しさん mailto:sage [04/12/07 21:35:53]: Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim num As Integer

If num = 0 Then
num = 1
Else
num = 0

End If
MsgBox(num)

無理でした、MsgBoxに1しか出ません！
963 名前：デフォルトの名無しさん [04/12/07 21:42:45]: 最近vb.net始めました。２つの質問です。お願いします。

（１）ﾃｷｽﾄﾌｧｲﾙの指定行の値を変更するのに、

　　ﾌｧｲﾙの全部を読み出して配列に格納。
　　変更したい行に相当する配列を変更
　　配列を　for で、vbcrlfを & して結合
　　ﾌｧｲﾙを元のﾌｧｲﾙに書き出し

という手順でやっています。
でも何かもっといいやり方がありそうな気がして成りません。
もっといい方法はないのでしょうか。

（２）コンマで区切られた文字列を配列に格納するやりかたで、

str_ary(3)="1,2,3"
みたいにしたら
str_ary(0)←1 str_ary(1)←2　str_ary(2)←3
とコンマで区切られた文字列が自動的に配列に格納されるやり方を
どこかで見たような気がするのですが、見あたらなくなりました。
（もちろん上のやり方ではうまくいきません）
そのような方法がありましたらどうぞご教示願います。

　　　
964 名前：デフォルトの名無しさん mailto:sage [04/12/07 21:42:52]: Dim numをクラスのPublicだと思う
965 名前：デフォルトの名無しさん mailto:sage [04/12/07 21:43:45]: バカすぎ。
966 名前：デフォルトの名無しさん [04/12/07 21:44:47]: Public num As Integer

private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If num = 0 Then
num = 1
Else
num = 0

End If
MsgBox(num)
967 名前：デフォルトの名無しさん mailto:sage [04/12/07 22:06:19]: Ifの中にIfを書くことは不可能ですか？
968 名前：デフォルトの名無しさん mailto:sage [04/12/07 22:07:48]: 可能
969 名前：デフォルトの名無しさん mailto:sage [04/12/07 22:08:07]: 絶妙に意味不明です。
ていうか取りあえず試そうよ。
970 名前：デフォルトの名無しさん mailto:sage [04/12/07 22:23:15]: >>958
一文字しか処理してないから。

.NET的にエレガントに書くとこんな感じかね。
Dim i As Integer, re As String = "", c As Char
For Each c In Text1.Text
re += Chr(Convert.ToInt32(c) - Integer.Parse(Text2.Text)).ToString()
Next
Text3.Text = re
971 名前：デフォルトの名無しさん mailto:sage [04/12/07 22:27:58]: StringBuilder使えよ
972 名前：967 [04/12/07 22:36:24]: >>968-969
Endifが無かっただけでした･･･。
973 名前：デフォルトの名無しさん mailto:sage [04/12/07 22:40:35]: >967
iiff
974 名前：デフォルトの名無しさん mailto:sage [04/12/07 22:51:09]: >>973
エレガントだ。（w
975 名前：デフォルトの名無しさん [04/12/07 22:57:28]: そろそろ1000取り
976 名前：963 mailto:sage [04/12/07 23:53:43]: >>971さん
それは私(>>963)に対するレスですね？
ちょいと調べてみます。
ありがとうございます。
977 名前：デフォルトの名無しさん [04/12/08 11:46:52]: すみません、VB自体の質問ではないのですが

PC98で動かしてたﾍﾞｰｼｯｸのプログラムは
VBで動かすことは可能なのでしょうか?
978 名前：デフォルトの名無しさん mailto:sage [04/12/08 11:48:21]: >>977
N88Basicね。
部分的に流用するぐらいならなんとか可能だけど
そのまんまは無理だよ。
979 名前：デフォルトの名無しさん mailto:sage [04/12/08 11:56:19]: >>978
レスありがとうございます

そうなのですか
父がN88Basicで作ったプログラムをPC98を使用していて、古くていよいよ壊れそうなので
移植できるならVBでも買ってあげようかなと思いまして
980 名前：デフォルトの名無しさん mailto:sage [04/12/08 12:01:41]: >>979
PC98エミュレータとかなかったっけ？
981 名前：デフォルトの名無しさん mailto:sage [04/12/08 12:02:26]: つかN88BasicのWindows用インタプリタがなかったっけ？
982 名前：デフォルトの名無しさん [04/12/08 12:06:16]: DataGridに関する質問です。
VB.netでDataGridにデータを表示するのに、DataSetを作成して、
そいつをSetDataBindingでDataGridに表示しています。

そのGridについて、列幅や列ヘッダ名称をDataGridTextBoxColumn、
GridColumnStylesを利用して設定し、TableStyles.Addとしているの
ですが、表示が変わらずにDataSetの項目名が列ヘッダーに表示
されたままです。

変更するにはどうすればよいのでしょうか
983 名前：デフォルトの名無しさん mailto:sage [04/12/08 12:43:22]: >981
ある。普通にググれば見つかるはず。
984 名前：デフォルトの名無しさん mailto:sage [04/12/08 12:44:40]: >982
HeaderTextは設定しているの？
985 名前：デフォルトの名無しさん [04/12/08 12:45:09]: vb.netで同じLAN内でファイル転送をしたいのですが全く分かりません。教えてください。
986 名前：デフォルトの名無しさん mailto:sage [04/12/08 12:50:44]: >985
ファイルコピーすれば？
987 名前：デフォルトの名無しさん mailto:sage [04/12/08 12:51:35]: >985
System.IOクラスでファイル操作は色々できる。
988 名前：デフォルトの名無しさん [04/12/08 13:06:10]: >984
989 名前：デフォルトの名無しさん [04/12/08 13:06:41]: >984
下記のように設定しています。
Dim TSAuthors As New DataGridTableStyle
TSAuthors.MappingName = "Authors"

Dim TCFirstName As New DataGridTextBoxColumn
TCFirstName.MappingName = "PROJECT_CODE"
TCFirstName.HeaderText = "First Name"
TCFirstName.Width = 120
TSAuthors.GridColumnStyles.Add(TCFirstName)

grdProject.TableStyles.Add(TSAuthors)
990 名前：デフォルトの名無しさん mailto:sage [04/12/08 13:10:06]: >989
これでヘッダに「First Name」って出ないの？
991 名前：デフォルトの名無しさん mailto:sage [04/12/08 13:11:40]: >989
よさそうだけどな。DataGridの概要のページのサンプルがあるから
比較してみたら？
992 名前：デフォルトの名無しさん mailto:sage [04/12/08 13:36:26]: 次スレは？
993 名前：デフォルトの名無しさん mailto:sage [04/12/08 13:56:27]: >>992
次スレ
pc5.2ch.net/test/read.cgi/tech/1065535118/
994 名前：デフォルトの名無しさん [04/12/08 17:44:09]: Part8まーだー？　C#に行こうかな
995 名前：デフォルトの名無しさん mailto:sage [04/12/08 22:46:05]: VB.NET質問ｽﾚ (Part8)
pc5.2ch.net/test/read.cgi/tech/1102512868/

次スレ
996 名前：デフォルトの名無しさん [04/12/08 23:38:04]: 982=989です。

DataSetをBindした後、下記のようにDataGridTableStyleと
マッピングさせたらうまく行きました。

Dim dt As DataTable = dsPrjList.Tables(0)
Dim DGTS As New DataGridTableStyle
DGTS.MappingName = dt.TableName
997 名前：デフォルトの名無しさん mailto:sage [04/12/09 00:08:46]: なんか、開始押すといきなりフリーズするんだが。。
原因不明で、やっぱこういうときってやり直すべきなのだろうか
998 名前：デフォルトの名無しさん mailto:sage [04/12/09 00:13:49]: そうしたいんならそうすれば。
999 名前：デフォルトの名無しさん [04/12/09 00:26:12]: 銀河鉄道
1000 名前：デフォルトの名無しさん mailto:sage [04/12/09 00:35:39]: の夜。
1001 名前：１００１ [Over 1000 Thread]: このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef