VB.NET質問ｽﾚ (Part21)

1 名前：デフォルトの名無しさん [2007/04/23(月) 12:42:36 ] 前スレ VB.NET質問ｽﾚ (Part20) pc11.2ch.net/test/read.cgi/tech/1173061176/ テンプレは2〜10くらいまでの間にある予定 267 名前：266 mailto:sage [2007/05/19(土) 20:31:13 ] 追記 Base.a()は非常に複雑だけど一部だけ変更可能にしないと機能しない関数です。 そこでその部分を関数bで処理します。 ただし、Baseクラスの関数bにもベーシックな処理を記述しておきたいのです。 よろしくお願いします。 言語の基本仕様にないとしたらデザインパターンを使うのでしょうか？ そのパターンの名前とか教えていただけるとありがたいです。 268 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 20:37:45 ] 普通にbを仮想関数にすりゃいいんでないの？ 269 名前：266 mailto:sage [2007/05/19(土) 20:47:17 ] >>268 仮想関数ですね・・・調べてみます！ とっかかりがわかんなくてデリゲートとかわけのわかんないのを調べてました。 base.bの宣言をOverridableにせよということですね？ ありがとうございました！！！ 270 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 21:06:35 ] >>266 あのさあ、学べば分かることを学びもせず、 試せばわかることを試しもせず、そんな態度じゃどうにもならんと思うぞ。 あと余計なお世話かもしれないが、268には君が質問したいと思っていることが 恐らく伝わってないと思われる。 そしてそれは268の読解力のせいというより、お前さんの文章の表現が酷すぎるからだと思う。 まあ俺自身も君の質問の意図を勘違いしている可能性は大いにあるが、一応質問に回答するけど オーバーライドされたメソッドというのは、たとえその呼び出しがベースクラスに 記述してあるとしても、元のベースクラスのメソッドではなく、オーバーライドされた方の メソッドが呼び出されるんだよ。 MeとMyClassとMybaseの違いとか、あとShadowsとかの意味を調べた方がよさそうだね。 271 名前：268 mailto:sage [2007/05/19(土) 21:11:27 ] ん？外してたか？ よくわかんね 272 名前：266 mailto:sage [2007/05/19(土) 23:18:20 ] >>270 ああ！そうなんですか。 勘違いしてました。 確かにこれからテストコード書くんですが、そもそもどういう仕組みになるのか 考えていたもので、ありがとうございました。 273 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 07:36:18 ] ActiveReportを使って、ユーザーが任意の列数を選択し、印刷プレビューに表示させる という内容のプログラムを作成中なのですが 列数が10を超えた場合、次のページに残りの列を表示、というのは可能なのでしょうか。 ActiveReport、もしくなそれに似たようなものを使った経験のある方、よろしくお願いします。 ※ActiveReportの設計は私ではなく別の人が行っております。列を格納する部分は10個になっていました。 274 名前：デフォルトの名無しさん [2007/05/20(日) 12:22:05 ] >>273 ActiveReportsについてるサンプルくらい見ろ あとメソッドやプロパティ一覧も 余裕で出来るということが載ってる 275 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 12:26:33 ] またプチ北方謙三が偉そうに 見ろ、だってさ。 こういうの自我肥大っていうんじゃないの？w 276 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 12:30:33 ] >>275 >>273 おまえよっぽど必死なんなだなぁ・・・・ がんばれよ〜 277 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 13:40:20 ] >>275は私じゃないけど、サンプル見てみることにします 入社一年目でこれやっといてーって丸投げされたんでなにがなんやら 278 名前：デフォルトの名無しさん [2007/05/20(日) 13:50:30 ] >>277 調べて努力すりゃ1年目でもやればできる範囲だと思ったから 丸投げしてると思うよ？ コツコツ調べりゃきっとできるし、出来たとき「思えば簡単だったな」　て思えると思うよ 279 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 22:46:38 ] →キーが押下されたら、PictureBoxをウィンドウの隅にぶつかるまで右方向に無限移動させ ウィンドウの隅にぶつかったら逆走させるのって如何すればいいんでしょうか？ 280 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 22:49:06 ] そのままそれをPgにすりゃいいだけだと思うんだが… どこがわからないんだ? 判定？ それともすべて？ 281 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 22:50:20 ] プログラムをPGって略すのは珍しいな 282 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 22:50:49 ] >>279 悪いこと言わない、プログラミングなんぞに手を出すのはやめとけ。 根本的に向いてないよお前さんには 283 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 22:52:59 ] >>280 そもそもVB.NETという概念からして良く解ってないんですが・・・ 正直、まるで何一つ解ってません・・・ ' 今のコード Public Class km     Private Sub km_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown         Select Case e.KeyCode             Case Keys.Left                 Timer1.Enabled = True             Case Keys.Right                 Timer2.Enabled = True         End Select     End Sub     Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick         PictureBox1.Left -= 6     End Sub     Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick         PictureBox1.Left += 6     End Sub End Class 284 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 23:06:24 ] おまｗｗｗｗｗ これ右移動しながら左キー押したらどうなるんだよｗｗｗｗｗｗｗｗ 悪いことは言わないから　まず左右キー押しっぱでそれぞれの方向に動いてはじっこまで来たらとまるプログラムかいてみ？ まずはそっからだ 285 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 23:08:36 ] >>284 こんな感じでしょうか？ Public Class km     Private Sub km_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown         Select Case e.KeyCode             Case Keys.Left                 If PictureBox1.Left > 0 Then                     PictureBox1.Left -= 6                 End If             Case Keys.Right                 If PictureBox1.Left + PictureBox1.Width < Me.ClientSize.Width Then                     PictureBox1.Left += 6                 End If         End Select     End Sub End Class 286 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 23:11:48 ] まーた始まった 287 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 23:12:21 ] こんな感じでしょうかじゃないよ。 試してどこがどうだめだったか報告しなさいよね 288 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 23:16:49 ] まぁ、とりあえずそれはめり込む可能性が高いなｗｗｗｗｗ 289 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 23:26:19 ] >>287 取り敢えず、動かしてみた感じ >>284で言われたものは出来たような気がします >>288 やっぱり、移動量が6だとめり込みますよね・・・（ウィンドウサイズが6の倍数ならともかく） 移動量を5にして、めり込まないようにしてみました 290 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 23:32:03 ] ・・・・・あのぉ・・・・まぁ・・・いいけどさ・・ もう面倒くさいからざっくりサンプル書いとくわ スペースでストップな この板的に叩かれそうなソースだがまぁ　こんなバカもいるってことで とりあえずタイマをつかってるみたいだからそれは残しといてみた 　以下ソース Private Enum Vector Right Left None End Enum Private Const _MovePixcel As Integer = 1 Private _Vector As Vector = Vector.None 291 名前：デフォルトの名無しさん [2007/05/20(日) 23:33:03 ] TRY-FINALLYはめんどくさいからそこに書いただけ ほんとはちゃんとしたほうがいい気がする Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Try Select Case e.KeyCode Case Keys.Right _Vector = Vector.Right Case Keys.Left _Vector = Vector.Left Case Keys.Space 'とまる _Vector = Vector.None End Select Finally If _Vector = Vector.None Then Me.Timer1.Stop() Else Me.Timer1.Start() End If End Try End Sub 292 名前：デフォルトの名無しさん [2007/05/20(日) 23:33:57 ] Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Select Case _Vector Case Vector.Right Dim TempRight As Integer = Me.PictureBox1.Left + Me.PictureBox1.Width + _MovePixcel If TempRight < Me.Panel1.Width Then Me.PictureBox1.Left += _MovePixcel Else _Vector = Vector.Left End If Return Case Vector.Left If 0 < Me.PictureBox1.Left - _MovePixcel Then Me.PictureBox1.Left -= _MovePixcel Else _Vector = Vector.Right End If Return End Select End Sub 忘れてたけど フォームにタイマ・パネル・ピクチャボックスおいてな 293 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 23:39:11 ] 自分にレス番を打つと専ブラ使いにはうれしいインデント。 SELECT CASE True CASE 1 = 2 CASE 1 = 1 END SELECT >>293 294 名前：デフォルトの名無しさん [2007/05/21(月) 06:17:31 ] 列挙体はまだ高度では？ つぅか、>>284のつっこみが分かってないよな。 フォームにのめりこんでもいいから、せめて片方のタイマーを止めろよ。 295 名前：290 [2007/05/21(月) 09:02:10 ] >>293 まぁとりあえずソースみてこんなもんかな?ってのを判ってもらえる事を期待してみた(；´Д｀) 多分右も左もわからないっぽいので　余計なお世話だったか･･･ まぁ、列挙ﾀｲは確かに不必要であんなるBoolのフラグのが良かった希ガス 296 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 16:47:21 ] >>290 なんというか、予防線はってるのがすごく痛い 297 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 16:49:41 ] マイク入力を録音をするアプリをつくろうと考えてるんですが、何か参考になるサイトや書籍を知りませんか？ 298 名前：デフォルトの名無しさん [2007/05/21(月) 17:28:22 ] VB.netでモバイル端末用アプリを作成し、 アイコンを設定して端末へコピーし、端末側の ファイルエクスプローラexeを確認すると 設定したアイコンで表示されませんでした。 PC側では設定したアイコンで表示されます。 何か設定があるのでしょうか？ 299 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 02:02:15 ] アプリ作成後にアイコン設定ってもしかしてアンタ… 300 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 06:14:19 ] >>298 おまえファミコン.icoもしらねーのかよ初心者め 301 名前：298 [2007/05/22(火) 09:04:20 ] >アプリ作成後にアイコン設定ってもしかしてアンタ… 書き方が変だったようです。 アイコンの設定はもちろんアプリケーションの プロパティ画面から設定してからEXEを作成しています。 ちなみにC#で作ったサンプルＰＧに同じアイコンを 設定した場合はPDAで正しくアイコンが表示されますが VB.NETではだめでした。 302 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 18:40:02 ] >>301 C#でアイコン設定したらOKで、VB.NETではNGだったってこと？ ちなみにVB.NETで作成した場合、モバイル端末で表示されるアイコンはどんなの？ 303 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 18:46:28 ] まあ99%なにかの勘違いだなw 同じように作ったC#はOKでVBだとNGなんてまずありえん。 304 名前：デフォルトの名無しさん [2007/05/22(火) 21:47:46 ] 継承を多用すると遅くなるって事ありますか？ 305 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 21:50:39 ] そりゃあることもあるだろ まあおまいさんが書くコードに影響がある程じゃないさ 306 名前：デフォルトの名無しさん [2007/05/22(火) 22:08:07 ] >>305 ありがとうです。 ちなみに、至るところで、継承してるプロジェクトに就業しました。 インスタンスも至るところでされてます。 画面を開くのに40秒近くかかります。 継承しすぎて、何をどこでやってるか追うのに大変です。 継承遷移図やソースの名前からでは判断できません。 307 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 22:18:45 ] >>306 もしかして継承フォームのことをいってる？ あれは確かに重くなりそうな気がする。 308 名前：デフォルトの名無しさん [2007/05/22(火) 22:30:41 ] >>307 言い方はわかりませんが、 画面そのものを継承していますね。 309 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 22:35:21 ] 継承そのものはコストは無視して構わない。 例えば画面なら、コントロールを山程載せてたり起動時にDBからデータもってきてたりとかその辺。 310 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 22:37:46 ] いや307の言うとおり継承フォームとか複合コントロールの継承なんかは 普通のクラスの継承とはちょっと事情が違うと思う。 普通のクラスの継承のコストなんてないと思っていいのは同意するけど 311 名前：デフォルトの名無しさん [2007/05/22(火) 22:49:52 ] ん?一人レベルが低くい質、て申し訳ないですが、 継承したら早くなるのですか？ コーディングスピードていうか、共通箇所がガッツリ出来るのは理解できるのですが。 312 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 22:55:25 ] >>311 日本語でおｋ 313 名前：デフォルトの名無しさん [2007/05/22(火) 22:57:38 ] >>311 おk!! 処理の速度・画面の起動等のユーザサイドから見て、 継承を使用した場合、しなかった場合よりも早く感じるものなの？ 作り手からみて、楽になる部分が多いのはわかります。 314 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 23:03:17 ] 実行時にはほとんどまたは全く差はない。 差が出るのはIDEの動作とか、コンパイルにかかる時間とかそんなところ。 GUI関係の継承だとIDEの動作が重くなる可能性はある。 315 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 01:56:16 ] そんなこんなで画面がでるまで40秒かかる>>306に乾杯 316 名前：デフォルトの名無しさん [2007/05/23(水) 09:11:12 ] むしろ >>306の基盤作った奴は起動にそれだけ時間かかってなんとも思わなかったのか･･･ それのほうが問題だよな 317 名前：298 [2007/05/23(水) 09:12:49 ] メーカーから届いた端末複数でインストールしました。 そのうちいくつかが通常のexeのアイコンでその他が 設定したアイコンで表示されました。 メーカーが提供しているDLLの不具合の可能性が出てきましたので しばらく様子を見ようと思います。 318 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 13:13:43 ] 質問させてください。 LAN上でSQL Serverをインストールしているサーバの検出をVB.NET(2005)で行う方法はありますでしょうか。 ありましたら、教えてください。 319 名前：デフォルトの名無しさん [2007/05/23(水) 13:51:48 ] 昔はSQLDMOつかってたな・・・ 今はもしかしたらSQLクライアントかなんかの名前空間の中にラップされた機能あるかもしれんが。。。 320 名前：318 mailto:sage [2007/05/23(水) 16:25:37 ] >319 どうもです。 SQLDMOをヒントに ttp://www.csharphelp.com/archives2/archive342.html にたどり着き、ここにあるC#のサンプルをVBに書き換えてうまいこといきました。 多謝多謝。 321 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 17:18:36 ] >318 既に解決したようですが、参考までに。 ADO.NET 2.0ならばSqlDataSourceEnumeratorクラスなるものがあるようです。 SQL Server のインスタンスの列挙 msdn2.microsoft.com/ja-jp/library/a6t1z9x2(VS.80).aspx 322 名前：318 mailto:sage [2007/05/23(水) 17:48:50 ] >321 ありがとうございます。 自分が見つけたサンプルより、そちらのほうがいけそうです。 >320で貼ったサンプルについては、 ListAvailableSQLServersというメソッドでサーバ名取得していたおですが、 BooksOnlineに将来削除されるメソッドだとありましたので…。 323 名前：デフォルトの名無しさん [2007/05/23(水) 19:20:55 ] 諸事情により携帯から失礼します。 .netでのINIファイル読み込みの時の質問なのですが、 読み込む時に文字数制限とうってありますか？(128バイトまでとか) 開発環境はVS2003です。 よろしくおねがいします。 324 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 19:23:22 ] よろしくおねがいする前に、まず自分で試そうよお馬鹿さん。 325 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 19:32:28 ] 試した結果削られてしまって、 調べても分からなかったので質問してるのですが… 326 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 19:36:57 ] 見え透いたこと言わない方がいいよ。 絶対試してもなければ何も調べてもないってw っていうか調べてその体たらくならとっとと足洗ったほうが吉だわな。 327 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 19:45:06 ] 本当に試しましたし、調べもしました。 ですが、どうしても取って来れなかったので質問してるんです…。 見え透いた事といいますが、こんな風に言われてしまうのならば、 もうここには来ていませんし、試していないのならば貴方に愚弄されるのを分かっていて 試さずにまた聞いたりしませんよ…。 328 名前：デフォルトの名無しさん [2007/05/23(水) 19:57:27 ] 意外と設定したバッファ越えて読み込んでたりなｗｗｗｗｗ まぁ、ありえんか・・・ 329 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 20:02:59 ] INIファイルの有効サイズを超えてたりしてｗｗｗｗｗ まぁ、ありえんか・・・ 330 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 20:31:06 ] iniだろうがdatだろうがファイル読み込みはファイル読み込みでしょうが。 どんな制限だよ128バイトって いまどきこのレスだって142バイトはあるっての 331 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 20:33:52 ] 試すっていうのはね、 ファイルを読み込むだけのコードでテストしてみることをいうんだよ? それで128バイト制限が存在するかどうか分かるでしょ? つまり試してないってこったよお馬鹿さん。 332 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 20:41:09 ] >>331 スレが汚れるから死ね。 333 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 20:52:09 ] iniファイル読むのにWin32Apiとか使ってて、最初にバッファの確保処理してないんじゃね？ 334 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 21:26:06 ] >>333 あ、それかもしれない･･･ ちょっと後でいじって見ます。アドバイスありがとうございました。 335 名前：デフォルトの名無しさん [2007/05/23(水) 21:27:14 ] 質問です。 C言語でDLLを作り、VBからそのDLLの関数を呼び出して使いたいのですが、 下のプログラムをビルドして実行するとLabel1には6と表示されます。 どうやらforループが2回で終わっているようですが、なぜそうなるのかが分かりません。 すみませんがよろしくお願いいたします。 336 名前：デフォルトの名無しさん [2007/05/23(水) 21:29:25 ] ソースは以下の通りです。 Option Explicit On Public Class Form1 Public Declare Function Sum Lib "C:\Sum.dll" (ByRef n As Long, ByRef a As Long) As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, s As Long Dim aa(10) As Long aa(0) = 1 aa(1) = 5 aa(2) = 4 aa(3) = 9 n = 4 s = Sum(n, aa(0)) Label1.Text = s End Sub End Class 337 名前：デフォルトの名無しさん [2007/05/23(水) 21:30:40 ] __declspec(dllexport) long __stdcall Sum(long* n,long* a){ long sum,i; sum=0; for(i=0 ; i< *n ; i++){ sum=sum+a[i]; } return(sum); } DLLを作るのにはVC++6.0、VBは2005 ExpressEditionを使っています。 338 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 21:35:20 ] >>337 取りあえず Long と long を調べてこい 339 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 22:05:59 ] そのコードヤバくね? 340 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 22:22:40 ] テストだとしても・・・・ ＶＢ側でＬｏｎｇ使うケースは…・ 341 名前：デフォルトの名無しさん mailto:sage [2007/05/23(水) 22:26:25 ] えーと、よくわからないけど これ貼っとけばいいかな？ プラットフォーム呼び出しのデータ型 msdn2.microsoft.com/ja-jp/library/ac7ay120.aspx 342 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 00:25:10 ] 横からですが VBで変数宣言するときにlong型にしちゃまずいんですか？ longってintの2倍のサイズの要領の数値型ですよね 343 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 00:52:27 ] >>342 VB6からいろいろ変わってしまったのだよん。 VB6のIntegerは16bit長、Longは32bit長だけど VB.NETからはIntegerが32bit長で、Longは64bit長、Shortが16bit長。 VC6やらVC2005でDLLを作った場合、.NETのLongは__int64かlong long型に該当する。 344 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 01:04:25 ] なるほど・・・ だとしたら私の場合はintで宣言したらオーバーフロー？がおきたのでlongにしたので このままで問題ないですよね？ 素人なのでオーバーフローという意味がよく分かってないですが・・とりあえずint型だと容量が足りないみたいなエラーが起きました 345 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 01:11:11 ] 各数値型で扱える範囲と、そのとき扱う必要がある数値の範囲くらいは把握しとこうぜ 346 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 01:13:12 ] つーかdllの関数のシグニチャと合わせないとためだろwwww 347 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 01:54:22 ] だったらc側でlongじゃ足りんだろうがｗ 348 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 01:56:45 ] アドレス渡しってどうなん？ 349 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 02:00:26 ] どうとは？ 350 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 02:23:47 ] なにが >このままで問題ないですよね？ だ!!!!!!! 問題あるから質問スレに来てるんだろが!!!!!! 351 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 02:30:06 ] >>350 こたえる気がないのなら消えろよ･･･。 352 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 02:35:31 ] >>351は>>335が書きました 353 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 14:08:51 ] typedef くらいしとけ 354 名前：335 [2007/05/24(木) 15:42:21 ] 皆様ありがとうございます。 今大学にいないので試す事が出来ないのですが、 夕方登校してから変数のビット長の事を考え直してもう一度やってみます。 あと、>>351は私ではありません念の為。 355 名前：デフォルトの名無しさん [2007/05/24(木) 22:15:23 ] やる気があるんだったら家のにＥｘｐressくらい入れて試せよ　学生さんｗ 356 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 23:43:36 ] >学生さんｗ なんで最後にwがつくのかわからんが、無職のお前よりましだと思うよ。 357 名前：342 mailto:sage [2007/05/25(金) 00:38:37 ] >>350 >問題があるからここに〜 intにしているときとは違いlongにするとコンパイル時にエラーはでませんでしたが。 ここにいる理由は、他人の質問事項でも参考になるから毎日覗いていて >>338-340のレスが気になったら質問したまでだけど。 358 名前：デフォルトの名無しさん mailto:sage [2007/05/25(金) 00:43:18 ] コンパイル時じゃなくて実行時だった。 359 名前：デフォルトの名無しさん mailto:sage [2007/05/25(金) 01:24:34 ] >>357 まぁ出なくなったんならいいっちゃいいのかも知れませんが、それで飯食うつもりでしたら 何でオーバーフローしたのか? それは予想された動作か? 違うならどこで変数に異常な値が入ったのか? くらいは最低限把握しておいたほうが良さそうな気がしますよ? >>346 >>335-337 はシグニチャとかそれ以前に s = Sum(n, aa(0)) なんてコードかいてる時点でVB.NETについて根本的に勘違いしてるっぽいんですけどｗ 360 名前：デフォルトの名無しさん mailto:sage [2007/05/25(金) 02:06:47 ] >>356 お前みたいなレベルの負け組と一緒にするなカス野郎 361 名前：デフォルトの名無しさん mailto:sage [2007/05/25(金) 15:14:29 ] ちょっとしたブラウザ（IE使う）を作ってみたいです まだソフトも買ってないので、日曜日に買いに行きます 入門書もあわせて買う予定です お勧めの本あれば教えてください 362 名前：デフォルトの名無しさん mailto:sage [2007/05/25(金) 15:31:36 ] とりあえず、ExpressEdition使ってみたら 363 名前：デフォルトの名無しさん [2007/05/25(金) 17:35:05 ] 2005で質問です。 ピクチャーボックス・ラベルをFill・Bottomとして貼り付けたユーザーコントロールがあります。 このコントロールのMouseMove/MouseLeave/MouseEnterイベントは　コントロールが上に存在している為発生しない状況です。 これらのイベントが簡単に動作する方法はないでしょうか？ やはり、各コントロールのイベントを取ってきてガリガリいじって渡したりしなければいけないんでしょうか？ 364 名前：デフォルトの名無しさん mailto:sage [2007/05/25(金) 17:46:33 ] 内部で各コントロールにイベントつけといて ユーザーコントロールのOnMouseMove等を呼べば? 365 名前：363 [2007/05/25(金) 18:18:52 ] >>364 レスありがとうございます。 とりあえずMouseMoveはその方法で実装してみました。 各コントロールのマウスMoveイベントでユーザーコントロール内の座標に変換してユーザーコントロールのMouseMoveイベントを呼び出すようにしています。 これでMouseMoveは実装できたのですが、今度はMouseEnter MouseLeaveイベントを実装する手段が不明というか、うまいこと思いつかないです 366 名前：363 [2007/05/25(金) 18:22:21 ] 連投失礼します。 MouseEnterはPrivateなフラグをひとつ持って、内部の各コントロールのEnterイベントで フラグがOFFならユーザーコントロールのEnterイベントを発生→フラグON フラグONならなにもしない という力技実装を今思いついてやってみました。 しかし　やっぱりMouseLeaveが難しいです・・・ 367 名前：デフォルトの名無しさん mailto:sage [2007/05/25(金) 21:01:44 ] >>363 希望するのはこういう動作？ 　　Protected Overrides Sub OnLoad(ByVal e As System.EventArgs) 　　　　MyBase.OnLoad(e) 　　　　For Each c As Control In Me.Controls 　　　　　　AddHandler c.MouseMove, AddressOf Chileds_MouseMove 　　　　　　AddHandler c.MouseLeave, AddressOf Chileds_MouseLeave 　　　　Next 　　End Sub 　　Private Sub Chileds_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) 　　　　Dim pt As Point = MousePositionByClientCoordinate() 　　　　Dim ev As New MouseEventArgs(e.Button, e.Clicks, pt.X, pt.Y, e.Delta) 　　　　MyClass.OnMouseEnter(New EventArgs) 　　　　Me.OnMouseMove(ev) 　　End Sub 　　Private Sub Chileds_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) 　　　　MyClass.OnMouseLeave(New EventArgs) 　　End Sub 　　Private Function MousePositionByClientCoordinate() As Point 　　　　Return Me.PointToClient(Control.MousePosition) 　　End Function 　　Private Function IsMouseOnMe() As Boolean 　　　　Dim pt As Point = MousePositionByClientCoordinate() 　　　　Return Me.ClientRectangle.Contains(pt) 　　End Function

---

---

[ 続きを読む ] / [ 携帯版 ]

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