莫怪,莫怪,我就是这么菜 将窗体的Borderstyle变为0,然后加载窗体背景图或者其他。OK!屏保…… 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 api : bitblt具体我也不清楚! Private Sub Form_Load() '设置 'Me.BorderStyle = 0 'Image1.Stretch = True Me.WindowState = 2 With Image1 .Left = 0 .Top = 0 .Width = Screen.Width .Height = Screen.Height End WithEnd Sub 请放到Image1 用它来拉或用画的方法希望上面的代码对你有点用 把窗体的Borderstyle设置为0,宽、高分别等于屏幕的宽和高。 累,Borderstyle设置为0,windowstate设置为2不就行了 如果用PICTUREBOX控件的话,把属性属性设以下:picture1.autoredraw=true 将Borderstyle设为0,Windowstate设为2的方法好像有点管用,在此先行谢过,可有一个额外的麻烦是:---窗体中还有其他控件,怎样使其在图像全屏时暂时地"回避一下"呢? fom 子句语法错误 VC的DLL如果通过参数向VB传数据? 求助:顺序文件读入时速度太慢如何解决 IHTMLxxxx对象和 HTMLxxxx有什么不同呢? 急救!!! 打开EXCEL遇到的问题,谁知道什么错误引起的,帮忙解决 一个SQL的写法?? 關於datagrid的問題.很難,高手們接招吧! 怎样用代码设置MSHFlexGrid的颜色 daviddivad(天通通天);; suhu(zym) ( ) 信誉:100 快快进来领分! 使用ado控件,如何向access数据库中添加数据 非常急,水晶报表的数据为什么没办法刷新?????
api : bitblt具体我也不清楚!
'设置
'Me.BorderStyle = 0
'Image1.Stretch = True
Me.WindowState = 2
With Image1
.Left = 0
.Top = 0
.Width = Screen.Width
.Height = Screen.Height
End With
End Sub
或用画的方法希望上面的代码对你有点用
picture1.autoredraw=true