怎么在网页中单击一个按钮打开vb的窗体的啊

答案:2 悬赏:40 手机版

解决时间 2021-02-04 16:11

提问者网友：玫瑰园
2021-02-04 00:48

最佳答案

五星知识达人网友：低音帝王
2021-02-04 01:11

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
ShellExecute Me.hWnd, "open", "", "", "", 1

全部回答

1楼网友：大漠
2021-02-04 02:47

嗯。可能你用惯e语言的缘故吧~

在窗体上放置两个按钮，打开代码窗口，复制以下代码：

private declare function setwindowpos lib "user32" (byval hwnd as long, byval hwndinsertafter as long, byval x as long, byval y as long, byval cx as long, byval cy as long, byval wflags as long) as long private const hwnd_topmost = -1 private const hwnd_notopmost = -2 private sub command1_click() setwindowpos me.hwnd, hwnd_topmost, 0, 0, 0, 0, 3 end sub private sub command2_click() setwindowpos me.hwnd, hwnd_notopmost, 0, 0, 0, 0, 3 end sub private sub form_load() command1.caption = "顶置" command2.caption = "正常" end sub

程序运行，就可以看到你想要的效果了。

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！