算法注冊機編寫掃盲---第五課

算法注冊機編寫掃盲---第五課

原創作者：我要[DFCG]

=================================================================================

注：接第四課，我又來了，這次想多餘話都沒有了。來！接着來吧。 ^_^

    這個課程一共寫 了五課，總算可以做一個總結或叫完結了！怎麼， 意尤未盡？沒法，我要[DFCG]菜的不行的，隻是将一些個人的所謂經驗或心得拿來獻醜而已， 裝酷了啊！磚頭，爛柿子，臭雞蛋一起擲過來了吧！先别啊，我還得說完再走的，你别趕我行不行了，我暈~~~~~~~~~

=================================================================================

一、到這裡，應該說些什麼内容呢？真的有點暈，以中級的來看，該說的都 好象說了吧！還有什麼好說的，想想~~~

二、給些學習的方法吧！多試多練 不就是了？還有說頭的嗎？有，還是坐下來看完這第五課吧！

三、學着 自已編寫一個屬于你的程式，看下面源碼：

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.ForeColor = &HFF0000

Label1.FontSize = 9

Label2.ForeColor = &HFF0000

Label2.FontSize = 9

End Sub

Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.FontSize = 10

Label1.ForeColor = &HC0&

End Sub

Private Sub label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label2.FontSize = 10

Label2.ForeColor = &HC0&

End Sub

Private Sub label1_Click()

ShellExecute 0, "open", "http://218.63.244.68:1010/ckkd/index.php", vbNullString, vbNullString, 0

End Sub

Private Sub label2_Click()

      ShellExecute 0, "open", "http://dfcg.con.cn/", vbNullString, vbNullString, 0

End Sub

四、上面的詞句，如果你對網頁制作有那丁點認識也會看得明白的，看不懂？沒事，複制到 粘帖你總不至于也不會吧！好，因為網上有不小好的源碼，是以這次我先上源碼再接着說整個的架構。在源碼裡看，暈暈的不知所其言，關鍵你要看着源碼要寫出一個可執行的程式來，我作幾個引點解釋：

Private Sub label1_Click() ← 這label1是？知道它就可應用源碼自如了

ShellExecute 0, "open", "http://218.63.244.68:1010/ckkd/index.php", vbNullString, vbNullString, 0

End Sub

Private Sub label2_Click() ← 工具箱（左邊豎框）有個大寫字母A，就是它

      ShellExecute 0, "open", "http://dfcg.con.cn/", vbNullString, vbNullString, 0

End Sub

五、現在你打開VB6，建立一個執行檔案模闆，好，光标點一下上面說的大寫A字母，然後回到模闆上拉出一個框條來，呵，裡面你看到的是什麼，“label1”要的就是它，因為源碼是這樣寫的啊！　^_^

六、重複第五步，你又拉出了一個“label2”來，夠了，源碼就這2個，以後你可以用這個源碼去制作更多的連結。這例用2個就行多了就等于是違反源碼原意，哈，你一定沒好果子吃了。

七、現在到屬性視窗，就是右邊的中間框。滾動下 拉找到“Caption”，往右看看，label1放在那裡了，知道怎樣去做了吧！對，改寫它，讓它顯示你所要的資訊，以這個源碼為例，這裡改寫為“DFCG官方論壇”，回模闆看看，已經改寫好了，光标放label2，同樣的操作，改寫為“DFCG短域名”。嗯，差不多要成功了，你現在用你的審美眼光，去布置好你的模闆，加圖檔啊，改模闆外觀啊什麼的，别急， 慢着來，你一定會設計出一個好看的外觀來的。

八、最後用上面方法，再多拉出一個label3來，有用嗎？有，這個你可以寫上你想寫的東西上去，比如，“我愛你，DFCG！”　^_^

九、好，現在你就要将源碼用複制粘貼的方法，将原碼導入模闆，不會做這步？哦，讀書不用功，回頭由第一課開始再看吧！

十、嗯！都做好了，坐下來， 抽杆煙。對，我每一步都 做對的，那等什麼，來啊，點工具欄，檔案 → 下拉菜單點“生成工程1.exe”。當，出來了一個叫工程1的可執行檔案，輕按兩下運作它看看，哈，你的設計完美吧？不管了，點一下上面的“DFCG官方論壇”，哦，打開的網頁就是DFCG官方論壇，再點“DFCG短域名”，打開的也是DFCG官方論壇。成功了，這就是成功了啊，以後你隻要将連結的位址改成你想去的就行。 &_^

十一、我說老大，我一個是網址一個是郵箱你這個就不行了吧？ 對哦，怎麼改寫源碼達到目的呢？嘿嘿，我先喝杯茶。來了，看下面：

Private Sub label1_Click()

ShellExecute 0, "open", "http://218.63.244.68:1010/ckkd/index.php", vbNullString, vbNullString, 0

End Sub

Private Sub label2_Click()

ShellExecute 0, "open", "mailto:[email protected]", vbNullString, vbNullString, 0

End Sub

十二、哦，明白了，改的也不多嘛，賣什麼關子啊，磚頭，爛柿子，臭雞蛋~~~~~~

十三、你确認成功地生成你想要的可執行檔案了吧！接着來，再來 個好玩的東 東。不行，我還沒做出來啊，暈，回頭重做，反正我是成功了，不信？我傳2個上來你玩玩。　^_^

十四、繼續，還是 用反式方法來教，因為你已經是中級的了，看下面源碼：

Dim a As String

Dim t As String

      Dim b As Integer

      Dim I As Integer

Private Sub Command1_Click()

CheckAgain

End Sub

Private Sub Form_Load()

CheckAgain

End Sub

Private Sub Timer1_Timer()

t = Left(a, b)

Form1.Caption = t

b = b + 1

If b > I Then b = 0

End Sub

Sub CheckAgain()

a = Text1.Text

I = Len(a)

      b = 0

End Sub

十五、左看看右看看，明白了，這個東 東隻需要用一個按鈕Command1， 一個控件Timer1，再就是一個文本框Text1，看不出來？回去看我前面的課程去。下面就動手去應用一下這個 源碼吧！

十六、現在你打開VB6，建立一個執行檔案模闆，好，光标點一下“TextBox”，然後回到模闆上拉出一個文本框Text1，再次到工具箱，點一下“CommandButton”， 并回到模闆上拉出一個按鈕Command1，還是同樣的方式， 放入控件Timer1。好，現在這個架構就行了，你就得又用上你的審美眼光，設計一個你高興我滿意的 外見來吧！（按鈕Command1可改名為“重新掃描”）

十七、現在到屬性視窗，就是右邊的中間框。滾動下 拉找到“Text”，嗯，“我要”說過的，這裡可以改成想要的資訊，好，我就寫上“我愛DFCG，DFCG是我家！”。有點肉麻~~~ 别啊，誰的鞋子飛過來了~~~~

十八、現在你就要将源碼用複制粘貼的方法，将原碼導入模闆，還是不會做這步？哦，學生不用功，老師之罪過了！不過你 好象應該從頭開始學啊？！想想還是你的錯，嘿嘿！　@_@

十九、來啊，點工具欄，檔案 → 下拉菜單點“生成工程1.exe”。得，出來一個工程1的可執行檔案，輕按兩下運作它看看，執行檔案的标題欄裡的文字是流動的，爽~~~~，看到“我愛DFCG，DFCG是我家！”的字眼，有點親切感了~~~~~

二十、我踢，我不要看這個，我想看的就要“踢一下我要爽 爽　^_^”這個資訊， 不是吧，這都行啊，沒法，教到這步了，我不說你也會了吧，文本框寫上“踢一下我要爽 爽　^_^”，點一下按鈕，這下你成了，不過我在哭你知道嗎？因為 你在踢老師啊！　&_&

二十一、還要不要，我 的網名叫“我要”，那好，再來一個源碼，不過隻是源碼，你自己去做出一個可執行檔案看看就知道是什麼東 東來的了。權當複習吧！看下面：

Private Sub Command1_Click()

GotoVal = Me.Height / 2

For Gointo = 1 To GotoVal

      DoEvents

          Me.Height = Me.Height - 10

          If Me.Height <= 11 Then GoTo horiz

      Next Gointo

horiz:

     Me.Height = 30

      GotoVal = Me.Width / 2

      For Gointo = 1 To GotoVal

DoEvents

          Me.Width = Me.Width - 10

          If Me.Width <= 11 Then End

      Next Gointo

End

End Sub

二十二、好了，總算 寫完五課了！前段時間是由于内部問題及年關私事加一起，忙個不可開交，現在論壇 重架成功，春節也過去。時間有點松動就趕緊寫完這第五課，累啊，兄弟們，此文結束時，我要[DFCG]在此請大家以後多多支援DFCG，在網路上宣傳一下DFCG，就是對我等老 萊的最好回報了！　^_^

二十二、本篇原創作者--我要[DFCG]，版權沒有，人權我有， 是以凡轉此帖的友站及各路朋友兄弟們，必注明此文出自DFCG組織及我要[DFCG]原創為先決條件，否則謝絕轉帖轉載。網路本一家，但總不至于沒個出處明示的吧！感謝你的閱讀！

                                         我要[DFCG]編寫于2004.2.04