日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

VB開發應用程序答疑

VB開發應用程序答疑

更新時間:2019-06-30 文章作者:未知 信息來源:網絡 閱讀次數:

VB以其易于學習、易于開發而深受廣大開發人員的喜愛,但是在實際開發時,我們也會遇到很多問題,筆者總結了一些開發中常見的問題,給出了通用的解決方法,希望對VB開發人員有所幫助。


問:在VB應用程序中,如何實現窗體的簡易移動?
答:如果你的窗體不需要標題欄,又希望能移動該窗體,像WinAmp一樣簡易移動,我們可以利用以下代碼實現:

Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA"(_ByVal hwnd As Long, ByVal wMsg As Long,_ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &&&&HA1  


下面是將功能加入窗體的MouseDown事件中的代碼,你也可將其加入其它控件的事件中:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&&&&  


利用以上代碼,我們就可實現窗體的簡易移動。

問:如何在桌面上畫圖標?
答:下面一段程序利用了API函數在屏幕上實現畫圖標功能(注:p是圖標的句柄,可以由ExtractIcon取得)。

deskhwnd = GetNextWindow(hwnd, GW_HWNDLAST)
'取最下面一個窗口
deskdc = GetWindowDC(deskhwnd)
'取窗口的情景設備
For i=0 To Screen.Width/32/15
'將屏幕坐標單位換算成“Pixel”,并計算可畫的圖標數
For j=0 To Screen.Height/32/15
DrawIcon deskdc, 32i, 32j, p
'在桌面上畫圖
Next j
Next i


用函數GetNextWindow取得其句柄,用函數GetWindowDC取出它的虛擬設備。需要注意的是,一旦窗口被覆蓋,圖標就會消失。

問:在VB應用程序中,如何取消窗體右上角的關閉功能?
答:如果你不想別人使用程序時直接用右上角的關閉功能來關閉程序,可用以下代碼來實現該功能。

在Form_Unload事件中加入以下代碼:

Private Sub Form_Unload(Cancel As Integer)
Cancel=True
End Sub


如果你想在關閉程序時提示是否關閉,可在Form_Unload事件中加入一個判斷語句:
Private Sub Form_Unload(Cancel As Integer)
Cancel=True
Case Select msgbox "您真的想關閉嗎?" ,VbOkCancel
Case VbOk
Cancel=False
Case Else
Cancel=True
End Select
End Sub  


問:如何讓VB應用程序中的連接具有超級鏈接效果?
答:我們以一個網址鏈接為例,講解實現的方法。

首先我們新建一表單,在表單中加入一標簽,Caption屬性為http://ccidnet.com/,MouseIcon值為操作系統下Curors目錄里的Hand.ico文件,MousePointer值為99。

在標簽的MouseMove事件中加入如下代碼:

Label1.ForeColor=&&&&HFF  


在表單的MouseMove事件中加入如下代碼:

Label1.ForeColor=&&&&HFF0000  


在標簽的Click事件中加入如下代碼:

Dim a As String
a=Shell("Explorer.exe http://ccidnet.com/",3)  


問:如何讀取外部圖標?
答:下面的一段程序就顯示了如何讀取程序中的圖標,其中Picture1是一個圖像框,dlgOpen是一個標準對話框,Command1是一個按鈕;ExtractIcon函數有三個參數,第一個參數指定調用的應用程序,一般都用App.hInstance;第二個參數指定圖標文件,可以是DLL、EXE和ICO;第三個參數的不同就決定了其返回值的不同,如果代入-1,就返回文件中包含的圖標數,代入0則返回第一個圖標的句柄,其余依此類推。

Private Sub Command1_Click()
Static total As Long,p(50) As Long,i As Integer
dlgOpen.Filter = "圖標|.Exe;
.Ico;.Dll"
dlgOpen.ShowOpen
If Dir(dlgOpen.filename)<>"" Then
If ExtractIcon(App.hInstance, dlgOpen.filename, -1) = 0 Then '如果沒有圖標
MsgBox "No Icon!"
Else
total = ExtractIcon(App.hInstance, dlgOpen.filename, -1)
'取得總圖標數
For i = 0 To total - 1
p(i) = ExtractIcon(App.hInstance, dlgOpen.filename, i) '讀取每個圖標
Next i
For i = 0 To total - 1 '依次顯示每個圖標
DrawIcon Picture1.hdc, 34  i, 0, p(i)
Next i
End If
End If
End Sub

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 狠狠操天天操夜夜操 | 欧美 日韩 中文字幕 | 日本三级影院 | 日本一区二区三区久久 | 中文在线日韩 | 99re在线视频| 国产成人在线视频 | 久久天天躁狠狠躁夜夜 | 亚洲欧美一区二区三区九九九 | 亚洲欧美日韩在线观看播放 | 四虎高清视频一区二区三区 | 国产精品毛片天天看片 | 免费人成网站免费看视频 | 天天爽夜夜爽人人爽一区二区 | 中文字幕日韩欧美 | 国产午夜精品理论片久久影视 | 人人射人人射 | 最近在线中文字幕影院网 | 一级高清毛片免费a级高清毛片 | 很污的视频网站 | 国产成人精品视频 | 成人区视频爽爽爽爽爽 | 亚洲国产日韩欧美一区二区三区 | 超级碰碰青草免费视频92 | 中文字幕第9页 | 久久一本久综合久久爱 | 亚洲欧美片| 日韩在线天堂免费观看 | 成人影院欧美大片免费看 | 日本大片a| 天天爽夜夜爽人人爽一区二区 | 四虎院影永久在线观看 | 国产色站 | 亚洲 激情| 伊大人香蕉久久网欧美 | 波多久久夜色精品国产 | 免费国产黄网站在线观看 | 精品日韩一区二区三区 | 国产主播一区 | 久草高清在线 | 日美女bb |