如果做不出这种效果，要告诉我不行呀。

[fredlin]

1）可以将VB6.0写的一个小程序编译成单个exe发布吗？
（别人没有vb也可以用）

2）有api可以在vb6.0让运行后form一直在所有的应用程序最前面吗？
( .net中form有属性可设置。)

[Sean918]

来晚了

[gpo2002]

'For OnTop
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOHWND = -2
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


Public Sub OnTop(ByVal Hwnd As Long, Optional ByVal ibSet As Boolean = True)
If ibSet Then
SetWindowPos Hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
SetWindowPos Hwnd, HWND_NOHWND, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
End Sub

vb编译的程序运行需要运行库， 2000自带vb6运行库，98自带vb5运行库，vb6编译的exe，如果没有另外引用部件/对象 可以在2000下直接运行

[lxcc]

1、用setupfactory将程序打包（安装包）。或者wise等等

2、

Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

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



'************************************************************
'设置form是否在最上方
Public Sub TopMostForm(f As Form, Top As Boolean)
If Top Then
SetWindowPos f.HWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
Else
SetWindowPos f.HWnd, 0, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End If
End Sub
'************************************************************

[lxcc]

1、用setupfactory打成安装包，或者wise

2、
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

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


'************************************************************
'设置form是否在最上方
Public Sub TopMostForm(f As Form, Top As Boolean)
If Top Then
SetWindowPos f.HWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
Else
SetWindowPos f.HWnd, 0, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE
End If
End Sub
'************************************************************