Đang tải... (xem toàn văn)
Một số điều kiện tiện ích
Một số điều khiển tiện ích Cách thức hiển thị Visual Basic Thông tin đợc hiển thị biểu mẫu theo tầng Tầng chứa điều khiển phi đồ hoạ nh nút lệnh, hộp liệt kê, hộp kiểm nút tuỳ chọn Tầng chứa điều khiển đồ hoạ nh đ ờng kẻ, hinh ảnh, hộp ảnh điều khiển ảnh tầng cuối nơi vẽ hìnhtrực tiếp lên biểu mẫu phơng pháp đồ hoạ Hộp Thoại Chung (CommonDialog) Với Windows Visual Basic, ta thờng xuyên gặp hộp thoại chung chuẩn gồm: mở tệp tin, lu tËp tin, in tƯp tin, chän ph«ng chu ấn định màu Phơng pháp Hộp thoại ShowSave Nêu hộp thoại File Save ShowOpen Nêu hộp thoại File Open ShowColorNêu hộp thoại chọn màu ShowPrint Nêu hộp thoại Print ShowFont Nêu hộp thoại chọn phông chu Mọi hộp thoại chung phát sinh lỗi ngời dùng nhắp nút Cancel Chúng phát sinh lỗi hay không, điều tuỳ thuộc vào giá trị hành cđa tÝnh chÊt CancelError NÕu mn bÉy mét thao t¸c nhắp nút Cancel ngời dùng, ta ấn định tính chất True vào thời gian thiết kế dùng mà dới đây: [FormName].CommonDialogControlName.C ancelError = True ví dụ: Private Sub cmdShowBitmap_Click() CommonDialog1.CancelError = True On Error GoTo D1 CommonDialog1.ShowOpen Image1.Picture = LoadPicture(CommonDialog1.FileName) D1: MsgBox Err.Description End Sub ®iỊu khiĨn ListView ®iỊu khiĨn ListView cho phÐp ta hiĨn thị mục theo cách khác Có thể dùng điều khiển để xếp mục thành cột Các mục có biểu tợng lẫn văn để sử dụng ListView, ta trng hộp Proferty Pages cách: đặt ListView lên Form1 Chọn View/Proferty Pages Private Sub Command1_Click() Dim i As Byte Dim j As Byte ListView1.ListItems.Clear Randomize For i = To ListView1.ListItems.Add , , "Dong" & i For j = To ListView1.ListItems(i).SubItems(j) = Rnd(10) Next Next End Sub ®iỊu khiển StatusBar điều khiển StatusBar thờng nằm đáy biểu mẫu hay dùng để hiển thị tỡnh trạng ứng dụng bổ xung hình ảnh van vào panen cách làm việc với hộp thoại Ngoài vào thời gian thực hiện, bạn dùng phơng pháp Add cách khai báo trớc biến kiểu Panels dùng phơng pháp Add với cú pháp dạng nh sau: Set PaObj = StatusBarName.Panels.Add([index], [key], [text], [style], [picture] Private Sub Form_Load() Dim I As Integer Dim pnlX As Panel For I = To Set pnlX = StatusBar1.Panels.Add() Next I With StatusBar1.Panels Item(1).Style = sbrDate Item(2).Style = sbrTime Item(3).Style = sbrCaps Item(4).Style = sbrNum Item(5).Style = sbrIns Item(6).Style = sbrScrl End With End Sub ®iỊu khiĨn TabStrip ®iỊu khiĨn TabStrip ®a phơng cách tạo cho biểu mẫu có dáng hộp thoại gắn Tab dùng Tab để thực giao diện tuỳ ý để sử dụng điều khiển ta nên: đa điều khiển lên Form Hiển thị hộp thoại Property Pages Chọn Tabs đặt tiêu đề nh thuộc tính khác cho Tabs Ví dụ: để đáp ứng kiện cña tabs Option Explicit Private Sub Tabstrip1_Click() If TabStrip1.SelectedItem.Index = Then Text1.Text = "Chào bạn TabStrip " Else Text1.Text = " " End If End Sub ®iỊu khiĨn Toolbar Với điều khiển Toolbar ta xây dựng công cụ phục vụ cho ý tởng đề án VB Tính nng ToolTips b¸o ng ToolTips b¸o cho ngêi dïng chøc ToolTips báo ng đa trỏ chuột vào công cụ Nếu muốn nh nh lên công cụ, trớc hết hÃy lu anh vào ®iỊu khiĨn ImageList vµo thêi gian thiÕt kÕ hay thùc điều khiển TreeView TreeView cho phép ta xây dựng sơ đồ t ơng tự nh Windows Explorer Các đối tợng riêng lẻ thờng đợc gọi Notes điều khiển TreeView có tập hợp Nodes lu gi thông tin thông tin mắt xích điều khiển Bạn hÃy đặt TreeView lên Form1 mở hộp thoại Property Pages, đặt tính chất Style vµ LineStyle lµ tvwTreelinesPlusMinusText vµ tvwRootLines Private Sub Form_Load() TreeView1.ImageList = ImageList1 TreeView1.Style = tvwTreelinesPlusMinusPictureText Dim NodX As Node Set NodX = TreeView1.Nodes.Add(, , "Goc", "TuyenSinh2001", 1) Set NodX = TreeView1.Nodes.Add("Goc", tvwChild, "Cap1", "TuyenSinhDot1", 2) Set NodX = TreeView1.Nodes.Add("Cap1", tvwChild, "Cap11", "KhoiA", 3) Set NodX = TreeView1.Nodes.Add("Cap1", tvwChild, "Cap12", "KhoiD", 3) NodX.EnsureVisible ' HiÖn tÊt c nodes Set NodX = TreeView1.Nodes.Add("Goc", tvwChild, "Cap2", "TuyenSinh§ot2", 2) Set NodX = TreeView1.Nodes.Add("Cap2", tvwChild, "Cap21", "KhoiB", 3) Set NodX = TreeView1.Nodes.Add("Cap2", tvwChild, "Cap22", "KhoiC", 3) NodX.EnsureVisible ' HiÖn tÊt c nodes End Sub Microsoft Comm Control 6.0 điỊu khiĨn nµy gióp ta dễ dàng thiết kế phần iều khiển giúp ta dễ dàng thiết kế phần mềm truyền thông làm việc tuyến điện thoại binh thờng (không phi Internet) Nhiều tính chất khác điều khiển cho phép ta ấn định cổng truyền thông xác lập cần thiết, nh tốc độ baud, số lợng bit d thông tin liệu tính tơng đồng chẵn lẻ (parity) Private Sub CmdDocDuLieu_Click() Dim F As Integer Dim DataX As String MSComm1.CommPort = 'Chän cæng COM1 Rem G¸n tÝnh chÊt:28800 baud, no parity, data, vµ bit dõng MSComm1.Settings = "28800, n, 8, 1" MSComm1.InputLen = ' Xoá buffer truyền thông MSComm1.PortOpen = True ' Gửi tín hiệu đánh thức MSComm1.Output = "AT" + Chr$(13) Do F = DoEvents() MSComm1.InputLen = ' Xo¸ buffer DataX = DataX + MSComm1.Input Loop Until MSComm1.CommEvent = comEvEOF MSComm1.PortOpen = False ' đãng cængãng cæng End Sub ... "Dong" & i For j = To ListView1.ListItems(i).SubItems(j) = Rnd(10) Next Next End Sub điều khiển StatusBar điều khiển StatusBar thờng nằm đáy biểu mẫu hay dùng để hiển thị tỡnh trạng ứng dụng... tạo cho biểu mẫu có dáng hộp thoại gắn Tab dùng Tab để thực giao diện tuỳ ý để sử dụng điều khiển ta nên: đa điều khiển lên Form Hiển thị hộp thoại Property Pages Chọn Tabs đặt tiêu đề nh thuộc... vào điều khiển ImageList vào thời gian thiết kế hay thùc hiƯn ®iỊu khiĨn TreeView TreeView cho phÐp ta xây dựng sơ đồ t ơng tự nh Windows Explorer Các đối tợng riêng lẻ thờng đợc gọi Notes điều