1 名前:デフォルトの名無しさん [2009/07/13(月) 21:12:36 ] ここは Visual Basic 〜6.0 の質問スレです。 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。 ○ 質問者の心得 一.質問する前にMSDNやGoogle、過去ログにも目を通してみる。 二.VBScript、インストーラーなどはこのスレでOK。 三.質問は第三者にもわかりやすいよう簡潔かつ具体的に。 四.荒らしは相手しない。 ○ 回答者の心得 一.答えられない質問は無駄に罵倒せずスルー。無理するな。 二.代用法を強制しない。 三.回答する上で必須ではない情報をむやみに聞き返さない。 四.荒らしは相手しない。 五.VB情報募集中。 六.回答は質問者が理解できるよう具体的に。 MSDN Online Japan ホーム www.microsoft.com/japan/msdn/default.asp Visual Studio 6.0 Service Pack 6 msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx Google www.google.co.jp/ ※「まず自分で調べる」クセを身につけよう。
431 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 01:47:40 ] どうしてこうなった・・・
432 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 11:59:58 ] MSDN読まないのか VBドキュメントの Implements ステートメント インターフェイスのインプリメントによるポリモーフィズムの提供 インターフェイスの作成とインプリメント 標準インターフェイスのインプリメントと使用 この辺り
433 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 12:33:12 ] 変なソースコード貼り付けた人と>>402 は>>432 のアドバイスを参考にするように
434 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 12:58:57 ] 接続ポイントはややこしいからねぇ。 極力避けてコールバックオブジェクトを使うのが正解。
435 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 13:22:27 ] そうだね
436 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 13:30:53 ] 混乱してきた
437 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 13:43:37 ] MSDNって機械翻訳で変な日本語多くて読みにくいんだよねぇ・・・でも英語だと全く読めないし・・・('A`)マンドクセ
438 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 15:56:20 ] >>436-437 プログラマ向いてない 転職をお勧めする
439 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 18:57:06 ] >>437 スパゲッティソースより読みやすいと思うがwwwww
440 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 21:11:49 ] プログラマーって閉鎖的なヤツが多い
441 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 21:15:41 ] 自明の理
442 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 21:53:49 ] MSDNはVB6の頃の奴はむしろ読みやすかった気がする .netになってから激しく読みにくい
443 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 22:00:01 ] ローカルにもインストールしてあるけど、検索がしづらくなったので、 site:msdn.microsoft.com を付けてぐぐってます。
444 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 23:14:45 ] webのは記憶ないけど、ローカルのは確実に今の奴の方がクオリティー高いだろw ダメな奴ってすぐ自分の無能を道具のせいにするよな。 >>443 まあビューワは2003までの奴の方が現行の奴よりも使いやすい。 それでもVS98の時代よりは使いやすいと思うが。 いずれにせよ、2002以降のビューワーはカスタマイズした上でキーボードショートカットを 駆使して使うのが基本。 君が使いにくいと思うのなら、たぶんそういうことやってないんだろう。
445 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 23:20:12 ] >>444 さんのカスタマって何をどうしてるの
446 名前:デフォルトの名無しさん mailto:sage [2010/03/11(木) 23:44:26 ] >>445 言葉で説明するのは難しいよね。 まず俺は2008用のドキュメントもビュワは2003のを使って見てる。 それ前提で言うと、左側のペインは「検索」と「キーワード検索」で水平に二分して、 出しっぱなしの状態にしている。 残りの「検索結果」、「目次」、「お気に入り」はウィンドウの下側に、 それぞれ別個に、スライド表示(タブにマウスを乗せるとにょっと出てくるやつ)でドッキングさせてる。 隠れてるスライド表示のウィンドウを表示させるのは、キーボードショートカットを使うのが基本。 まあこんな感じ。 2005以降のビュワーの場合は「検索」ウィンドウがでかくなってしまって左側のペインに 収めるのは難しいから、こいつもウィンドウの下側にドッキングさせて、検索するときは キーボードショートカットで表示するのが基本だろうね。
447 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 00:07:08 ] へー。2003のビューアで2008のドキュメントが見られるんだ。 さすがに、2010は無理だろうな・・・。
448 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 14:59:35 ] すいません Picture1.Picture.HandleってののHandleはこれなんなんですか?w Picture1.Hwndとはちがうし Picture1.hdcともちがう でもPicture1.Picture.Handleって指定しないといけないものが多い Handleって書いてるからハンドルなんだなーってのはわかりますが わけのわからんことをいってたらすんませんです(*´д`*)ハァハァ
449 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 17:05:06 ] Handle プロパティ Picture オブジェクト内のグラフィックスのハンドルを返します。 構文 object.Handle 「対象」一覧内のいずれかのオブジェクトを指すオブジェクト式です。 戻り値 Handle プロパティが返す値は、Type プロパティの設定値によって異なります。対応する戻り値は次のとおりです。 Type プロパティ 戻り値 1 (ビットマップ) HBITMAP ハンドル 2 (メタファイル) HMETAFILE ハンドル 3 (アイコン) HICON ハンドルまたは HCURSOR ハンドル 4 (拡張メタファイル) HENHMETAFILE ハンドル 解説 ダイナミック リンク ライブラリやWindows API で、関数呼び出しの一部としてグラフィックスにハンドルを渡す場合に有効です。 MSDNライブラリ-VisualBasicリファレンス Pictureオブジェト->プロパティ->Handleプロパティより引用
450 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 17:08:26 ] 著作権法違反
451 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 17:11:10 ] >>450 固いこというなよw^^;;;;;;
452 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 17:40:23 ] 明らかに”引用”の範囲を超えているな
453 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 17:44:46 ] 男塾思い出した
454 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 17:54:01 ] そもそも引用の要件みたしてないだろ・・・
455 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 18:01:29 ] >>278-279 もな
456 名前:デフォルトの名無しさん [2010/03/12(金) 18:27:31 ] 自分の言葉で説明できないと仕事やってけないだろう・・・ 博士号の人が就職難な理由のひとつに、自分の言葉で説明できず、全て引用で済ましているってとこにもある
457 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 18:35:39 ] なんだボク、学校の宿題に出たのか?
458 名前:デフォルトの名無しさん mailto:sage [2010/03/12(金) 21:43:34 ] なんで本筋それたら盛り上がるんだよw せめてハンドルの話で盛り上がれw
459 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 00:14:25 ] 俺、あのハンドル受け取ったら結婚するんだ
460 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 00:36:25 ] >>449 のハンドルってどんなAPIで使うのよ?
461 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 01:50:19 ] べつにいいんよ
462 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 10:21:02 ] 新しいテキストドキュメントを作成して x~x.txt と名前を変え、VB6で作ったプログラム で削除しようとしたらvistaではうまくいくのですがxpではエラーになってしまいます。 仕様でしょうか?
463 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 10:27:29 ] ショートファイル名?
464 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 10:43:09 ] すみません間違えました。 X~X.txt です。どうやら~という記号が入ってるとエラーになるようです。
465 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 10:52:12 ] あれ?投稿すると文字が何故か変換されてしまいます。 asc値が 126 の記号です。
466 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 11:46:54 ] >>465 当たり前のことをちゃんとやってから質問してる? 当たり前のこと、というのは、例えば削除できない理由が本当にファイル名が原因なのか、 ちゃんと確認しましたかって意味だけど。
467 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 12:16:06 ] エラー番号とエラーメッセージくらい
468 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 12:18:52 ] >>466 >>467 >>462 ですがXPの入ってるPCの方を再起動してもう一度やったところ削除できました。その前は確かにそのファイル名 のテキストファイルだけが削除できなかったのですが、理由はわかりません。 あと、文字が勝手に変換されるのは自分で作った2chBrowserの仕様でしたw 大変お騒がせし申し訳ありませんでした。
469 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 12:29:20 ] 利用中ファイルのアクセスのプロテクト系だろどうせ
470 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 14:57:53 ] いちいち何作ってるかまで言わんでよろしい
471 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 15:03:01 ] やっぱくやしかったんだねwwwwwww
472 名前:デフォルトの名無しさん mailto:sage [2010/03/13(土) 18:31:42 ] (;´∀`)・・・・
473 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 11:31:34 ] VB6のリソースエディタによるストリングテーブルの一行に 格納できるテキストの最大サイズは32KB?
474 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 11:57:11 ] それ以前にストリングテーブルリソースの上限が4097文字
475 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 12:04:27 ] >>474 トンクス あまり使えないなぁ〜orz
476 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 13:04:28 ] どんな長文をリソースに突っ込もうとしてるんだw
477 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 13:22:34 ] リソースのストリングって何に使うためにあるの? いや、他の言語でもそうだけど、リソースに文字列含ませる意味が未だにわからない
478 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 13:40:55 ] メニューの文字とか。 言語切り替えると全部切り替わる用。
479 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 14:05:12 ] つまり日本人以外にも使ってもらうためにってこと?
480 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 14:33:59 ] 故意に必須原型ファイルを削除するようなアホが いないとも限らないのでその対策用にと。。
481 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 14:54:01 ] >>479 読み書き方法が決まってる世界共通のなんでもボックス。 ハードコーディングと違って製品化後も書き換えられるのが特徴。 それ以上の意味はない。
482 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 17:24:57 ] >>476 シェアウェアの課金コード
483 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 17:59:33 ] 入れたきゃ2つに分割して入れればいい話だろう? そこまでしてリソースに収めたほうがいい理由なんてないが 入れちゃいけないって理由もない。
484 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 20:45:40 ] 製品化後も書き換えられるってことは非圧縮になる?
485 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 21:04:55 ] >>484 なんで圧縮されるの?
486 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 21:27:04 ] プログラム起動中に動的にリソースの内容を書き換えるのって 絶対無理ですよね?アホな質問でスイマセン
487 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 21:57:03 ] リソースは書き換えられるでしょ。VB6に操作できる関数が用意されてるかどうかは別で。
488 名前:デフォルトの名無しさん mailto:sage [2010/03/16(火) 22:11:48 ] リソース用DLLを作るとかってやってなかったっけ? 昔の事だから忘れたな
489 名前:デフォルトの名無しさん mailto:sage [2010/03/17(水) 00:02:46 ] Windows7でもVB6って動く?7用のAPIとかって使えるの?
490 名前:デフォルトの名無しさん mailto:sage [2010/03/17(水) 02:23:48 ] >>489 www.google.co.jp/search?hl=ja&q=windows7+vb6&sourceid=navclient-ff&rlz=1B3GGGL_jaJP292JP292&ie=UTF-8
491 名前:デフォルトの名無しさん mailto:sage [2010/03/17(水) 02:34:36 ] わざわざありがとんくす
492 名前:デフォルトの名無しさん mailto:sage [2010/03/17(水) 02:46:29 ] うわ、ggrksって言ったら感謝されたでござる
493 名前:デフォルトの名無しさん mailto:sage [2010/03/17(水) 03:09:09 ] みんなハッピーでよかった
494 名前:デフォルトの名無しさん mailto:sage [2010/03/19(金) 12:36:32 ] VB6 で軽快な付箋のようなポップアップウィンドウを実現 するにはどうしたらいいのでしょうか? ヒントだけでも(APIとか)お願いします。
495 名前:デフォルトの名無しさん [2010/03/19(金) 13:52:20 ] エスパー説明よろ
496 名前:デフォルトの名無しさん mailto:sage [2010/03/19(金) 14:08:05 ] フォームウィンドウの枠線をなくして 付箋1枚で1フォーム表示 これでいいんじゃねぇか? 右下にNotifiIconとか適当に出しとけばいけると思うけど
497 名前:デフォルトの名無しさん mailto:sage [2010/03/19(金) 14:10:32 ] コマンドボタン押すたびにポップアップウィンドウ? Form1.frm (CommandButton一つ配置) Private Sub Command1_Click() Dim f As New Form2 f.show End Sub ---------------------------- Form2.frm (BorderStyleを3に設定) Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static dx, dy If Button > 0 Then Me.Left = Me.Left + X - dx Me.Top = Me.Top + Y - dy Else dx = X dy = Y End Sub
498 名前:デフォルトの名無しさん mailto:sage [2010/03/19(金) 14:29:58 ] Module1.bas Private Const SWP_NOMOVE = 2, SWP_NOSIZE = 1, SWP_NOMOVE Or SWP_NOSIZE Private Const HWND_TOPMOST = -1, HWND_NOTOPMOST = -2 Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Public Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) As Long If Topmost = True Then 'Make the window topmost SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) Else SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) SetTopMostWindow = False End If End Function Form1.frm (CommandButton一つ配置) ----------------------- Private Sub Command1_Click() Dim f As New Form2 f.show: SetTopMostWindow f.hWnd, True End Sub Form2.frm (BorderStyleを0に設定) ----------------------- Private Sub Form_DblClick() Unload Me End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) SetTopMostWindow Me.hWnd, True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static dx, dy If Button > 0 Then Me.Left = Me.Left + X - dx: Me.Top = Me.Top + Y - dy Else dx = X: dy = Y End Sub
499 名前:494 mailto:sage [2010/03/19(金) 14:30:23 ] すいません、分りにくかったですか。 VB6で出来るだけ高速に複数行のテキストをポップアップ表示させたいのです。 それには、やはりAPIを使った方がいいのかと
500 名前:デフォルトの名無しさん mailto:sage [2010/03/19(金) 14:32:26 ] また2chブラウザか!
501 名前:デフォルトの名無しさん mailto:sage [2010/03/19(金) 14:34:23 ] 最近人気なのか? いまさら2chブラウザをなぜVBで・・・
502 名前:デフォルトの名無しさん mailto:sage [2010/03/19(金) 14:37:37 ] どうせバレるんだからストレートに聞けばいいのにな だからブラウザ作ってる奴はウザがられる
503 名前:デフォルトの名無しさん mailto:sage [2010/03/19(金) 14:40:39 ] >>499 APIのほうが早いに決まっているだろ Win32API質問箱 Build86 pc12.2ch.net/test/read.cgi/tech/1265350980/
504 名前:499 mailto:sage [2010/03/19(金) 15:50:51 ] ありがとうございました。それでは早速、退散いたします。
505 名前:デフォルトの名無しさん mailto:sage [2010/03/22(月) 07:59:36 ] 出来るだけ高速にって言っても、んな目に見えるほどの差なんて出ないんじゃねーの? どんなもん求めてるのか知らんけど
506 名前:デフォルトの名無しさん [2010/03/23(火) 01:16:02 ] 低スペックパソコンなんだろう。おそらく。 既存の2chブラウザが動作しなくらいの旧式パソコンとか
507 名前:デフォルトの名無しさん [2010/03/25(木) 22:06:33 ] print でcsvファイルに書き込みを行いたいのですが、 2003/12/15 14:50:30.01 と書き込みを行った場合、 csvファイルをエクセルで開くと、2003/12/15 14:50:30.01 とセルに表示されません。 エクセルのセルの表示設定で表示形式を変更してやれば、ちゃんと表示されます。 str = format(now, "yyyy/mm/dd hh:mm;ss") str = str & ".01" print #番号, str みたいな感じで書き込みを行っているのですが、 この段階でstr には "2003/12/15 14:50:30.01"が入っているのですが、 書き込みを行ってエクセルで開くと、そのように表示されません。 どうすればエクセルで書式設定の変更を行うことなく表示されるのでしょうか?
508 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 22:07:33 ] 頭に ' を付けるとか。
509 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 22:19:03 ] CSVじゃ限界あるからエクセルファイルとして作成を
510 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 22:56:11 ] >>508 頭に'をつけることで効果もないような ただの文字列扱いにするってことか
511 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 23:04:46 ] csvとxlsをvbから作成するのって何か違うんだっけ
512 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 23:04:49 ] うん。
513 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 23:05:40 ] xlsは、ExcelのCOMコンポーネントを使って作るのが一般的。 csvは単なるテキストファイルなので、そういうのいらん。
514 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 23:11:10 ] つまり、csvで作ると書式設定を行えないから表示がおもったとおりにいかないという?
515 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 23:12:47 ] csvをどう表示するかなんて、アプリ次第だしね〜
516 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 23:15:42 ] びしっとした決まりが無かったからね RFCをちょびっと読んでそのまま捨てた
517 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 23:44:01 ] 昔からcsvに統一規則がなかったからな。 csvは相手側をコントロール出来るもんじゃない。「相手側に配慮する」のが関の山だ。 相手側がcsvの読み方をユーザーに尋ねてコントロールするもんだ。 RFCも普及するやら。時代はxmlに突き進んでるし。
518 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 23:49:46 ] 相手側ってのはVBじゃなくてエクセル?
519 名前:デフォルトの名無しさん mailto:sage [2010/03/25(木) 23:52:16 ] 相手がVBだろうがエクセルだろうがCSVになった時点で色々消えてるべ
520 名前:デフォルトの名無しさん mailto:sage [2010/03/26(金) 01:33:12 ] 電話番号の090が90になっちゃったり、ゼロ埋めのコード0001が1になっちゃったり色々あるわな ダブルクオォートで囲ったり、先頭に'つけても回避できない事例も結構あったよ 結局Excelオブジェクトぶん回してxls作るのが一番手っ取り早いというところに落ち着いた データ量が多いときは有償だけどExcelCreater使ってたわ
521 名前:デフォルトの名無しさん [2010/03/26(金) 17:33:04 ] Function hoge() As Class1 Dim c1 As New Class1 c1.value=10 Set hoge=c1 End Function Sub Test() Dim c1 As Class1 Set c1=hoge() End Sub これって使い方正しい?こういう使い方って良く無い?
522 名前:デフォルトの名無しさん mailto:sage [2010/03/26(金) 17:35:05 ] 正しい。
523 名前:デフォルトの名無しさん [2010/03/26(金) 17:41:23 ] ありがとう
524 名前:デフォルトの名無しさん mailto:sage [2010/03/26(金) 17:42:29 ] Function hoge() As Class1 Dim c1 As New Class1 c1.value=10 Set hoge=c1 End Function ↓ Function hoge() As Class1 Set hoge = New Class1 hoge.value=10 End Function
525 名前:デフォルトの名無しさん mailto:sage [2010/03/26(金) 17:53:59 ] デザパタでいうFactoryMethodパターンみたいなもんか
526 名前:デフォルトの名無しさん mailto:sage [2010/03/27(土) 23:09:34 ] For Each って、Variantでしか取り出せないんでしたっけ?
527 名前:デフォルトの名無しさん mailto:sage [2010/03/28(日) 05:15:50 ] mjd?
528 名前:デフォルトの名無しさん [2010/03/29(月) 00:05:55 ] あ
529 名前:デフォルトの名無しさん mailto:sage [2010/03/29(月) 00:35:06 ] ほ
530 名前:デフォルトの名無しさん mailto:sage [2010/03/31(水) 13:49:31 ] >>526 俺は無知だと思い知らされたわ すげぇよあんた
531 名前:デフォルトの名無しさん mailto:sage [2010/03/31(水) 14:08:17 ] やぁ、>>526 ですよ。なんですかこの冷たい反応わw つかマジに質問したんやけどなぁ。 久々にEach文書いたらVariantじゃないと受け取れなくて「・・・え、嘘でしょ?」とか思って。 なんかVariant指定しないとエラー出たり、時々エラーも出ずに動いたりでよくわかんね。 でもコンパイルは通らないんで結局Variantじゃなきゃ嫌らしい。うそーん。