VB開發(fā)應用程序答疑

1、    VB以其易于學習、易于開發(fā)而深受廣大開發(fā)人員的喜愛，但是在實際開發(fā)時，我們也會遇到很多問題，筆者總結(jié)了一些開發(fā)中常見的問題，給出了通用的解決方法，希望對VB開發(fā)人員有所幫助。 問：在VB應用程序中，如何實現(xiàn)窗體的簡易移動？ 答：如果你的窗體不需要標題欄，又希望能移動該窗體，像WinAmp一樣簡易移動，我們可以利用以下代碼實現(xiàn)： Declare Function ReleaseCapture Lib "user32" () As LongDeclare Function SendMessage Lib "user32&

2、quot; Alias "SendMessageA"(_ByVal hwnd As Long, ByVal wMsg As Long,_ByVal wParam As Long, lParam As Any) As LongPublic Const HTCAPTION = 2Public Const WM_NCLBUTTONDOWN = &&&&HA1  下面是將功能加入窗體的MouseDown事件中的代碼,你也可將其加入其它控件的事件中： Private Sub Form_MouseDown(Button As Inte

3、ger, Shift As Integer, X As Single, Y As Single)ReleaseCaptureSendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&&&&  利用以上代碼，我們就可實現(xiàn)窗體的簡易移動。 問：如何在桌面上畫圖標？ 答：下面一段程序利用了API函數(shù)在屏幕上實現(xiàn)畫圖標功能(注：p是圖標的句柄，可以由ExtractIcon取得)。 deskhwnd = GetNextWindow(hwnd, GW_HWNDLAST)'取最下面一個窗口deskdc = G

4、etWindowDC(deskhwnd)'取窗口的情景設備For i=0 To Screen.Width/32/15'將屏幕坐標單位換算成“Pixel”，并計算可畫的圖標數(shù)For j=0 To Screen.Height/32/15DrawIcon deskdc, 32i, 32j, p'在桌面上畫圖Next jNext i 用函數(shù)GetNextWindow取得其句柄，用函數(shù)GetWindowDC取出它的虛擬設備。需要注意的是，一旦窗口被覆蓋，圖標就會消失。 問：在VB應用程序中，如何取消窗體右上角的關閉功能？ 答：如果你不想別人使用程序時直接用右上角的關閉功能來關閉程

5、序,可用以下代碼來實現(xiàn)該功能。 在Form_Unload事件中加入以下代碼： Private Sub Form_Unload(Cancel As Integer)Cancel=TrueEnd Sub 如果你想在關閉程序時提示是否關閉,可在Form_Unload事件中加入一個判斷語句：Private Sub Form_Unload(Cancel As Integer)Cancel=TrueCase Select msgbox "您真的想關閉嗎?" ,VbOkCancelCase VbOkCancel=FalseCase ElseCancel=TrueEnd SelectEnd

6、 Sub  問：如何讓VB應用程序中的連接具有超級鏈接效果？ 答：我們以一個網(wǎng)址鏈接為例，講解實現(xiàn)的方法。 首先我們新建一表單，在表單中加入一標簽，Caption屬性為 在標簽的MouseMove事件中加入如下代碼: Label1.ForeColor=&&&&HFF  在表單的MouseMove事件中加入如下代碼: Label1.ForeColor=&&&&HFF0000  在標簽的Click事件中加入如下代碼: Dim a As Stringa=Shell("

7、Explorer.exe 問：如何讀取外部圖標？ 答：下面的一段程序就顯示了如何讀取程序中的圖標，其中Picture1是一個圖像框，dlgOpen是一個標準對話框，Command1是一個按鈕；ExtractIcon函數(shù)有三個參數(shù)，第一個參數(shù)指定調(diào)用的應用程序，一般都用App.hInstance；第二個參數(shù)指定圖標文件，可以是DLL、EXE和ICO；第三個參數(shù)的不同就決定了其返回值的不同，如果代入-1，就返回文件中包含的圖標數(shù)，代入0則返回第一個圖標的句柄，其余依此類推。 Private Sub Command1_Click()Static total As Long,p(50) As Long

8、，i As IntegerdlgOpen.Filter = "圖標|.Exe;.Ico;.Dll"dlgOpen.ShowOpenIf Dir(dlgOpen.filename)"" ThenIf ExtractIcon(App.hInstance, dlgOpen.filename, -1) = 0 Then '如果沒有圖標MsgBox "No Icon!"Elsetotal = ExtractIcon(App.hInstance, dlgOpen.filename, -1)'取得總圖標數(shù)For i = 0 To total - 1p(i) = ExtractIcon(App.hInstance, dlgOpen