Website chia sẻ tài liệu, ebook tham khảo cho các bạn học sinh, sinh viên
DataSet chỉ tiến hành sao chép bảng của csdl chứ không làm thay đổi nội dung csdl cho đến khi có yêu cầu cập nhật bằng phương thức UpDate.Cùng với thuộc tính ReadOnly của DataSet sẽ cho phép có thay đổi hay không với csdl. Bây giờ chúng ta sẽ tiến hành tìm hiểu những điều đó. Trở lại cửa sổ thiết kế form và mở thuộc tính properties của DataGr...
8 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 3147 | Lượt tải: 1
Ta tạo một thủ tục có tên count() ở ngay dưới phát biểu khai báo form1 như sau: Private Sub Count() Dim tongsobanghi, banghihienhanh As Integer tongsobanghi = Me.BindingContext _ (DsInstructors1, "Instructors").Count banghihienhanh = Me.BindingContext _ (DsInstructors1, "Instructors").Position + 1 lblIndexOfRecord.Text = "Record " & _ bangh...
15 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 3170 | Lượt tải: 1
Thủ tục này sẽ gán biến PrintPageSetting cho thuộc tính DefaultPageSettings của đối tượng PrintDocument1, copy văn bản trong ô rxtDocument vào biến StringToPrint và mở hộp thoại PrintPreviewDialog1. Thuộc tính Document của hộp thoại PrintPreviewDialog1 được gán bằng PrintDocument1 để chương trình biết bạn đang cần xem tài liệu nào. Sau cùng ...
16 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 2666 | Lượt tải: 0
Bây giờ chúng ta sẽ sử dụng lớp này. Bạn trở lại cửa sổ CodeEditor của form1 và mở thủ tục Button1_Click rồi sửa như sau: Dim nhanvien As New KiSu Dim NgaySinh As Date nhanvien.FirstName = TextBox1.Text nhanvien.LastName = TextBox2.Text NgaySinh = DateTimePicker1.Value.Date nhanvien.BacTho = InputBox("Bậc thợ của nhân viên:") MsgBox("Nhân ...
9 trang | Chia sẻ: aloso | Ngày: 14/12/2013 | Lượt xem: 3178 | Lượt tải: 2
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: 3643 | 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: 5005 | 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: 3197 | 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: 3492 | 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: 5391 | 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: 4469 | Lượt tải: 3