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

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

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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 午夜激情视频在线观看 | 天天操天| 色综合天天综一个色天天综合网 | 国产精品日本亚洲777 | 91在线视频免费91 | 日本午夜人成免费视频 | 欧美一级美片在线观看免费 | 欧美成人性色生活18黑人 | 亚洲热在线视频 | 亚洲欧美中文字幕专区 | 青草视频在线免费观看 | 欧美综合区自拍亚洲综合 | 日日摸夜夜添夜夜添欧美毛片 | 92精品国产自产在线观看48 | 麻豆美女大尺度啪啪 | 国产经典三级在线 | 伊人网站 | 久久精品国产99国产精品澳门 | 亚洲一区日韩一区欧美一区a | 麻豆视频福利 | 91九色网址| 国产一区二区三区免费在线视频 | 九一在线完整视频免费观看 | 嘿嘿嘿视频在线观看网站 | 久热青青青在线视频精品 | 性视频高清免费视频播放 | 中文字幕不卡视频 | 久久影院精品 | 日本国产亚洲 | 欧美性视频在线激情 | 亚洲欧美精品成人久久91 | 久久久网久久久久合久久久久 | 女啪啪www女高清 | 天天做天天爰夜夜爽 | 弄农村老妇呻吟 | 免费午夜视频 | 欧美久在线观看在线观看 | 久久亚洲国产精品五月天 | 97精品国产高清久久久久蜜芽 | 狠狠88综合久久久久综合网 | 国内特级毛片 |