用vb.net 開發 XNA 遊戲

一般常見的 C# + XNA ，現在介紹一下不同口味的東西，讓熟悉VB世界的人，也能盡情奔馳在XNA的世界裡

首先開一個很普通的VB.net windows From 的專案

 

接下來設定屬性，把『啟用應用程式架構』取消掉

移除掉不必要的參考『System.Drawing』

 

加入參考『Microsorft.XNA.Framework』、『Microsorft.XNA.Framework.Pipeline』、『Microsorft.XNA.Framework.Game』

接下來專案裡應該有這三樣參考

把以下這5樣東西匯入命名空間裡『Microsorft.XNA.Framework』、『Microsorft.XNA.Framework.Aduio』、『Microsorft.XNA.Framework.Content』、『Microsorft.XNA.Framework.Graphic』、『Microsorft.XNA.Framework.Input』

 

接下來加入一個模組，名字自取，這裡取名用預設值『Module1』

接下來加入一個類別，這裡取名為『MyGame』

 

在MyGame.vb裡，放入以下程式碼

Public Class MyGame
    Inherits Microsoft.Xna.Framework.Game

    Dim Graphics As GraphicsDeviceManager
    Protected sprite As SpriteBatch

    Sub New()
        Graphics = New GraphicsDeviceManager(Me)
        Content.RootDirectory = "Content"
    End Sub

    Protected Overrides Sub Initialize()
        MyBase.Initialize()
    End Sub

    Protected Overrides Sub LoadContent()
        sprite = New SpriteBatch(GraphicsDevice)
        'MyBase.LoadContent()
    End Sub
    Protected Overrides Sub UnloadContent()
        'MyBase.UnloadContent()
    End Sub

    Protected Overrides Sub Update(ByVal gameTime As Microsoft.Xna.Framework.GameTime)
        If GamePad.GetState(PlayerIndex.One).Buttons.Back = Input.ButtonState.Pressed Then
            End
        End If
        MyBase.Update(gameTime)
    End Sub

    Protected Overrides Sub Draw(ByVal gameTime As Microsoft.Xna.Framework.GameTime)
        MyBase.Draw(gameTime)
        Graphics.GraphicsDevice.Clear(Color.Green)
    End Sub
End Class

接下來回到Module1，放入以下程式碼

Module Module1
    Public Game1 As MyGame

    Public Sub Main()

        Game1 = New MyGame
        Game1.Run()
    End Sub
End Module

回到應用程式屬性頁面，把起始物件改成『Sub Main』

按下『F5』，執行看看

大功告成，讓遊戲真的能玩，你需要多下些工夫

JavaScript 執行一般的執行檔

"<" script language="JavaScript" type="text/javascript" ">"
"<" /P" >""<" p">"

 MyObject = new ActiveXObject( "WScript.Shell" ) "<" /P ">""<" p">"

function RunExe() { MyObject.Run("file:///C:/Program Files/EditPlus%203/editplus.exe") ; } "<" /P ">""<" p ">"


"<" /script ">"

Run a Program

This script launch the file any Exe File

算出一共要幾頁

'一共幾頁


一共幾頁 = -1 * Int((-1) * (資料比數 / 一頁幾筆))

個人搬家

轉載

因為一些因素，最近有搬運幾箱書與雜物的需求。在PTT MoveHouse 板上爬了文，鎖定了幾位搬家先生寫信詢了價。

由於我東西不多，郵局大型紙箱十來個，裝了書較重的也不過五、六箱，其他就是塑膠抽屜（裝衣服）大小約七、八個，行李箱一枚、其他的就是兩、三竹籃雜物、一把折疊椅、兩手提袋的書。從一邊是電梯大樓，搬到另一邊是一樓平地，兩地距離約市區行車15分鐘左右，不算太遠。


詢問搬家板上也不少好評的「小G搬家」，報了價說要2000多塊錢（光交通油費就報380元～）。我個人覺得東西不多、距離也不太遠，更不用爬樓梯，理應不至於那麼貴。問了「阿寺搬家」，回信要我拍照給他看，還問我是不是就那些東西（我覺得我已經寫得很清楚了啊），時間上也不是很能配合。最後又爬文爬到「張先生搬家」，乾脆直接打電話去問。這是昨天晚上九點多的事。

張先生很阿殺力，聽了我的描述之後，直接報價900塊錢。而且我抱著問看看的心理，問說今天有沒有可能搬。沒想到張先生竟然說可以。很快地我們就約好今天傍晚。

張先生人很精瘦，是一個人搬。他在約定時間前來。他跟很多搬家服務不同的地方在於他「好像」沒有用大籃子裝客戶的雜物。一般搬家公司都有大籃子，把客人比較不方正的雜物全都丟到大籃子，一次搬運。儘管節省時間，但有時籃子也會把東西擠壓的變形。張先生用的是輕便的折疊推車，分幾趟把我裝好的紙箱一次一次地
搬走。輕一點的塑膠抽屜與雜物，則是用手直接抱。

另外，張先生也很細心，進到家裡來也會脫鞋，也會注意到搬的時候不要刮到家裡的木頭地板。開車很穩，不飆快也不急煞車。車裡也很整齊，沒有聞到煙味。

最讓我覺得很感謝的是，張先生很有耐心。因為我到目的地才發現帶錯鑰匙。張先生還又開車回去載我回去我住處拿（不過是在附近而已^^）。

對了！讓我再次跟張先生抱歉一下。他離開原本的電梯大樓時，沒料到地下室停車場的高度竟然沒做好，比進來時的高度還要矮，結果要出車庫時撞倒了停車場出口的頂部，他下車先察看的是停車場有沒有被他撞壞，然後才來察看自己的車。我是沒有看他的車究竟有多少損壞，不過他一直說沒關係。人很客氣。

最後我因為覺得很抱歉，想說貼補他一點，給他1500。沒想到他把500硬退給我說錢不好賺，要我自己收著。說完就離開，因為還有下一攤要搬呢！

我覺得張先生真的是服務周到又細心的搬家先生，推薦給大家喔！:)

張先生的電話 0922-485-060 （PTT ID: nkpl）


[張先生在PTT MoveHouse板上的介紹]

【張先生自助搬家簡介】

同學們你好:本人原為貨運業者,了解同學們搬家的辛勞和收費昂貴
現為全職搬家,永續經營,於PTT服務已4年多了,廣受好評,服務人數超過3000多人
(這當然也感謝同學的肯定,感恩,感恩)

我們是[張先生自助搬家]
營業時間為 星期一~星期日
歡迎您的來電: 0922485060 張先生—>家庭搬家,謝絕來電
另外也歡迎同學於網路OR大賣場(IKEA),購買家具,家電載運

【使用車輛】全新中華小發財1.9噸"專業貨運車"

備有手推車;本車為密閉式的車廂，所以不用擔心物品掉落或淋濕，
縱使下雨搬家也不受影響
車艙體積: 長:226CM 寬:145CM 高:147CM
http://www.flickr.com/photos/27536886@N06/
(搬家車的照片)

【服務範圍與費用】

主要為大台北地區
收費方式:
搬家一趟 700元"起"(含700元),幫你搬上下車(住處有電梯者,也幫你搬至電梯),
需協助搬運上下樓者,麻煩來電洽詢,我們會酌量收費,也歡迎比價,保證便宜,
如果人手不足, 我們一定拔刀相助,幫你搬最"重"的,夠意思吧

PS:只要是距離不會太遠,原則上皆按照上面的收費方式!!
還有–>家庭搬家謝絕來電
(要省錢應該找3.5噸的車,因為大型之家俱,冰箱,冷氣,床架,我們的車載不下)

重點1:我們沒有"漏漏長"的計費方式,一個價錢到底,保證便宜
(例:搬家超過1HR加多少,超過幾公里加多少..bla.bla..YOU KNOW)

重點2:用力的幫你塞"滿"整車廂(超正點改良式密敝車廂,寬敞又堅固)
貴重物品可幫你放前座(小型寵物 ,螢幕)

重點3:免費機車託運(只要還塞的下的話);還有免費幫你拆冷氣

vb.net 完全關閉程式(執行緒強制關閉)

'離開並關閉執行緒
Environment.Exit(Environment.ExitCode)
Application.Exit()

vb.net動態設定活頁(TagPage)

'裝載活頁Tag
Private SavePages As New ArrayList

Dim Ii As Integer
'權限設定
For i As Integer = 0 To TabControl1.TabPages.Count - 1
SavePages.Add(TabControl1.TabPages(i))
Next

'全關
For ii = TabControl1.TabPages.Count - 1 To 0 Step -1
TabControl1.TabPages.RemoveAt(ii)
Next
'只顯示第一個跟最後一個
TabControl1.TabPages.Add(DirectCast(SavePages(0), TabPage))
TabControl1.TabPages.Add(DirectCast(SavePages(4), TabPage))

PDA 取得程式位置

Dim strAppDir As String = Path.GetDirectoryName( _
Assembly.GetExecutingAssembly().GetName().CodeBase)