劇場版｢空の境界｣ Bluray 再始動!!

藍光版：2013/7/10

2011 Teppanyaki & Wine

2011 Teppanyaki & Wine 精緻鐵板料理 | 紅酒
這家是位在大直美麗華旁邊的一家鐵板燒店
是屬於精緻路線的
以下是一些照片

沙拉...水果沒有很甜...不過還不錯


巴西蘑菇...有個類似杏仁的香氣

とある科学の超電磁砲S ED

Grow Slowly
作詞：渡辺翔／作曲：渡辺翔／編曲：清水哲平／歌：井口裕香

知らない空眺めながら
いつもいつも君と歩いて
昨日までとは違う未来
見えたような気がして探したんだ

ぼやけていた視界には迷っていると
思い込んでいた心
触れたら全て変わっていく

飽きるくらい雲 数えたらまた遠くに流れていった
追いかけて見つけたよ明日の夢
二度と来ない今 確かめて伝わった君の想い
いつかきっと私もあげよう
雲のようにそっとそっと前へ

ゆらり落ちた葉 手にして
今の私重ね見上げた
焦る気持ちに広がる
木漏れ日は心を包み込んだ

無駄なことなんてないって
言い聞かせて怖がらずに
君と新しい景色作っていこう

深く長い呼吸してわかった幸せのための温度
一人じゃわからないこのぬくもり
見様見真似で君のように笑ったら恥ずかしくて
もっと笑顔溢れていたよ
なにもかも輝き出した

飽きるくらい雲 数えたらまた遠くに流れていった
追いかけて見つけたよ明日の夢
二度と来ない今 確かめて伝わった君の想い
いつかきっと私もあげよう
雲のようにそっとそっと
どこまでもずっとずっと前へ

とある科学の超電磁砲S OP

sister's noise
作詞：八木沼悟志／作曲：八木沼悟志／編曲：八木沼悟志／歌：fripSide

誰よりも近くにいた　その声は聴こえなくて（sister's noise…I find it out…)
刻み続けていた時の中で　やっと君に逢えたから
sister`s noise 捜し続ける　彷徨う心の場所を（sorrow of your heart…Ｉshoot it down…）
重ね合った　この想いは誰にも壊せないから…！

街は密やかに　君を隠してた
辿り着いた場所　蘇るあの記憶

繰り返されてた　真実は遠く
君のその痛み　気づけないまま

あの日託したその夢が　私を切り裂いても
何よりも大切な　希望だけ信じ貫いて

自分らしく生きること　何よりも伝えたくて（sister's noise…I find it out…)
生まれ続ける哀しみの痛み　その意味を刻むなら
sister`s noise いま届けるよ 涙さえ能力にして（sorrow of your heart…Ｉshoot it down…）
繋がり合う　強さだけが全てを打ち抜いていく

夕暮れの放課後　いつもの街並み
ふと見上げた空　思い出す　優しさを

君の眼差しが　気づかせてくれた
弱さを認める勇気の強さを

温かな君のその手が　私を導いてく
何よりも守りたい　希望が闇を貫くから

抱きしめた熱い思い　この世界を照らすから（sister's noise…I find it out…)
走り続け探し続けていた　君の夢が動き出す
sister`s noise 響きはじめる　高らかな生命の意味（sorrow of your heart…Ｉshoot it down…）
理解ってるよ　かけがえない絆は壊れないこと

自分らしく生きること　何よりも伝えたくて（sister's noise…I find it out…)
生まれ続ける哀しみの痛み　その意味を刻むなら

誰よりも近くにいた　その声は聴こえなくて（sister's noise…I find it out…)
刻み続けていた時の中で　やっと君に逢えたから
sister`s noise 捜し続ける　彷徨う心の場所を（sorrow of your heart…Ｉshoot it down…）
感じ合った　同じ笑顔　必ず守ってみせる
もう 誰にも壊せないから…！

VB6 利用SendMessage控制音量

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_APPCOMMAND As Long = &H319
Private Const APPCOMMAND_VOLUME_UP As Long = 10
Private Const APPCOMMAND_VOLUME_DOWN As Long = 9
Private Const APPCOMMAND_VOLUME_MUTE As Long = 8

Private Sub Command1_Click()
  '音量增加
  SendMessage Me.hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_UP * &H10000
End Sub

Private Sub Command2_Click()
  '音量減少
  SendMessage Me.hwnd, WM_APPCOMMAND, &H30292, APPCOMMAND_VOLUME_DOWN * &H10000
End Sub

Private Sub Command3_Click()
  '靜音
  SendMessage Me.hwnd, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000
End Sub