Image的Stretch 属性为True的时候，具有让图片自动缩放到与Image控件一致的大小。
所以，只要在Form_Resize()事件里编写代码：
Option Explicit
Private Sub Form_Resize()
Image1.Width = Me.Width
Image1.Height = Me.Height
End Sub
在窗体form_size事件中调整Image宽度和高度。
vb6.0 Picture1放了一个图片,想拖动窗体让图片随窗体变大或变小?
那最好使用Image控件，不要使用PictureBox，因为：Image的Stretch 属性为True的时候，具有让图片自动缩放到与Image控件一致的大小。所以，只要在Form_Resize()事件里编写代码：Option Explicit Private Sub Form_Resize()Image1.Width = Me.Width Image1.Height = Me.Height End Sub ...
vb6.0里如何实现让图片的大小随picturebox的大小而变化?
这个容易：Private Sub Picture1_Paint()Dim mPic As StdPicture Set mPic = LoadPicture("c:\\我的图片.jpg")Picture1.PaintPicture mPic, 0, 0, Picture1.Width, Picture1.Height End Sub 或者先在Picture1.Picture加载图片:Private Sub Picture1_Paint()Picture1.PaintPicture Picture1, 0, 0...
VB6.0在窗体里面加的背景图片很大的时候,如何让图片去根据窗体的大小来...
Private Sub Form_Load()Me.AutoRedraw = True Set p = LoadPicture("C:\\songhuiqiao1.jpg") '换成你自己的图片 End Sub Private Sub Form_Resize()PaintPicture p, 0, 0, Width, Height End Sub
vb6.0 想用VB6.0做一个小程序,输入一个图片地址。点确认,打开一张网络...
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Sub Command1_Click()Image1.Stretch = False Text1 = ...
怎样用vb6.0的commandbutton控件加载大小适合次按钮的图片?
可以用Image1代替command1 Image1.BorderStyle = 1 '按下状态 Image1.BorderStyle = 0 '松开状态 如果一定要用command 可以这样 Private Sub Command4_Click()'用Picture2 , Picture3加载图片 Picture2.AutoSize = True Picture3.AutoSize = True Picture1.AutoRedraw = True Picture1.Move Picture...
在窗体中,我点击图片时,怎么样让其它窗体背景图片发生更改,希望有代 ...
'本程序已在VB6.0中测试：首先,添加窗体Form1、Form2 然后，在Form1代码是：Option Explicit'说明：'1.在窗体上直接创建一个Image1控件、一个Picture1控件；创建一个Frame1控件，然后在上面创建建Image2控件。'2.说明：因为 Image 控件使用较少的系统资源，所以重画起来比 PictureBox 控件要快，所以...
VB6.0背景图片问题
Private Sub Form_Load()Image1.Stretch = True Image1.Picture = LoadPicture("D:\\1.jpg")End Sub Private Sub Form_Resize()With Me If .WindowState = 0 Then Image1.Move 0, 0, .ScaleWidth, .ScaleHeight End If End With End Sub ...
如何用VB6.0开发快速存取网页图片功能。
Dim x!, y! '这里要定义两个模块变量，用以记录两比值 Private Sub Form_Load() '加载窗体时，获取图片框宽度，高度与窗体宽度，高度的比值 x = Picture1.Width \/ Me.Width y = Picture1.Height \/ Me.Height End Sub Private Sub Form_Resize() '当窗体发生大小变化时，重新设定图片框的宽度...
VB中如何才能自动放大缩小图片填充到图片框中啊?
BeginVB．FormForm1 Caption＝＂使用PictureBox控件实现图像放大和缩小＂ClientHeight＝5580 ClientLeft＝60 ClientTop＝345 ClientWidth＝7935 LinkTopic＝＂Form1＂ScaleHeight＝5580 ScaleWidth＝7935 StartUpPosition＝3＇窗口缺省 BeginVB．PictureBoxPicture1 AutoRedraw＝－1＇True AutoSize＝－1＇True Heigh...
VB6.0让图片自适应Gif89a的大小
不知道Gif89a是什么，给你一个图片相对于窗体的，不知行不行 将GIF放到PictureBox控件中 Private Sub Form_Resize()Picture1.Height = Me.Height \/2 Picture1.Width=Me.Width\/2 End Sub
