INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.



 
Trang ChínhPortalTìm kiếmĐăng kýĐăng Nhập
Mua thẻ Điện thoại, thẻ Game
Latest topics
» Dịch vụ cho thuê máy chiếu giá rẻ chất lượng cao tại Hà Nội
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeWed Aug 14, 2019 4:18 pm by maychieumanchieu

» giặt là quần áo bảo hộ lao đổng rẻ nhất Hải dương
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeWed Jul 24, 2019 9:33 am by dichvumaychieunhanh

» Phân phối linh kiện máy chiếu, phụ kiện máy chiếu giá rẻ
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeTue Apr 16, 2019 5:08 pm by maychieumanchieu

» Chuyên cho thuê máy chiếu, màn chiếu
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeFri Jan 11, 2019 5:13 pm by dichvumaychieunhanh

» Cho thuê máy chiếu văn phòng, đào tạo, thuyết trình giá rẻ Hà Nội
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeSun Jan 06, 2019 3:12 pm by maychieumanchieu

» Trung tâm sửa chữa thay bóng đèn máy chiếu, sửa máy chiếu uy
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeMon Dec 10, 2018 11:03 am by maychieumanchieu

» Địa chỉ sửa máy chiếu nhanh uy tín chuyên nghiệp giá rẻ
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeWed Nov 28, 2018 10:24 am by maychieumanchieu

» Địa chỉ công ty bán màn chiếu, phụ kiện máy chiếu giá rẻ
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeSun Oct 28, 2018 11:20 am by maychieumanchieu

» Dịch vụ cho thuê máy chiếu giá rẻ chất lượng uy tín
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeSun Oct 14, 2018 2:20 pm by maychieumanchieu

» Bán màn chiếu, phụ kiện lắp đặt máy chiếu uy tín chuyên nghiệp
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeTue Oct 02, 2018 4:23 pm by maychieumanchieu

» Địa chỉ cho thuê máy chiếu màn chiếu loa âm thanh giá rẻ tại Hà Nội
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeFri Sep 14, 2018 3:04 pm by maychieumanchieu

» Trung tâm Sửa máy chiếu, thay bóng đèn máy chiếu chính hãng giá rẻ
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeFri Aug 31, 2018 3:45 pm by maychieumanchieu

» Bán màn chiếu 3 chân, treo tường, phụ kiện máy chiếu giá rẻ
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeSat Aug 25, 2018 2:41 pm by maychieumanchieu

» Công ty bán màn chiếu máy chiếu chất lượng tốt giá rẻ
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeMon Aug 20, 2018 2:16 pm by maychieumanchieu

» Sửa máy chiếu uy tín chuyên nghiệp tại Hà Nội
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeMon Aug 13, 2018 3:51 pm by maychieumanchieu

» Mua máy chiếu cũ, máy chiếu hỏng giá cao 0912 652 259
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeThu Jun 07, 2018 2:06 pm by maychieumanchieu

» Hướng dẫn lắp màn chiếu, phông màn máy chiếu, bán màn chiếu
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeSat May 19, 2018 5:54 pm by thueamthanh

» Dịch vụ cho thuê âm thanh, loa đài uy tín chuyên nghiệp chất lượng
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeSun Apr 22, 2018 5:57 pm by maychieumanchieu

» Địa chỉ công ty cho thuê máy chiếu giá rẻ uy tín tại Hà Nội
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeTue Apr 17, 2018 9:53 am by thueamthanh

»  Bán phụ kiện máy chiếu, màn chiếu giá rẻ chất lượng tốt 024 3918 5666
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeWed Apr 11, 2018 6:24 pm by maychieumanchieu

» Công ty bán màn chiếu giá rẻ lắp đặt tận nơi, phụ kiện máy chiếu chính hãng
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeFri Apr 06, 2018 10:11 am by maychieumanchieu

» Trung tâm sửa máy chiếu uy tín chuyên nghiệp, thay bóng đèn máy chiếu các hãng
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeThu Apr 05, 2018 2:46 pm by maychieumanchieu

» Báo giá sửa chữa máy chiếu, thay bóng đèn, linh kiện máy chiếu 024 3918 5666
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeTue Mar 20, 2018 3:17 pm by maychieumanchieu

» Tạo thiệp giáng sinh gửi tặng bạn bè
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeMon Dec 19, 2016 8:50 pm by hohoangnhat1108

» Bàn chải du lịch
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeThu Jan 07, 2016 4:21 am by zxc1234

» Màn chiếu giá rẻ tại Siêu thị máy chiếu MINH PHÁT
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeMon Jan 04, 2016 1:55 pm by maychieumanchieu

» Tư vấn mua máy chiếu Projector trọn bộ lớp học giảng dạy
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeTue Jul 14, 2015 11:09 am by maychieumanchieu

» Địa chỉ sửa chữa máy chiếu Projector uy tín lấy ngay
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeThu Jul 09, 2015 11:43 am by maychieumanchieu

» Cửa hàng mua bán máy chiếu cũ, máy chiếu thanh lý giá cao
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeSat Jul 04, 2015 2:09 pm by maychieumanchieu

» [Đột Kích 2] Ngày Vàng cuối tuần cùng báu vật lạ
Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeFri May 29, 2015 11:41 pm by maisao

Calendar
Admin

Admin

Thích Bài viết này
Most Viewed Topics
Plant vs Zombies Crack và Hack
Sửa Lỗi Không Like, Comment...facebook
Khắc phục "The command prompt has been disabled by your administrator"
List bài hát Karaoke hay được nhiều người yêu thích
Struct-Quản Lí Sinh Viên.
HP Probook 4430s trọn Bộ Driver
Kết Nối CSDL và Winform trong VB.NET 2008
Phần Mềm Lịch Công Giáo 1/2013
Hướng Dẫn Cài Đặt Tubor C++ trên Win7 32bit
Facebook: Trang Trí Profile bằng ứng dụng Social Extras
Intech facebook welcome
Keywords
Lượt Truy Cập
Bộ Đếm
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm :: 1 Bot

Không

Số người truy cập cùng lúc nhiều nhất là 61 người, vào ngày Sat Aug 26, 2017 8:58 pm

Share
 

 Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Thanh Nguyên
Admin
Admin
Thanh Nguyên

Tổng số bài gửi : 526
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 26
Đến từ : Bà Rịa-Vũng Tàu

Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET Empty
Bài gửiTiêu đề: Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET   Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET I_icon_minitimeTue May 28, 2013 10:25 pm

Đoạn codeVB.NET sau đây sẽ giúp bạn thu nhỏ một tấm hình nào đó từ kích thước lớn thành kích thước nhỏ, có thể chúng ta thường ứng dụng trong các trường hợp tạo Thumbnails - Hình đại diện cho bài viết, tạo Avatar cho người dùng.Xem đoạn code VB.NET sau:

Đầu tiên bạn cần add thêm 3 thư viện sau:

Code:
Imports System.Drawing
Imports System.IO
Imports System.Drawing.Imaging

Bạn viết thêm 2 hàm sau:

Code:
Public Sub ThayDoiKichThuocAnh(ByVal ImageSavePath As String, ByVal fileName As String, ByVal MaxWidthSideSize As Integer, ByVal Buffer As Stream)
        Dim intNewWidth As Integer
        Dim intNewHeight As Integer
        Dim imgInput As System.Drawing.Image = System.Drawing.Image.FromStream(Buffer)
        Dim myImageCodecInfo As ImageCodecInfo
        myImageCodecInfo = GetEncoderInfo("image/jpeg")
        '
        Dim myEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality
        Dim myEncoderParameters As New EncoderParameters(1)
        Dim myEncoderParameter As EncoderParameter
        'Giá trị width và height nguyên thủy của ảnh;
        Dim intOldWidth As Integer = imgInput.Width
        Dim intOldHeight As Integer = imgInput.Height

        'Kiểm tra xem ảnh ngang hay dọc;
        Dim intMaxSide As Integer
        'if (intOldWidth >= intOldHeight)
        '            {
        '            intMaxSide = intOldWidth;
        '            }
        '            else
        '            {
        '            intMaxSide = intOldHeight;
        '            }

        'Để xác định xử lý ảnh theo width hay height thì bạn bỏ note phần trên;
        'Ở đây mình chỉ sử dụng theo width nên gán luôn intMaxSide= intOldWidth; ^^;
        intMaxSide = intOldWidth
        If intMaxSide > MaxWidthSideSize Then
            'Gán width và height mới.
            Dim dblCoef As Double = MaxWidthSideSize / CDbl(intMaxSide)
            intNewWidth = Convert.ToInt32(dblCoef * intOldWidth)
            intNewHeight = Convert.ToInt32(dblCoef * intOldHeight)
        Else
            'Nếu kích thước width/height (intMaxSide) cũ ảnh nhỏ hơn MaxWidthSideSize thì giữ nguyên //kích thước cũ;
            intNewWidth = intOldWidth
            intNewHeight = intOldHeight
        End If

        'Tạo một ảnh bitmap mới;
        Dim bmpResized As New Bitmap(imgInput, intNewWidth, intNewHeight)
        'Phần EncoderParameter cho phép bạn chỉnh chất lượng hình ảnh ở đây mình để chất lượng tốt //nhất là 100L;
        myEncoderParameter = New EncoderParameter(myEncoder, 100L)
        myEncoderParameters.Param(0) = myEncoderParameter
        'Lưu ảnh;
        bmpResized.Save(ImageSavePath & fileName, myImageCodecInfo, myEncoderParameters)

        'Giải phóng tài nguyên;
        'Buffer.Close();
        imgInput.Dispose()
        bmpResized.Dispose()
    End Sub
    Private Function GetEncoderInfo(ByVal mimeType As [String]) As ImageCodecInfo
        Dim j As Integer
        Dim encoders As ImageCodecInfo()
        encoders = ImageCodecInfo.GetImageEncoders()
        For j = 0 To encoders.Length - 1
            If encoders(j).MimeType = mimeType Then
                Return encoders(j)
            End If
        Next
        Return Nothing

    End Function

Đến khi cần sử dụng hàm thì bạn gọi như sau là sẽ đồng thời thay đổi kích thước ảnh theo quy định của mình và upload ảnh đã resize lên host

Code:
ThayDoiKichThuocAnh(Server.MapPath("~/upload/"), filehinh.FileName, 450, filehinh.PostedFile.InputStream)

Với filehinh là FileUpload.

Chúc các bạn thành công.!

_________________
Cộng Đồng It Vũng Tàu
Kinh Nghiệm-Học Hỏi-Chia Sẻ

[You must be registered and logged in to see this link.]
Về Đầu Trang Go down
http://www.jndev.cf
 

Thay đổi kích cỡ ảnh khi upload web ASP code VB.NET - Resize Image ASP VB.NET

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Ngôn Ngữ Lập trình :: ASP.NET-