將一個(gè)圖片按比例縮放顯示在一個(gè)Frame中_.Net教程

      編輯Tag賺U幣
      教程Tag:暫無(wú)Tag,歡迎添加,賺取U幣!

      推薦:“您無(wú)權(quán)查看該網(wǎng)頁(yè)”的原因和解決方法
      1、現(xiàn)象 a.用localhost訪問(wèn),正常 b.用IP地址訪問(wèn),則出現(xiàn)403錯(cuò)誤 2、分析 a.懷疑是ACL問(wèn)題,設(shè)置Everyone為完全控制,問(wèn)題仍無(wú)法解決 b.無(wú)意中訪問(wèn)了"WebForm1.aspx",再

      代碼如下:

      以下為引用的內(nèi)容:

      'Form1.frm
      VERSION 5.00
      Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
      Begin VB.Form Form1
      Caption = "Form1"
      ClientHeight = 5010
      ClientLeft = 60
      ClientTop = 345
      ClientWidth = 7800
      LinkTopic = "Form1"
      ScaleHeight = 334
      ScaleMode = 3 'Pixel
      ScaleWidth = 520
      StartUpPosition = 3 '窗口缺省
      Begin MSComDlg.CommonDialog CommonDialog1
      Left = 4635
      Top = 3120
      _ExtentX = 847
      _ExtentY = 847
      _Version = 393216
      End
      Begin VB.Frame Frame1
      Caption = "Frame1"
      Height = 3000
      Left = 4500
      TabIndex = 2
      Top = 30
      Width = 3180
      Begin VB.PictureBox Picture2
      Appearance = 0 'Flat
      ForeColor = &H80000008&
      Height = 2625
      Left = 120
      ScaleHeight = 173
      ScaleMode = 3 'Pixel
      ScaleWidth = 194
      TabIndex = 3
      Top = 255
      Width = 2940
      Begin VB.Image Image1
      Height = 1575
      Left = 465
      Top = 390
      Width = 1965
      End
      End
      End
      Begin VB.CommandButton Command1
      Caption = "&Load Picture"
      Height = 330
      Left = 5400
      TabIndex = 0
      Top = 3150
      Width = 1425
      End
      Begin VB.PictureBox Picture1
      Appearance = 0 'Flat
      AutoSize = -1 'True
      BorderStyle = 0 'None
      ForeColor = &H80000008&
      Height = 4425
      Left = 60
      ScaleHeight = 4425
      ScaleWidth = 4380
      TabIndex = 1
      Top = 105
      Width = 4380
      End
      End
      Attribute VB_Name = "Form1"
      Attribute VB_GlobalNameSpace = False
      Attribute VB_Creatable = False
      Attribute VB_PredeclaredId = True
      Attribute VB_Exposed = False
      Option Explicit

      Dim ReturnHeight As Long, ReturnWidth As Long

      Private Sub Command1_Click()
      Dim BigWidth As Long, BigHeight As Long
      Dim StretchWidth As Long, StretchHeight As Long
      CommonDialog1.Filter = "jpeg文件|*.jpg|gif文件|*.gif|所有文件|*.*"
      CommonDialog1.ShowOpen
      If CommonDialog1.FileName <> "" Then
      Picture1.Picture = LoadPicture(CommonDialog1.FileName)

      BigWidth = Picture1.Width
      BigHeight = Picture1.Height
      StretchWidth = Picture2.ScaleWidth
      StretchHeight = Picture2.ScaleHeight

      StretchImage BigWidth, BigHeight, StretchWidth, StretchHeight, True

      Image1.Stretch = True
      Image1.Width = ReturnWidth
      Image1.Height = ReturnHeight

      Image1.Left = (Picture2.ScaleWidth - Image1.Width) / 2
      Image1.Top = (Picture2.ScaleHeight - Image1.Height) / 2
      Image1.Picture = LoadPicture(CommonDialog1.FileName)
      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

      分享:ASP.NET 2.0中動(dòng)態(tài)修改頁(yè)面標(biāo)題
      在老外的站上看到解決的好方法,故簡(jiǎn)單編譯之: 在一個(gè)asp.net 的應(yīng)用中,經(jīng)常要?jiǎng)討B(tài)修改頁(yè)面的標(biāo)題,一個(gè)典型的例子就是,在一個(gè)頁(yè)面導(dǎo)航的控件中,希望用戶點(diǎn)選哪一個(gè)連接,在頁(yè)面的title里

      來(lái)源:模板無(wú)憂//所屬分類:.Net教程/更新時(shí)間:2008-08-22
      相關(guān).Net教程