VB2008 使用物件陣列範例

Public Class Form1
　　Dim myButton() As Button

　　Private Sub myButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) '這邊的部份使用其他物件的click事件，並把後面Handle...給刪除
　　　　Dim thisButton As Button = sender
　　　　MsgBox("你按了第" & Val(Strings.Right(thisButton.Name, 2)) & "個按鈕!") '右邊兩個字即為按鈕的編號
　　End Sub

　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　　　For i = 0 To 14
　　　　　　ReDim Preserve myButton(i) '新增陣列長度
　　　　　　myButton(i) = New Button '產生按鈕類別
　　　　　　myButton(i).Name = "myButton" & Format(i, "00") '
　　　　　　myButton(i).Size = New Size(30, 30) '設定大小
　　　　　　myButton(i).Left = (i Mod 5) * 35 + 10 '按鈕由左到右排列，五個則換一行
　　　　　　myButton(i).Top = (i \ 5) * 35 + 10
　　　　　　myButton(i).Text = Format(i, "00")
　　　　　　Me.Controls.Add(myButton(i)) '將新增的按鈕放到表單上
　　　　　　AddHandler myButton(i).Click, AddressOf myButton_Click '指派事件到這個按鈕
　　　　Next
　　End Sub
End Class

嗑麻辣鍋 女尿了一馬桶血

急性膀胱炎 如廁似刀割 應多喝水

^{【沈能元╱台北報導】}

一名二十多歲女子，日前晚餐吃麻辣鍋，隔日醒來，上廁所突感到如刀在割、火在燒的灼熱感，且尿液還呈鮮紅色，染紅馬桶，經就醫發現，女子是因吃麻辣鍋時喝水不足、引發急性膀胱炎。醫師表示，麻辣鍋口味重辣、偏鹹，食用者易流汗，此時應多喝水、勿憋尿，以免誘發急性膀胱炎。

收治病例的書田診所泌尿科主任吳季如昨說，女子就醫時指排尿時尿液呈深紅色，且每五至十分鐘就想尿尿，經投藥治療後，女子血尿症狀已緩解。吳指近期因天冷，民眾愛吃麻辣鍋祛寒，導致泌尿科門診中，罹患急性膀胱炎患者約增加二成。

OVA「A Channel+smile」明年3月發售

今年的4月新番「A Channel」，早在4個月前就敲定了OVA企劃，在粉絲的日盼夜盼之下，近日終於有後續消息放出啦。收錄這部OVA的Blu-ray&DVD預定於2012年3月21日發售，作品標題定為「A Channel+smile」，內容方面將會收錄「盛得滿滿的煎薄餅」和「繪馬的祈願」兩個章節。「A Channel」在TV版中，每集一首插曲的做法可謂給力，當然這次的OVA也將秉承這個優良傳統，不僅有兩首插曲，而且還會繼續由TV版的演唱陣容獻唱新的片頭曲和片尾曲。跟以往的插曲一樣，這幾首歌曲也是將會以Blu-ray&DVD完全生產限定版的特典CD推出。

「輕鬆百合」動畫第二期製作決定！！

由 なもり所創作的可愛搞笑漫畫作品《輕鬆百合》，於 17 日在《輕鬆百合》官方首頁上公開了本作品第二期製作決定的消息。

故事講述在七森中學的校園裡，無所事事四人幫——女主角赤座燈裡、暴走的歲納京子、吐糟役的船見結衣，以及在人前會偽裝成可愛女孩的吉川千夏，擅自把廢了部的茶道社部室據為己用，並且自稱地建立了娛樂部。擅自使用課室又引來了學生會的介入，於是各種百合妄想也在作品中飛舞著。

音樂分享 - I'll believe

I'll believe

作詞:黒崎真音 ／ Rap詞:motsu ／ 作曲・編曲:八木沼悟史
歌:ALTIMA

---

I must be dreaming tonight.〖我今晚肯定是在做夢〗
We erase it from our memories〖我們從記憶里抹除了它〗
You can't escape〖你無法逃避〗
I only know this secret with you〖我唯獨知道你這個秘密〗

How can I protect you forever?〖我如何才能永遠保護你?〗
Close your eyes〖請合上你雙眼〗
I'll be anything for you〖我愿意為你付出所有〗
I can't live this life〖我無法活在〗
Without you by my side..〖這個沒有你在身邊的世界..〗
「I'll believe..」〖「我相信..」〗

父母給手機 6成學童當娛樂工具

現在智慧型手機當道，影音和娛樂功能越來越強，根據兒福聯盟今年5月對全國四千多位國中小學生的調查發現，學童使用智慧型手機的比例越來越高，而且大部分使用的時間都花在聽音樂、拍照、攝影、玩遊戲和上網，有四成學童甚至出現手機成癮症狀。

兒福聯盟調查發現，超過半數的國小五六年級學童擁有手機，國中生更超過七成，而且百分之七十六點六都是家長提供。兒福聯盟執行長王育敏分析，多數家長給小孩手機都是為了接送聯絡方便，造成本末倒置，超過六成的學童使用手機的時間都花在發簡訊、聽音樂、拍照或錄影、玩遊戲，即便學校有管制，仍然有一成的小孩在上課時間玩手機，還有的晚上睡覺躲在被窩裡發簡訊。

VB2008 猜數字 [1A 1B]

剛剛好最近有在研究VB
就想說來做看看猜數字
不知道有沒有人會試試看10位數的猜數字XDD

遊戲說明：
程式在開始時會產生一個4位數的數字(不重複)，
您也可在右方選擇您要的位數，
不過要在4～10之間！