如何屏蔽窗体右上角的关闭等按钮?
怎样可以屏蔽窗体右上角的关闭等按钮?高手们帮帮忙吧!还有,怎样可以把程序打包成安装程序?
怎样可以实现点击按钮就打开桌面上的程序!要会自动识别桌面的文件夹在哪的!?
谢谢高手们!
1.简单方法在unload事件加 cancel=-1
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = - 1
End Sub
复杂了用API……
最大最小属性里可以设置……
桌面?可以读取注册表……
也可以用shell对象
Private Sub Command1_Click()
Dim WshShell, DKP As String
Set WshShell = CreateObject("WScript.Shell")
DKP = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing
Print DKP
End Sub