怎样把窗体名称作为参数传递

[莫凡]

Public Function LoadSkin()

' 确定当前路径
DataPath = App.Path

If Not Right(DataPath, 1) = "\" Then

DataPath = DataPath + "\"

End If

DataPath = App.Path

If Not Right(DataPath, 1) = "\" Then

DataPath = DataPath + "\"

End If

If CheckFileExist(DataPath + "\Skins\B-Studio.skn") = True Then '检查文件是否存在

' 加载皮肤
Skin.LoadSkin DataPath + "\Skins\B-Studio.skn"
Skin.ApplySkin Me.hWnd

End If

end Function

Skin是一个控件
Public Function LoadSkin(a as from)
然后a.skin.......
好像不行
谢谢！！！！！！！！！！！！！！！！！

[daisy8675]

Set .SourceForm = Me
不過我隻做判斷


你要做參數的話，我昨天還看了個貼可以傳送，我去找找看，昨天沒有好生看

[daisy8675]

鬱悶，今天跑去找，居然半天沒有找到，鬱悶死了，直接去找大大問。

問得了就告訴你....

[lsftest]

Public Function LoadSkin(a as from)要求参数是一个form，但你调用的时候skin.LoadSkin DataPath + "\Skins\B-Studio.skn"
怎么会变成了一个路径＋文件名？？？
建议直接传递form的hwnd吧。。。。

[kmzs]

恩

[莫凡]

多谢大家的关心，不过现在还是不行