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

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

562:556
04/11/22 18:54:35
>>557
Layout ModeをSnapLineに設定していると、フォームの大きさをマウスで変えてもエラーが起きない。
SnapToGridでも同じように出来ませんか？という相談だったのだが。

わかりにくかったらごめん

563:デフォルトの名無しさん
04/11/22 19:09:24
>560
ｱｾﾝﾌﾞﾘ

564:デフォルトの名無しさん
04/11/22 19:28:17
>>563
教えて頂きｱﾘｶﾞﾄです。
しかし。。。凹みました。仕様？2002だけかな？

565:デフォルトの名無しさん
04/11/22 19:35:44
>564
.NET系は全部そうなんじゃないの？c#も同様だったし。

566:デフォルトの名無しさん
04/11/22 22:10:54
あげ

567:デフォルトの名無しさん
04/11/23 09:39:24
フォームを表示させずに処理したいんですがどのようにやればいいのでしょうか?

568:デフォルトの名無しさん
04/11/23 09:55:23
>567
どういうこと？Sub Main()からスタートしてフォーム表示させないように
すればよさそうだけど、そういうことでいいのかな？

569:デフォルトの名無しさん
04/11/23 10:11:35
>>568
そです。これから試してみます
どうもです

570:デフォルトの名無しさん
04/11/23 14:47:35
VB.NETで、ftpサーバにファイルをアップロードするプログラムを作っています。

本のサンプルそのままに一つのファイルをアップロードさせるのはうまくいくのですが、
複数のファイルをアップロードしようとすると、うまくいくのは最初のファイルだけで、
２番目のファイルは、アップ先に空のファイルができるだけで、止まってしまいます。

URLﾘﾝｸ(do.sakura.ne.jp)
↑いま、こちらにソース置かせてもらったのですが、

Button1_Click()で、サーバにログインし、
Button2_Click()で、最初のファイルアップロード。アップロードが完了してから、
Button3_Click()で、２番目のファイルをアップロードするのですが、ここで、止まってしまいます。

なぜなのでしょうか？
よろしくお願いします。m(__)m

571:デフォルトの名無しさん
04/11/23 18:02:53
>>558

どう解決したのか
しりたいでつ

572:MSDE
04/11/23 18:50:02
. .NETでMSDEを利用したいと思いますが、新規にデータベースを作成する方法が分かりません。
サンプルにこのコードを見つけたのですが、
型 'Repository' が定義されていません。となりエラーになります。

Dim oRepos As New Repository
oRepos.Create("SERVER=MyServer;DATABASE=MyDatabase;UID=MyUserID;PWD=MyPassword;")

リポジトリーというのが意味不明ですが、新規にDBファイルを作成するのはこのコードで
いいのでしょうか？　このエラーを取り除くにはどうすればいいのでしょう？

573:デフォルトの名無しさん
04/11/23 19:20:55
MSDN嫁。SQLでテーブル定義したいならDB板に逝け。
その前にDBの基礎とかオブジェクト指向とか、ハードルが高そうな気もするが。

574:デフォルトの名無しさん
04/11/23 19:28:46
>573
質問に対する回答・ヒント以外の書き込みは
他のスレで荒らし報告されています。

ちなみにこの書き込みはあなたの書き込みに対しての
もので、質問に対するものではないです。

575:デフォルトの名無しさん
04/11/23 19:39:48
(･∀･)ﾆﾔﾆﾔ

576:573
04/11/23 20:14:40
２ちゃんの専門板のレベルも地に堕ちたな。

577:デフォルトの名無しさん
04/11/23 20:33:04
>576
それは君では？

578:(･∀･)ﾆﾔﾆﾔ
04/11/23 20:44:24
必死すぎ。w

579:デフォルトの名無しさん
04/11/23 20:56:47
>578
最後に「ｗ」が付いてるのは何？

580:MSDE
04/11/23 20:57:01
　名前つきインスタンス、混在モード、ストロングパスワードなど手前勝手なヤツラ言語の
名前がつけられていて何のことかサッパリ分からん。
インストールくらい勿体つけないで普通に喋れんのか？きっとどいつもこいつも上から下まで
精神構造がおかしいのだろう。

ここでヤツラ言語とは奴らが勝手に作った長持ちしない言語のこと。

■以下はインストールのマイクロソフトの説明
以下のコマンドのいずれかを実行します。
Windows 認証モードを使用するように設定された既定のインスタンスをインストールするには、次のコマンドを実行します。
setup SAPWD="AStrongSAPwd"

ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードです。

Windows 認証モードを使用するように設定された名前付きインスタンスをインストールするには、次のコマンドを実行します。
setup INSTANCENAME="InstanceName" SAPWD="AStrongSAPwd"

ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードで、InstanceName はそのインスタンスに割り当てられた名前です。

混在モードを使用するように設定された既定のインスタンスをインストールするには、次のコマンドを実行します。
setup SAPWD="AStrongSAPwd" SECURITYMODE=SQL

ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードです。

混在モードを使用するように設定された名前付きインスタンスをインストールするには、次のコマンドを実行します。
setup INSTANCENAME="InstanceName" SECURITYMODE=SQL SAPWD="AStrongSAPwd"

ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードで、InstanceName はそのインスタンスに割り当てられた名前です。

581:デフォルトの名無しさん
04/11/23 20:58:21
>580
質問スレなんだから質問を書け。ここはお前の日記帳じゃない。
訳がわからなくて質問することもできないというのなら、
お前は業界を変えろ。

582:MSDE
04/11/23 21:00:16
読めば読むほど滑稽な文章なのだが、、、
いま腑と思いついたが「マニュアルから読むマイクロソフトの
精神構造」という本を書いたら馬鹿の壁よりはきっと売れると思う。

583:デフォルトの名無しさん
04/11/23 21:03:34
>582
書くのがお前じゃ売れないと思うよ。

584:MSDE
04/11/23 21:09:46
　書くのはゴーストライターに決まってる。

585:MSDE
04/11/23 21:14:20
　ところで、こんなんがあった。もうすこし簡単にならん？
Set oServer = CreateObject("SQLDMO.SQLServer")
Set oDatabase = CreateObject("SQLDMO.Database")
Set oDBFile = CreateObject("SQLDMO.DBFile")
Set oLogFile = CreateObject("SQLDMO.LogFile")
' SQLサーバーへ接続します
oServer.Connect "(local)", "sa", ""
' データファイルを定義します
oDBFile.Name = "MyData" ' 名前
oDBFile.PhysicalName = "C:\MSSQL7\Data\MyData.mdf" ' 物理ファイル名
oDBFile.PrimaryFile = True ' プライマリーファイルとして設定
' データファイルの自動拡張を設定
oDBFile.FileGrowthType = 0 'SQLDMOGrowth_MB MB拡張
oDBFile.FileGrowth = 1 ' 1MB拡張
' データファイルの定義を追加する
oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFile
' トランザクションログを定義します
oLogFile.Name = "MyLog" ' 名前
oLogFile.PhysicalName = "C:\MSSQL7\Data\MyLog.ldf" ' 物理ファイル名
oDatabase.TransactionLog.LogFiles.Add oLogFile ' 追加
' 定義したデータベースを作成する
oDatabase.Name = "MyDB" ' 名前の指定
oServer.Databases.Add oDatabase ' サーバー上にデータベースを作成

586:MSDE
04/11/23 21:21:51
＞MSDN嫁。SQLでテーブル定義したいならDB板に逝け。
＞その前にDBの基礎とかオブジェクト指向とか、ハードルが高そうな気もするが。

Dim oRepos As New Repository
でハードルの低いお前はReposhitoryがどこのNameSpaceか知ってるのか？
知ってるなら答えてみなさい。

587:デフォルトの名無しさん
04/11/23 21:22:51
Reposhitoryねぇ・・・そんなクラスはないんじゃないですかねぇ・・・

588:デフォルトの名無しさん
04/11/23 21:23:39
>584
お前おもしれーな。ゴーストライターの意味分かってるか？

589:デフォルトの名無しさん
04/11/23 21:24:34
>585
どこが難しいの？

590:デフォルトの名無しさん
04/11/23 21:25:42
>572からの変わりようがいいな。ドキュメント読んで分かんないもんだから
ドキュメントのせいにして騒いでるｗ
そんなんじゃ誰も相手にしてくれないよｗ

591:MSDE
04/11/23 21:36:20
＞５８９
＞どこが難しいの？
名前があって物理ファイル名があってデータベース名があるんですか？
えっと、選り取りみどり、名前には不自由しないようですね。

でトランザクションログって何ですかね？　不思議な名前ですが。
まあそれはいいとして。ログ見りゃなんか分かるんでしょう。きっと。
でもトランザクションとは関係ないと思うが。

' データファイルの自動拡張を設定
oDBFile.FileGrowthType = 0 'SQLDMOGrowth_MB MB拡張
oDBFile.FileGrowth = 1 ' 1MB拡張
　1MB拡張ってなんなんです？

592:デフォルトの名無しさん
04/11/23 21:42:51
>591
データファイルのサイズが足りなくなったときに1MBずつ
拡張すること。スレ違い。>573で既に指摘されてるだろ。

593:デフォルトの名無しさん
04/11/23 21:43:31
今後MSDE氏の質問には回答しないように。
回答自体もスレ違いなので。

594:MSDE
04/11/23 21:53:40
＞５９２
　難にせよ。ありがとう。
　しかしRepositoryのNamespaceについて誰もしらんのか？　そんなマニュアルを
のさばらせているのは、一体誰なんだ。　

＞お前おもしれーな。ゴーストライターの意味分かってるか？

　著者じゃなくて馬鹿の壁を本当に書いた人のことね。あなた知ってる？
知らないでしょ。そう、誰も知らない。知ってるのは、当の精神科医と
檻のなかの機知外くらいだよ。

＞ドキュメントのせいにして騒いでるｗ
＞そんなんじゃ誰も相手にしてくれないよｗ

　あのドキュメントから読めるものは、タイトルが意図しているものとは
別のもの。そう脳みその異常。

595:MSDE
04/11/23 21:55:57
　ADOってのは.NETの目玉じゃないのか？　ちがう？　スレは目玉を
避けるのね？　こわいから？

596:デフォルトの名無しさん
04/11/23 22:04:33
取りあえず見つけたサンプルとやらのアドレスを書け。
話はそれからだ。

597:デフォルトの名無しさん
04/11/23 22:06:29
>595
通報しときました。適切なスレを選ばないとこういうことになります。

598:デフォルトの名無しさん
04/11/23 23:40:05
ｲｲﾖｲｲﾖｰ

599:デフォルトの名無しさん
04/11/23 23:40:06
>>579
ブッシュ？

600:デフォルトの名無しさん
04/11/24 04:43:30
面白いスレですね。
眠気が吹っ飛んだよ

601:デフォルトの名無しさん
04/11/24 07:24:55
夜はレベルが低くなるスレだな

602:573
04/11/24 09:01:09
まっとうなプログラマは昼間仕事するからね。

603:デフォルトの名無しさん
04/11/24 09:33:41
VB.NET 2005 Express Beta落として使ってるんだけど、
新規プロジェクトでForm1が出来る
　↓
ファイル→名前を付けてForm1.vbを保存
　↓
実行ファイルが作られていない

実行ファイルの作り方がわかりません。スレ違いだったら誘導おながいします

604:デフォルトの名無しさん
04/11/24 10:38:04
ビルド

605:デフォルトの名無しさん
04/11/24 11:38:31
F5

606:デフォルトの名無しさん
04/11/24 12:07:18
>>602
そりゃ説明になっとらん。
昼レベルが高いとしたら、まっとうなプログラマが昼間仕事さぼってここに書き込んでることになる。
漏れもだが。 orz

607:デフォルトの名無しさん
04/11/24 12:43:25
>606
あほ

608:デフォルトの名無しさん
04/11/24 14:40:46
>>604
>>605
ビルドですか。F5ですか、ありがとうございます。

609:デフォルトの名無しさん
04/11/24 15:26:06
すみません。続いての質問で恐縮なんですが。

ビルドしても実行ファイルが作られてないみたいなんですが
まず、パスを通さないといけないのでしょうか？
ビルド出力パスというのが関係するんでしょうか。
ソースファイルが２つと、リソースファイルまでは作れたんですが

610:デフォルトの名無しさん
04/11/24 15:31:51
VBで
文字列を入力すると、その文字列が回文（右から読んでも左から読んでも一緒）
であるかどうかを判別するプログラムのコードだれかわかりませんか？

611:デフォルトの名無しさん
04/11/24 15:44:10
誰か、VB.NET2005 betaのわかりやすい解説書いてほしいよ。
既存ぼ解説とずれてて微妙にわかんないや。ただでさえ時間がかかってるのに

612:500 困ったくん
04/11/24 16:29:25
割り算を減算（引き算で）行うプログラムを作っています。

［ Text1 ］ ÷　［ Text2 ］　＝　［ Text3 ］　余り　［ Text4 ］

のように表示させるのですが、例えば、３５÷６をしたときに、
答えが、Text3＝１　Text4＝２９　になってしまいます。
どうすればいいのでしょうか？
よろしくお願いします。　なお、僕の考えたプログラムは以下の通りです。
（※”＝”部分がコマンド１です）

Private Sub Command1_Click()
M = Text1.Text
N = Text2.Text
sho = 0

Do
M = M - N
sho = sho + 1
Loop While M >= N

Text3.Text = sho
Text4.Text = M
End Sub

結局、どうすればいいのでしょうか？？
教えてください！！

613:デフォルトの名無しさん
04/11/24 16:41:13
>>609
ﾃﾞﾌｫﾙﾄだと日本語のﾊﾟｽが通らないらしいんだけど
そのへんはどうだろ？

614:デフォルトの名無しさん
04/11/24 17:18:13
エンタープライズ版のVSを使って、AS/400にODBC接続を試みています。MSDEの時のと同じ要領で
データーセットを作るところまではあっさりできましたし、データーグリッドにこれを表示するところまで
はすんなり通ったのですが、このデーターグリッド上の数値を書き換える事ができません。

AS/400に対して、コマンドが通らないと言うのであれば納得もできるのですが、データーグリッド上の
数値をいじっている時点では、クライアント側での話しなので、とんと判らず弱っています。

同じような症状を解決出来た方、いらっしゃいませんか？

615:デフォルトの名無しさん
04/11/24 17:21:56
>>612
先にあまりを出しておいて、それを元の数からひいて、その上で、もう一回割り算
っていうのは、どうでせう？

616:デフォルトの名無しさん
04/11/24 17:42:16
>615
アホ

617:デフォルトの名無しさん
04/11/24 18:32:39
>>616
罵倒するだけの能無しよりはマシな希ガス、アルゴンガス、アセチレンガス。

618:617
04/11/24 18:35:34
すいません。>617の書き込みは自分自身に対してのものです。
気を悪くされた方、わたしのことですので気にしないでください。

619:デフォルトの名無しさん
04/11/24 18:38:10
結局>>501だろ。
MとNをintegerで宣言すれば解決する話だ。
DoWhileだと余計なループが発生して結果がおかしくなるのも指摘されてるな。

つかそもそもこれは本当にVB.NETのコードなのか？

620:デフォルトの名無しさん
04/11/24 19:10:53
Now()を実数に変換する方法おしえて。

621:デフォルトの名無しさん
04/11/24 19:16:58
>>612

35-6-6-6-6-6-6=-1＜0　　

-6でループ計算をさせ、この結果がでてきたら

Text1=35
Text2=6

Text3=ループ回数-1

※Text5=-1

Text4=-1-(-6)

こんなのでどうだろうか・・・

622:デフォルトの名無しさん
04/11/24 19:23:18
>620
実数って何のこと指してます？

623:デフォルトの名無しさん
04/11/24 19:34:23
＞６１２
　それでプログラムはOKだが、数値の宣言とかで問題があるんかもな。
　確実に変数を宣言してみなさいよ。

　DIM　N,M,sho as double 'M,N,SHOを実数として宣言する
M = TextBox1.Text
N = TextBox2.Text
sho = 0
Do
M = M - N
sho = sho + 1
Loop While M >= N
TextBox3.Text = sho
TextBox4.Text = M

624:620
04/11/24 19:43:47
実数っていうのは、つまり最初が０．０（多分1755年1月1日０：０：０：０？）
基準に3msec精度での積算値。　NOｗ（）はDate型だけど実体は実数なの。
で　dim　msec　as double
msec = NOw().todouble となるのが普通なのだけど、todouble()ってメソードを
なんか別の書き方にしているらしい。
　toStringがあるならtoDoubleだろう？普通なら。

　

625:620
04/11/24 19:56:03
>612
こうすると　1,29がこたえになる。

Dim M, N As String, sho As Double

M = TextBox1.Text
N = TextBox2.Text
sho = 0
Do
M = M - N
sho = sho + 1
Loop While M >= N
TextBox3.Text = sho
TextBox4.Text = M

626:デフォルトの名無しさん
04/11/24 20:05:26
>>624
それは一体どんな言語/環境の話なのよ。
URLﾘﾝｸ(www.microsoft.com)
VB.NET(と.NET Framework)では8バイトの整数として西暦1年1月1日から100ナノ秒単位で格納されてる。
UNIX時間でも整数を使ってるし。

627:620
04/11/24 20:20:04
　あっすまん。すこしいい加減なことを行ってしまったかも。
しかし、さっきどっかでみたんだが、西暦１年じゃなかったと
おもうが、、、、

628:620
04/11/24 20:24:51
１９９９・１１・３０日を変換すると変換すると０見たいだぞ

629:デフォルトの名無しさん
04/11/24 22:51:25
>>628
.NETとVB(とか他の言語)が混ざってないか？
URLﾘﾝｸ(www.atmarkit.co.jp)
こことか参考になるんじゃないの？

630:デフォルトの名無しさん
04/11/25 13:54:53
Aフォームを継承したA’フォームがある。
このA’フォームのデザイン画面をソリューションエクスプローラーから開いた時、
基底クラスAフォームのLoadイベントが実行されるなんてことがあるのだろうか・・・

現在そのロードイベントにはApplication.StartupPathでファイルをオープンする処理があるのだが、
StartupPathにC:\Program Files\Microsoft Visual Studio .NET 2003\Common7\IDEが入ってきているらしく
エラーが発生してしまう。これって何なんだ・・・orz

631:デフォルトの名無しさん
04/11/25 14:03:57
>>630
オリジナルのコントロール貼り付けてもLoadイベントは起きる

632:630
04/11/25 14:15:01
>>631
レス感謝。

確かにAフォームのLoadイベントにメッセージボックスを記述するとデザイン時でもメッセージボックスが出るな。
これって常識？？
基底クラスのLoadイベントが発生するって解釈でいいのかな？

633:デフォルトの名無しさん
04/11/25 14:20:09
>>632
> 　基底クラスのLoadイベントが発生するって解釈でいいのかな？
そうじゃなきゃ困る。

DesignModeプロテクトプロパティを使えばデザインモードかどうか判断できる。
ただしコンストラクタでは常にFalseを返すようなのでLoadイベント内で。

634:631
04/11/25 14:58:00
>>633

>>631だがDesignModeは知らんかったｗ
勉強になった

635:630
04/11/25 15:10:36
>>633
なるほど・・・実行中のことしか頭に無かったよ。
すごく勉強になった。ありがと。

636:デフォルトの名無しさん
04/11/25 19:36:40
Tabpageを使って、一つのフォーム内に

┃ＴａｂPage1┃ＴａｂPage2┃ＴａｂPage3┃ＴａｂPage4┃

というように、ＴａｂＰａｇｅが４つあるフォームを作成しました。何をどうやったのか判らないのですが
気が付くと

┃ＴａｂPage1┃ＴａｂPage3┃ＴａｂPage2┃ＴａｂPage4┃

と順番が入れ替わってしまいました。元に戻したいのですが、どうすればよいでしょうか？

637:デフォルトの名無しさん
04/11/25 22:34:04
>636
ソースコード直接いじれば？addする順番変えれば
いいんじゃないの？

638:デフォルトの名無しさん
04/11/25 22:45:41
「表示」→「タブオーダー」

639:デフォルトの名無しさん
04/11/26 00:50:19
VB.NETの勉強の過程で
VB.NETを使いPocketPC用のRSSリーダーを作ろうと思ってるんですが
RSSの整形方法などを判りやすく解説されているサイトや書籍、サンプルコード等をご存じないでしょうか？

よろしくおねがいします

640:斉藤 ◆kvYxWFRquQ
04/11/26 05:16:10
リアル社会でＶＢ．ＮＥＴ使ってる人はここ見ない方がいい、ってことですね。

641:デフォルトの名無しさん
04/11/26 14:10:18
最近VB.netをはじめたのですが、本を読みながら勉強中のところでわからないところがあります。

アクセス2000の形式を使ったデータベースでのレコード検索なのですが、
基本の形が「戻値＝デートセット名.データテーブル名.Select(抽出条件)」
で,できるみたいなのですが、例題では抽出条件のところの書き方が...Select("単価　=　2000")
のようにしないさいとあります。

そこで実際にプログラミングしていく段階でテキストボックス内の値を抽出条件にするときに、
...Slect("商品グループ = '" & textbox1.Text & "'")
のようにしなければならないみたいです。抽出する値をシングルクォーテーション(')で囲むようにっと書いてあるので、
「'～～'」の意味はわかりますが、その中の「" & textbox1.Text & "」の意味がいまいちわかりません。
長くなってしまったのですが、ご教授のほどよろしくお願いします

642:デフォルトの名無しさん
04/11/26 14:30:02
&は文字列を連結する演算子であると言えば分かるだろうか。

643:デフォルトの名無しさん
04/11/26 14:30:37
TextBox1.Textの中に「生鮮食料品」と言う値が入ってた場合

Slect("商品グループ　=　'"　&　textbox1.Text　&　"'")　
この中身は
Slect("商品グループ　=　'生鮮食料品'　")
になる

ためしに
Dim　str　as　String　=　　"商品グループ　=　'"　&　textbox1.Text　&　"'"
MessageBox.Show　(str)
Slect(str)

に置き換えてみると解りやすいかも

644:デフォルトの名無しさん
04/11/26 14:33:19
>>641
その「＆」の部分にカーソルを当ててF1キーを押すと、ヘルプが
出てくる。「＆」は「＋」と異なり、文字列だけを連結する機能
がある。

645:デフォルトの名無しさん
04/11/26 14:42:58
ふむふむぅ、、違うかもしれないのですけど、
シングルクォーテーションで囲まれた部分をひとつの固まりとみなして、
そのままではtextbox1.Textは文字列になってしまうのでそれをテキストボックスのプロパティにして、
さらにそれを「&」の結合演算子で繋げるということなのでしょうか？

646:デフォルトの名無しさん
04/11/26 15:05:16
あああ！！！わかった！！！ごめんなさいです；ｗ；
区切り方を間違っていました；ｗ；

「"商品グループ='"」＆「textbox1.Text」＆　「"'"」
っということなのですね('△';)
こんなことを気づかなかったとは；ｗ；　親切に教えてくださった方ほんとにありがとうございます(^▽^)

647:デフォルトの名無しさん
04/11/26 15:12:31
>>646
乙

648:yukki
04/11/26 15:53:20
UdpClient.Receive メソッドについて。
Receiveメソッドはメッセージを受信するまで実行をブロックします。
メッセージ受信以外の方法でブロックを解除するにはどうしたらよいでしょうか？

649:hoge
04/11/26 21:44:49
>>648
ちょうど俺もUDPのプログラム書いてたから

Do Until MainSock.Available > 0
　　　Application.DoEvents()
　　　System.Threading.Thread.Sleep(1)
　　　m_intResponsTime = timeGetTime() - ConnectStartTime
　　　　　　If m_intResponsTime >= 2000 Then
　　　　　　　　　Exit Function’TimeOut
　　　　　　End If
Loop

ReDim ReceiveBuffer(MainSock.Available - 1)
MainSock.Receive(ReceiveBuffer, MainSock.Available, SocketFlags.None)

650:デフォルトの名無しさん
04/11/26 22:24:23
激しく外出かもしれませんが、
VC++.NET：Win32-DLLプロジェクトで
#ifdef DLLTEST_EXPORTS
#define DLLTEST_API __declspec(dllexport)
#else
#define DLLTEST_API __declspec(dllimport)
#endif
DLLTEST_API int __stdcall funcAdd(int a,int b);
DLLTEST_API int __stdcall funcAdd(int a,int b){
return(a+b);
}
VB.NETで
Declare Function funcAdd Lib "DllTest.dll" (ByVal a As Long, ByVal b As Long) As Long
と言う風に宣言してDLLのfuncAddを呼ぼうとすると
　DLL DllTest.dll の funcAdd というエントリポイントが見つかりません。
と言うエラーが出てしまいます。対処法を教えてください。お願いします。

651:650
04/11/26 22:27:13
マニュアルだとDefファイルは書かなくても良いとの事なのですが…

652:デフォルトの名無しさん
04/11/26 22:31:28
C++の場合
extern "C"_declspec (dllexport)
とC言語型の関数として宣言しなけりゃいけないはず。

653:デフォルトの名無しさん
04/11/26 22:32:47
なんか変になった。
extern "C" __declspec (dllexport)

654:650
04/11/26 22:36:16
>>652 >>653レスありがとうございます。
試したのですが、やっぱりエントリポイントが無いと
怒られてしまいましたvro

655:デフォルトの名無しさん
04/11/26 23:28:04
__stdcallの場合VB.NET側の宣言で
1)Aliasを指定する
　Alias "_関数名@引数のバイト数合計"
2)Autoを指定する

のどっちかが必要なようだ。

あと通常C/C++のintはVB.NETではInteger(Int32)であってLong(Int64)ではない。

656:650
04/11/26 23:40:32
>>655
出来ました。ありがとうございました。

･･･しかし、defファイルが無いとやっぱりエントリポイント
が無いと怒られてしまいます。
__declspec (dllexport)をVC++側でやっとけばdefファイルはいらんと
マニュアルに書いてあるんですが･･･残念。
レス、ありがとうございました。

657:デフォルトの名無しさん
04/11/26 23:47:06
で、結局何をどうやったの？
>653と>655でこっちでは問題なくエントリポイントを取得できたんだけど。

//Alias "#1"　でもいいな。これが一番妥当か。

658:650
04/11/26 23:59:30
>>657
File:DllTest.def------------
LIBRARY DllTest.dll
EXPORTS
funcAdd
------eof--------------
>650を
Declare Function funcAdd Lib "DllTest.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
にしてDllTest.defをソリューションプロパティのモジュール定義ファイル
に置いたら出来ました。
でも、>653&>655の方が良さそうなのでそちらにさせていただきました。
多謝。

659:650
04/11/27 00:00:19
>>658
Declare Auto Function...
でした。

660:デフォルトの名無しさん
04/11/27 00:11:12
某社のグリッドコンポーネントを使用してpostbackした時に
非常に時間がかかるのだけど・・・・

htmlのサイズとしては500k位、postbackするのに5分位かかる
こんなもんなん！？

誰か詳しい人教えてください

661:デフォルトの名無しさん
04/11/27 00:12:54
なぜ某社

662:デフォルトの名無しさん
04/11/27 00:18:26
グレープシティーです

663:デフォルトの名無しさん
04/11/27 04:36:05
質問です．
初めてVBを使います．
Data0001
Data0002
:
:
と，順番にファイルを読み込みたいです．
For i=1 to n
Workbooks.Open Filename:="Data000???.xls"

???のとこのプログラムをどのようにすればいいでしょうか？

664:デフォルトの名無しさん
04/11/27 04:37:15
きわめてウイルスチックな香りが

665:デフォルトの名無しさん
04/11/27 04:41:32
マクロに応用するだけですよ

666:デフォルトの名無しさん
04/11/27 05:05:21
ここはVB.NET専門だから記述が異なる
VB6かVBAのスレに行ってみてはいかが？

VBAについて　Ver.3.0
ｽﾚﾘﾝｸ(tech板)l50

VBプログラマ質問スレ(6.0以前)　Part39
ｽﾚﾘﾝｸ(tech板)l50

667:デフォルトの名無しさん
04/11/27 05:36:12
開発者じゃなくて利用者の立場の質問なのですが・・・、

VB.NET で開発されたソフトウェアを動かすには、
Microsoft Windows Update などから、
「Microsoft .NET Framework Version 1.1 日本語版」みたいなのをダウンロードしなきゃいけないんですか？

だとしたら、Windows 2000 や XP のデフォルトの状態では動作しないのでしょうか？

よろしくお願いします。

668:デフォルトの名無しさん
04/11/27 06:17:00
>>667
ランタイムが必要。
URLﾘﾝｸ(www.microsoft.com)
Javaと同じで素の2000,XPじゃ動かん。

669:667
04/11/27 06:24:16
>>668
回答ありがとうございます。
やっぱり、「.NET　Framework」というランタイムが必要なんですね。
今まで色々な商用ソフトやフリーソフト、シェアウェアを使ってきましたが、
.NET　Framework　のインストールを要求された事はありませんでした。
やっぱり、.NET　で作成されたプログラムって普及してないんでしょうか？
現在でも、VB6とかVisual　C++　とかが一般的なのですか？

670:デフォルトの名無しさん
04/11/27 10:31:37
>>669
新しい技術(?)についていけてないだけ

671:デフォルトの名無しさん
04/11/27 11:22:49
>>669
Microsoft がこりゃーいい感じと思ったら、
新しい Windows にデフォルトで入れてきて
一気に普及するということもありうるよね。

でも、現状では、Javeとか .Net のランタイム
のインストールを嫌がる人も多いので、、、
そう言うことでしょう。

672:デフォルトの名無しさん
04/11/27 16:26:41
.NETの終わり方が分かりません。Disposeで終わっても、タスクリストに
EXEが稀に残ります。なんででしょう。とりあえず、終了まえにThread.Abort
とApplication.exitはやってます。他になにかやることがあるんでしょうか？
threadが一つ動いてます。MSDEを使ってます。ComのFlexgridをつかって
ます。それ以外は特別変わったことはしてません。

673:デフォルトの名無しさん
04/11/27 16:27:57
>>669
ってか、WindowsUpdateしろよ。ちゃんとしてたら自動的に入ってる筈だぞ。

674:デフォルトの名無しさん
04/11/27 16:33:17
taskリストにいつまでも残ってる奴を殺す方法を教えてください。

675:デフォルトの名無しさん
04/11/27 17:26:44
窓から（ｒｙ

676:デフォルトの名無しさん
04/11/27 19:24:43
>675
窓から手はだめ。手を使わないでプログラムで殺す方法。

677:デフォルトの名無しさん
04/11/27 19:28:58
' 角の丸い長方形を描く関数の宣言
Declare Function RoundRect Lib "gdi32.dll" _
(ByVal hdc As Integer, _
ByVal nLeftRect As Integer, _
ByVal nTopRect As Integer, _
ByVal nRightRect As Integer, _
ByVal nBottomRect As Integer, _
ByVal nWidth As Integer, _
ByVal nHeight As Integer) As Integer
Public pic As PictureBox

RoundRect(PictureBox1.hdc,10,10,10,10,10,10)
PictureBox1.hdc　がVBNETじゃだめなの。　何を渡すの？

678:デフォルトの名無しさん
04/11/27 19:58:23
解決
Dim hn As IntPtr = pic.Handle
Dim hDC As IntPtr = GetDC(hn)
ででけた。
しかし、中をグリーンにしたいんだがどうすればいいの？

679:デフォルトの名無しさん
04/11/27 20:15:17
>671
　Windows Server 2003には.NET 1.1のRuntimeがプリインスト。
　Windows XPは初期状態で.NET 1.0のRuntimeが入っていたような?

　次期Windowsは、それ自体が.NETのコンポーネントで構成されるって
聞いたような。

680:デフォルトの名無しさん
04/11/27 21:58:04
>>678
CreateSolidBrushでブラシを作成。
SelectObjectで作成したブラシを選択。
RoundRectで描画。
SelectObjectで作成したブラシから元々選択していたオブジェクトに戻す。
DeleteObjectで作成したブラシを削除。

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

>>679
XPはSP2でも入らない。
WindowsUpdateの追加選択で任意にインストール、レベル。
自動通知の場合は知らない。

681:デフォルトの名無しさん
04/11/27 23:03:31
リストビューのレポートスタイルで、カラムをクリックしてソート
したときに▼とか▲をヘッダに出したいのですが、あれはやっぱり
オーナードローとかいうものをしないとダメなのでしょうか。
VBでも可能なんでしょうか。

682:デフォルトの名無しさん
04/11/27 23:21:32
VB.NETで作成したアプリケーションのバックグラウンド
処理の優先度を下げる方法はありますか？

683:デフォルトの名無しさん
04/11/28 00:09:41
すいません。>681はVB6.0についての質問だったのに
間違えてこちらに投げてしまいました。
すいませんが>681は取り下げさせてください。

684:フナ太郎
04/11/28 05:30:47
>>673
自動的に、ってことはねーべ。
.NET Framework のインストールはオプションだっぺ。

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()

で終了だ。

次ページ