我刚学VB.net遇到三个问题,请大家教我。
我用的是beta2,我遇到三个问题,请大家教我:
1.我的工具箱里没有trayicon组件,我应该怎样添加?
2.向窗体添加一按钮,写代码如下:
button1 new button()
form1.controls.add(button1)
代码中controls显示错误,form1对象中无controls
3.我从vb6升级一个钩子程序,可是“addressof 函数名”这个用法无法升级,我想了很久,没有解决,请大家帮我一下。
问题点数:20、回复次数:2Top
1 楼icyer()回复于 2001-12-03 10:40:34 得分 20
No.1: TrayIcon就是NotifyIcon,NotifyIcon控件你应该有吧。
No.2: 添加控件用:Me.Controls.Add(...)
至于第三个问题,我不知道你的代码怎样,所以就爱莫能助了。Top
2 楼ruowuruoyou()回复于 2001-12-03 11:38:24 得分 0
谢谢icyer,前两个问题我明白了,第三个问题代码如下,你能帮我看看吗?
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
On Error Resume Next
SetKeyboardHook(Me.Handle.ToInt32, WM_USER)
If Err.Number <> 0 Then
MsgBox("请先将 KeybHook.dll 复制到 Windows 的所在路径!", MsgBoxStyle.Critical)
End
End If
On Error GoTo 0
prevWndProc = GetWindowLong(Me.Handle.ToInt32, GWL_WNDPROC)
'UPGRADE_WARNING: 为 AddressOf WndProc 添加委托 单击以获得更多信息:ms-help://MS.MSDNVS/vbcon/html/vbup1048.htm
SetWindowLong(Me.Handle.ToInt32, GWL_WNDPROC, AddressOf Module1.WndProc)
End SubTop




