[vb中怎么实现图片缩小和放大]Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载。控件封装了右键局部区域放大的功能，要实现图片的缩放，把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.Aut...+阅读

Select Case Weekday(Now)

Case vbMonday ' 星期一

Image1.Picture = LoadPicture(App.Path & ＂\1.jpg＂)

Case vbTuesday ' 星期二

Image1.Picture = LoadPicture(App.Path & ＂\2.jpg＂)

Case vbWednesday ' 星期三

Image1.Picture = LoadPicture(App.Path & ＂\3.jpg＂)

Case vbThursday ' 星期四

Image1.Picture = LoadPicture(App.Path & ＂\4.jpg＂)

Case vbFriday ' 星期五

Image1.Picture = LoadPicture(App.Path & ＂\5.jpg＂)

Case vbSaturday ' 星期六

Image1.Picture = LoadPicture(App.Path & ＂\6.jpg＂)

Case vbSunday ' 星期日

Image1.Picture = LoadPicture(App.Path & ＂\7.jpg＂)

End Select

以上是正常的写法， 如果从周一到周日对应的图片刚好是1.jpg~7.jpg，那么可以用下面这一条的语句搞定：

Image1.Picture = LoadPicture(App.Path & ＂\＂ & Weekday (now,vbMonday) & ＂.jpg＂)

以下为关联文档：

VB剪贴板里有图片和文字如何实现替换里面的文字而不影响图片！Clipboard.SetText Clipboard.GetText分别是设置和读取剪切板中的文本， 设置和读取图像语句为SetData 和GetData 例： s = Clipboard.GetText 把剪切板中的文本保存在变量s中 C...

EXCEL如何实现鼠标指向产品名称时自动显示图片可以做到类似的： 用插入批注的方法，批注不写任何内容，再把批注设置为显示，然后双击批注的边框，设置批注格式，在“颜色与线条”里的“填充”-选择“填充效果”-“图片”-“选择图片...

求用JavaScript实现点击按钮更换不同的图片1 2 3 4 5 <divid=＂图片显示区＂></div> <divid=＂按钮＂> <inputtype=＂button＂value=＂蒙娜丽莎＂onclick=＂图片显示区.innerHTML='<img src=1.jpg>'＂> <inputtype=＂button＂value=＂最后的晚餐...

如何实现点击按钮之后实现图片显示出来1 2 3 4 5 6 7 html内容： <div class=＂divName＂> <img src=http://wenwen.sogou.com/z/zsznet/＂location.jpg＂ id=＂img＂ /> </div> <div class=＂button＂> <input type=＂button＂ id=＂butt...

VB怎样实现图片幻灯播放在Timer1_Timer（)编代码让程序定时自动改变显示的图片就行了主要问题是获得文件列表吧.Enabled = False Command2.com/question/8109682.Picture = LoadPicture(sPath & myFi...

VB如何实现图片充满窗口并且随着窗口大小自动变化Private Sub Form_Initialize() Image1.Top = 0 Image1.Left = 0 Image1.Height = Me.Height Image1.Width = Me.Width Image1.Stretch = True End Sub Private Sub Form_Re...

vb怎么才能在窗体上放上一个比较大的图片而且可以把图片显示'利用2113Image或picturebox实现图像5261平铺或居中4102 'Image的Stretch属性1653设为true(picturebox是版Autosize) 'Image实现平铺picturebox实现居权中 Private Sub Form...

VB6 0如何设置frame框架透明显示窗体背景图片颜色不能直接设置透明，有控件好像可以。控件的大小，可以先获取窗体的大小，然后按窗体放大缩小的后的比例进行调整。给你弄个调整大小的例子 弄一个窗体，然后添加e799bee5baa6e79fa5e...

asp显示绝对路径的图片的实现<% ' 转为根路径格式 Dim sTempUrl sTempUrl = url If Left(sTempUrl, 1) = ＂/＂ Then RelativePath2RootPath = sTempUrl End If Dim sWebEditorPath sWebEditorPath = Reques...