怎么把VB中的图片全屏显示

建立了一个窗体,上面建了一个Image的图片,窗体已经设置了全屏化,但是怎么让图片随着窗体的运行全屏化?

Private Sub Form_Load()
Image1.Stretch = True
End Sub

Private Sub Form_Resize()
Image1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-03-19
设置装载图片是图像框的大小(根据屏幕分辨率),然后把图片的规格设置一下,应该就可以全屏了追问

可是我是在笔记本上做的,笔记本和台式机的分辨率不同,怎么让它在别的电脑上运行时也能与那台电脑屏幕分辨率一样啊?

追答

台式机和本本的分辨率本来就不一样,你试试调一下你的本的分辨率,看能不能和那台电脑分辨率相同,不行的话,就用台式的做好,然后在笔记本上浏览。这比用本做好在台式上浏览好点。

第2个回答  2012-03-19
二楼正解,不过图片的长宽比会失真。个人认为用Paintpicture函数比较好,速度快、功能强,而且不会出现Image在变幻时的闪烁

怎么把VB中的图片全屏显示
Private Sub Form_Load()Image1.Stretch = True End Sub Private Sub Form_Resize()Image1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub

VB怎么设置图片成全屏
要使VB窗口的背景图片充满窗体,需要做两件事:将窗体的AutoRedraw属性设置为True 在窗体的Resize事件中调用窗体的PaintPicture方法,按窗体的当前大小绘制窗体的背景图片(即窗体Picture属性中设置的图片):Private Sub Form_Resize()Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight E...

VB怎么设置图片成全屏
1.将窗体的AutoRedraw属性设置为True 2.在窗体的Resize事件中调用窗体的PaintPicture方法,按窗体的当前大小绘制窗体的背景图片(即窗体Picture属性中设置的图片):Private Sub Form_Resize()Me.PaintPicture Me.Picture,0,0,Me.ScaleWidth,Me.ScaleHeight End Sub ...

vb中的背景图片怎么随着窗体全屏而全屏
先设置image控件 stretch属性true 然后加载图片到Image控件 用image作为窗体背景 改变其大小即可

在VB6.0中如何将一个图片或者窗体全屏幕显示?
额 先把窗体的 BorderStyle 设为 0-None 就是没有边框 然后 WindowState 设为 2-Maxmize 最大化 当然也可以用别的方法 运行下,这样就行了 给点分吧 哈哈 可以交流

VB标准exe程序中擦入图片,让图片全屏显示的代码是什么阿?谁知道的?
'先在窗体加载一张图片,然后复制以下代码即可 Private Sub Form_Resize()Cls PaintPicture Picture,0,0,Width,Height End Sub

VB怎样使图片全屏显示(把任务栏全遮掉)???
先建一个窗体,一个Picture1控件,代码如下:Private Declare Function SetWindowPos Lib "user32" (ByVal Hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Const...

怎样在VB中实现全屏截图,用代码
Private Sub Command1_Click()Call keybd_event(vbKeySnapshot, theForm, 0, 0)'若theForm改成theScreen则Copy整个Screen DoEvents Picture1.Picture = Clipboard.GetData(vbCFBitmap)SavePic Picture1.Picture,"D:\\1.gif",".gif"End Sub 以下代码放在模块中:Private Type GUID Data1 As Long ...

在VB中如何实现全屏
方法和代码如下:SPR4Y回答:\\'在“工程(Project)”里点选“设定引用项目”,来引用DirectX物件。\\'接著将“DirectX 7 for Visual Basic Type Library”的那一行打勾,就可以开始使用DirectX了。\\'在通用部分定义如下:\\'Dim objDX As New DirectX7 \\'Dim objDD As DirectDraw7 \\'Dim objDDPrim...

VB中的图片全屏显示怎么设置?
高度和宽度设置随界面变化。英文的忘了,你大概想找一个属性就能改的,应该是没有的。

相似回答