VB.NET質問スレ (Part12 ..
[2ch|▼Menu]
782:デフォルトの名無しさん
05/10/24 20:43:47
>>777
あ、なるほど確かにそうなるね。
確信はないけどコントロール側で対処するのは正攻法では難しいんじゃないかな。

フォームのClosingイベントハンドラで引数のeの値をヲチすると、
コントロール側でそういうことをしている場合これのCandelメンバが
Trueに設定されるようだから、これをFalseに書き戻してやれば
いいんじゃないかな。

とりあえず俺の環境ではうまくいった。

783:デフォルトの名無しさん
05/10/24 22:09:58
先生、0除算をしたら、DivideByZeroExceptionが投げられると思ったら、
なんか無限記号が表示されるんですけど、どういうことなのでしょうか?

784:デフォルトの名無しさん
05/10/24 22:39:32
>>783
浮動小数を使った場合のデフォルトの動作。
で、VB.NETは特に指定しなかったら除算は大体Doubleとして計算されるから。
判断はDouble.IsInfinityメソッドとか。

785:最凶VB厨房
05/10/24 23:30:36
無限記号だって?
よっこらせーっと

786:最凶VB厨房
05/10/24 23:36:36
Dim a As Single = 30
a = a / 0
MessageBox.Show(a)
+∞

ぽっかーん

787:757
05/10/25 00:46:32
もう一度質問させてください。
VB.NETを使用して、Windows Applicationを開発しています。
POSTによりWebサーバに画像ファイルをアップロード(PHP使用)する方法がどうしてもわかりません。
どなたか教えていただけませんか?

現在はこのように書いています。
Dim req As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
req.Method = "POST"
req.ContentType = "multipart/form-data"
Dim reqStream As System.IO.Stream = req.GetRequestStream()
↓ ここにが画像を入れるのかなと思っていますが…
Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes("?key=11&gazou='バイナリ?'")
reqStream.Write(data, 0, data.Length)
Dim res As System.Net.WebResponse = req.GetResponse()
Dim resStream As System.IO.Stream = res.GetResponseStream()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(resStream, enc)
Dim html As String = sr.ReadToEnd()


788:757
05/10/25 00:49:30
追記させてください。
PHP使用とは、受け取り側のWEBサーバーはPHPを使用しています。

789:デフォルトの名無しさん
05/10/25 00:49:59
FileStreamで読み出せば

790:757
05/10/25 01:02:37
レスありがとうございます。
ほんとに最近こればかりに時間を割かれているので・・・。泣きそうです。
Dim wkStream As New System.IO.FileStream("C:\gazou.jpg", System.IO.FileMode.Open)
のように読み込んで、
dim inData as byte = new byte(4096)
dim bytesRead integer = wkStream.Read(inData, 0, inData.Length);
while (bytesRead > 0)
reqStream.Write(inData, 0, bytesRead);
bytesRead = wkStream.Read(inData, 0, inData.Length);
end while

って感じになるのですか?

791:757
05/10/25 01:52:37
やっぱりだめでした。
Dim reqStream As System.IO.Stream = req.GetRequestStream()
reqStream.Write(data, 0, data.Length)
Dim wkStream As New System.IO.FileStream("c:\gazou.jpg", System.IO.FileMode.Open)
Dim inData(wkStream.Length) As Byte
Dim bytesRead As Integer = wkStream.Read(inData, 0, inData.Length)
While (bytesRead > 0)
↓ここでバイト数オーバーとでます、。
reqStream.Write(inData, 0, bytesRead)
bytesRead = wkStream.Read(inData, 0, inData.Length)
End While
reqStream.Close()

すでに画像のアップロードに成功された方、
どうか教えてください。

792:デフォルトの名無しさん
05/10/25 08:31:58
普通にHTMLページでそのファイルアップロード画面へアップした場合と、
なにか悩んでるプログラムでの、
HTTP通信の差を見た?
ログとるなり、他のツール使うなりすれば見れるでしょ。

つうか、サーバもいじれるならFTP立ち上げたほうが早いし問題ないし。
HTTPのファイルアップロードは所詮オマケというか無理がある仕様だし。

793:デフォルトの名無しさん
05/10/25 08:36:29
ところでGetRequestStreamの解説を読んだことがなさそうだな>質問者

794:デフォルトの名無しさん
05/10/25 16:07:35
DataColumnCollectionの列順を変えたいのですが、どなたかよい方法をご存じないですか?
MSDNで調べても、方法が載っていません。
よろしくお願いします。

795:デフォルトの名無しさん
05/10/25 17:26:38
新しいDataTableを作る

796:デフォルトの名無しさん
05/10/25 19:13:31
その並び順を気にする発想が理解できん。


797:デフォルトの名無しさん
05/10/25 19:59:06
一度取得したテーブルをどうこうするより、希望する列順で取得できる
クエリを出したほうが楽かと。

798:デフォルトの名無しさん
05/10/25 23:39:21
どうもこんばんわ。
VB.NETでクォータービューの、FFTみたいなのを考えているんですが、アルゴリズムに
いまいち自信がもてません。
今は、Form1Paintに2次元配列から取得したマップデータをもとに、DrawImageで
全てのマップチップを描画しています。コントロール配列でピクチャーボックスにしなかったのは
重いかなぁとおもったからです。DrawImageでも普通にちらつきますのでバックバッファいれなきゃなりませんが。

今は、iとjで2重ループで回して左奥から順番に右手前まで描画しています。
マップ回転は描画する順番を変えてやっています。

それでとりあえずはそれっぽいマップが出来上がったのですが、その上にキャラを
置いたり、カーソルを表示したりする時に、その座標をどのように取得するべきなのかが
よくわかりません・・・。

DrawImageだと座標が取れないので、自分でxとyを決めるのでしょうか。
でもそういうのだとなんだか・・・単に座標は合っていて、見た目は正しいけれど、
実際はそこに見えているだけで配列データにリンクしていないので、どうもしっくりこないなぁ。
と感じます。

すみません・・自分で書いてても判りにくいんですが、正しいアルゴリズムの
ヒントでも結構ですので教えていただけないでしょうか。


799:デフォルトの名無しさん
05/10/26 00:05:28
>>798
ヒント: 内部的に2次元で処理して、クォータービューはDirect3Dまかせ

800:デフォルトの名無しさん
05/10/26 00:14:16
>>798
なんて事は無い質問だな
3次元クリッピングっていう奴だ

801:デフォルトの名無しさん
05/10/26 09:59:20
例えば、
On Error Goto ErrHandler
    :
    :
ErrHandler:

で、ErrHandlerに飛んできた時に、呼び出し元の行番号を取得する方法ってあります?
現在の行番号を取得することはできるんだけど・・・

802:デフォルトの名無しさん
05/10/26 10:47:43
>>801

そんなんも考えつかない or 調べられないのだったら、
プログラマー辞めたら?


803:デフォルトの名無しさん
05/10/26 10:51:59
>>802
うはw
なにコイツw
プログラミング以外人に誇るモノがない人ですか?

804:801
05/10/26 11:05:45
New StackFrame(True).GetFileLineNumber
で現在の行番号を取得したり、

Reflection.MethodBase.GetCurrentMethod.Name
で現在実行中のメソッド名を取得はできたんですけどね・・・

これくらいしか調べられなかったオレって・・・

805:デフォルトの名無しさん
05/10/26 12:10:12
行番号???
まあ、ログ吐きたい場合などにほしくなるけど、結論的には不可です。
デバックコンパイルすれば例外の中に履歴的に出るから見れるけど、実行時はありません

806:デフォルトの名無しさん
05/10/26 12:26:07
>>801
On Errorより、Try〜Catchを使った方がいいのでは?

807:デフォルトの名無しさん
05/10/26 12:30:01
そそ
ワシもtry-catchでexception.stacktraceじゃいかんのか?とオモタ

808:駆け出しのPG
05/10/27 00:41:10
Windowsフォームで作ったアプリに簡単なプロテクトを掛けたいのですが、良い方法はありませんか?

809:デフォルトの名無しさん
05/10/27 00:41:56
プロテクトって何をプロテクトするのよ

810:駆け出しのPG
05/10/27 00:44:12
EXEコピーを防止したいです。
もちろんユーザーが素人に限定されますが。

811:デフォルトの名無しさん
05/10/27 00:50:50
それは何故?

812:駆け出しのPG
05/10/27 00:56:34
依頼されてアプリを作りましたが、依頼者の仕事仲間で需要があるそうです。
依頼者は業務上の使用ですので著作権を完全には放棄したくありません。

813:デフォルトの名無しさん
05/10/27 00:58:20
>もちろんユーザーが素人に限定されますが。
>それは何故?
という意味でしたか?

814:デフォルトの名無しさん
05/10/27 01:57:54
ん、取りあえず思いついたいい加減なやり方。

ライブラリプロジェクトHogeを作って、ライセンスドクラス一つだけ用意。メンバはライセンスキーだけ。取りあえず空。
メインのプロジェクトはそれを参照。
Hoge.dllを除いてユーザに配布。
ユーザのLANアダプタのMACアドレスのMD5を取得。
送信して貰う。
そのMD5をライセンスキーと言うことにして、それをHogeのライセンスドクラスのライセンスキーに設定。
Hogeを再コンパイルして、単独で配布。
あとは起動時にHogeのライセンスキーとユーザのLANアダプタのMACアドレスのMD5が一致するか確認。
毎回ユーザのLANアダプタのMACアドレスのMD5を取得するのは面倒なのでレジストリに取っておくとか。

.NETの知識が多少でもある人ならすぐあれこれできてしまうな。
許可の取消もできないし。

いずれにせよユーザの何らかの情報を元に制限を加える必要がある。
単なるパスワードじゃ教えて終了だし、バイナリごとに異なるキーでも実行ファイルのコピーには無力だし。

815:デフォルトの名無しさん
05/10/27 06:50:09
>814
ありがとうございます。
試してみてまたここにカキコします。
数日下さい。


816:デフォルトの名無しさん
05/10/27 08:42:19
不思議な日本語を見た

817:デフォルトの名無しさん
05/10/27 14:59:47
あるファイルが他のプロセスにロックされているかどうかを知る方法はありますでしょうか?

818:デフォルトの名無しさん
05/10/27 15:06:09
実際に開いてみる

819:デフォルトの名無しさん
05/10/27 15:51:31
2005 Express Edition Beta 2を使ってツールを使ってるんだけど、結構いい感じ。
ヘルプが日本語で無いのは残念だけど。
製品版では日本語ヘルプがちゃんと用意されるだろうから、オレみたいなホビーユーザーなら、Expressで不足は無いと思う。

んで、質問。
Expressで作ったブツは自由に配布できるの?
完全に学習用限定な「Borland C#Builder Personal ダウンロード版 1.0」みたいな例があるから、ちょっと不安になる。

820:デフォルトの名無しさん
05/10/27 16:46:51
>>819
Go-Liveの申請をすれば、配布は出来る。
諸注意等は、ググって調べてくれ。

821:デフォルトの名無しさん
05/10/27 20:24:38
VB.NET のお試し版をダウンロードできるサイト、教えてもらえませんか。


822:デフォルトの名無しさん
05/10/27 21:22:41
URLリンク(www.microsoft.com)

823:デフォルトの名無しさん
05/10/27 21:48:17
NDOCでソリューションファイルの読み込み方教えろや!
ニートども!

824:デフォルトの名無しさん
05/10/27 22:21:18
>>820
製品版についての話だと思うんだが>配布

825:デフォルトの名無しさん
05/10/27 22:22:54
>>824
??脳が不自由な方?

826:デフォルトの名無しさん
05/10/27 22:33:35
>>825
ほへ?
>819「Expressで作ったブツ」の"Express"はベータでない製品版で、
それで作ったものを配布可能かどうかを聞いてる、と読んだんだが。
そうなるとGo-Liveとは関係ない。

827:819
05/10/27 23:43:31
どちらとも解釈できる書き方して申し訳ない m(_ _)m
実は、オレ自身、同じエディションでもベータ版と製品版でライセンスが違うとは知らなかったよ。

製品版Expressなら、ブツは配布できるって事でOK?

>821
URLリンク(www.microsoft.com)
一応、復元ポイントを作成してからインストールする方がいいかも。

828:デフォルトの名無しさん
05/10/27 23:51:31
>>826
「ほへ?」はねぇべ?
わやきもいじゃ。

829:デフォルトの名無しさん
05/10/28 01:17:27
>>828
824と823を間違えてるのに気づけよ


830:801
05/10/28 10:29:57
>806
>807
exception.stacktraceでこんな情報を取得できるって気づきませんでしたw
Try〜Catchは場合によって使用していたのに・・・。

遅レススマソ。

831:デフォルトの名無しさん
05/10/29 08:26:33
教えてください。
URLリンク(mbm.livewiredev.com)
[INFORMATION]で[SHARED MEMORY]の項目を選び、[C CODE]の中の
:: VB.NET Code
» VB.NET code can be downloaded here, thanks to Pedro Navarro
を選んでダウンロードし解凍してVB 2005 Express Edition Betaで[ビルド]し、[デバッグ開始]したら、
[sensor 2]のほうの[name]での表示(“CPU”)が“PU”に化けたり、”U”だけになったりする。
また[sensor2]の[Current value]の表示が整数できちんと出ることもあるが、しばらくすると、
Eの型で表示されてしまう。時々(っていうか、なりっぱなしになってしまうこともある)、
まるで表示されなくなってしまうこともある。何故なんだろうか。

VB.netは持ってないんで、ベータ版でしかテストできないので、誰か他のバージョンで
動作確認をして報告してもらえるとありがたいです。
(尚、上記は、”Mother Boardmonitor5が動いている状態でないとテストできません。)


832:デフォルトの名無しさん
05/10/29 08:35:49
Cでのchar[]を全部Char()で宣言してる……。

833:デフォルトの名無しさん
05/10/29 10:24:40
>>832
レス、どうも
ちょっと、その意味がわかりません



834:デフォルトの名無しさん
05/10/29 12:59:16
「bitmapinfo構造体のメモリハンドルとビットマップデータのメモリハンドル」が
与えられて、そのデータをピクチャボックスに表示したいのですが、どうやったら
いいのかさっぱり分かりません
ヒントだけでもお教え頂けませんでしょうか

835:デフォルトの名無しさん
05/10/29 13:37:14
簡単に言えばー、
Win32APIのCreateDIBitmap関数でHBITMAP作ってー、
Image.FromHbitmapメソッドでBitmapにする。
メモリハンドルというのがHLOCALならアドレス取得にはLocalLock関数。そうでないのならそれに応じた関数。
Win32APIでは使い終わったGDIオブジェクトやメモリ領域の後かたづけに気を付けて。

836:デフォルトの名無しさん
05/10/29 13:37:57
ヒント

(1) MSDN(ドキュメントビュア)を起動して、"bitmapinfo"を検索する

(2) 検索結果の「場所」のカラムヘッダをクリックしてソートし、
  「場所」が「プラットフォームSDK: GDI」になっている適当な項を表示する。

(3) 表示されたページ、およびその一番下の「参照」にリンクされているページを
  注意深く読む。ドキュメントビュアのツールバーの「同期」ボタン(←→)を押して、
  関連するページも読む。

(4) このスレのテンプレに紹介されているウェブサイトなどで、グラフィックを
  扱っているサンプルを探してピクチャーボックスに画像を描画する一般的な方法を掴んでおく。

(5) Graphicsクラスのメンバを見て、デバイスコンテキストを取得する方法はないか調べる。

837:831,833
05/10/29 17:23:14
>>832->>836
尚、サンプルコードでは、Refresh() した直後には、senssor1のデータ関数を読んでるだけで、
Sensor2のほうはしてないようなので、タイムラグによるデータの変質なのかなとも思いました。
なので、sensor2のほうもsensor1と同時に新たに宣言したstring変数に代入し、更に、sensor2の
データがtext表示される直前に、その変数(温度データ)の長さが2バイトかどうかでデータチェック
して、2バイト以外の場合は、もう一度、refresh()してから変数にとりこむようにしたら、表示
そのもとしては、なんとか格好はついたようです。


838:831,833
05/10/29 17:25:44
つまり、sensor1の表示の前に
 Dim sensorname1 As String
Dim sensorname2 As String
Dim sensortemp1 As String
Dim sensortemp2 As String
  sensorname1 = MBMInfo.Sensor(1).ssName
sensortemp1 = MBMInfo.Sensor(1).ssCurrent
sensorname2 = MBMInfo.Sensor(2).ssName
sensortemp2 = MBMInfo.Sensor(2).ssCurrent

を加え、sensor2の表示の直前で

While Len(sensortemp2) <> 2
MBMInfo.Refresh()
sensorname2 = MBMInfo.Sensor(2).ssName()
sensortemp2 = MBMInfo.Sensor(2).ssCurrent
End While

を加えたら、少なくとも表示としては良くなって、「ひょっとして内部的」にも
なんとか、うまく動いているような感じもします。えへへ(-_-;)


839:831,833
05/10/29 17:30:10
While Len(sensortemp2) <> 2

While Len(sensortemp2) > 2

のほうがいいですかね


840:デフォルトの名無しさん
05/10/29 18:27:55
ところで、誰か、Microsoft Visual Studio.net Academic version2002
を使ってる人っていますか?

841:sage
05/10/30 16:43:44
FlexGridの表の幅をドラッグで変更できるようにするにはどうすればいいのでしょうか?

842:デフォルトの名無しさん
05/10/30 20:03:03
すいません、質問です。

VB.NET 2003 で作ったアプリのメモリ消費量に関することなのですが、
フォームを表示するだけのアプリでもメモリ16Mぐらい消費しています。
これってこんなもんなんですか?何かやったら減らせるもんなんでしょうか?

レジストリ読み書き(するだけの)ツール作ったらメモリ消費30M近くになって
「iTunesよりすげー」とか言われてショックでした・・・

843:デフォルトの名無しさん
05/10/30 20:05:37
>>842
.NETはJava並みの重さだからしょうがないよ

844:最凶VB厨房
05/10/30 20:16:51
最小化するとWorking Setは減る。

845:デフォルトの名無しさん
05/10/30 20:44:06
タスクマネージャのメモリ使用量なんて目安の一つでしかないのに随分幅きかせてますね

846:デフォルトの名無しさん
05/10/30 23:46:17
というかVB.NETの新バージョンはほんとに年内に出るの?

847:デフォルトの名無しさん
05/10/31 09:17:37
2003と2005では何が変わるんですか?

848:デフォルトの名無しさん
05/10/31 12:34:20
バグが変わる。

849:デフォルトの名無しさん
05/10/31 14:21:53
shgetfileinfoでファイルのアイコン取得してるのだけど、最初はいいのだけど
しばらくほっておくと破棄されたアイコンにアクセス出来ないとかってエラーが出る
(タイマーで再表示してる)
これって何がいかんのでしょう

850:デフォルトの名無しさん
05/10/31 16:30:36
DataTableで、DataTableAからDataTableBにデータを丸写ししたいのですが、
DataTableAには列C、列D、列Eがあり、DataTableBには列C、列Dがあります。
そして、DataTableBは、列順が、列D、列Cとなっています。
こういう場合、CLONEやCOPYだと、スキーマまでコピーされてしまいます。
どなたか、スキーマはコピーせず、データのみを丸写しするよい方法を
ご存じないでしょうか?
よろしくお聞かせ願います。


851:842
05/10/31 21:06:51
気にするとハゲるってことですね。
どうもありがとうございました。

>>845さん
あなたを含めた識者はその詳細なメモリ使用量とやらの測り方を知ってるんでしょうけど。
たとえばPCの性能をクロックだけでしか見れないような人も多いですので。
そんなクラスの人はメモリ使用量というとタスクマネージャでしか測れないもんです
(下手するとタスクマネージャすら知らない)。うちもそんなクラスのマです。失格ですね。

852:デフォルトの名無しさん
05/11/01 01:03:46
>>850
地道にDataTableAをループ走査。


853:デフォルトの名無しさん
05/11/01 01:35:03
vbにはIME周りのAPIはないんですか?

854:デフォルトの名無しさん
05/11/01 10:02:16
Control.ImeModeくらいだな

855:デフォルトの名無しさん
05/11/01 15:52:01
なんだ、結局
VB.NETのユーザってVBユーザとあんま変わってないのか。

856:デフォルトの名無しさん
05/11/01 16:08:45
開発環境が変わった程度で人がそうそう変わるわけはない

857:デフォルトの名無しさん
05/11/01 18:21:15
>>856 格言ですな

858:デフォルトの名無しさん
05/11/01 18:47:58
人がそうそう変われないのに、開発環境はどんどん変わる。

‥‥せめて互換性は残しておいてよ。orz

859:デフォルトの名無しさん
05/11/01 21:36:50
VBAってVB.NETになるんですか?
今からVBA勉強するより、VB.NET勉強しておいたほうがいいですか?

860:デフォルトの名無しさん
05/11/01 21:55:40
当分は消えないだろうなぁ……(遠い目

861:デフォルトの名無しさん
05/11/01 22:41:16
>>860
あれじゃね・・・・・・・スr(ry

862:半人前
05/11/02 00:55:02


VB.net を使用してWindowsの
「ブー」(警告音)
っていう音を出したいのですがどのようなコード
を書けば宜しいでしょうか?

お教え願います。

863:デフォルトの名無しさん
05/11/02 00:59:45
ビープならBeep関数があるが、それじゃなくて?
コンパネのサウンドで設定するような奴?

864:半人前
05/11/02 01:02:07
>>863
>ビープならBeep関数があるが、それじゃなくて?
>コンパネのサウンドで設定するような奴?
レスありがとうございます。
ビープというのは、Windowsの警告音の事を指すのでしょうか?
ちょとVSを立ち上げて【Beep】を試してみます。
どうもありがとうございます(^_^)b



865:半人前
05/11/02 01:17:00

すみません。VS2003にて下記のコードを試して
みたのですがどうもうまく行きません。一体何が原因
なのでしょうか?

For i As Integer = 0 To 100
Beep()
Next


866:デフォルトの名無しさん
05/11/02 01:20:50
何がどううまくいかないんだっての
そこを説明しろ
それだから半人前なんだ

867:半人前
05/11/02 01:25:32
>>866
申し訳ありません。
上記のコードをButton押下のタイミングで鳴らそうとして
いるのですが、全く音が鳴りません。

※当方、スピーカー(安物ですが、、、)を一応つけてしっかり
映画を再生すると音が鳴っているのを確認した上で、
上記のコードを実行してはいるのですが一向になりません。


868:半人前
05/11/02 01:29:39

失礼しました。一応押下したタイミングで鳴っておりました。
しかしながら、
例え100回ループのコードを記述してもスピーカーから流れる音というのは
「ブ」
 でありできれば
「ブブブブブブブブ・・・」
 といった風に連続で鳴らしたいです。。。


869:デフォルトの名無しさん
05/11/02 01:35:45
まずそもそもBeep関数で鳴る音は>>862で望んでいる音なのか?
ループ回数を2桁増やしたりしたらどうなのか?

870:半人前
05/11/02 01:45:27
上記に関連して一ついい案が浮かんだのですが、
1秒毎にBeepを発生させれば
人間の耳には、ブブブ・・・と聞こえる気が致しました。

そこで、はたまたご質問なのですが1秒毎に実行させたい
場合には、どの様なコードを記述すれば良いでしょうか?

ぐぐって
System.Windows.Forms.Timer
を使うらしいという事は、分ったのですが肝心のサンプル
ソースが無い為に不完全燃焼中です。。。


871:半人前
05/11/02 01:50:52
>>869
>まずそもそもBeep関数で鳴る音は>>862で望んでいる音なのか?
>ループ回数を2桁増やしたりしたらどうなのか?
半人前でして、音の種類には特にこだわっていない
ですからひとまずOKです。
あと、二桁増やして For i as integer = 1000 としても
やはり最後の1回分しか音は聞えませんでした。

1秒間隔で鳴らすというのが一番無難なのでしょうか?
私の手元の書籍を参照しても時間制御に纏わる開設が無いので
どうすれば、時間制御が出来るかいまひとつ分りません。
どうか、深夜に申し訳無いですがお教え下さいませ。





872:デフォルトの名無しさん
05/11/02 07:31:38
1秒だと間があきすぎだと思う。
Sleep(200)くらいでいいんじゃね?

873:半人前
05/11/02 08:05:16
>>872
おはようございます。
早速のレスをありがとうございます(^_^)b
試してみます。

874:半人前
05/11/02 08:10:38
>>872
解決しました。ありがとう!!

875:デフォルトの名無しさん
05/11/02 11:28:54
ASP.NET Web Matrixで作成されたシングルファイルをVS.NET 2003のVB.NET ASP Webアプリケーション用の
フォームとコードビハインドのファイル(HTMLとコード部分)に分割する方法というかコツはないでしょうか?

何度やってもエラーが取れず困っております。


※適切な板が見つからなかったのですがASP.NETもこの板でいいのでしょうか?

876:デフォルトの名無しさん
05/11/02 23:19:27
VS.NET2003プロフェッショナルのVB.NETで開発しています。
↑このパッケージにについてるクリスタルレポートを使って印刷機能を実装しようと思うのですが、
完成したexeを不特定多数に配布してもライセンスは問題ないでしょうか?
またクライアントにexe以外の何かを入れないと動かないのでしょうか?


877:デフォルトの名無しさん
05/11/03 02:51:32
起動時に解像度の変更をしたくて、

    Imports Microsoft.DirectX
    Imports Microsoft.DirectX.DirectDraw

Dim device As New Device
Dim Width As Integer
Dim Hight As Integer

Width = 800
Hight = 600

Me.FormBorderStyle = FormBorderStyle.None
device.SetCooperativeLevel(Me, CooperativeLevelFlags.Exclusive Or CooperativeLevelFlags.Fullscreen)
device.SetDisplayMode(Width, Hight, 16, 0, False)

フォームロードにこんなコードを書いてみたのですが、実行すると数秒で解像度等々元に戻ってしまいます。
ずっと設定の解像度を保持してるには、どうしたらよいのでしょうか?

望む動作としては、ゲームにあるような解像度を変えつつ、フルスクリーン表示という感じです


878:デフォルトの名無しさん
05/11/04 14:23:53
WB.NET+ASP.NETで開発をしております。
ボタンを押された時にメッセージボックスを出すような処理を作ったのですが
メッセージ表示時に何故か画面がリロードされてしまうのです。
ネットのサンプル等を見るとリロードせずに普通にメッセージが出ているのですが
何が原因なのかわかりません。詳しい方教えてください。

Response.Write("<script language=JavaScript>window.alert('aaa')</script>")

これだけなんですが・・・

879:デフォルトの名無しさん
05/11/04 21:15:04
>>878
runat="server"になってないか?

880:デフォルトの名無しさん
05/11/06 13:22:33
質問です。
delegateとeventは、いったい、何が違うのでしょうか?
調べれば、調べるほど、「????」と、なってしまいます・・・。
eventは、handles句で、静的に関連付けができるとかなのか・・・。

881:デフォルトの名無しさん
05/11/06 13:48:55
>>880
@ITのVB.net入門にその記述があったような無かったような。

882:デフォルトの名無しさん
05/11/06 13:50:07
delegateは型。
eventはdelegateのインスタンスに対するプロパティ的存在。

883:デフォルトの名無しさん
05/11/06 17:00:12
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Integer, ByVal hObject As Integer) As Integer

hDC = GetDC(Picture1.Handle.ToInt32)
hbmp = CreateCompatibleBitmap(hDC, ImgX, ImgY)
hSelObj = SelectObject(hDC, hbmp)
とした時にエラーコード126(モジュールが見つからない)が返るんですけど何故なんでしょう
hDCとhbmpには値が返っています(hSelObjは0)

884:デフォルトの名無しさん
05/11/06 17:40:25
再現しないな
関係ないがハンドルはIntPtr型で宣言すれ

885:デフォルトの名無しさん
05/11/06 20:14:52
エラーコード126ってそれ。。

886:デフォルトの名無しさん
05/11/07 01:20:21
すみません。
どなたか暇つぶしに教えてくださいませ<m(__)m>

1)ドイツ語単語(などの外国語単語)をテキストファイルに
1行1単語ずつバーッと書いてあるものを用意する。

2)単語ごとにURLリンク(www5.mediagalaxy.co.jp)
(←ドイツ語の場合)のような辞書サイトに検索させる。

3)1単語につき1ブラウザ開くようにする
(だから300単語とかになるとひどいことになるけど……)

3’)もしくは検索結果のみを1ファイルに書き込む。


……というようなことをVB.NETをつかってやりたいのですが
(EXCEL VBAとかでもいい)、具体的にどうすればいいのか、
いまから自分で調べたりしてると時間がないので、
お知恵をお借りしたく、投稿させていただきました。


887:デフォルトの名無しさん
05/11/07 02:45:02
URLリンク(www.ringolab.com)
をみてWebサービスで翻訳する

888:デフォルトの名無しさん
05/11/07 07:43:30
時々セーブデータで
[configre]
a1 =50
a2 =90
みたいな書式のデータ見るんだけど、あれって何使って出力すればいいの?

889:デフォルトの名無しさん
05/11/07 07:55:12
ストリームライターで、ってことじゃ無くて?

890:デフォルトの名無しさん
05/11/07 09:37:21
PanelをFixed3Dに設定した場合凹んで見えるのがデフォルトみたいですが
逆に見えるようにするにはどうすればいいですか?

891:デフォルトの名無しさん
05/11/07 10:16:53
PocketPC用のソフト作ってます。
compact framework で使えるグリッドコンポーネントってないでしょうか?
セルの色さえ指定できればいいんですが。
グレープシティのを見かけたけど、抱き合わせ販売で高すぎ。。

892:デフォルトの名無しさん
05/11/07 11:23:53
今考えているのですか、ちょっとしたポータルサイトを作ろうとした場合
.netとsql serverがあればつくれますか?
登録されたアドレス等をsqlに溜め込んでHP上でselectしてあげれば
いい気がするのですが、普通にできますかね?

893:デフォルトの名無しさん
05/11/07 15:21:54
>>888
Win32APIのGetPrivateProfileString、
WritePrivateProfileStringをMSDNなりぐぐるなりで調べてみるといい

894:デフォルトの名無しさん
05/11/07 18:41:06
>>886
"URLリンク(www5.mediagalaxy.co.jp)"
この文字列の末尾に、調べたい単語を連結したURLにアクセスすればいい。

以下のリンクをクリックすると"ich"の検索結果が出る。
URLリンク(www5.mediagalaxy.co.jp)

895:デフォルトの名無しさん
05/11/07 19:05:17
>>888
>>893の言う通りMSDNで調べて、使えそうだと思ったら以下の使ってみるといい。
ヌル文字、ヌルポインタなどのC言語の知識が少し必要になるけどね。
もし使いたければ以下のAPI宣言文を使ってくれ。

Public Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" _
(ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Public Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" _
(ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Integer
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer

896:デフォルトの名無しさん
05/11/07 19:26:22
そんな面倒なことしてまでWin32API使うことないんでないの?
自分で書いたってたいしたことないと思うんだけど。

作るときはフツーにテキストファイルに書くだけ。
読むときは一行ごと読んで“=”ぶったぎってアイテムと値を分けるだけ。
何も難しくないじゃん。

897:デフォルトの名無しさん
05/11/07 19:31:23
XmlSerializerやらSoapFormatterやらなら考える必要もほとんど無いが。

898:デフォルトの名無しさん
05/11/07 20:09:39
>>896
コメントやらセクションやらを考えるとメンドクセ
おっと、それなりの大きさの規模のアプリケーションを作った事の無い人でしたか。
毎回ご自分でその位実装してくださいね。

899:デフォルトの名無しさん
05/11/07 21:07:21
>>898
馬鹿じゃないの。
キミ、自分でそういうコード書いたことないでしょw
Win32API使えば面倒じゃないとでも思ってるのかね。
シリアライズ/デシリアライズしてくれるわけでもなく、結局アイテムを
一つずつ書き出し/読み出ししなきゃならないわけで、そんなものの
いったいどこにメリットがあるのか。

リストみたいなものも保存できないしね。
自分でスルスクラッチすればどうってことないのに。

セクション?
そんなもの実装するのわけないだろ普通。

900:895
05/11/07 21:34:31
偉そうに書いてしまった>>895の宣言文は一部間違ってたわ。
As Anyは.NETではエラーになる。スマン。
以下を参照してくれ。
URLリンク(www5b.biglobe.ne.jp)

901:デフォルトの名無しさん
05/11/07 21:58:21
APIコールすんのが面倒臭いから同じ処理を自力で書くのか?
結果が同じなら先人の資産を活用する方が楽に決まってるだろ。
APIをコールするやり方知らないだけじゃん m9(^Д^)プギャー
セクションを実装しないiniファイル? ハァ( ゚Д゚)? それiniじゃねーだろwww
スルスクラッチってどこの世界の単語なんだよwww


902:デフォルトの名無しさん
05/11/08 01:26:31
なにこの必死な奴が多いスレ

903:デフォルトの名無しさん
05/11/08 02:25:07
>>899
設定ファイルにコメントが書けるのってのは非常に重要だし、設定ファイルの更新をしたときに元のファイルの体裁が残っている事も重要。それを真面目に実装すると結構な手間になる


904:デフォルトの名無しさん
05/11/08 09:40:18
お世話になります

VB.netでタイマーを3つ用意し、1つをプログラム起動時に停止(仮称A)、1つをAからの差を取り
カウントダウンタイマーとし(仮称B)、1つをBが0カウントになった時点で起動(仮称C)
というものを作っていますが
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()

timers1 = (Now)

Label1.Text = timers1

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

REM 時間の演算
' 時間計算の問題を解決すること
' 1 キャスト問題を解決すること
' 2 タイマー2つの時差をとること
timers2 = (Now)

Label2.Text = CDate(CDate(timers2) - CDate(timers1)) REM この演算を入れると死ぬ
                           ' キャストが悪さしてるみたい
どうやってもうまくキャストできません
どなたか妙案があったら御教授願います


905:デフォルトの名無しさん
05/11/08 09:53:06
>>904
秒単位の精度でいいなら、DateDiff関数でいいんでは?

906:デフォルトの名無しさん
05/11/08 10:20:24
つか減算よりも比較演算の方が良くないか?

907:デフォルトの名無しさん
05/11/08 12:01:22
Panelの凹凸は逆に出来ないんでしょうか?

908:デフォルトの名無しさん
05/11/08 12:35:43
>>904
キャストが悪さしてるみたい、ってそれ確認したの?
本当にそれが原因か確認する方法を考えた?
っていうか、エラーの内容は?
んなことやってると永遠に三流PGでっせ。

MSDN見るとVBの日付型の正体はDateTime構造体だとわかる。
DateTimeに対して‘-’演算子は定義されているんだろうか。

909:904
05/11/08 12:43:28
>>905,906
ありがとうございます
とりあえずカウンタをすべて動かすところまではいけました
またお願いします

>>908
ありがとうございます
三流だなんてとんでもない 中途入社のVB暦1週間のペーペーです
またお願いします

910:デフォルトの名無しさん
05/11/08 12:51:58
>>907
自分で派生クラスを再定義すればいけるかもしれんね。
そんな手間かけるくらいなら、画像ファイルを用意してピクチャ貼り
した上にコントロール配置したほうが楽かも。

911:デフォルトの名無しさん
05/11/08 13:03:40
ここで聞くもんかわからんが
VBCommenterっていうコメント書きアドインツールがあるんだが
米サイトからDL出来なくなってる(エラーになる)
どこかミラーでおいてあるところ無い?

912:デフォルトの名無しさん
05/11/08 14:46:34
今までVB 6で開発してましたが、遅まきながら.NETに移行しようと思います。

そこでちょっと調べたのですが、.NET用の市販ライブラリがあまり見つかりません。
今まではVB 6の標準コントロールが貧弱ということもあり、ほとんどのコントロールは
購入したライブラリのものを使用していました。

皆さんは、.NET用の市販ライブラリはどのようなモノを使っていますか?
グレープシティやWindows Developerマガジンを調べてみたのですが、
他にもどこかで紹介されているサイトがありましたら、お教えいただきたく。

それとも、使う必要の無いほど.NETのライブラリは高機能なんでしょうか。


913:デフォルトの名無しさん
05/11/08 14:58:21
>>912
まず、どんなライブラリが必要か列挙したほうがいんじゃまいか?

914:デフォルトの名無しさん
05/11/08 15:20:19
親クラスが overridable されているかどうかを調べる方法は
ありますか?

例えばグレープシティの InputMan の EditMode を
overrides したかったのですが EditMode が overrides できなかった
ので、overridable されているかを調べたくなりました。

方法があれば知りたいのでよろしくお願いします。



915:デフォルトの名無しさん
05/11/08 15:21:33
普通はリファレンスに書いてるんじゃね?

916:デフォルトの名無しさん
05/11/08 15:27:16
それが書いてないんですよね。

例えば
Public Property ControlEffect As GrapeCity.Win.Input.ControlEffect
は overrides できて、
Public Property EditMode As GrapeCity.Win.Input.EditMode
はできない。

リファレンスじゃわからないんですよね。

というか、リファレンスを見るしか方法ないんですかね?

917:デフォルトの名無しさん
05/11/08 17:21:56
VB6の「debug.print」は、vb.netでは「system.Diagnostics.Debug.WriteLine」ということですが
VB6のイミディエイトウインドウのようなものは、visual studioに無いのでしょうか?


918:デフォルトの名無しさん
05/11/08 17:41:18
ある
ほとんど同じ使い方が出来る

つか、ヘルプ見(ry

919:917
05/11/08 18:08:28
Microsoft Script Debugger でしょうか?
表示メニューでは選択できませんが、どうやって表示するのでしょうか?

920:912
05/11/08 18:17:02
>>913 あ、すいません。カテゴリーを示すことにしますが、そうすると次に
「どんな仕様なら良いんだ?」とさらに質問が来そうなので、今使っている
コントロールを示すことにします。

入力系:グレープシティ InputMan
グリッド系:グレープシティ SPREAD
グリッド系:グレープシティ VS-FlexGrid
フォーム系:グレープシティ Active 3D Plus
フォーム系:グレープシティ VS-Resizer
グラフ系:グレープシティ True WinChart
ヘルプ系:グレープシティ True Help
インストール系:グレープシティ InstallStudio
帳票系:H.O.S シーオーリポーツ

グレープシティのものが多いですが、これは文化オリエント時代のVBXから
使っているというだけで、気に入ってるわけではありません。
ですから、.NET用はグレープシティのものではなく、他社のモノも
使ってみたいと思います。

921:デフォルトの名無しさん
05/11/08 18:35:05
>>919
コマンドウインドウというのがそれにあたる
> ←これが出てるから
immedと入力するとデバッグ中に変数の中身表示させたり出来る

922:917
05/11/08 18:48:47
>>921
どうもありがとう。助かりました。
「表示」の「その他ウインドウ」に気づきませんでした。


923:デフォルトの名無しさん
05/11/08 18:49:02
Debug.Print は Console.WriteLine で置き換え
出力のウインドウで確認

924:デフォルトの名無しさん
05/11/08 18:59:38
C# から VB.NET に移行してきました。
コントロールのイベントの追加の方法を知りたいのですが、
C#はコントロールを選択してプロパティの画面から追加するイベントを
選択してコードを書いていくのですがVB.NETの場合はコード画面の
上のほうにあるコンボボックスの左側からコントロールを選択し、
その右のコンボからコードを追加したいイベントを選択するという方法
になるのでしょうか?
これ以外のイベントの追加の方法がありましたら教えてください。

あと、複数のコントロールで発生したイベントで処理する内容が同じ場合、
Handles のうしろに、そのイベントで処理したいコントロールを
手書きで追加していくっていうやり方であっていますか?
これもC#の場合はプロパティの部分でイベントを開くと既に存在する
関数が一覧で表示されそこから選択する事ができたので、
VB.NET でも同じように IDE で処理する方法があれば教えてください。


925:デフォルトの名無しさん
05/11/08 19:00:31
なんでそんな移行するんだろう

926:917
05/11/08 19:31:29
>924

>その右のコンボからコードを追加したいイベントを選択するという方法
>になるのでしょうか?

そうです。

>これ以外のイベントの追加の方法がありましたら教えてください。
私にはわかりませんので、レスを待ってください。

>あと、複数のコントロールで発生したイベントで処理する内容が同じ場合、
>Handles のうしろに、そのイベントで処理したいコントロールを
>手書きで追加していくっていうやり方であっていますか?

あってます。

927:デフォルトの名無しさん
05/11/08 21:17:35
ラベル コンボボックス ピクチャボックス

これら全てを表示はさせつつ、
一つのチェックボックスがチェックされていないと構えないようにしたいんだけど、
どうしたらいいですかね?
visible=falseは消えちまうからイクナイ

928:デフォルトの名無しさん
05/11/08 21:28:55
C#でいうところの using() {} のように 自動でIDisposable させる為の
構文はVB.NETにありますか?

929:デフォルトの名無しさん
05/11/08 21:30:07
enabled=false
つーかラベルをどういじるの?

930:デフォルトの名無しさん
05/11/08 21:32:31
なんつうか、グレー表示にならんかな

931:デフォルトの名無しさん
05/11/08 21:33:09
>>929
えーと、これチェックしたらコレ使えるで、みたいな雰囲気を出しときたい

932:デフォルトの名無しさん
05/11/08 21:37:23
自分でコントロール作ればいいんだよ。
ラベルなりなんなり継承して。
そんなの三分もあれば出来るよマジで。

933:デフォルトの名無しさん
05/11/08 21:47:14
windows.formsなアプリで、起動直後に設定ファイルの有無の判断を行ない、
設定ファイルがある場合フォーム(A)を表示、なければ設定用のフォーム(B)
を表示といったアプリケーションを作りたいと思っています。

この時、A.exeを起動して設定ファイルのチェックをし A.exe のフォームを
表示せずにB.DLLを表示させられなくてつまづいています。
A.exeのフォームが必ずでてしまいます。

A.exe を起動しつつ、A.exeのフォームを表示したくない場合には
どのようにすべきでしょう?


934:デフォルトの名無しさん
05/11/08 21:51:38
>>928
現在無し。2005から。

935:デフォルトの名無しさん
05/11/08 22:02:53
モジュール作ってプログラムのプロパティのスタートアップの設定で
そのモジュールにする
で、そのモジュール(のmain)でApplication.Run(_form1)の前にForm2.Showdialogかな?

936:デフォルトの名無しさん
05/11/08 22:03:34
>>933
適当なクラスにMainって共有メソッドを作って
そいつをプロジェクトのスタートアップにすべし。
っていうか、こんなのドトネトのTips紹介してるサイトをちょっと巡れば
調べがつくでしょ。

937:933
05/11/08 22:06:53
ありがとうございます。
自分で Main メソッドを作ればいけるんですね。
助かりました。

938:デフォルトの名無しさん
05/11/08 23:16:16
オプション画面を作る時、左側のツリー選択で右側の画面を切り替える場合は、新しいフォームのインスタンスを作って右側だけに呼び出すという形でいいのでしょうか?
それとも、もっと一般的な形があるんでしょうか?

939:デフォルトの名無しさん
05/11/09 00:08:57
>>938
Formを普通のコントロールにして右にLoad

TopLevelだっけかな?

940:デフォルトの名無しさん
05/11/09 00:10:23
ナンノコチャw

941:デフォルトの名無しさん
05/11/09 00:15:10
TopLevel = FalseにしないとForm内にFormを追加できねぇ

942:904
05/11/09 12:10:31
1つのソースで完結する(ビルドできる)ソースファイル2つを
1つの実行ファイルにまとめたい(ソース1でソース2に記述したクラスを
呼び出す?)のですがMSDN見てもやり方がまったくわかりません

実際こういうことは不可能でソース2を解体してソース1に組み込まないとだめなのでしょうか?

943:904
05/11/09 14:10:58
>>942は解決できました
ありがとうございました

944:デフォルトの名無しさん
05/11/09 16:21:38
今日VB.NET始めたばっかですが質問させてください
テキストボックスに入力した値を変数xに入れて
別の変数nを10のx乗させて変数yに格納したいんですが
Dim y As Double = n * E(x)
これだとだめでした
どうしたらいいんでしょうか^^;

945:デフォルトの名無しさん
05/11/09 17:03:23
べき乗するなら
^
を使う
10^2 は 10の2乗^^


946:デフォルトの名無しさん
05/11/09 17:15:50
E(x)って書くと、「xを引数として関数Eをコールする」か「配列Eのインデックスx番の値」って意味になっちゃう。

階乗演算子は ^
10のx乗は 10^x

変数nを10のx乗するってのは意味がわからんけど、察するに以下のようにすればいいと思う。
Dim y As Double = n * (10^x)

947:944
05/11/09 17:44:30
>>945-946
できました!
ありがとうございます^^

948:デフォルトの名無しさん
05/11/09 19:56:38
ファイル→新規作成→プロジェクト→新しいプロジェクト→OK
とすると「オブジェクトでサポートされていないプロパティまたはメソッドです。」
と出て、新しく始める事ができません。
どうか、解決策を教えてください。

949:デフォルトの名無しさん
05/11/09 20:16:06
開発環境を入れ直せ。

950:デフォルトの名無しさん
05/11/09 20:37:23
>>949
ありがとうございます。さっそく、やってみます。

951:デフォルトの名無しさん
05/11/09 20:47:01
>>938
PanelかUserControlを派生させて、そこにそれぞれの画面を作る。
Formにそれぞれを重なるように配置して、表示するのを変えるにはそのコントロールをBringToFrontする。

952:948
05/11/09 21:23:14
探したのですが、どこで開発環境の変更をするかわかりません。
誰か、教えてください。

953:デフォルトの名無しさん
05/11/09 21:26:12
変更って何?

954:948
05/11/09 21:28:43
間違えました。入れ直す、でした。

955:デフォルトの名無しさん
05/11/09 22:33:41
vb.net で作成した DLL(Windows.Forms) を、参照設定する事なく、
インスタンスの生成を行ないたいのですが(フォームの表示をさせたい)
実現させる方法はありますか?



956:デフォルトの名無しさん
05/11/09 22:38:20
System.Reflection.Assembly.LoadFromでアセンブリをロードして、
そのAssemblyでGetTypeして型情報を取得、
System.Activator.CreateInstanceでその型のインスタンスを作成。

957:デフォルトの名無しさん
05/11/09 23:02:51
ありがとうございます。

GetType する時にクラス名がわかっていないといけないようですが、
クラス名がわからなくてもアセンブリのインスタンスを生成する
なんて事はできないでしょうか?



958:デフォルトの名無しさん
05/11/09 23:11:48
型名も分からないのにインスタンスを作るってのもなかなか有り得ないと思うが……。
Assembly.GetTypesでType配列を取得して、それぞれBaseTypeを遡っていって調べてみるとか。

> アセンブリのインスタンスを生成する
これは意味不明だ。

959:デフォルトの名無しさん
05/11/10 07:48:54
>>952
VisualStudioをアンインストールして
もう一度インストールする

960:デフォルトの名無しさん
05/11/10 09:38:57
あるDBのマスタテーブルからデータを読み込む(書き込む機能は不要)クラスを作るとした時。
このデータの読み込むタイミングは以下のどちらが一般的でしょうか?

・コンストラクタでマスタのCodeを渡して読み込む
・コンストラクタでは何もせず、DataRead(Code)のようなメソッドを持ちそこで読み込む

上司に「コンストラクタは初期化なんだから何もせず、読み込むメソッドを持った方がいい」と指摘をうけたのですがどうなんでしょう。
なんか「初期化」の意味を取り違えてるような気がしないでもないのですが・・・
作る側としては読み込むメソッドを持つと、使う側で呼び忘れてエラーの元になってしまうと思ったので
コンストラクタで読み込んでしまうような作り方をしていました。



次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
暇つぶし2ch

4705日前に更新/282 KB
担当:undef