Tài liệu, ebook Kỹ Thuật Lập Trình

Viết mã: Tạo thủ tục btnTrongsuot_Clicktạo độ trong suốt: Me.Opacity = 0.5 Thủ tục btnMacdinh_Clickđưa trạng thái form trở về như cũ: Me.Opacity = 1 Chạy chương trình: Ấn F5 để chương trình chạy. Bạn ấn nút nhấn “Trong suốt” để form trong suốt.

10 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 3158 | Lượt tải: 0

Bây giờ thay vì yêu cầu chương trình hiển thị form HelpIfo trước chúng, ta sẽ yêu cầu chương trình thực thi thủ tục Sub Main. Thủ tục này thường được khai báo trong Module. Bạn R-Click vào dự án LuckySeven và chọn Add | New Item và thêm vào một module có tên SubMainModule. Bạn nhập vào khai báo như sau: Public MyForm1 As New Form1() Public ...

11 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 4529 | Lượt tải: 2

Chọn mục In Cabinet Files, bạn có thể tùy chỉnh các thông số tương ứng Nhấn chuột trở lại và lại chọn In Setup File. Chúng ta sẽ tạo ra một file cài đặt đơn chứa tất cả các file yêu cầu của chương trình. Nhấn OK để lưu lại các thay đổi của bạn trong hộp thoại Property Pages.

14 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 2770 | Lượt tải: 0

Bạn thêm vào form một đối tượng Process trên ToolBox bằng cách double click vào đối tượng đó hay kéo thả. Đổi thuộc tính Name của nó thành noteProcess. Để cho noteProcess khởi động chương trình NotePad bạn có thể chỉ định ngay chương trình NotePad.exe trong thuộc tính FileName của phần StartInfo (click vào dấu + bên trái) hay chỉ định trong l...

8 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 3066 | Lượt tải: 2

Bạn tạo giải pháp và thêm vào dự án cùng tên rồi thiết kế giao diện như hình. Viết mã: Tạo thủ tục mnuSaveEncriptionFile_Clickmã hóa văn bản và lưu vào file: Private Sub mnuSaveEncriptionFile_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles mnuSaveEncriptionFile.Click Dim letter As Char Dim key As String Dim i, charsInFil...

19 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 4928 | Lượt tải: 4

Trước hết ta tạo một tập hợp để chứa các tên địa chỉ web mà người dùng đã thăm bằng phát biểu sau đặt ngay dưới dòng khai báo lớp form1: Dim URLsVisited As New Collection() Với phát biểu này thì tất cả các thủ tục trong form đều có thể truy cập đến tập hợp này. Tiếp theo tạo thủ tục Button1_Click và nhập mã như sau: Private Sub Button1_Click(...

10 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 3909 | Lượt tải: 3

Trong phần bàn về thủ tục, ta thấy đối số có thể truyền theo tham trị (Byval) hay tham chiếu (Byref). Mặc định khi không khai báo thì nó truyền theo tham trị. Để truyền theo tham trị ta khai báo đối số trong thủ tục bằng từ khóa Byval. Khi đó bất cứ thay đổi nào trong thủ tục cũng không làm thay đổi giá trị của biến sau khi thủ tục chấm dứt...

12 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 3512 | Lượt tải: 2

Chuyển sang chế độ command Cửa sổ command còn cho phép làm việc ở chế độ command để tương tác trực tiếp với VB như File.SaveAll chẳng hạn. Để chuyển, bạn có thể gõ >cmd (enter) trong cửa sổ Immediate. Gõ thử File.SaveAll (Enter)

5 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 2888 | Lượt tải: 3

Tạo một giải pháp và thêm vào một dự án cùng tên là MyTimePassWordđồng thời thiết kế giao diện như hình trên. Đặt thuộc tính Intervalcủa Timer1 là 15000 ứng với 15s và enable là TRUE. Viết mã: Trước hết ta cài đặt thủ tục Timer1_Tickđể xử lý khi quá 15 giây mà người dùng chưa đăng nhập.Bạn tạo thủ tục này bằng cách double click vào TIMER1 và...

9 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 3616 | Lượt tải: 3

Viết mã: - Thêm các mục chọn là 4 nước trong lstcountry: các bạn có thể thêm các mục này khi thiết kế hoặc khởi tạo chúng tại sự kiện Form1_Loadnhư thế này: lstcountry.Items.Add("England") lstcountry.Items.Add("Germany") lstcountry.Items.Add("Mexico") lstcountry.Items.Add("Italy") - Tạo thủ tục lstcountry_SelectedIndexChangedđể điền thông t...

9 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 2075 | Lượt tải: 0