Tạo flash form trong VB.NET

Đó hỏi: Em đang làm một chương trình quản lý cửa hàng bằng VB.NET 2003. Em muốn tạo một flash form: khi mở chương trình, form hiện lên rồi mờ dần. Xin e-CHÍP hướng dẫn. <pqc21307@>

Đây trả lời:

Muốn làm cho một form mờ dần, bạn dùng thuộc tính AllowTransparency để cho phép form được hiển thị trong suốt, dùng thuộc tính Opacity để thay đổi tỷ lệ trong suốt và dùng một Timer để tạo hiệu ứng mờ dần. Cụ thể, bạn chỉ cần vẽ thêm trên flash form của mình một Timer có tên Timer1 với thuộc tính Enabled = True và thuộc tính Interval = 100, rồi gõ vào đoạn mã 1 (trong đó, giả sử flash form của bạn có tên là frmFlashForm). Flash form như vậy sẽ tự động mờ dần và biến mất sau 15 giây. Người dùng có thể bấm chuột tại thời điểm trước 15 giây để form biến mất sớm hơn.

Đoạn mã 1

Public Class frmFlashForm
Dim nThoiGianCho As Integer
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Click
nThoiGianCho = 0
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
Me.AllowTransparency = True
nThoiGianCho = 15000 ' 15 giây
Me.Opacity = 1 ' Tương đương 100%
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
If nThoiGianCho <= 0 Then
If Me.Opacity <= 0.03 Then
Me.Dispose() ‘ Unload form
End If
Me.Opacity = Me.Opacity - 0.03
Else
nThoiGianCho = nThoiGianCho - 100
End If
End Sub
End Class

CHƯƠNG CAN CHÍP

Tính trung bình từ các cột điểm bằng Access

Đó hỏi: Trong Access, form của em có 10 cột nhập số liệu và một cột kết quả. Em muốn rằng sau khi nhập số liệu vào các cột thì máy sẽ cho trị trung bình vào cột kết quả. Nhưng vì mỗi học sinh có số cột điểm khác nhau (có thể không đủ 10 cột điểm) nên nhiều khi máy không thực hiện được. Xin hướng dẫn cách giải quyết. <nutadao@>

Đây trả lời:

Không phải máy không thực hiện được. Trước tiên, bạn thử kiểm tra điều này xem có xảy ra hay không: sau khi đã có một lần nhập dữ liệu đủ 10 cột, nếu nhập chỉ 2 hoặc 3 cột, Access vẫn tính được kết quả cho bạn.
Nếu xảy ra hiện tượng trên thì đó là do khi form mới được mở, các ô text box dùng để nhập dữ liệu chưa được gán trị ban đầu, mặc định chúng nhận trị Null. Vì thế, kết quả luôn luôn là Null nếu chưa có lần nào nhập đủ dữ liệu cho 10 ô text box.
Giả sử trên form có 5 ô text box tên: txtDiem1, txtDiem2, txtDiem3, txtDiem4, txtKetQua. Để tính trung bình 4 cột điểm, thuộc tính Control Source của ô txtKetQua là:
=(txtDiem1 + txtDiem2 + txtDiem3 + txtDiem4) / 4
Bạn cần thêm đoạn mã sau đây vào thủ tục xử lý tình huống On Load của Form:
Private Sub Form_Load()
txtDiem1 = 0: txtDiem2 = 0: txtDiem3 = 0: txtDiem4 = 0
End Sub
Bạn có thể làm tương tự đối với trường hợp cụ thể của mình.

CHƯƠNG CAN CHÍP

Xóa thông tin cá nhân trong Word 2003

Đó hỏi: Trong quá trình tạo tập tin Word 2003, tôi muốn xóa các thông tin cá nhân (như: authors, owner,...) hiển thị trong cửa sổ Properties. Vấn đề là tôi muốn tính năng này thực hiện mỗi khi tôi lưu tập tin. Tôi đã thử cập nhật Normal.dot, nhưng không thành công. <Chuotmickey_disney@>

Đây trả lời:

Muốn xóa thông tin cá nhân (Author, Manager, Company, Last Save By) trong tập tin Word 2003 khi lưu, bạn vào Tools -> Options -> Security, đánh dấu chọn vào “Remove Personal information from file properties on save”, nhấn OK.

Tạo thư mục riêng trong Windows XP

Đó hỏi: Máy tính ở công ty cài Windows XP, nhiều nhân viên dùng chung (mỗi nhân viên một tài khoản riêng biệt). Xin hỏi, trong Windows XP có chức năng nào không cho tài khoản khác truy cập vào thư mục của riêng tôi không? <dainamcompany@>

Đây trả lời:

Trước tiên, ổ C (ổ đĩa cài Windows) phải được định dạng theo hệ thống tập tin NTFS, và thư mục muốn dùng riêng phải nằm theo đường dẫn C:\Document and Setting\User_name (User_name là tên tài khoản của bạn). Bạn thực hiện như sau: Nhấp chuột phải vào thư mục, đánh dấu chọn vào “Make this folder private” ở thẻ Sharing, bấm OK.

MOLANG

[Đầu trang]