| 发表于:2007-09-12 21:15:294楼 得分:0 |
我的代码和你的一样啊 可是还是不行,还是会保存对话框。 dim f$, j% commondialog1.filter = "bmp文件 ¦*.bmp ¦所有文件 ¦*.* " commondialog1.showsave f = commondialog1.filename savepicture capturewindow(picture1.hwnd, false, 0, 0, _ picture1.scalex(picture1.width, vbtwips, vbpixels), _ picture1.scaley(picture1.height, vbtwips, vbpixels)) _ , f msgbox "文件保存完毕! ", vbokonly, "提示! " | | |
|