Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tham khảo tài liệu 'các chương trình mẫu .net part 7', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Coding TechmqiK-r- -- 547 Phần X - Microsoft .NET Framework 58. Làm hoạt hình với GDI Chương trình này biểu diễn kỹ thuật để làm hoạt hình animation với GDI bao gồm hoạt hình theo các khung hình frame vẽ và dì chuyển các hình cơ bản trên màn hình và hoạt hình tô màu văn bản. jjjÌLàm hoạĩ hình v3 GDI __ BBt3 Animation Examples r WmkingEye r BourwhsjBa Animated Text Các chức năng chính Làm hoạt hình kiểu frame sử dụng các hình ảnh liên tục để hiển thị một con mắt đang chớp. Tạo một quả banh dội tường với kích thước và tốc độ của quả banh có phụ thuộc vào kích thước của cửa sổ. Làm hoạt hình cho văn bản bằng cách dì chuyển các điểm bắt đầu và kết thúc vùng tô màu màu biến thiên . Project Lam hoat hình voi GDI Control Timer tmrAnimation frmMain.vb Option Strict On Imports System.Drawing.Drawing2D Imports System.Drawing.Text 548 Coding Techniques - Public Class frmMain Inherits System.Windows.Forms.Form Friend WithEvents tmrAnimation As System.Windows Forfns.Timer Code phát sinh form được bỏ qua Const WINK_TIMER_INTERVAL As Integer - 150 Tinh bàng mini giây I Protected arrlmages 4 As Image Protected intCurrentlmage As Integer 0 Protected j As Integer - 1 Const BALL.TIMERJNTERVAL As Integer 25 Private intBallSize As Integer 16 Private IntMoveSize As Integer 4 Private bitmap As bitmap Private IntBallPositionX intBallPositionY As Integer Private IntBallRadiusX intBallRadiusY intBallMoveX intBallMoveY _ intBallBitmapWidth intBallBitmapHeight As Integer Private intBitmapWidthMargin intBitmapHeightMargin As Integer Const TEXT-TIMER-INTERVAL As Integer 15 Protected intCurrentGradientShift As Integer 10 Protected intGradiantstep As Integer 5 Private Sub frmMain_Load ByVal sender As System. Object By Vai ẹ As System. EventArgs Handles MyBase.Load Lấy mảng các hĩnh ảnh chớp mắt - Dim i As Integer Fori 0To3 arrlmages i New bitmapr.AEye i 1 .ToStríng png Next i End Sub Xử lý sự kiện thay đổi các nút Radio Private Sub .
