Question

vb6.0 想用VB6.0做一个小程序,输入图片地址。点确认，打开一张网络图片.自动放大三倍，要完整的代码

vb6.0 想用VB6.0做一个小程序,输入一个图片地址。点确认，打开一张网络图片.自动放大三倍，要完整的代码 M = Text1.Text
N = Text2.Text
http://www1.51.com/" & M & "/" & N & "/images/2.gif 地址是随意写的 图片两个变量M不常变 现在要单击确定N加一 这张网络图片.自动放大三倍，要完整的代码
按一下确定 M不变 N +1 这个没有写上

Answer 1

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
Dim url$, M$, N$
M = Text1.Text: N = Text2.Text
url = "http://www1.51.com/" & M & "/" & N & "/images/2.gif "
If URLDownloadToFile(0, url, "D:\2.gif", 10, 0) = 0 Then
Image1.Picture = LoadPicture("D:\2.gif")
Image1.Stretch = True
Image1.Width = Image1.Width * 3
Image1.Height = Image1.Height * 3
End If
End Sub

Answer 2

图片的处理还是建议使用gdi+