VB 让程序运行不显示窗体

2025-02-17 10:16:37

推荐回答（6个）

回答1：

程序代码

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Const LWA_COLORKEY = &H1

在窗体中这样调用:

程序代码

Private Sub Form_Load() '窗体透明，控件不透明
Me.BackColor = &H0
SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes Me.hwnd, &H0, 255, LWA_ALPHA or LWA_COLORKEY '这里的255是透明度，0-255之间
End Sub

这里设置成255,就是不透明,我们可以看到,但是窗体的背景被去掉了,
这样就控件可以看到,窗体看不到了.

这时候你把控件设置为你想整人的东西比如一个picturebox里面装一坨Shit

如果还有疑问欢迎追问。

回答2：

FormDataAll_d = UploadStream_c.Read
CrLf_e = chrB(13)&chrB(10)
FormStart_f = InStrB(FormDataAll_d,CrLf_e)
FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)

Set FormStream_h = Server.Createobject("ADODB.Stream")
FormStream_h.Type = 1

回答3：

不显示窗体啊？
直接 Me.visible=false就行了

回答4：

Form1.Hide 手机党

回答5：

Private Declare Function icePub_regionGifFileDisp Lib "icePubDll.dll" (ByVal mHwmd As Long, ByVal strGifFilename As String, ByVal regionFlag As Integer) As Integer

Dim a2 As Integer

a2 = icePub_regionGifFileDisp(Me.hWnd, "e:\run.gif", 1)

回答6：

private declare function createcompatiblebitmap lib "gdi32" (byval hdc as long, byval nwidth as long, byval nheight as long) as long
private declare function selectobject lib "gdi32" (byval hdc as long, byval hobject as long) as long
private sub form_load()
dim bitmap
me.autoredraw = true
bitmap = createcompatiblebitmap(me.hdc, 0, 0)
selectobject me.hdc, bitmap
end sub使用api函数，透明化窗体。
忘记了，borderstyle
=
0，在窗口属性里设置才有效。

最新问答

网上的手机和专卖店的手机为什么价格差距那么大

创建快捷方式是什么意思，有什么用？

求救!我对一个女孩一直很好很照顾她.

演员高雄主演过的一部电影，名字里面有个“毒”字

java中jvm在哪？是包含在jdk里面吗？