P.暇人
S・I 2011-10-25 13:07:16 |
|
通報 |
表歌詞↓ 裏歌詞↓
リンゴと蜂蜜 (心臓と血液)
紅茶のジャムはアプリコット (隠し味には肉片を)
銀色のティースプーン (真っ白な骨を)
壁に放り投げた (墓場に捨てましょう)
早く遊ぼうよ (さぁ楽しませてよ)
人形は何も喋らない (死体は何も喋らない)
一つしか知らない (ひとつしか知らない)
歌をうたってみるの (悲鳴をあげていたの)
青い小鳥 (生きてた人間が)
籠から逃げて (牢屋から逃げて)
雨にうたれて (弾に撃たれて)
奇麗にもげた羽 (両腕だけ残して燃えてしまった)
ねぇ一緒に歌う？ (皆で叫んでよ)
新しい歌を教えてよ (新しい悲鳴を聞かせてよ)
誰も答えないの (誰も声が出せないの)
だぁれも歌わない (誰も叫ばない)
一つ分けてあげる (ひとつ分けてあげる)
甘くてとろけるチョコレート (甘くてとろける血肉を)
美味しかったでしょう (美味しかったでしょう？)
さぁまた歌いましょう (叫び声を聞かせて)
林檎と蜂蜜 (心臓と血液)
赤色と金色混ぜたなら (赤褐色とピンクを混ぜたなら)
黒くなるのかしら (どんな色になるのかしら？)
お空と同じ色 （このお空(地下牢)と同じ色かしら）
早く遊ぼうよ (私を楽しませて)
人形は今日も喋らない (死体はどうしても喋らない)
蜂蜜かけてあげる (血をかけてあげる)
その赤いドレス (真っ赤な色のドレス)
積み木で作った (髑髏で作った)
お城に一人また閉じ込める (牢屋にまた一人閉じ込める)
ねぇ歌ってほしいの (悲鳴を聞かせてほしいの)
歌って聞かせてよ (悲鳴を聞かせてよ)
新しい紅茶 (新しい人間)
今度はオレンジママレード (今度は金髪の女の子(魔理沙))
銀色のティースプーン (真っ白な骨を)
壁に放り投げた (墓場に捨てましょう)
よろ
Public Class Form1
Dim i As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics
Dim pen1, pen2 As Pen
Dim brush1, brush2 As Brush
'g = Button1.CreateGraphics 'buttom1上に描画する時
g = Me.CreateGraphics 'form上に描画する時
pen1 = New Pen(Color.Red)
pen2 = New Pen(Color.Blue, 3)
pen2.DashStyle = Drawing2D.DashStyle.Dash
brush1 = New SolidBrush(Color.Purple)
brush2 = New Drawing2D.HatchBrush(Drawing2D.HatchStyle.Cross, Color.Red, Color.White)
If i = 0 Then
brush1 = New SolidBrush(Color.Red)
g.FillRectangle(brush1, 10, 120, 100, 50)
i = 1
ElseIf i = 1 Then
brush1 = New SolidBrush(Color.SeaGreen)
g.FillRectangle(brush1, 10, 120, 100, 50)
i = 2
ElseIf i = 2 Then
brush1 = New SolidBrush(Color.Purple)
g.FillRectangle(brush1, 10, 120, 100, 50)
i = 0
End If
'g.DrawLine(pen1, 10, 10, 250, 40)
'g.DrawRectangle(pen1, 10, 50, 100, 50)
'g.FillRectangle(brush1, 10, 120, 100, 50)
'g.DrawEllipse(pen2, 150, 50, 100, 50)
End Sub
End Class
| トピック検索 |