原碼分享-HOT SCRIPTS

 相信各位在寫程式時都常需要去找尋原始碼來參考吧
這裡介紹一個網站,據聞是全世界最大的原始碼分享網站
我想應該沒有最大啦,不過數一數二倒是真的:)
網址http://www.hotscripts.com/

這個網站一進去你就會看到他的分類頁面
是依程式語言做分類
主要有PHP, CGI, ASP, Perl, Java Scripts
.AJAX, C & C++, Ruby On Rails(RoR), Python 等等的程式原碼
你可以選一個擬再用的語言然後再進去慢慢找
或是利用右上角的搜尋功能找
不過可別打中文阿
因為這是外國的網站,所以中文的程式也很少
還有它可以針對某些分類做搜尋
或全部搜尋(All………..的那個)
在搜尋器的下拉式選單選擇即可

找到你要的程式以後你可以稍微看一下他的簡介

如果想要下載的話按一下視窗上的Download按鈕即可

還有一點需要注意的是:有些程式是需要付費的
通常標有 (贊助商) 圖樣的是需要付費的
還有這個網站有提供註冊帳號的功能
實際上我使用時並沒有需要註冊帳號


如果你不喜歡外國網站的話
或是看不懂英文的人
你也可以到藍色小舖這個中文的網站找原始檔
http://www.blueshop.com.tw/download/default.asp

【VB.Net】使用rename修改檔名

今天要教各位的是使用VB本身提供的一個方法來修改檔名

他的語法格式是:

Filesystem.rename(a,b)

a代表輸入的檔案,也就是要被改名的檔案

b代表的則是輸出的檔名

請注意,a與b兩項參數都必須要以完整形式出現

假設現在要修改c:123.txt這個檔案改名成456.txt的話則輸入

Filesystem.rename("c:123"."c:456.txt")

注意喔!我的兩個參數都是有副檔名的,而且都有磁碟號跟資料夾名稱

如果b參數沒有填上完整名稱則修改好的檔案會被移動到程式的根目錄

大家都有看懂吧

這個語法2008跟2005都可以用,不過VB6我就沒試過了

VB如何寫函式(重大錯誤修正)

今天要敎大家的是如何自己寫函式

首先大家必須要先知道函式的語法規格,另外你必須把自製函式放在程式最下方

語法格式:

Function 函式名稱(Byval 參數 As 參數型別,Byval 參數 As 參數型別)

函式名稱=執行的內容

End Function

簡單的講解一下吧,函式名稱那裡隨便你定,不需要用雙引號框住

而參數那裡可以有也可以沒有,看你的函式性質,如果是需要傳入值的就要設定

閱讀全文 VB如何寫函式(重大錯誤修正)

VB呼叫表單&關閉表單語法

 在VB裡面如果你要切換表單的話可以使用show()語法
語法格式如下:
表單名.show()
表單名的那裡就是你要切換的表單名稱
例如:你要切換到form2這個表單
則輸入form2.show()即可

另外如果你要再開啟新表單以後就關掉舊的表單則語法為:
表單名.close()
如果是關掉自己的話就輸入me.close()     ' 關閉自己的意思
這個語法也可以用來關閉其他表單
前提是要關閉的表單是屬於自己程式的(廢話~~)

利用SetWindowPos讓視窗永遠置於最上方

首先請在程式裡加入timer元件

並啟用timer(名稱timer1)

秒數部分設100

然後輸入以下代碼(直接貼上並蓋掉原本的程式碼)

Option Strict Off

Option Explicit On

Public Class Form1

Inherits System.Windows.Forms.Form

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

Dim IntR As Object

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Top = 0

Me.Left = 0

Me.Width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width

Me.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

IntR = SetWindowPos(Me.Handle.ToInt32, -1, 0, 0, 0, 0, 3)

End Sub

End Class

VB 鍵盤模擬

鍵盤是我們使用電腦的一個很重要的輸入設備了,即使在滑鼠大行其道的 今天,很多程式依然離不開鍵盤來操作。但是有時候,一些重複性的,很繁瑣的鍵盤操作總會讓人疲憊,於是就有了用程式來代替人們按鍵的方法,這樣可以把很多 重複性的鍵盤操作交給程式來類比,省了很多精力,按鍵精靈就是這樣的一個軟體。那麼我們怎樣才能用VB來寫一個程式,達到與按鍵精靈類似的功能呢?那就讓 我們來先瞭解一下windows中回應鍵盤事件的機制。

閱讀全文 VB 鍵盤模擬