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

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

498:デフォルトの名無しさん
04/11/19 15:54:19
ドトネを感じるんだお前はそれしかない
May the .NET with you

499:デフォルトの名無しさん
04/11/19 17:00:36
form上をpictureboxがランダムで移動するように
したいのですが,誰かアドバイスお願いします

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

［ 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

501:デフォルトの名無しさん
04/11/19 18:42:06
>>500
ループ条件が文字列比較になってるから。

あと何故Do Whileループ？　2 / 3 = 1 余り -1 になるぞ。

502:デフォルトの名無しさん
04/11/19 18:44:25
割り算を引き算でやるからだろ

503:500 困ったくん
04/11/19 18:46:51
>>501
>ループ条件が文字列比較になってるから。
ということは、条件を他の形にすればいいんですね！
・・・といっても、どうすればいいのかわかりません。。。

For-Nextで作れるんですかね？
Do-While,Until　じゃないと作れないと聞いたもので・・・

504:デフォルトの名無しさん
04/11/19 18:59:32
VBとＶＢ．ＮＥＴはなにが違うんでしょうか。
いまだにわかりません、どっちが儲かりますか？

505:デフォルトの名無しさん
04/11/19 19:33:22
>>504
どっちも儲かる。

506:デフォルトの名無しさん
04/11/19 20:43:18
フォームの座標を取得する方法って何かないですか？

507:デフォルトの名無しさん
04/11/19 20:43:49
あるよ。

508:デフォルトの名無しさん
04/11/19 20:44:44
>>507
よかったら教えてもらえないでしょうか

509:デフォルトの名無しさん
04/11/19 20:47:44
それくらい自分で調べろよ……。
Formのプロパティざっとみればすぐ見つかるだろ。

510:デフォルトの名無しさん
04/11/19 20:49:04
>>509
それをつかってピクチャーボックスを動かすことって
できますか？

511:yukki
04/11/19 20:58:46
>>448
>>449
ソースありがとうございます。
ReceiveEventHandlerは実際どの様に使ったらいいでしょうか？
プログラムに組み込んだものの使い方がいまいちわかりません。
初心者で本当申し訳ありませんが、返信お願いします。

512:最凶VB厨房
04/11/19 21:24:39
>>511
>ReceiveEventHandlerは実際どの様に使ったらいいでしょうか？
ソースを見てくれとしかいいようがない・・・。
コンパイルして実行してみた？
デリゲートがわからんならここでも見れ
URLﾘﾝｸ(www.atmarkit.co.jp)
イベントがわからんならここでも見れ。
URLﾘﾝｸ(www.microsoft.com)

ついでにテスト用送信プログラムはこんな感じだ。実行してみれ
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class udpc
Shared Sub Main()
Dim client As UdpClient=new UdpClient(20000)
Dim i As Integer=0
Dim ss As String="パケット発射"
For i=0 To 3
ss &=ss
Next
Dim bb() As Byte=Encoding.UTF8.GetBytes(ss)
client.Connect(IPAddress.Loopback,10000)
client.Send(bb,bb.Length)
End Sub
End Class

513:デフォルトの名無しさん
04/11/19 23:03:23
>509
質問に答える気がないのに書き込む行為は荒らしと
見なされますよ。別のスレで同じプロバイダの奴がそれで
アク禁になって、えらい迷惑受けた。

514:デフォルトの名無しさん
04/11/19 23:15:17
>>513
俺は>>509ではないが、空腹の奴に魚の釣り方教えてるだけだろ？

ていうか、だから馬鹿は自分の言葉を自分自身に適用できんのか？
お前がすべきでないと言っていることを、お前自身がやってないか？
俺様だけは特別ルールが適用されます、ってか？
とんでもない棚上げ野郎だな。

515:最凶VB厨房
04/11/19 23:25:35
もまえらそろそろおちけつ

516:デフォルトの名無しさん
04/11/19 23:30:15
>514
アホ。

517:デフォルトの名無しさん
04/11/19 23:30:41
TreeViewのノードを一部非表示にすることってできますか？

518:デフォルトの名無しさん
04/11/20 00:25:54
>517
すいません。別の方法で解決できたのでこの質問は忘れてください。

519:デフォルトの名無しさん
04/11/20 02:00:45
iTunes for Windows をVBから操作したいのですが参考になるソースコードはありませんか。

520:デフォルトの名無しさん
04/11/20 02:35:13
URLﾘﾝｸ(developer.apple.com)
この辺とか

521:デフォルトの名無しさん
04/11/20 02:45:14
>>520
追加
参照設定でCOMの中からiTunesタイプライブラリを設定
インターフェースがずらずら出てくるから
後はJavaScriptのソースと見比べながらどうぞ

522:デフォルトの名無しさん
04/11/20 10:20:19
現在テキストボックスでKeyPressイベントの中で数字のみの入力に制限しています。
e.KeyChar < "0"c Or e.KeyChar > "9"cとかで。
でもこれだとコピー、ペースト、カットのショートカットキーも無視されてしまいます。
どうやった両立できますか？

523:デフォルトの名無しさん
04/11/20 10:52:54
最近の人たちはどうして自分で実装しようとしないんだろう。。。

524:デフォルトの名無しさん
04/11/20 13:07:23
>>523
脳味噌腐ってるのか？
だから「自分で実装」する方法を聞いてるんだと思うが。

>>522
実際やったことはないが、KeyPressではなくKeyDownでキーコードをマスクするように
書けばできると思う。

525:ネタではありません。
04/11/20 15:16:01
すみません、困っています。
どなたかWEBアプリケーションを作れる方、
相談にのっていただけませんか？
「こういうWEBプログラムが作りたい」という案は
すでにあります。自宅サーバーもすでにあります。
平日の夜、都内で焼肉をおごります。

もし、「それなら作れるよ」ということでしたら
数万円の謝礼をお支払いする用意があります。
よろしくお願いいたします。

526:デフォルトの名無しさん
04/11/20 15:22:52
>>525
まずは要件定義書を完成させてこい。話はそれからだ。

527:yukki
04/11/20 15:57:13
>>512
>最凶VB厨房さん

たびたび申し訳ありません。

>>ReceiveEventHandlerは実際どの様に使ったらいいでしょうか？
>ソースを見てくれとしかいいようがない・・・。
>コンパイルして実行してみた？

テスト用送信プログラムもコンパイルして送信してみたのですが、受信イベントが発生しません。
紹介してもらったURLを参考に受信側のFORMでフォームロードイベントで、デリゲートを宣言を下記のように
してみたのですが、うまくいきません。
VB.NETというかプログラム自体初心者なため検討違いなことしてますか？
デリゲートの使用方法を教えていただけないでしょうか。

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim TestReceive As ReceiveEventHandler
TestReceive.Invoke()
End Sub

'Public Overridable Sub Invoke(sender As Object, e As UDPEventArgs)' のパラメータ 'e' に対して引数が指定されていません。
'Public Overridable Sub Invoke(sender As Object, e As UDPEventArgs)' のパラメータ 'sender' に対して引数が指定されていません。

528:デフォルトの名無しさん
04/11/20 15:58:19
MSDNをインストールして使っていますが、
背景色の白がまぶしいので、他の色に変えたいのですが
どうやってできるかご存知の方いませんか？

529:デフォルトの名無しさん
04/11/20 17:03:15
>>521
大変参考になりました。どうもありがとう。

530:デフォルトの名無しさん
04/11/20 17:42:12
>>525
新しいのが出てきたな
面白いぞ

531:デフォルトの名無しさん
04/11/20 17:52:59
>>525
まず君の連絡先をここに晒せ。こちらから連絡させて頂きます。

532:デフォルトの名無しさん
04/11/20 18:29:53
>>525
こんなメールが来そうな予感

ようこそ、バーボンハウスへ。
このテキーラはサービスだから、まず飲んで落ち着いて欲しい。

うん、「また」なんだ。済まない。
仏の顔もって言うしね、謝って許してもらおうとも思っていない。

でも、このメールを見たとき、君は、きっと言葉では言い表せない
「ときめき」みたいなものを感じてくれたと思う。
殺伐とした世の中で、そういう気持ちを忘れないで欲しい、そう思って
このスレを立てたんだ。

じゃあ、注文を聞こうか。

533:デフォルトの名無しさん
04/11/20 20:06:30
>524
>523みたいな奴をいちいち相手してやることないって。
>526 多分君にはお願いされてないと思うよ。

534:デフォルトの名無しさん
04/11/20 21:10:27
>>533
答えてやれよ

535:デフォルトの名無しさん
04/11/20 22:42:00
sendkeyみたくマウスのボタンを操作する事はできますか？
出来ればやりかたを教えていただきたいのですが。

536:デフォルトの名無しさん
04/11/20 22:52:56
>>535
SendInput
キーストローク、マウスの動き、ボタンのクリックなどを合成します。

UINT SendInput（
UINT nInputs, // 入力イベントの数
LPINPUT pInputs, // 挿入する入力イベントの配列
int cbSize // 構造体のサイズ
);

537:デフォルトの名無しさん
04/11/20 23:17:33
>>525
○痴
ｽﾚﾘﾝｸ(tech板:525番)
ｽﾚﾘﾝｸ(php板:841番)
ｽﾚﾘﾝｸ(php板:871番)

538:デフォルトの名無しさん
04/11/20 23:47:29
>>525
数万円て馬鹿か。

539:デフォルトの名無しさん
04/11/20 23:58:52
質問です。
System.Web.Mail.SmtpMailクラスでメール送信する際
ポートの指定は出来ないのでしょうか。ググッてもわか
りませんでした。

540:デフォルトの名無しさん
04/11/21 00:10:03
>>539
できない。
.NET 2.0で追加されるSystem.Net.Mail.SmtpClientならできる。
どうしてもやりたければSocketを使う。

541:デフォルトの名無しさん
04/11/21 00:18:55
>>540
どうもです。デフォルトのポートは25に設定されているんでしょうか。

542:デフォルトの名無しさん
04/11/21 00:40:09
質問です。

VB.NETでEBCDIC漢字はSHIFT-JISに変換できないのでしょうか？
シフトコードは入れているのですが変換できません。
半角カナは変換できるのですが・・

543:デフォルトの名無しさん
04/11/21 00:40:57
>>536
ありがとうございます。

544:デフォルトの名無しさん
04/11/21 01:12:43
vb .net 2003 / windows2000

MDIでテキストエディタを作ってるのですが、ファイルの保存方法がわかりません。。。
アクティブなMDIウインドウのtextbox1のテキストを保存したいのですが、MDIウインドウの指定方法がわかりません。

545:デフォルトの名無しさん
04/11/21 01:57:47
>>544
事故解決しましたm(_ _)m

546:デフォルトの名無しさん
04/11/21 08:13:22
Private s As String = ""

Private Sub ThreadMain1()
Dim i As Integer
For i = 0 To 99
s = s + "A"
Next
Trace.WriteLine("ThreadMain1 done")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim thread1 As New System.Threading.Thread(AddressOf ThreadMain1)
thread1.Start()
End Sub

これを実行するとへんなメッセージがでます。これは何なのでしょう。
名前がありません？　名前あるけど。０ｘ３４０って何？
ThreadMain1 done
スレッド '<名前がありません>' (0x340) はコード 0 (0x0) で終了しました。

547:デフォルトの名無しさん
04/11/21 08:33:35
そのまま、名無しのスレッドが終了したってことだが。
名前ってのはThread.Nameプロパティで指定する文字列だよ。
0xNNNは内部で使われているスレッドID。

548:デフォルトの名無しさん
04/11/21 08:37:08
>547
ホントにわかってんのかな。

549:546
04/11/21 09:05:00
> 547
おっ、ありがとう。
＞５４８
　さらに分かってるいる方の解説希望。
　たとえば、ＩＤの使い道とか

550:デフォルトの名無しさん
04/11/21 09:41:40
>>548
が分かっていないに100炎

551:デフォルトの名無しさん
04/11/21 10:37:04
>547と>550も分かっていないに1000炎

552:デフォルトの名無しさん
04/11/22 10:02:37
>>513
ヒントを与えているが。

553:デフォルトの名無しさん
04/11/22 11:30:24
バックグラウンドでHIDEで動作している常駐のクラスclsBでタイマー
イヴェントを１秒ごとに起してコマンド処理をしています。
　メインの方では色々なフォームを立ち上げたり消したりしています。
　そのフォームの一つaFormで、データ取り込みコマンドを
clsBにたいして送ります。clsBは１分でそのコマンドの処理をして完了とデータををaFormに送ります。
しかしその時ユーザーは処理の完了を待ちきれずに別のフォームを立ち上げていて、
aFormは消えているかもしれません。
　こういう場合、どのような方法で処理をすればよいでしょうか？

１案）aForm終了時にキャンセルコマンドを送る。
２案）clsBは処理の終了でaFormがまだ存在するかを調べて、存在すれば
　完了コマンドとその処理済データをaFormに送る。

を考え付きましたが、
　クラスが存在するか消滅しているかは、どうやって調べるのでしょうか？

554:５５３
04/11/22 11:33:39
　正確には、クラスのインスタンスの存在、消滅の検出方法です。

555:デフォルトの名無しさん
04/11/22 12:48:40
>554
グローバル

556:デフォルトの名無しさん
04/11/22 13:25:54
VB.NET 2005 Express Beta落として使ってるんだけど、
新規プロジェクトでForm1が出来る
　↓
ツール→オプション→Windows フォームデザイナ→Layout ModeをSnapToGridに
　↓
Form1の大きさをマウスで変えようとするとエラー
「オブジェクト参照がオブジェクトインスタンスに設定されていません」

なんとかならんかね？

557:デフォルトの名無しさん
04/11/22 14:09:42
>556
どうなってほしいの？

558:yukki
04/11/22 16:56:41
>>527
>最凶VB厨房さん

自己解決できました。
ありがとうございます。

559:522
04/11/22 17:51:33
>>524
遅レスになってしまいました。

KeyDownイベントでもやってみたんですが、e.Handled = Trueとやっても
キャンセルされず文字が入力されてしまいます。
IsInputCharあたりをオーバーロードしてやってみてますが、いまだ未解決のままです。

560:デフォルトの名無しさん
04/11/22 18:38:11

VB6にあった実行ファイルのオプションは
どこにいったのでしょう？
会社名とか書けない…

561:yukki
04/11/22 18:49:44
度々申し訳ありません。

UdpClientのReceive メソッドはメッセージを受信するまで実行をブロックしてしまいます。
メッセージの受信を待ちつつ、他の動作（例えば、メッセージ送信やイベント発生）などを行うにはどうしたらよいでしょうか？

ご存知の方いらっしゃいましたらご伝授願います。

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で回転すらできないのか？　あーあ。

次ページ