如何让自己做的VB窗口像迅雷的悬浮窗一样，在所有窗口的最上边？？？
不知道你是要网页悬浮还是窗体悬浮，前者只需要设定一个layer，z-index设到很高，如1000，即可在最前面；如果是窗体，而且你不会编程的话，有个简单方法，去使用360浏览器打开这个flash，360浏览器有个让窗口一直在最前面的选项，具体操作是右键点击窗口上的最小化按钮，选择一直在最前面即可
可以吗,有的话请直接回答,我也可以给你送分,谢谢
二次补充：不可能没用啊，你的要求不是最上窗口吗？这个代码就是这个功能的。在我这里调试很正常，不知你那里出现了什么问题。＝＝＝＝＝＝＝＝＝＝＝＝＝＝
答案补充：就是利用了一个API函数，实现功能。Setwindowpos函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
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 '定义API
Private Const HWND_TOPMOST = -1 '窗体最上层常数
Private Const SWP_NOMOVE = &H2 '窗体不移动（保持当前位置（x和y设定将被忽略））
Private Const SWP_NOSIZE = &H1 '窗体大小不变（保持当前大小（cx和cy会被忽略））
Private Sub Form_Load() '程序一运行就执行
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE '设置最上层窗口
End Sub
如何让vb窗体一直保持最大化?
窗体有个属性WindowState 当值为0时表示窗体Normal 当值为1时表示最小化 当值为2时表示最大化 窗体支持RESIZE 事件.所以可以通过在窗体的RESIZE事件中调整WindowState属性来达到你的要求:Private Sub Form_Resize()Me.WindowState = 2 End Sub
用VB设计登陆窗体的源码和步骤
新建一个类模块，添加如下代码 Public g_Conn As Connection Public g_UserName As String Public g_ShowDate As Date Sub Main()Dim msg As String On Error Resume Next 'msg = ConnectToDatabase("数据库名")msg = ConnectToSQLServer("localhost", "数据库名", "sa", "")If msg <> "...
vb中怎么把窗体设置成固定大小
把窗体的BoderStyle属性设置为1 - Fixed Single
用VB做小型超市收银系统的收银界面怎么做啊?
用VB自己就能画出来呀！你说的界面可能是主界面吧。我也做过类似的东西，药品售药系统，我是在VB里面直接做的。先添加窗体（也可以是MDI主窗体，但这个MDI窗体只能加一个）做为主窗体，在Form的属性里可以设置各项内容：背景图、是否可以最大化、最小化等；以及进入时是否全屏等。菜单栏的设置，选...
VB 创建透明窗体
转摘一个,可以实现,就是边界比较难处理,有点毛糙--- 透明位图在VB中的实现方法及应用 在VB中显示位图,通常都是通过各种控件实现的。通过控件显示的位图,或全部或局部,始终是以一个规则的矩形图像出现在屏幕上,无法做到只显示位图中某个不规则的局部图像,而使位图的其它部分具有透明性以露出其下原有...
VB做一个简单网页窗口
我已发 Private Sub Form_Load()If Dir(App.Path & "\\1.ini") = "" Then Else Open App.Path & "\\1.ini" For Input As #1 Line Input #1, a Line Input #1, b Line Input #1, c Form1.Width = a Form1.Height = b WebBrowser1.Navigate c Close End If WebBrowser1.Width ...
VB怎么做窗体部分透明
'网上的是让你自己改的，你没看清楚代码注释吧 '我这是参考网上全透明的改的 '看上去虽然是全透明的，但添加的控件和Line等是看得见的 '那个游戏也是这样，先搞成全透明，再画上看得见的边框，就有这样的效果了 '图片是效果 Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA...
VB 如何自定义输出到窗体的位置
'如果你要做窗体上利用坐标定位，那么采用Command1_Click中的代码。Private Sub Command1_Click()Me.CurrentX = Me.Width * 2 \/ 5 Me.CurrentY = Me.Height * 2 \/ 5 Print "在这里输出"End Sub '如果在Label控件中分行显示，那么采用如下代码：Private Sub Command2_Click()Dim s As String...
vb 中如何在本窗口打开一个新的窗口
用VB内置的呢，有两种方法：第一种，可以用Inputbox；第二种，可以用一个Textbox，设计的时候让他隐藏（Visible=False ），然后点击修改密码的时候，让他Visible＝True就显示出来了。
vb 窗口镶嵌在桌面上
求VB代码,把窗口放到系统桌面上,不受最小化或“显示桌面”影响,始终挂在桌面上,像被镶嵌上衣一样。我知道有的日历、时钟程序可以做到,但是不知道用VB怎么来实现,谢谢。我做过一... 求VB代码,把窗口放到系统桌面上,不受最小化或“显示桌面”影响,始终挂在桌面上,像被镶嵌上衣一样。我知道有的日历、时钟程序...
黄洪塞宁： 二次补充:不可能没用啊,你的要求不是最上窗口吗?这个代码就是这个功能的.在我这里调试很正常,不知你那里出现了什么问题.============== 答案补充:就是利用了一个API函数,实现功能.Setwindowpos函数能为窗口指定一个新位...
白碱滩区13678339428： 请教怎么使VB小程序像迅雷小图标这样一直挂在桌面上 - ？
黄洪塞宁： 很简单啊,把你的程序窗口设置成迅雷那个样子,小方块,然后用一个叫窗口置顶的代码把窗口一直挂在上面就可以了.你百度一下“VB窗口置顶”,很多的,代码也才几行,简单!
白碱滩区13678339428： vb 悬浮窗 - ？
黄洪塞宁： 参考这个http://wenwen.sogou.com/z/q757367553.htm?fr=qrl3
白碱滩区13678339428： vb 窗体一直置前 - ？
黄洪塞宁： Option Explicit''使指定窗口总在最前 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 ...
白碱滩区13678339428： vb怎样制作悬浮窗体 - ？
黄洪塞宁： 悬浮,也就是置顶.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) Private Form_Load() Dim rtn rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) End Sub
白碱滩区13678339428： 怎样用VB做悬浮窗口? - ？
黄洪塞宁： '代码如下 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 ...
白碱滩区13678339428： 如何用wpf做出类似迅雷悬浮窗的效果 - ？
黄洪塞宁： 以前我也需要过类似的功能,当时在网上找一段代码: protected override CreateParams CreateParams { get { const int WS_EX_APPWINDOW = 0x40000; const int WS_EX_TOOLWINDOW = 0x80; CreateParams cp = base.CreateParams; cp.ExStyle &= (~WS_EX_APPWINDOW); // 不显示在TaskBar cp.ExStyle |= WS_EX_TOOLWINDOW; // 不显示在Alt-Tab return cp; } } 我是用子窗体做的悬浮窗...
白碱滩区13678339428： Visual basic的问题？
黄洪塞宁： 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 Sub Command1_...
白碱滩区13678339428： VB浮窗如何制作. - ？
黄洪塞宁： Form1.Height = Form1.Height + 10 Form1.Top = Form1.Top - 10
白碱滩区13678339428： 易语言 拖动时 无边框 悬浮窗 (比如迅雷的悬浮窗) 怎么做出这种效果? - ？
黄洪塞宁： 截取迅雷的浮窗图片然后窗口最前,随意移动,就行了
