VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB开发应用程序答疑
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8538, 日期:2001-10-15
VB开发应用程序答疑
(中国计算机报 阙锋 2001年10月10日 10:13)

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