月份: 2008 年 7 月

戰敗

原來此風 如同我心情一般

我好像 戰敗了耶…

我該反攻?

還是只是據續打緩兵計?

暴風雨前的寧靜?

黎明前的夜晚最黑暗?

心情的未來路在Up與Down之間來回穿梭

此路瀰漫著濃霧

如此路經山 當心眼前懸崖

如此路經海 當心長浪龍捲

一條微乎極為的天堂路等我來走過

一條沒有地圖的路 等著去冒險

一路順風 半路失蹤 . . .

不能逗留 因為此路正在崩塌

能思考 但是不能不走

為什麼一切都這麼樣的迷?

因為只是一場伸手不見五指的大霧嘛?

悠閒與忙碌or喜歡與愛

美麗的晚霞 日幕的漁人碼頭

一個休閒好去處

散心好地方

不過

也是我忙碌的開始

但是

靜靜的看著

大海

日募

海天一線

真是美麗無比的風景

可惜

只欠佳人在旁一同欣賞

也許

暗戀是懦弱

告白是勇敢

我還是找個她有閒的時間 來跟她告白吧

雖然一個失敗的可能很高

但是喜歡人家 要跟她說啊..

愛情果然是莫大的勇氣

心~好累喔

我的心…

好累…

真的好累…

話說 浪漫可以當飯吃 ?

話說 因為去愛一個人 改變自己 那就不好了 ?

怎麼戀愛的滋味訥麼複雜 酸甜苦澀

我實在真的會好想念妳…#sky3789#

哈哈… 說了訥麼多

應該 她也不會看到吧 呵呵…#其實我好希望你能看到#

[VB]立體概念

產品包裝-立體邏輯概念

http://tw.knowledge.yahoo.com/question/question?qid=1405110212429

產品包裝

說明：某工廠生產4種正立方體產品，邊長分別為1, 2, 3,4公分，該工廠的包裝箱為4*4*4公分 (不計算包裝箱厚度)，現在有若干筆訂單，每一筆訂單可能包括各種產品不同數量，請計算每一筆訂購最少各需要多少個包裝箱。

輸入格式：每行是一筆訂購單，由四個整數組成，每個整數以一個空白間格，依序分別代表邊長1, 2, 3,4公分的產品數量，每一個數量均為不大於20000的非負整數，以一個空白隔開。

輸出格式：輸出各筆訂購的最少包裝箱數目，每一筆一行。

輸入範例1：

5 4 8 2

12 14 32 7

輸出範例1：

11 (正確)

41 (怪怪的應該是43吧…?)

輸入範例2：

2250 50 60 2

8 7 15 12

10 300 23 5

輸出範例2：

69 (隨便算都超過了…?)

28 (也怪怪的..最少要29吧?)

66 (隨便算都超過了…?)

引用

回答者： 花枝丸 ( 初學者 4 級 )

回答時間： 2005-11-02 23:32:01

因為2立方公分..是8個裝一箱

我看你的邏輯..你把他當成4個裝一箱了吧！

'================================

問題結論

我真的把2立方的當作4個1箱惹…XD

不知道看官你的邏輯是不是也被騙了?

[VB]檔中有檔~檔包檔

VB6-檔中有檔~檔包檔

http://tw.knowledge.yahoo.com/question/question?qid=1405112606998

如何在檔案中增加別的檔案進去

舉例:

我有個A.exe 執行後 可在 A.exe 旁 產生 B.exe …(更多累加)

引用

回答者： W.J.S. ( 初學者 5 級 )

回答時間： 2005-11-26 23:36:42

(1) 把 B.exe 加入資源檔

製作方法:

A:開啟資源檔編輯器(如果找不到資源檔編輯器,打開增益集→增益功能管理員→載入Visual Basic 6.0 資源檔編輯器)

B:在編輯器的功能表上有一個四方形(裡面有4個小格)的圖示,滑鼠移到此會顯示"加入自訂資源",給它按下去,然後選擇你的B.EXE

C:然後你會看到新增一個"CUSTOM"的資料夾及一個"101"的資源檔

D:雙擊"101"資源檔,將型態 "CUSTOM" 改成 "B",按確定

F:選擇儲存的圖示儲存到你的專案路徑,此時你就會在你的專案視窗多了一個相關文件→Project1.RES,OK了!!

如果不行的話在提出來吧!!

(2) 把資源檔讀到陣列

(3) 用Open陳述式將陣列存到你要的地方

Dim ExE() As Byte

ExE = LoadResData(101, "B")

Open App.Path & "\B.exe" For Binary As #1

Put #1, , ExE

Close #1

[VB]超連結 – API

VB6如何做類似超連結的方法

方法有2種

其中Shell因為 遇到空白就會發生問題

所以改用API較為正確

我的發問:

VB怎樣做出來連結的功能(類似連結,超連結)

http://tw.knowledge.yahoo.com/question/question?qid=1305082512595

'=====================連結=============================

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'使用的方法

ShellExecute 0, "", "mailto:[email protected]", "", "", 5

詳細 請上 VB研究小站的 WinAPI簡述

網址 http://vb.ncis.com.tw/

mailto 是以 e-mail做連結 不過要有 Outlook

直接連到網頁 把 "mailto:[email protected]" 改 "http://tw.yahoo.com"

還可連結C:/

宣告方法

開始>程式集>Microsoft Visual Basic 6.0>Microsoft Visual Basic 6.0 工具>API 檢視員

檔案>插入文字檔>WIN32API.TXT

PS. C:\Program Files\Microsoft Visual Studio\Common\Tools\Winapi\WIN32API.TXT

Public 全域 宣告在 模組

Private 區域 宣告在 宣告區

API 就是 Windows 的所有功能

'===============資料參考=================

VB研究小站 http://vb.ncis.com.tw/

我的超完美情人

愛情 簡簡單單 就好

不時的驚喜 相信妳我的愛

妳話不用多 可以讓妳囉說 只要我愛著妳就好

妳可以追求美好 只要妳我相信對方的心

喜歡 和 愛 真的很不同

愛妳的人 能容忍一切

不過 容忍 有個極限

不要讓我感覺 愛妳好累

來自一個 小小宅男 的心聲

小談笑

一個可以帶給你安定感的宅男 不是也不錯嗎?

至少確定他不會啪啪走 XD

既然不會啪啪走 也就沒辦法亂花錢啦~