TÀi liệu tham khảo lập trình visual basic giảng viên: Lương Trần Hy Hiến Email
tải về 5.95 Mb.
|
- Điều hướng trang này:
- Extra hard disk
- US.dollars
Combo BoxCombo Box là một control kết hợp giữa Textbox và Listbox, nên nó có cac đặc tính của cả hai đối tượng này. Combo Box cho phép trình bày, chọn các mục có trong danh sách và có thể nhập thêm các mục mới. Ngoài các thuộc tính giống như ListBox, Combo Box còn có thuộc tính đặc trưng là: Style: Dùng để quy định kiểu của ComboBox 0 : Kiểu ComboBox chuẩn, chỉ trình bày listbox khi kích chuột vào mũi tên bên phải 1 : Kiểu này luôn thể hiện listbox của nó bên dưới TextBox 2 : Cách sử dụng giống như một listbox (Không thể nhập trên textbox) chỉ khác ở cách trình bày. Text: Nội dung đang có trong phần Textbox. Ví dụ: Viết chương trình có sử dụng CheckBox và OptionButton theo yêu cầu sau: T  hêm trên Form hai Image có tên Img5 và Img6, một ListBox có tên Lst1 (nằm trong frame peripherals), một ComBoBox có tên Cmb1(nằm trong frame Payment method).
Các mục của Lst1 và Cmp1 là: Lst1: Lst1 Extra hard disk Printer Cmb1: US. Dollars Check English Pound Các mục này được đưa vào Lst1 và Cmb1 khi Formload (sử dụng sự kiện Formload) Khi mục Extra hard disk của Lst1 được chọn thì picture trong Img5 là: c:\program files\Microsoft visual studio\ common\ graphics\ metafile\ business \Harddisk.wmf Khi mục Printer của Lst1 được chọn thì picture trong Img5 là: …Printer.wmf (cùng folder với file hình trên) Khi mục US.dollars của Cmb1 được chọn thì picture trong Img6 là: …dollar.wmf Khi mục Check của Cmb1 được chọn thì picture trong Img6 là: …check.wmf Khi mục English Pound của Cmb1 được chọn thì picture trong Img6 là: …poundbag.wmf 
Option Explicit Private Sub chk1_Click() If chk1.Value = 1 Then img1.Visible = True Else
img1.Visible = False End If
End Sub Private Sub Chk2_Click() If Chk2.Value = 1 Then img2.Visible = True Else
img2.Visible = False End If
End Sub Private Sub Chk3_Click() If Chk3.Value = 1 Then img3.Visible = True Else img3.Visible = False End If End Sub
Private Sub Cmb1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmb1.AddItem cmb1.Text cmb1.Text = "" End If End Sub
Private Sub opt1_Click(Index As Integer) Dim i As Byte Select Case Index Case 0
Image2.Picture = LoadPicture("c:\program files\Microsoft visual studio\common\graphics\metafile\business\pcomputr.wmf") Case 1
Image2.Picture = LoadPicture("…computer.wmf") ‘đường dẫn như trên Case 2
Image2.Picture = LoadPicture("…laptop2.wmf") End Select End Sub
Каталог: books -> cong-nghe-thong-tin -> lap-trinh-ung-dung cong-nghe-thong-tin -> BÀi thực hành số 1 cong-nghe-thong-tin -> BÀi giảng cấu trúc máy tíNH cong-nghe-thong-tin -> Câu 1: Các thành phần của hệ điều hành, nhân hệ điều hành, tải hệ điều hành cong-nghe-thong-tin -> Bài 1 Những khái niệm cơ bản về ngôn ngữ c mục tiêu cong-nghe-thong-tin -> Trừ khi người ta cho bạn ngủ trong trạng thái đông lạnh suốt mấy năm vừa qua, nếu không, chắc chắn bạn đã nghe nói nhiều về máy tính và những mối đe dọa từ Internet đối với sự riêng tư của bạn lap-trinh-ung-dung -> Mục lục 2 Làm quen với visual basic 9 cong-nghe-thong-tin -> TÀi liệu html, dhtml và javascript ha noi 9/2008 cong-nghe-thong-tin -> Hình thức trả lời là chọn 1 hoặc nhiều đáp án đúng. Ứng dụng web cong-nghe-thong-tin -> SỞ khoa học và CÔng nghệ ĐĂKLĂk trung tâm tin họC & thông tin khcn tải về 5.95 Mb. Chia sẻ với bạn bè của bạn:
|