热搜
您的位置:首页 >> 故事

站长将壹個图片按比例缩放显示茬壹個F

2019年07月01日 栏目:故事

09:36 来源:页教学 :阿小【纠错】人评论

  09:36 来源:页教学 :阿小【纠错】人评论

  A-A+ 怎么开淘宝店 站优化方法 创业如何获得投资 小米note顶配版评测 LOL活动

  代码如下:

  以下为引用的内容: 'm VERSION 5.00 Object = {F9043C88-F6FA-A3CB2F49FB}#1.2#0; X Begin rm Form1 Caption = Form1 ClientHeight = 5010 ClientLeft = 60 ClientTop = 345 ClientWidth = 7800 LinkTopic = Form1 ScaleHeight = 334 ScaleMode = 3 'Pixel ScaleWidth = 520 StartUpPosition = 3 '窗口缺省 Begin monDialog CommonDialog1 Left = 4635 Top = 3120 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin ame Fram cture = LoadPicture(leName) End If End Sub Private Sub StretchImage(OriginalWidth As Long OriginalHeight As Long StretchWidth As Long StretchHeight As Long Optional Flag As Boolean = False) If (OriginalWidth = StretchWidth Or OriginalHeight StretchHeight) Or Flag = True Then '需要缩放 If OriginalWidth / OriginalHeight = StretchWidth / StretchHeight Then ReturnWidth = StretchWidth ReturnHeight = StretchWidth / OriginalWidth * OriginalHeight Else ReturnHeight = StretchHeight ReturnWidth = StretchHeight / OriginalHeight * OriginalWidth End If Else ReturnHeight = OriginalHeight ReturnWidth = OriginalWidth End If End Sub

  查看更多相似文章

微商城单品怎么做
怎样进入有赞微商城
有赞微商城入驻规范
  • 友情链接
  • 合作媒体