THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 2

Thêm thủ tục xử lý sự kiện cho Button cmdGiophutgiay, trong thủ tục này chèn đoạn mã sau: Private Sub cmdGiophutgiay_Click() Dim gioht As String Dim phutht As String Dim giayht As String Call Laythoigian(gioht, phutht, giayht) lblTg.Caption = gioht & ":" & phutht & ":" & giayht End Sub Bước 5: Thêm thủ tục xử lý sự kiên cho Button cmdGiophut, trong thủ tục này chèn đoạn mã sau: Private Sub cmdGiophut_Click() Dim gioht As String Dim phutht As String Khong su dung tham so thu ba Call Laythoigian(gioht, phutht) lblTg.Caption = gioht & ":" & phutht End...
Nội dung trích xuất từ tài liệu:
THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 2 TT. Visual Basic Ham IsMissing kiem tra xem tham so nay co hay khong If IsMissing(giay) Then giay = Dim hientai hientai = Now gio = Format$(hientai, hh) phut = Format$(hientai, nn) giay = Format$(hientai, ss) End SubBước 4: Thêm thủ tục xử lý sự kiện cho Button cmdGiophutgiay, trong thủ tục nàychèn đoạn mã sau: Private Sub cmdGiophutgiay_Click() Dim gioht As String Dim phutht As String Dim giayht As String Call Laythoigian(gioht, phutht, giayht) lblTg.Caption = gioht & : & phutht & : & giayht End SubBước 5: Thêm thủ tục xử lý sự kiên cho Button cmdGiophut, trong thủ tục này chènđoạn mã sau: Private Sub cmdGiophut_Click() Dim gioht As String Dim phutht As String Khong su dung tham so thu ba Call Laythoigian(gioht, phutht) lblTg.Caption = gioht & : & phutht End SubBước 6: Lưu dự án lại và chạy chương trình. Kiểm tra kết quả. Bài tập 1II-6PARAM ARRAYBước 1: Tạo thư mục BasicBt1II-6. Tạo dự án mới trong thư mục này.Bước 2: Tạo Form như hình sau: Hình I.14: Param Array Trang 16 TT. Visual Basic Trong đó: ListBox: Name: lstTen Button: Name: cmdds; Caption: Them vao danh sachBước 3: Chèn modul mới vào dự án tên Modul1. Sau đó, chọn ToolAdd Procedure đểchèn thủ tục sau: Name: Diends Type: Sub Scope: PublicBước 3: Chèn đoạn mã sau vào thủ tục Diends Public Sub Diends(ParamArray Ten() As Variant) Su dung ParamArray thi mang phai kieu Variant va mang nay la tham so cuoi cung cua thu tuc Dim hten As Variant For Each hten In Ten() Form1.lstTen.AddItem hten Next End SubBước 4: ParamArray cho phép không cần xác định số lượng các đối số trong mộtchương trình con. Bây giờ, thêm hàm xử lý sự kiện cho nút cmdds: cmdds_Click: Private Sub cmdds_Click() Call Diends(Huynh Xuan Hiep, Nguyen Van Linh, Lam HoaiBao) Call Diends Call Diends(Phan Huy Cuong) End SubBước 5: Lưu dự án lại và chạy chương trình. Kiểm tra kết quả (hình bên dưới). Lưu ýđến lời gọi thủ tục trong sự kiện cmdds_Click (số lượng đối số khác nhau) Hình I.15: Kết quả Param Array Trang 17 TT. Visual Basic Bài tập 1II-7 XỬ LÝ CHUỖIBước 1: Tạo dự án mới trong thư mục BasicBt2-7 với giao diện như sau: 1 2 Hình I.16: Xử lý 3 chuỗi 4 51: Form: Name: frmMain; MinButton: False; MaxButton: False; Font: VNI-Times.2: Label: Name: lblTen.3: TextBox: Name: txtTen.4: CommandButton: Name: cmdTen; Caption: Tách tên.5: CommandButton: Name: cmdCKT; Caption: Cắt khoảng trắng.Bước 2: Tạo một hàm cắt khoảng trắng như sau:Private Function ATrim(ByVal Name As String) As String Name = LTrim(RTrim(Name)) Do While InStr(Name, ) 0 Name = Replace(Name, , ) Loop ATrim = NameEnd FunctionBước 3: Trong cửa sổ thiết kế Form; nhấp đúp vào Tách tên, ta xử lý đoạn mã cho sựkiện này:Private Sub cmdTen_Click() Dim sName As String, Name As String sName = ATrim(StrConv(txtTen.Text, vbProperCase)) Dim i As Long i = InStrRev(sName, ) Name = Right(sName, Len(sName) - i) MsgBox Name & : & Str(Len(Name))End SubBước 4: Sau đó, trở lại cửa sổ thiết kế, nhấp đúp vào Cắt khoảng trắng, ta xử lý:Private Sub cmdCKT_Click() Dim sName As String sName = ATrim(StrConv(txtTen.Text, vbProperCase)) Trang 18 TT. Visual Basic MsgBox sName, , Kieu du lieu chuoiEnd SubBước 5: Lưu dự án và chạy chương trình. ...