VB.NET質問ｽﾚ (Part7) - 暇つぶし2ch

VB.NET質問ｽﾚ (Part7) ..

685:デフォルトの名無しさん
04/11/28 05:56:55
>680
ありがとう
>DeleteObjectで作成したブラシを削除。
えっ、ガベッジコレクションきかないのですか？　
削除する必要があるんですか？

>'Graphics.FillPathとどっちが楽だろ。
>'//まあマネージドで完結させ得る点でGraphicsの方が良いが。

　APIで描いた図形にGraphics.FillPathできます？

GraphicsにRoundRectさえあれば、APIなんて使いませんよ。図形描画に関しては
滅茶苦茶原始的。MSDOSのまんまだね。　２Dで回転すらできないのか？　あーあ。

686:デフォルトの名無しさん
04/11/28 08:30:31
>>685
> 　えっ、ガベッジコレクションきかないのですか？　
> 削除する必要があるんですか？

ガベージコレクションをもう一度勉強すれ。
メモリ以外はガベージコレクションの対象外だ。
アンマネージドなものを使うならDeleteObjectやReleaseDCなんか常に意識しないと駄目。
マネージドなものならGCされる時に関連リソースもファイナライザで破棄できるんだが。

> APIで描いた図形にGraphics.FillPathできます？

できるんじゃないかね。言っている意味がよくわからんが。
hDCからGraphicsを取得する事もその逆もできるし。

> 滅茶苦茶原始的。MSDOSのまんまだね。　２Dで回転すらできないのか？　あーあ。

Graphics.RotateTransformとか駄目か。

687:686
04/11/28 09:26:57
まあ俺もガベージコレクションなんか意識してないけどな。
適当適当。プログラムなんてそんなもんよ。

688:デフォルトの名無しさん
04/11/28 12:59:45
>>613
通らないみたい。レス遅くなってすいません。
プロジェクトで、ビルド出力パスというのを設定したら実行ファイルがつくられてました。

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

690:デフォルトの名無しさん
04/11/28 13:04:16
>>613
それでもビルドしたときになんかエラーがでてたよ。詳細はわかんないけど、無事exeができてました。ありがとう

691:デフォルトの名無しさん
04/11/28 13:11:33
>>689
報告が遅れてすまんかったね

692:デフォルトの名無しさん
04/11/28 13:12:21
>687
マジメにやれや。

693:デフォルトの名無しさん
04/11/28 13:12:53
>691
謝って済む問題じゃないだろ。二度とここに書き込むな。

694:デフォルトの名無しさん
04/11/28 13:21:14
>>693
どういう点が、謝ってすむ問題じゃない？何も問題起こしてませんよ。てかさ、質問と解答と報告以外のことすんなよ、オッサン。
基本的に「謝ってすむ問題」の定義からしておかしいしね。文章嫁や。イライラしてるんなら、最悪板にでも逝って下さいおながいします
あなたがいると迷惑ですよ？

695:デフォルトの名無しさん
04/11/28 13:23:30
>694
釣られすぎ

696:デフォルトの名無しさん
04/11/28 13:24:07
>694
え？誰がどこに「謝って済む問題」をどう定義したの？

697:デフォルトの名無しさん
04/11/28 13:29:44
>アンマネージドなものを使うならDeleteObjectやReleaseDCなんか常に意識しないと駄目。

そういうことですか。

＞Graphics.RotateTransformとか駄目か。

OK。これでおけ。

＞hDCからGraphicsを取得する事もその逆もできるし。

　ｈDCからGraphicsをとる方法おしえてくだされ。

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

お前が定義してるね↑笑

>696はVBよりもまずは日本語を覚えようよ♪うん♪

699:デフォルトの名無しさん
04/11/28 13:36:21
>698
笑じゃなくて。質問に答えてくれませんかね。

あーーーー、すいません。脳が少ない方でしたか。
あらかじめ言って頂ければそれなりに対処したんですが。
すいません。

700:デフォルトの名無しさん
04/11/28 13:40:12
>>698
定義してないよ。

>694
＞基本的に「謝ってすむ問題」の定義からしておかしいしね
何に対して何がどうだからおかしいと思ったの？

701:デフォルトの名無しさん
04/11/28 13:40:18
　定義：謝って住む問題。
　　謝ると、それ以後問題とならない問題。もともと問題とならない
　　些細な問題を含む。
　　もともと謝って住む問題であっても、一旦謝ると謝っても済まない
　　問題となることがある。

702:デフォルトの名無しさん
04/11/28 13:41:33
>701
余計な書き込みをしないように。お前には関係ないし、誤字があって
意味がわからん。

703:デフォルトの名無しさん
04/11/28 13:43:01
694に質問。「定義」ってどういう意味？
君が思う（思い込んでいる）「定義」の意味でいいよ。

704:デフォルトの名無しさん
04/11/28 13:43:54
>700
アホをまともに相手するな。お前も荒らしと言われるぞ。

705:デフォルトの名無しさん
04/11/28 13:44:52
>701
いそうろうのことか？

706:デフォルトの名無しさん
04/11/28 13:47:20
>>699

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

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

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

お前は、日本語読めてるの？ワラ
脳が少ない？？
へぇ。ケッサクだね。脳が少ないなんて普通言わないしねｗ普通はｗ　Iちなみに俺とお前だったら、レスの内容から、あきらかにお前の方が少ないしね
うん。それから、別に話しかけてこなくて良いよｗ
すいません。ってｗ

707:デフォルトの名無しさん
04/11/28 13:52:00
>>703
定義：謝って住む問題。
　　謝ると、それ以後問題とならない問題。もともと問題とならない
　　些細な問題を含む。
　　もともと謝って住む問題であっても、一旦謝ると謝っても済まない
　　問題となることがある。

おれもこれで↑定義はあってると思うよ。

708:デフォルトの名無しさん
04/11/28 13:53:43
カリカリして書き込みするなや。
とりあえず飯食って昼寝しろ。いま職場でもカップ麺くらいある
だろし、今日なら上司もいないだろ？

俺は金曜から一歩も外に出られない。(´；ω；`)ｳｯ…

709:デフォルトの名無しさん
04/11/28 13:57:59
>>700＝702
702 名前：デフォルトの名無しさん [sage] 投稿日： 04/11/28 13:41:33
>701
余計な書き込みをしないように。お前には関係ないし、誤字があって
意味がわからん。

別に、誤字脱字ないでしょ？ワラ
コレぐらいの文章くらい読解してくださいね。厨房さん
でなきゃ700＝702は荒らしでｗ

710:デフォルトの名無しさん
04/11/28 13:58:54
>>708
乙。

711:デフォルトの名無しさん
04/11/28 13:59:58
>>697
>ｈDCからGraphicsをとる方法おしえてくだされ。

一度Graphicsクラスのメンバ一覧をじっくり目を通すと良いと思う。
質問の解答以外にも意外な発見もあるかも知れない。

712:デフォルトの名無しさん
04/11/28 14:01:55
>709
誤字はホントにあるよ。バカだな。

713:デフォルトの名無しさん
04/11/28 14:03:02
>706
ふぅ・・・一体どこまでレベルを下げてあげれば伝わるのか。
脳が少ないというかない人にからんだ私が間違ってましたよ。

714:デフォルトの名無しさん
04/11/28 14:03:23
>709
誤字あるじゃん。

715:デフォルトの名無しさん
04/11/28 14:03:50
>709
>705のツッコミで気付けよｗうまいこと言ってるのに。

716:デフォルトの名無しさん
04/11/28 14:05:21
>708
＞俺は金曜から一歩も外に出られない。(´；ω；`)ｳｯ…
こいつ臭そう。相当デキが悪いんだろうな。
うちに来てる協力会社でも机に座った分しっかり
請求してくるバカがいるからな。成果物チェックしまくって
めちゃくちゃ減らしてやってるけど。

717:デフォルトの名無しさん
04/11/28 14:05:49
誤字に気付いた後の逆ギレに期待。

718:デフォルトの名無しさん
04/11/28 14:06:35
>713
気付くの遅すぎ。

719:デフォルトの名無しさん
04/11/28 14:09:02
謝って住む問題か。確かに居候っぽいなｗ

720:デフォルトの名無しさん
04/11/28 14:09:54
>706
>703はスルーですね？分かりました。

721:デフォルトの名無しさん
04/11/28 14:11:17
>716
そんな奴ばっかだろ。小さい会社は精鋭揃いだと思ったら
大間違いだからな。金曜も協力会社の奴一人泣かし
ちまった。

722:デフォルトの名無しさん
04/11/28 14:11:53
>707
自演、かっこ悪いよｗ

723:デフォルトの名無しさん
04/11/28 14:13:13
>688-719は全部688の自演って皆気付いている？

724:デフォルトの名無しさん
04/11/28 14:14:51
またか・・・スレ埋めたいのかなんだか知らんが・・・

725:デフォルトの名無しさん
04/11/28 14:17:07
>>708
そうですよね。このスレには、どうやら厨房がいるみたいなので。お互い監視してないとスレが続きませんね
乙

726:デフォルトの名無しさん
04/11/28 14:17:43
>721
とことんやらないとな。慈善事業じゃないんだから。

727:デフォルトの名無しさん
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:デフォルトの名無しさん
04/11/28 14:24:47
>>726
厨房へ。釣り、ご苦労様です。ｗ

730:デフォルトの名無しさん
04/11/28 14:26:08
>729
いつになったら自演やめてくれるの？

731:デフォルトの名無しさん
04/11/28 14:27:19
あきらかに自演じゃないだろ。笑

732:708
04/11/28 14:27:47
>>716
>>721
まあ確かに俺は出来がいいとは言えないが、今回は後輩の後始末だよ。
月曜テスト予定のファイルをバックアップごと破壊して蒸発した。
いろいろ溜め込んでいたようだが、ここまでするとは‥‥。orz

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

じゃ、仮眠してからシナリオと照らし合わせる最終チェックに入りま
す。(´・ω・`)ﾉｼ

733:デフォルトの名無しさん
04/11/28 14:28:16
730は、もう書き込まなくていいよ

734:デフォルトの名無しさん
04/11/28 14:34:05
こいつの場合>730みたいなツッコミも含めた自演だからな。
マジでタチが悪い。

>733も自分自身に対するツッコミで、しばらく待って
誰も書き込まないと見るや、自分で別人のフリして
続けるからな。誰も釣られてないのに終わらないんだ。

735:デフォルトの名無しさん
04/11/28 14:36:26
プログラム上からブロードバンドルータのリブートってできる？

736:デフォルトの名無しさん
04/11/28 14:38:17
>>735
そのルーターの制御コードがわかってるなら。

737:690
04/11/28 14:39:38
>>708
僕の方はようやく内定が決まって、一段落した感じです。プログラミングではなくて、メーカーで評価・シュミレーションというやつをやることになりました。＾＾；
分野は違いますが、お互い頑張りましょう。レス㌧クスでした。嬉しかったです。では。乙

738:デフォルトの名無しさん
04/11/28 14:46:53
>>728
> 　＞７１１
> 　みました。わかりません。hdcからGraphicsをとるのに
> 　そもそもGraphicsのメンバーは関係ないでしょう。
> 　　Graphics　=　GetGraphics(hDC)
> 　　だから。そのGetGraphicsがどこにあるのか分からないのです。

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

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

Translateに平行移動って意味もあるんだが……。
URLﾘﾝｸ(dictionary.goo.ne.jp)

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

そういうのは他にも色々あるが……。
何でだろうね？

739:デフォルトの名無しさん
04/11/28 14:53:04
>736
制御コードってどんな形式のもの？
corega BAR SW-4P HGなんだけど、やったことある
人いないかな。

740:デフォルトの名無しさん
04/11/28 15:03:17
>739
パケットキャプってみて、同じパケット作って飛ばして
あげればできたりするかな。

741:デフォルトの名無しさん
04/11/28 15:34:13
>>739
メーカーが公表する性質のものでもないし、>>740の助言みたい
にするのが大吉。管理者ログインからリブート指示まで、丸ごと
捕獲して解析してみそ。

つか、そのあたりの話はスレ違いになるから、メーカースレにで
も行ってみたらいい助言が得られる悪寒。

742:デフォルトの名無しさん
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:デフォルトの名無しさん
04/11/28 16:05:28
>>743

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

Graphics クラスには FromHdc という Shared メソッドがあるんだよ。

745:フナ太郎
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厨房
04/11/28 18:01:04
>>746
おもろい

748:デフォルトの名無しさん
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厨房
04/11/28 19:00:49
>ReleaseHDCInternalは内部関数で使ってはいけないのになんでPublicなのか？
内部は内部でもクラス内部という意味じゃなくて
MS内部という意味じゃねぇか?ｗ
クラスライブラリ内部と言った方がいいかな。

751:最凶VB厨房
04/11/28 19:04:44
>>749
URLﾘﾝｸ(www.microsoft.com)
これ見たら驚きの連続だぞ（ﾜﾗ

752:デフォルトの名無しさん
04/11/28 20:19:08
>741
キャプってみたけど訳分からん。ネットワークの基礎から
勉強しないと・・・とりあえずロケットマウスでしのぎますｗ

753:613
04/11/28 22:51:35
>>689
俺は別に構わんがｗ

754:デフォルトの名無しさん
04/11/28 23:49:39
＞７５１
>これ見たら驚きの連続だぞ（ﾜﾗ

そんなにいっぺんに驚いても勿体ないでしょ。
ところで、最凶はVBにかかるの？　厨房にかかるの？　
今回Graphicsのサンプルをテストするとき、C#をすこし使いましたが、
InterisenceとかがVBにくらべて弱いですね。VBの方がかなり楽にプログラム
できます。
　言語的に幾分弱いVBに便利さで意図的にアドバンテージをおくのはMSの戦略ですかね。

755:デフォルトの名無しさん
04/11/28 23:53:16
逆にVB.NETのインテリセンスのしつこさにちょっとウザさを感じるところもある。
やっぱり初心者に優しくという方向性なんだろうな。

756:デフォルトの名無しさん
04/11/29 05:46:17
>755
なんで初心者のお前がうざいと感じるんだよ。

757:フナ太郎
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:デフォルトの名無しさん
04/11/29 09:29:25
>757
俺にレスするな

761:デフォルトの名無しさん
04/11/29 10:42:56
ユーザーコントロールでテキストボックスを作ろうと考えてます。
MultiLineがいつもTrueで、通常は1行表示でフォーカスを持つと入力部分が大きくなるような奴です。

で、入力部分を大きくする時にフォーム中央にある場合は問題ないんですが、
隅にあったりして大きくなるとフォームからはみ出す場合に途切れずに
表示するにはどのようなアイデアがあるでしょうか？
現在はフォームにテキストボックスだけを貼り付けて、それを表示させようかと考えてはいるのですが・・・

762:フナ太郎
04/11/29 10:52:57
>>760
あ、７５５だった。すまん。

763:デフォルトの名無しさん
04/11/29 11:13:55
>>761
フォーム側がユーザコントロールのResizeイベント辺りでフォーム自身のサイズ変更すればいいんじゃない？

764:デフォルトの名無しさん
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:デフォルトの名無しさん
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:デフォルトの名無しさん
04/11/30 09:33:03
>767
分からないなら書くなよ。

769:デフォルトの名無しさん
04/11/30 09:35:56
>>768
そんなに自分を責めるなよ。

770:769
04/11/30 09:44:08
すまん。769は767へのレスね

771:デフォルトの名無しさん
04/11/30 10:21:35
MSDEで重要なのは周期的な処理丸木バックアップを作成しすることだよ。

772:本物の769
04/11/30 10:32:59
>>770
（´,_ゝ｀）ﾌﾟｯ

773:デフォルトの名無しさん
04/11/30 10:34:48
>772
なにこいつ

774:デフォルトの名無しさん
04/11/30 11:02:16
　MSDEの特徴はBACKUPはいくらでもできるが、RESTOREはどんなにがんばっても
できないこと。
　結局リストアーに仕方が分からんままに中国に納めたよ。
まあトラブルことはめったにないし大丈夫だろ。

775:デフォルトの名無しさん
04/11/30 11:42:58
VBにて三角形2次元モデルの描画を行いたいのですが、全然わからないので助けていただきたいのですがここで聞いてもいいでしょうか？

776:デフォルトの名無しさん
04/11/30 11:46:46
何を質問したらいいですかみたいなメタ質問は無しな。

777:775
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:デフォルトの名無しさん
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:デフォルトの名無しさん
04/11/30 12:34:45
>779
なんでsenderから取りたいのでしょうか？
OpenFileDialog1 からは取れないの？

781:デフォルトの名無しさん
04/11/30 12:42:53
senderをOpenFileDialogにキャストしてやれば問題ないが。
なぜわざわざイベントで？　とは思うな。

782:デフォルトの名無しさん
04/11/30 14:16:05
MSDEのように、データセットをウィザードで作れるDBを探しています。
リナックスで作動するDBがよいのですがMySQLは上記のような作り方で
作動しますか？

783:デフォルトの名無しさん
04/11/30 14:51:12
>>777
自分も詳しくないけどさ、取りあえずViewPortというクラスか構造体か、
.NET FrameworkにもManaged DirectX9.0にも無いようなんだけど。
DrawPointScsとかのメソッドも分からないわけだし。

784:デフォルトの名無しさん
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:デフォルトの名無しさん
04/11/30 17:37:44
>>787
.NET Frameworkにはない。　//Frameworkの扱うべきレイヤからかなり外れてるから。
手っ取り早いのはVBのコンポーネントを参照するこったね。

790:デフォルトの名無しさん
04/11/30 18:03:40
>788
＞OKボタンを押したことを知る方法はEVENT以外にありません。
平然とウソを書くなよ。ちゃんとヘルプ読んだか？

791:デフォルトの名無しさん
04/11/30 18:05:53
>788
OKボタンってOpenFileDialog上にあるOKボタンのこと？
ShowDialog()の戻り値を見るのが普通だと思うけど
いまいち何がしたいのか分からないなぁ。

792:デフォルトの名無しさん
04/11/30 18:20:31
>787
あのさ、どういう機能を実現したいのかまずは日本語だけで
まとめてみれば？

あと>785みたいな人の神経を逆撫でするような書き込みしといて
その後すぐ質問ってどういう神経なんだろう。投稿前に見直し
とかしてる？

793:デフォルトの名無しさん
04/11/30 18:22:53
ちなみに779はMSDN見れる人？
単に見れないからMSDN代わりにここを利用しようとしてる？
ちょいとそこんとこ教えて。

794:デフォルトの名無しさん
04/11/30 19:31:09
>>783
URLﾘﾝｸ(do.sakura.ne.jp)
にソースコードを書いておきました。
埋める場所は空欄（先の通り）となっています。

795:デフォルトの名無しさん
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:デフォルトの名無しさん
04/11/30 23:11:10
>796
じゃあCommonDialogの方も読むだろ、普通

798:デフォルトの名無しさん
04/11/30 23:11:32
いや...についてに書かれてるサンプルコード見りゃすぐ分かるこったろ……。

799:デフォルトの名無しさん
04/11/30 23:12:10
>796
アホ

800:デフォルトの名無しさん
04/11/30 23:25:39
とりあえずチンコの皮は剥けたようだな

801:デフォルトの名無しさん
04/11/30 23:27:11
ヘルプに文句をたれる前に、初心者用の入門書を読んだほうがいいね。

802:デフォルトの名無しさん
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:デフォルトの名無しさん
04/12/01 07:17:31
うは
チンコの皮までレスしてる
VB6の概念から抜け出せてないようだから.NETはしばらくやめておいたら？
もしかしたら2005でお望みの機能が追加されてるかもしれんし

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

＞フォームに貼り付ける方がいい場合がたまにある。
フォームに張り付かないのか？

807:デフォルトの名無しさん
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:デフォルトの名無しさん
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:デフォルトの名無しさん
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:デフォルトの名無しさん
04/12/01 11:06:33
>>824
これでも読んでみると良いよ。
URLﾘﾝｸ(www7.big.or.jp)

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:デフォルトの名無しさん
04/12/01 11:48:24
さすがに828には失笑を隠せなかった。

831:７７９
04/12/01 11:53:05
>829
>さすがに828には失笑を隠せなかった。
お前の方が失笑ものだ。構造体をまだ使ってるんだろ。

832:デフォルトの名無しさん
04/12/01 11:54:19
>>827
> 構造体を使う意味はない。
言い過ぎ。

833:７７９
04/12/01 12:02:06
>これでも読んでみると良いよ。
>URLﾘﾝｸ(www7.big.or.jp)
たしかにShowDialogの時はDisposeに飛んでこないね。フォームを閉じた時点で
内部のコンポーネントを使うことを意識しているのか？
　xx.ShowDialogをやったからと言って、そのあとでxx.Dispose()をやってる
例はないな。ざっと１０例近くのサンプルを見たがそういう例はない。
MSのあのサンプルだけだね。

　大事なことがよく分からんなー。
　1000万回ほどぐるぐる回ししてテストしてみるか。

834:デフォルトの名無しさん
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:デフォルトの名無しさん
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:デフォルトの名無しさん
04/12/01 13:04:57
構造体はバイト配列などで代用できるな

845:832
04/12/01 13:06:23
クラスだけで実装ができるからって構造体が無意味とは
いえない。
初心者の内はそれでいいが、最適化の過程で構造体を
使いたくなってくる場面もある。
「なくてもできる=無意味」じゃないということだ。

846:７７９
04/12/01 13:30:17
　何の最適化ですか？　ソースの見栄え、飾りのこと？
それとも実行コードの？　コードには違いは影響しないと思うよ。
違いを儲ける必然せいがない。
いらない機能は有害とおもう。
　まあベテランが新しい技術についていけないから、とりあえず残してある
という理由はわかりますが。
　少なくとも初心者にとっては有害ですね。

847:デフォルトの名無しさん
04/12/01 13:41:00
非管理のメッセージをやり取りするにはどうしても構造体が必要になるな
ﾓﾉによってはｸﾗｽでも大丈夫だが、厳密に定義されて無いメッセージが戻る場合や
構造体そのもののサイズが重要な場合はｸﾗｽだとちと難しい罠

848:832
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:デフォルトの名無しさん
04/12/01 14:52:23
(　ﾟДﾟ)ﾎﾟｶｰﾝ

853:デフォルトの名無しさん
04/12/01 22:03:43
マルチスレッドに対応していないDLL内のメソッドをマルチスレッド
プログラムから呼び出したいのですが、安全に呼び出すための
常套手段はどんな方法でしょうか。

イメージ的には呼び出し前に何らかのロックを取得して
呼びだし、実行後にロックを解除するみたいな
感じかなと・・・

854:デフォルトの名無しさん
04/12/01 22:31:45
Monitor
　Enter
　Exit

855:デフォルトの名無しさん
04/12/01 23:11:51
ハイパーリンクで飛ばす時に、Submitボタンのように
フォームの内容をURLに追記したいのですが、
どうすれば良いのでしょうか？

856:デフォルトの名無しさん
04/12/02 00:00:45
>855
もうちょい詳しくお願い

857:デフォルトの名無しさん
04/12/02 00:08:36
>>779
まぁ、記述が長いと思うならImports　であってるんだっけ？
それで名前空間をインポートしてもいいと思うんだが？

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

そこまでの記述を吹っ飛ばせるから長さは感じないはず
まぁ、コレをするとそのうち似たよな名前作ってしまうと、名前空間がこんがらがってくるのだが・・・
まぁ、普通に問題ないと思われ

858:777
04/12/02 09:29:24
HELPヽ(´Д`)ノ

全然わかんないよママン_|￣|○

859:フナ太郎
04/12/02 10:23:08
>>858
もうリンク切れてるし。

860:777
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
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
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
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

次ページ