怎么把一个窗体当作变量传给过程 Public Sub sLimpidityWindow(win as ？)

Question

Public Sub sLimpidityWindow(win as object)end sub调用：
sLimpidityWindow form1

Answer 1

我定义为
Public Sub sLimpidityWindow(TheWin As Form)调用
sLimpidityWindow (Me)出错
提示类型不匹配在那里出错呢    Dim dd As Form
    Set dd = Me
    sLimpidityWindow (Me)这样也不行

Answer 2

HungryBoy(饥饿的男孩)　
Public Sub sLimpidityWindow(win as object)
我要在过程里改变窗体的某些属性
出错提示不支持该属性 
 

Answer 3

全局过程
Public Sub sLimpidityWindow(TheWin As object) ' windows都不行
    Dim hBitmap
    TheWin.AutoRedraw = True
    hBitmap = CreateCompatibleBitmap(TheWin.hdc, 0, 0)
    SelectObject TheWin.hdc, hBitmap
    TheWin.Refresh
End Sub在窗体的load事件调用
sLimpidityWindow (Me)出错

Answer 4

不行，Load时还没加栽窗体呢！放Load后吧！

Answer 5

sLimpidityWindow 你要传递窗体的名字例如：form1我试了没有出错！！

Answer 6

我都试了  不行  天啊
HungryBoy(饥饿的男孩)
请帖代码

Answer 7

在模块里这些代码：
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As LongPublic Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As LongPublic Sub sLimpidityWindow(TheWin As Object) 
    Dim hBitmap
    TheWin.AutoRedraw = True
    hBitmap = CreateCompatibleBitmap(TheWin.hdc, 0, 0)
    SelectObject TheWin.hdc, hBitmap
    TheWin.Refresh
End Sub你的窗体里：
Private Sub Form_Load()
    sLimpidityWindow Form1
End Sub