其他

Shell是用來執行外部的可執行檔如果是一個檔案，那要用ShellExecute來啟動預設的程式來開啟檔案'HINSTANCE ShellExecute(' HWND　　 hwnd,　　　　 // handle to parent window' LPCTSTR　lpOperation,　// pointer to string that specifies operation to perform' LPCTSTR　lpFile,　　　 // pointer to filename

'在form中放一個textBox兩個labelConst EM_GETSEL = &HB0Const EM_LINEFROMCHAR = &HC9Const EM_LINEINDEX = &HBBPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal

現在許多程式的表單都有自動隱藏/顯示的功能(比如OICQ)。 實現這樣的功能其實很簡單，原理是：判斷滑鼠是否移到了螢幕的最左邊或最右邊，如果移到了則顯示表單，如果滑鼠移開了表單則隱藏表單。在本程式中，我們將用到GetCursorPos這個API函數是實現這個功能最重要的一步，這個函數的作用就是擷取當前滑鼠的座標值，我們可以通過這個值來判斷滑鼠是否移到了螢幕的最邊緣.下面我們就開始吧。建立一表單，將Form1更名為AutoHide將vbBorderStyle屬性設定為4-Fixed

原本這應是用OLE的方式來做，但可用以下的方式來做，前題是有vb所提供的vb5stkit.dll所以令人 不太愉快Private Declare Function fCreateShellLink Lib "vb5stkit.dll" _(ByVal Forder As String, ByVal ShortCutName As String, _ByVal ExePath As String, ByVal Params As String) As LongDim ret

現在的代碼離我們想要的還是有些不太實用，我們將在其他頁使用類TVProgram，因此最好將其獨立定義，以便所有也面都可以調用。建立一個ASP頁面，並命名為TVProgramClass.asp，我們在其中定義類TVProgram。--TVProgramClass.asp--<%Class TVProgramPrivate internal_StartTimePublic Property Get StartTimeStartTime = Hour(internal_StartTime)

我們來分析一下（2）中的程式：Class TVProgramPublic StartTimePublic internal_ProgramDatePublic Property Get ProgramDateProgramDate = Day(internal_ProgramDate) & _" " & MonthName(Month(internal_ProgramDate)) & _" " &

建立對象在VBScript中建立物件類型（類）時，你首先要知道，這真的很容易！我在一個下午自學，只是閱讀了Microsof VB Script 的參考書，但必須承認，這書不是最容易閱讀的文檔。初學者需要安裝VBScript 5.0引擎，可以在Microsoft's Scripting Site下載。我們來看代碼。類的定義與函數和子過程非常類似。起始行為Class <MyClassName>，結尾是End

前言首先，在我進入實質性主題並解釋如何建立類之前，我希望保證你知道“對象”。雖然你可以在程式中使用對象而不用知道其正確的規則，但我並不建議如此！對於對象的初學者，接下來的部分將讓你瞭解其概念及內容。已經瞭解物件導向編程（OOP）的讀者可以跳過這章節。導論l “對象是什嗎？”——對象通常代表某種實體，主要是一個變數和函數的集合。l

VBA概述VBA（Visual Basic For Application）是VB語言在Office產品中的應用，它基於Visual Basic For Windows發展而來，Visual Basic For Windows是Microsoft於1992年推出的開發Windows應用程式的程式設計語言，由於語言簡單，易用易學，所以深受使用者的歡迎。而VBA的文法結構與Visual Basic For Windows基本相似，但它們之間是有本質區別的，Visual Basic For

我們知道Rich text或Word 或VB的程式撰寫環境，可以將Mouse移到Select起來的文字按Mouse左鍵做拖曳移動的功能，後來想，TextBox能不能做呢？這可真的吃了不少苦頭

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Const CB_FINDSTRING = &H14CPrivate Sub Combo1_Change()Dim iStart As

大家都知道大名鼎鼎的WINAMP播放器是支援“換膚”的，也就是說，我們可以動態改變表單和控制項的背景圖案，使表單看起來十分漂亮，而且能夠不斷更換新的面孔。那我們能讓自己的程式也實現這樣的效果嗎？答案是肯定的，下面我們就一起來看看用VB6做出的可以換膚的表單。程式包含一個主表單和一個模組，為了使表單上的控制項也能以我們選擇的圖案作為背景，我們使用了Microsoft Forms2.0 Object

0 引言在筆者開發的“學籍管理系統”中，有一資料查詢模組，其任務是查詢與瀏覽設定條件的學生或班級資料，其中的“列印”按鈕功能是將顯示在表格中的內容列印出來。由於查詢結果中表與欄位的是不固定的，使得利用VB本身內建的資料庫報表難以實現動態列印，筆者經過對MSHFlexGrid控制項、Printer對象的較深入學習、研究，遵循WINDOWS“所見即所得

使用CommandButton控制項命令按鈕控制項被用來啟動、中斷或結束一個進程。單擊它時將調用已寫入Click 事件程序中的命令。大多數Visual Basic應用程式中都有命令按鈕，使用者可以單擊按鈕執行操作。單擊時，按鈕不僅能執行相應的操作，而且看起來就象是被按下和鬆開一樣，因此有時稱其為下壓按鈕。詳細資料

一個應用程式不論編製得如何完美，在很多情況下使用者還是會對如何使用它提出問題。 Visual Basic提供了對兩種不同協助系統的支援：傳統的 Windows協助系統 (WinHelp)和新的HTML協助（CHM協助）。當我們製作好協助檔案後，就需要在程式的適當位置編寫代碼進行調用，本文將討論幾種在程式中調用CHM協助檔案的方法。 方法一　使用F1鍵：這種方法最簡單，只需如下代碼即可：Private Sub Form_Load() App.HelpFile =

按照百分秒格式顯示時間你可以編寫下面的代碼來顯示時間，其中包括百分秒格式：txt = Format$(Time, "hh:mm:ss") & Format$(Timer - Fix(Timer),

開始學vb時,並不知道vb可以做齣動畫,後來知道通過自編的子函數delay(c的庫函數中的該函數)和 cls可以做出許多動畫,但有一個缺點就是太耗記憶體,就我個人認為構思應該比編程重要，因為一旦有了一 個很好的構思剩下的問題都是技術問題，而我就是喜歡發現新的問題然後再想方設法解決它，通過發現 問題和解決問題我可以學到許多很有用的知識和技巧。好了，現在有了一個好的構思就開始進入程式的 編製。第一步，要做成這個遊戲的話必須能使小球有一個判斷性的運動，然而如何處理小球的運動呢，很顯

VB6因為簡單易用，受到很多朋友的喜歡。可是也有人說它功能簡單，沒有給開發人員提供足夠的 發揮餘地。比如不能方便地繼承現有控制項而派生出自己的控制項。（什嗎？寫ActiveX控制項？太麻煩了吧。 要花大量時間在介面的設計和實現上，而且你不想讓你的軟體發布時帶一堆OCX控制項吧？）其實還是有辦 法的，我們可以利用VB6裡的類別模組實現對控制項的特殊控制和事件響應。本文介紹使用類別模組把普通的 Label控制項變成表單動態分割條。圖1

1 引言李薩如圖形是一個質點的運動軌跡[1]，該質點在兩個垂直方向的分運動 都是簡諧運動。李薩如圖形是物理學的重要內容之一，在工程技術領域也有很重要的應用。利用李薩如 圖形可以測量未知震動的頻率和初相位，掌握李薩如圖形的形成過程有很重要的意義。因而動態顯示李 薩如可以深入理解其形成過程。2 李薩如圖形的形成假定形成李薩如圖形的兩個簡諧運 動，一個在X軸上，一個在Y軸上，它們的運動方程為（假設它們的振幅相等）：它們的合運動軌跡就是李薩如圖形。為了能夠形

上網的朋友一定都用過網路螞蟻（Net Ants）的吧？不知你在使用過程中有沒有注意過，那就是如果你想調動兩個“螞蟻”為您效力是不可能的——它總會把新啟動並執行關閉。這點在VB 中很容易實現：Private Sub Form_Load()If App.PrevInstance ThenMsgBox "你已經運行這個應用程式了"End　　　注釋： 退出新啟動並執行程式End IfEnd