[怎样用VB做一个图片浏览器]Public Class Form1 Dim i As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click i = i - 1 If (i...+阅读

没有代码，只好我自己写一个给你啰。试试这个代码。

==================

Option Explicit

Dim R As RECT

Dim Ratio As Single

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Declare Function GetClientRect Lib ＂user32＂ (ByVal hwnd As Long, lpRect As RECT) As Long

Private Sub Form_Resize()

Cls

GetClientRect hwnd, R

If Picture.Height / Picture.Width >R.Bottom / R.Right Then

PaintPicture Picture, 0, 0, Ratio * R.Bottom, R.Bottom

Else

PaintPicture Picture, 0, 0, R.Right, R.Right / Ratio

End If

End Sub

Private Sub Form_Load()

ScaleMode = vbPixels

AutoRedraw = True

Picture = LoadPicture(Environ(＂windir＂) & ＂\winnt256.bmp＂)

Ratio = Picture.Width / Picture.Height

End Sub

以下为关联文档：

怎么用VB做图片浏览器VB6.0实现图片旋转 使用过ACDSEE的朋友一定对它的JPG图片旋转功能记忆犹新，其实我们利用VB6的先进功能，可以对任意格式的图片文件（包括JPG、GIF、BMP、ICO等）进行45度、180度旋...

如何用VB调用windows图片浏览器Private Sub Command1_Click() Dim strPicPath As String strPicPath = ＂C:\Documents and Settings\Administrator\My Documents\My Pictures\1.jpg＂ strPicPath = ＂＂＂＂ & strPic...

怎么用vb编写一个图片浏览器呢Dim i% '用按钮更换图片 Private Sub Command1_Click() i = i + 1 If i > 5 Then i = 0 Image1.Picture = LoadPicture(App.Path & ＂\0＂ & i & ＂.jpg＂) End Sub '初始化 Private...

vb编程制作一个简单的图片浏览器上学期的作业，现在在电脑里，我把代码复制下 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Pri...

怎样制作VB图象浏览器用全局变量保存目前的图片编号 用Timer控件实现定时切换图片 Dim N As Integer Private Sub Command1_Click() Timer1.Enabled = Not Timer1.Enabled If Timer1.Enabled The...

vb怎么用ListBox和image做一个图片浏览器Private Sub List1_Click() Select Case List1.ListIndex Case 0 Image1.Picture = LoadPicture(App.Path & ＂\0.jpg＂) Case 1 Image1.Picture = LoadPicture(App.Path & ＂\1.j...

怎样去做一个VB的图片浏览器啊。。Private Sub Form_Load() '初始化两个图片框的位置 PicFather.Move 0, 0, ScaleWidth - VScroll1.Width, ScaleHeight - HScroll1.Height PicSon.Move 0, 0 '将子图片框移到...

VB制作一个图片浏览器！100分！简单点的啊。窗体上放一个timer1、一个picture1和一个file1控件，然后复制下列代码即可。 Const DR As String = ＂G：\下载＂ '图片所在文件夹 Dim NI As Integer Private Sub Form...