- Dec 23 Fri 2011 16:05
-
免費線上遊戲介紹 Online Game WebGame
- Dec 23 Fri 2011 15:26
-
雲端超商-7Net-博客來Books-Shopping99
- Dec 30 Fri 2011 10:34
-
BCB-取得檔名並不包含副檔名的方法
BCB-取得檔名並不包含副檔名的方法
在 BCB 裡頭可以很輕易的取得某個檔案的名稱，可是它會包含其副檔名，
有很多時候我們並不需要副檔名
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
AnsiString Name;
Name = "1234.bmp";
Name = Name.Delete(Name.Pos(ExtractFileExt(Name) ),ExtractFileExt(Name).Length() ) ;
}
在 BCB 裡頭可以很輕易的取得某個檔案的名稱，可是它會包含其副檔名，
有很多時候我們並不需要副檔名
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
AnsiString Name;
Name = "1234.bmp";
Name = Name.Delete(Name.Pos(ExtractFileExt(Name) ),ExtractFileExt(Name).Length() ) ;
}
- Dec 30 Fri 2011 10:31
-
BCB-修改ListBox 的字體顏色
BCB-修改ListBox 的字體顏色
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,TRect &Rect, TOwnerDrawState State)
{
if(State.Contains(odSelected)){
ListBox1->Canvas->Brush->Color = clBlue;
ListBox1->Canvas->Font->Color = clYellow;
}else{
ListBox1->Canvas->Brush->Color = clWhite;
ListBox1->Canvas->Font->Color = clBlack;
}
ListBox1->Canvas->FillRect(Rect);
ListBox1->Canvas->TextOut(Rect.Left, Rect.Top, ListBox1->Items->Strings[Index]);
}
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,TRect &Rect, TOwnerDrawState State)
{
if(State.Contains(odSelected)){
ListBox1->Canvas->Brush->Color = clBlue;
ListBox1->Canvas->Font->Color = clYellow;
}else{
ListBox1->Canvas->Brush->Color = clWhite;
ListBox1->Canvas->Font->Color = clBlack;
}
ListBox1->Canvas->FillRect(Rect);
ListBox1->Canvas->TextOut(Rect.Left, Rect.Top, ListBox1->Items->Strings[Index]);
}
- Dec 30 Fri 2011 10:22
-
BCB-MessageBox 的使用方法
BCB-MessageBox 的使用方法
int MessageBox(const char* Text, const char* Caption, int Flags);
Text : 您要顯示的訊息
Caption : MessageBox 的標題
Flags : 設定要顯示按鈕格式
以下是 Flags 的設定值
0 (MB_OK) : OK按鈕
1 (MB_OKCANCEL) : OK, Cancel按鈕
2 (MB_ABORTRETRYIGNORE) : Abort, Retry, Ignore按鈕
3 (MB_YESNOCANCEL) : Yes, No, Cancel按鈕
4 (MB_YESNO) : Yes, No按鈕
5 (MB_RETRYCANCEL) : Retry, Cancel按鈕
int MessageBox(const char* Text, const char* Caption, int Flags);
Text : 您要顯示的訊息
Caption : MessageBox 的標題
Flags : 設定要顯示按鈕格式
以下是 Flags 的設定值
0 (MB_OK) : OK按鈕
1 (MB_OKCANCEL) : OK, Cancel按鈕
2 (MB_ABORTRETRYIGNORE) : Abort, Retry, Ignore按鈕
3 (MB_YESNOCANCEL) : Yes, No, Cancel按鈕
4 (MB_YESNO) : Yes, No按鈕
5 (MB_RETRYCANCEL) : Retry, Cancel按鈕
- Dec 30 Fri 2011 10:14
-
BCB-Memo貼上之後自動換行-WM_PASTE
BCB-Memo貼上之後自動換行-WM_PASTE
有時候你可能會需要讓使用者在 Memo 貼上文字之後自動換行。要達到這樣的效果有幾種方法辦得到。第一種是在OnMouseUp event 裡頭偵測使用者是否按下了 Ctrl+V。
不過這方法並不是很好，所以在這裡我要介紹第二種方法。第二種方法是直接偵測送到 Memo 的 WM_PASTE 訊息。
有時候你可能會需要讓使用者在 Memo 貼上文字之後自動換行。要達到這樣的效果有幾種方法辦得到。第一種是在OnMouseUp event 裡頭偵測使用者是否按下了 Ctrl+V。
不過這方法並不是很好，所以在這裡我要介紹第二種方法。第二種方法是直接偵測送到 Memo 的 WM_PASTE 訊息。
- Dec 30 Fri 2011 10:03
-
BCB-控制多個元件的方法-FindComponent()
BCB-控制多個元件的方法-FindComponent()
我們可以透過 ComponentCount 來掃瞄 Form 底下的所有元件，進而控制這些元件，例如底下這個 sample code 可以把 Form
我們可以透過 ComponentCount 來掃瞄 Form 底下的所有元件，進而控制這些元件，例如底下這個 sample code 可以把 Form
- Dec 30 Fri 2011 09:53
-
BCB-取得指定目錄下特定副檔名的所有檔案-WinAPI應用
BCB-取得指定目錄下特定副檔名的所有檔案到特定資料夾-WinAPI應用
這一段程式碼是可以取得指定目錄及其子目錄下，所有副檔名為 .url 的檔案 (沒錯，這就是拿來掃瞄 IE 我的最愛)，取得的所有檔名會存放在一個名叫 sList 的 StringList 裡頭。
這一段程式碼是可以取得指定目錄及其子目錄下，所有副檔名為 .url 的檔案 (沒錯，這就是拿來掃瞄 IE 我的最愛)，取得的所有檔名會存放在一個名叫 sList 的 StringList 裡頭。
void __fastcall TForm1::LoadFavorite(AnsiString Dir, TStringList *sList) // Dir 就是你要掃瞄的目錄, sList 拿來存放檔名
{
WIN32_FIND_DATA filedata; // Structure for file data
HANDLE filehandle; // Handle for searching
AnsiString szFileName, szDir;- Dec 30 Fri 2011 09:49
-
BCB-用右鍵選擇 TreeNode 並顯示右鍵選單
BCB-用右鍵選擇 TreeNode 並顯示右鍵選單
假設你有一個 TreeView 叫做 tvArticle，有個 PopupMenu 叫做 PopupMenu1，你希望用右鍵可以點選 tvArticle 的節點，然後再顯示右鍵選單。
首先你要把 PopupMenu1 的 AutoPupop 屬性設為 false，然後在 tvArticle 的 OnMouseDown 事件加入以下程式碼。
假設你有一個 TreeView 叫做 tvArticle，有個 PopupMenu 叫做 PopupMenu1，你希望用右鍵可以點選 tvArticle 的節點，然後再顯示右鍵選單。
首先你要把 PopupMenu1 的 AutoPupop 屬性設為 false，然後在 tvArticle 的 OnMouseDown 事件加入以下程式碼。
- Dec 30 Fri 2011 09:37
-
【痞子英雄首部曲：全面開戰】趙又廷 黃渤 全新動作喜劇搭檔效果十足！<支持國片>
- Dec 29 Thu 2011 15:01
-
BCB-用右鍵讓 ListBox 的 Item 取得焦點
BCB-用右鍵讓 ListBox 的 Item 取得焦點
void __fastcall TForm1::ListBox1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y){
if (Button == mbRight){
ListBox1->ItemIndex = ListBox1->ItemAtPos(Point(X,Y), true); }
}- Dec 26 Mon 2011 16:15
-
網路賺錢-MyBrowserCash 瀏覽網頁就可以賺美金-兼職-自動賺錢
無感網路賺錢方法推薦 MyBrowserCash 瀏覽網頁就可以賺美金 免費加入
<------點擊此圖免費加入會員
向來我們到他人網站瀏覽觀看廣告是不是都只利於他人賺取廣告費呢！？
而現在要跟大家介紹的
Mybrowsercash 是一個不需要改變自己的使用環境，同樣地只要瀏覽網頁，就可以逐漸幫自己賺點小錢喔！
隨著利潤共享模式的理念趨勢與網路世界中打廣告賺錢的不可或缺性，我認 MyBrowserCash具有很大的發展潛力！
基本上Mybrowsercash分成免費會員,銀卡會員與金卡會員。當然不需付費升級，免費加入就可以賺取瀏覽廣告的獎金囉，但是想當然爾，是以付費會員慧賺取比較多且比較快喔。
Mybrowsercash是如何工作的？
很簡單，所安裝的小軟件會把廣告顯示在您所訪問網站的頁面上。不要擔心它會不會妨礙您的網站瀏覽或安裝程式的資源問題！廣告的顯示可以說是當你在瀏覽網站時無感地融入瀏覽頁面中，就像是觀看原本網站上的廣告一樣自然。
如果你不希望看到Mybrowsercash 的任何廣告，你只需右鍵點擊“disable ＆ exit”，將設置的廣告關閉即可。
我可以賺取到多少錢呢？
讓我們說實話，你不會一夜之間或任何其他方式的廣告賺錢致富。但是當我們使用Mybrowsercash 時，無需任何額外的工作，不過我們卻可以賺取額外的小收入！
另一方面，當你轉介紹他人來使用Mybrowsercash （或因付費獲得下線），你會賺取更多的錢，因為每次他們賺取到廣告獎金，有一部分將會支付給您（ 45％）！
它可以是免費的，簡單易做，且你越早開始，你就會越早開始賺錢。註冊您的Mybrowsercash免費帳戶，並安裝好小程式，即能開始賺錢喔，現在就開始吧！
第一步-
第二步-
第三步-
第四步-
另外在左方的Members Area除了download software來幫助瀏覽廣告賺錢之外，還有
complete offers for cash：可以購買產品，就可以賺取部分的傭金，也就是會員購買會有折扣優惠囉。
complete offers for referrals：完成它所給予的任務就能得到回饋給予下線，不過很多都是要花錢。
direct Referral tool：利用推廣連結與廣告banner來幫助自己找下線,讓自己能夠賺取更大的廣告費用！
,以上有興趣的可以再自行多多觀看並了解囉！！！
圖中右上角就是瀏覽網頁時會出現的廣告喔,記得點取連結才賺得到喔!
當瀏覽廣告有獎金的時候,滿二十元即可做申請提領的動作囉~~大約三~四的工作天,PAYPAL即可領到獎金囉!
<------點擊此圖免費加入會員向來我們到他人網站瀏覽觀看廣告是不是都只利於他人賺取廣告費呢！？
而現在要跟大家介紹的
Mybrowsercash 是一個不需要改變自己的使用環境，同樣地只要瀏覽網頁，就可以逐漸幫自己賺點小錢喔！
隨著利潤共享模式的理念趨勢與網路世界中打廣告賺錢的不可或缺性，我認 MyBrowserCash具有很大的發展潛力！
基本上Mybrowsercash分成免費會員,銀卡會員與金卡會員。當然不需付費升級，免費加入就可以賺取瀏覽廣告的獎金囉，但是想當然爾，是以付費會員慧賺取比較多且比較快喔。
Mybrowsercash是如何工作的？
很簡單，所安裝的小軟件會把廣告顯示在您所訪問網站的頁面上。不要擔心它會不會妨礙您的網站瀏覽或安裝程式的資源問題！廣告的顯示可以說是當你在瀏覽網站時無感地融入瀏覽頁面中，就像是觀看原本網站上的廣告一樣自然。
如果你不希望看到Mybrowsercash 的任何廣告，你只需右鍵點擊“disable ＆ exit”，將設置的廣告關閉即可。
我可以賺取到多少錢呢？
讓我們說實話，你不會一夜之間或任何其他方式的廣告賺錢致富。但是當我們使用Mybrowsercash 時，無需任何額外的工作，不過我們卻可以賺取額外的小收入！
另一方面，當你轉介紹他人來使用Mybrowsercash （或因付費獲得下線），你會賺取更多的錢，因為每次他們賺取到廣告獎金，有一部分將會支付給您（ 45％）！
它可以是免費的，簡單易做，且你越早開始，你就會越早開始賺錢。註冊您的Mybrowsercash免費帳戶，並安裝好小程式，即能開始賺錢喔，現在就開始吧！
第一步-
第二步-
第三步-
第四步-
另外在左方的Members Area除了download software來幫助瀏覽廣告賺錢之外，還有
complete offers for cash：可以購買產品，就可以賺取部分的傭金，也就是會員購買會有折扣優惠囉。
complete offers for referrals：完成它所給予的任務就能得到回饋給予下線，不過很多都是要花錢。
direct Referral tool：利用推廣連結與廣告banner來幫助自己找下線,讓自己能夠賺取更大的廣告費用！
,以上有興趣的可以再自行多多觀看並了解囉！！！
圖中右上角就是瀏覽網頁時會出現的廣告喔,記得點取連結才賺得到喔!
當瀏覽廣告有獎金的時候,滿二十元即可做申請提領的動作囉~~大約三~四的工作天,PAYPAL即可領到獎金囉!
