for as long as until

... [movement along a path] [distribution] The Landmark is seen as long and narrow: There’s a ditch along the road Go along the road They scattered litter all along the road [location] [movement along ... Press SOED Shorter Oxford English Dictionary, 3rd ed 1972 Oxford Clarendon Press on1 on as in, a vase on a table on2 Adverbial on as in, Don’t stop Drive on np Noun or noun phrase re ‘regarding, ... or at least linger on, for centuries after the temporal usage has become well established Thus, one still occasionally comes across non-temporal expressions with before (e.g appear before the...

Ngày tải lên: 26/07/2016, 11:50

... KTMaTrung(ByVal b As String, ByVal c As String, ByVal ma As String) As Boolean Dim sqlConn As SqlConnection = New SqlConnection(strCon) Dim strMa As String = "" Dim cmdSqlCommand As SqlCommand = ... SqlConnection(strCon) from from Dim strMaSDH As String = "" ' Dim strPwd As String = "" Dim cmdSqlCommand As SqlCommand = New SqlCommand("Select * " & t & " ", sqlConn) Dim cmdSqlCommand1 As SqlCommand = New SqlCommand("Select ... cngay As String cngay = Right("0" & Microsoft.VisualBasic.Day(ngay), 2) & Right("0" & Month(ngay), 2) & Right(Year(ngay), 2) Dim sqlConn As SqlConnection = New SqlConnection(strCon) Dim sqlconn1 As...

Ngày tải lên: 04/08/2012, 14:23

... Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) IsMouseDown = True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ... Sử dụng vòng lặp For Next Sử dụng For Next để thay đổi độ lớn ký tự Form cách thay đổi thuộc tính FontSize Form Thiết kế Form có giao diện: Trang 21 TT Visual Basic Hình I.19: For Next Sự kiện ... biến form hàm Form_Load ta thiết lập giá trị Sau đó, hàm Form_Resize kiểm tra biến xử lý biến Bước 5: Khai báo biến Private Form1 tên sukienLoad: Private sukienLoad As Boolean Trong hàm Form_Load,...

Ngày tải lên: 16/08/2012, 09:17

... ' make sure it ends with a back slash If Right(AppFolder, 1) "\" Then AppFolder = AppFolder & "\" ' Assign Full path database filename to Data1 Data1.DatabaseName = AppFolder & "BIBLIO.MDB" ... ' make sure it ends with a back slash If Right(AppFolder, 1) "\" Then AppFolder = AppFolder & "\" ' Assign Full path database filename to Data1 Data1.DatabaseName = AppFolder & "BIBLIO.MDB" ... database nằm folder E:\Program Files\Microsoft Visual Studio\VB98, computer khách database nằm folder C:\VB6\DataControl chẳng hạn Do đó, chương trình khởi động ta nên xác định lại vị trí database...

Ngày tải lên: 16/08/2012, 13:43

... mưåt Form àậ àûúåc Loaded? Dng Function sau àêy ca Microsoft: Function FormIsLoaded(MyFormName As String) As Boolean ' Determines if a form is loaded Dim i As Integer FormIsLoaded = False For ... tûâ Registry Sub Form_Load ( xem Function GetSetting ) Àïí cho Form2 hiïån bïn phẫi vâ ngang hâng vúái Form1, trom Sub Form_Load ca Form2 dng: Sub Form_Load() Move Form1.Width, Form1.Top End Sub ... = To Forms.Count - If Forms(i).FormName = MyFormName Then FormIsLoaded = True Exit Function ' Quit function once form has been found End If Next i End Function Ài qua hïët collection ca Forms...

Ngày tải lên: 17/08/2012, 09:11

... Dim Dim Sh As Short I As Integer L As Long Sg As Single Db As Double Dc As Decimal B As Byte Ch As Char Str As String Bo As Boolean Da As Date - Tạo thủ tục Form1_Load để thêm mục chọn cho ListBox1 ... click vào nút Hien thi form giao diện thiết kế nhập xác đoạn mã sau: Dim LastName As String LastName = "Đức Lập" Label1.Text = LastName LastName = "LVP Office" Label2.Text = LastName Chú thích mã: ... tạo form điều khiển gồm ListBox, TextBox Button hình Viết mã: - Khai báo biến: Bạn khai báo biến (đặt dòng Public Class Form1) : Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Dim Sh As Short I As Integer...

Ngày tải lên: 18/08/2012, 08:56

... dụ DebugTest: Tạo dự án có tên DebugTest biết thiết kế form sau: Viết mã: Bạn tạo thủ tục Button1_click nhập vào đoạn mã sau: Dim tuoi As Integer If TextBox1.Text = "" Then MsgBox("Bạn tuổi?") ... -2- Add: cnt-44-dh, VIMARU Hướng dẫn lập trình VB.NET Chương 8: Debug chương trình vb.net Bạn mở form chế độ soạn thảo mã click chuột vào lề trái đoạn mã hình để làm xuất dòng sáng: Nhấn F5 hay...

Ngày tải lên: 18/08/2012, 10:37

... Internet Visual Basic làm ứng dụng Visual Basic form–based Trong ứng dụng Internet Visual Basic, dùng mô hình đối tượng quan hệ để truy xuất Có hai loại ứng dụng Internet Visual Basic : ứng dụng ... ‘thì thực đoạn lệnh  Cấu trúc tuyển Select Case Cú pháp : Select Case Case … Case … [ Case Else ] … ‘xét biến hay ... trình điều khiển form để đáp ứng hành động phím phiên dòch xử lý mã Ascii ký tự Thêm vào đó, ứng dụng Visual Basic hỗ trợ kiện rê thả tính rê thả OLE  Làm việc với văn đồ họa Visual Basic cung cấp...

Ngày tải lên: 18/08/2012, 11:19

... ta gọi Class NghệSĩ Parent Class, Super Class hay Base Class Còn Class CaSĩ Class H aS gọi Child Class hay SubClass 41 Nếu ta lại Inherit Class CaSĩ để tạo Class CaSĩTânNhạc Class CaSĩCổNhạc ... Public Class FatherClass 45 Protected DiSản As Single End Class Public Class SonClass Inherits FatherClass Public Function ChiaCủa() As Single Return Disản End Function End Class Ở ta có BaseClass ... trường hợp nầy CaSĩ Parent Class CaSĩTânNhạc với CaSĩCổNhạc Child Classes Mỗi Casĩ NghệSĩ nên ta có mối liên hệ "IS (Là)" hai classes nầy Nó khác với mối liên hệ "HAS (Có)" Thí dụ Class CaSĩ có Object...

Ngày tải lên: 21/08/2012, 09:54

... Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) lblNotify.Caption = "MouseDown Event" End Sub FPT Software Solution Trang:23/259 Giáo trình đào tạo Visual Basic ... Trang:18/259 Giáo trình đào tạo Visual Basic 6.0 ‘xuất frmMyForm.Visible =True ‘Biến frmMyForm.Visible =False d phương thức ‘xuất frmMyForm.Show ‘Biến frmMyForm.Hide 3.1.6 Cửa sổ Properties cửa ... Solution Trang:23/259 Giáo trình đào tạo Visual Basic 6.0 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) lblNotify.Caption = "MouseUp Event" End Sub Private...

Ngày tải lên: 21/08/2012, 15:06

... B) 11 C) 12 D) 13 Đáp án D Cho văn phạm G = {S→ aSbS | aS | c} (1) (2) (3) Câu phân tích xâu vào “aacbc” thuật toán Top-down Chọn sản xuất (1) (1) ... (2) (3) (1) (2) (3) để phân tích phải quay lui lần? A) B) C) D) Đáp án B Cho văn phạm G = {S→ aSbS | aS | c} (1) (2) (3) Câu phân tích xâu vào “aacbc” thuật toán Top-down Chọn sản xuất (1) (1) ... tích đầu đọc xâu vào trỏ tới kí tự thứ bao nhiêu? A) B) C) D) Đáp án D Cho văn phạm G = {S→ aSbS | aS | c} (1) (2) (3) Câu phân tích xâu vào “aacbc” thuật toán Top-down Chọn sản xuất (1) (2)...

Ngày tải lên: 21/08/2012, 15:21

... value Thí dụ dialog để chọn màu cho property ForeColor control Label1 Form Layout Bạn dùng form Layout để chỉnh vị trí forms form lần đầu lúc chương trình chạy Dùng context command Resolution Guides ... 480, nhỏ Form Designer Dùng để thiết kế giao diện lập trình Bạn bổ sung controls, đồ họa (graphics), hình ảnh form để tạo ma sát mà bạn muốn Mỗi form trình ứng dụng bạn có designer form riêng ... kê forms modules project hành bạn Một project tập hợp files mà bạn sử dụng để tạo trình ứng dụng Tức là, VB6, nói viết program có nghĩa triển khai project Properties window Liệt kê đặc tính forms...

Ngày tải lên: 22/08/2012, 11:02

... txtAge_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = ' swallow Key Enter to avoid side effect CmdEnter_Click ' Call Private Sub CmdEnter_Click from the same form End If End Sub ... txtAge_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = ' Swallow Key Enter to avoid side effect ' Make sure the Name field is not blank If txtName.Text = "" Then MsgBox "Please enter Name" ... Dùng SELECT CASE statement Thí dụ có nhiều ELSEIF viết lại sau: Select Case TheColorYouLike Case vbRed MsgBox "You 're a lucky person" Case vbGreen MsgBox "You 're a hopeful person" Case vbBlue...

Ngày tải lên: 22/08/2012, 11:03

... LogFileName For Append As FileNo Else Open LogFileName For Output As FileNo End If Select Case IncludeTimeDate Case ' No Time or Date Print #FileNo, Msg Case ' Time only Print #FileNo, Format(Now, ... GivenFileName, ByVal Msg As String, HasFolder As Boolean, IncludeTimeDate As Integer) ' Append event message Msg to a text Logfile GivenFileName ' If GivenFileName is fullPathName then HasFolder is true ... records v.v.) số Forms với Classes Nhớ Class gồm có Data Structure Subs/Functions/Properties làm việc (operate) data Data structure...

Ngày tải lên: 22/08/2012, 11:03

... frmMyForm sau: frmMyForm.Show Trong trường hợp nầy thật frmMyForm Class dùng y Object Chớ muốn, ta tạo hai, ba Objects Class frmMyForm lúc thí dụ sau: Dim firstForm As frmMyForm Dim secondForm As ... secondForm As frmMyForm Set firstForm = New frmMyForm Set secondForm = New frmMyForm firstForm.Show secondForm.Show Trong thí dụ ta declare firstForm secondForm Objects Class frmMyForm Sau ta làm ... firstForm secondForm statements Set = New firstForm secondForm gọi instances Class frmMyForm Class giống khuôn, Objects giống bánh làm từ khuôn Chắc bạn để ý thấy VB6 từ dùng hai từ Class Object...

Ngày tải lên: 22/08/2012, 11:04

... Maximum number of FileNames to remember Private myForm As Form Private RecentFiles As clsString Public Sub Init(TForm As frmMenu) Set myForm = TForm Set RecentFiles = New clsString ' Read the Most ... Form_QueryUnload executed trước Form Unload Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) SaveSettings End Sub Private Sub SaveSettings() ' Save Location of the form SaveSetting App.Title, ... ' Class Name: clsRecentFiles ' This Class saves the most Recent FileNames used in the Registry in form of ' a String delimited by | ' Up to MaxFiles Filenames maybe stored ' You need to pass...

Ngày tải lên: 22/08/2012, 11:04

... frmLogin.txtUserName ' assign the form's txtUserName to sUserName sPassword = frmLogin.txtPassword ' assign the form's txtPassword to sPassword Unload frmLogin ' Unload form frmLogin End Sub Login form hiển thị ... sUserName As String, ByRef sPassword As String) ' Invoke frmLogin form in Modal mode frmLogin.Show vbModal ' As soon as frmLogin is hidden, the execution gets here sUserName = frmLogin.txtUserName ' assign ... textboxes txtUserName txtPassword trả local variables strUserName strPassword Mã nguồn Sub Main Sub GetUserInfo liệt đây: Sub Main() Dim strUserName As String Dim strPassword As String ' Call local...

Ngày tải lên: 22/08/2012, 11:04

... add(txtPass); add(txtReadOnly); public void actionPerformed(ActionEvent event) { if (txtPass.getText().equals(PASSWORD)) txtReadOnly.setText("Password is valid"); else txtReadOnly.setText("Invalid password ... java.awt.event.*; public class DemoTextField extends Applet implements ActionListener { private TextField txtEdit; private TextField txtReadOnly; private TextField txtPass; private final String PASSWORD = "Java"; ... public void init() { txtEdit = new TextField("Your name here"); txtPass = new TextField(12); txtPass.setEchoChar('*'); txtPass.addActionListener(this); txtReadOnly = new TextField("This text...

Ngày tải lên: 22/08/2012, 11:06