Điều hành viên: tungcan5diop, QUANITGROBEST
nly sẻ hướng dẫn phẩn nâng cao
Tin học là cuộc sống, Lập trình là người yêu, Vợ là computer 
nly
Hoặc bạn có thể tải về ở địa chỉ: http://www.microsoft.com/express/vb/ (Bản trial thôi )
Đừng lo, chúng ta sẽ được học trong các bài sau 
. Đó chính là form:
thì chương trình sẽ hiện ra:
. Bây giờ chúng ta sẽ thay đổi các thuộc tính của Label và Textbox trên form.
. Hãy thêm một chút màu mè cho nó.
. Nếu bạn mở ra bằng Windows Explorer, bạn có thể thấy rất nhiều files.
, bạn sẽ gặp hộp thoại sau:
, và form được hiện lên.
. Để tiện ghi nhớ chúng, hãy dán các nhãn lên các hộp giấy đó. Dán nhãn "number1" vào hộp 1, "number2" vào hộp 2.Mã: Chọn hết
- Dim number1 As Integer
- Dim number 2 As Integer
-
- number1 = 3
- number2 = 5
-
-
Mã: Chọn hết
- Private Sub Button1_Click(ByVal sender As System.Object, _
- ByVal e As System.EventArgs) _
- Handles Button1.Click
-
- End Sub
-
-
Mã: Chọn hết
- Dim number1 As Integer
- Dim number 2 As Integer
- Dim answer As Integer
-
- number1 = 3
- number2 = 5
-
- answer = number1 + number2
-
- MsgBox answer
-
-
Mã: Chọn hết
- number1 = 3
- number2 = 5
-
-
Mã: Chọn hết
- answer = number1 + number2
-
Ngoài cách này ra bạn có thể gõ luôn từ Text đằng sau Textbox1 như thế sẽ nhanh hơn.Mã: Chọn hết
- Textbox1.Text = answer
Mã: Chọn hết
- Dim FirstName As String
- Dim LastName As String
Mã: Chọn hết
- FirstName = "Only"
- LastName = "Nguyen"
-
Mã: Chọn hết
- Dim FirstName As String
- Dim LastName As String
- Dim FullName As String
-
- FirstName = "Only"
- LastName = "Nguyen"
-
- FullName = FirstName & LastName
-
- Textbox1.Text = FullName
-
Mã: Chọn hết
- FullName = FirstName & LastName
Mã: Chọn hết
- FullName = FirstName & " " & LastName
Mã: Chọn hết
- txtFirstName.Text = FullName
Mã: Chọn hết
- FirstName = "Bill"
- LastName = "Gates"
-
Mã: Chọn hết
- FirstName = txtFirstName.Text
- LastName = txtLastName.Text
-
Mã: Chọn hết
- Dim FirstName As String
- Dim LastName As String
- Dim WholeName As String
-
- FirstName = txtFirstName.Text
- LastName = txtLastName.Text
-
- WholeName = FirstName & " " & LastName
-
- MsgBox(WholeName)
-
-
Mã: Chọn hết
- Private Sub Button1_Click(ByVal sender As System.Object, _
- ByVal e As System.EventArgs) _
- Handles Button1.Click
-
- Dim firstname As String
-
- firstname = "Only"
- If firstname = "Only" Then MsgBox("firstname is Only")
-
- End Sub
-
Mã: Chọn hết
- If firstname = "Only" Then MsgBox("firstname is Only")
Mã: Chọn hết
- If firstname = "Only" Then
- MsgBox("firstname is Only")
- End If
-
Mã: Chọn hết
- Dim firstname as String
-
- firstname = "Only"
-
- If firstname = Only Then
- MsgBox "firstname is Only"
- End If
-
Mã: Chọn hết
- firstname = "gatoi"
-
- If firstname = "Only" Then
- MsgBox "firstname is Only"
- Else
- MsgBox "firstname is not Only"
- End If
-
Mã: Chọn hết
- firstname = "gatoi"
-
- If firstname = "Only" Then
- MsgBox("firstname is Only")
- ElseIf firstname = "gatoi" Then
- MsgBox("firstname is gatoi")
- Else
- Msgbox("unknow firstname")
- End If
-
Mã: Chọn hết
- If [điều kiện] Then
- Code nếu đúng
- ElseIf [điều kiện khác] Then
- Code nếu khác
- Else
- Code nếu không đúng cả 2 điều kiện trên
- End If
Mã: Chọn hết
- Dim name As String
- Dim DietState As String
- name = TextBox1.Text
-
- Select Case name
-
- Case "Only"
- DietState = "This is my friend"
- Case "gatoi"
- DietState = "It's me"
- Case Else
- DietState = "Who is this?"
-
- End Select
-
- MsgBox DietState
-
-
Mã: Chọn hết
- Select Case name
Mã: Chọn hết
- Select Case age
- Case 16 To 21
- MsgBox “Thanh niên”
- Case 50 To 64
- MsgBox “Già”
- End Select
-
Mã: Chọn hết
- Select Case [đối tượng]
- Case [giá trị 1]
- Code ở đây cho 1
- Case [giá trị 2]
- Code ở đây cho 2
- Case [giá trị x]
- Code ở đây cho x
- Case Else
- Các code khác
-
Mã: Chọn hết
- If number > 10 Then
- MsgBox "The Number was Greater Than 10"
- End If
Mã: Chọn hết
- If number <10 Then
- MsgBox "The Number was Less Than 10"
- End If
Mã: Chọn hết
- If number >= 10 Then
- MsgBox "The Number was 10 or Greater"
- End If
Mã: Chọn hết
- If number <= 10 Then
- MsgBox "The Number was 10 or Less"
- End If
Mã: Chọn hết
- If number > 5 And number < 15 Then
- MsgBox "Greater than 5 And Less than 15"
- End If
Mã: Chọn hết
- If number > 5 Or number < 15 Then
- MsgBox "Greater than 5 Or Less than 15"
- End If
Mã: Chọn hết
- If number1 <> number2 Then
- MsgBox "number1 is not equal to number2"
- End If
. cho mình bổ xung thêm 1 chút về các toán tử nha: (nếu có ở phần tiếp theo của các bạn thì xóa giúp ) . Bạn đã có thể đưa giá trị các con số hay các dòng chữ vào biến rồi.Mã: Chọn hết
- Dim MyNumbers(4) As Integer
- MyNumbers(0) = 1
- MyNumbers(1) = 2
- MyNumbers(2) = 3
- MyNumbers(3) = 4
- MyNumbers(4) = 5
Mã: Chọn hết
- Dim MyNumbers(4) As Integer
-
- MyNumbers(0) = 1
- MyNumbers(1) = 2
- MyNumbers(2) = 3
- MyNumbers(3) = 4
- MyNumbers(4) = 5
-
- MsgBox("First Number is: " & MyNumbers(0))
- MsgBox("Second Number is: " & MyNumbers(1))
- MsgBox("Third Number is: " & MyNumbers(2))
- MsgBox("Fourth Number is: " & MyNumbers(3))
- MsgBox("Fifth Number is: " & MyNumbers(4))
Mã: Chọn hết
- Dim numbers() As Integer
Mã: Chọn hết
- ReDim numbers(count)
Mã: Chọn hết
- ReDim numbers(3)
Mã: Chọn hết
- Dim numbers() As Integer 'Khai báo mảng numbers
- ReDim numbers(3) 'Khai báo lại mảng với 4 giá trị
- 'Gán các giá trị cho mảng
- numbers(0) = 1
- numbers(1) = 2
- numbers(2) = 3
- numbers(3) = 4
Mã: Chọn hết
- Dim answer As Integer
-
- answer = 1 + 2 + 3 + 4
-
- MsgBox answer
Mã: Chọn hết
- Dim answer As Integer
- Dim startNumber As Integer
-
- answer = 0
-
- For startNumber = 1 To 4
-
- answer = answer + startNumber
-
- Next startNumber
-
- MsgBox answer
-
Mã: Chọn hết
- For startNumber = 1 To 4
-
- answer = answer + startNumber
-
- Next startNumber
Mã: Chọn hết
- Dim startNumber As Integer
-
- For startNumber = 1 To 4
-
- MsgBox("Start Number = " & startNumber)
-
- Next startNumber
-
Mã: Chọn hết
- For i = startNumber To endNumber
-
- Next i
Mã: Chọn hết
- Dim startNumber As Integer
- Dim endNumber As Integer
- Dim i As Integer
-
- startNumber = 1
- endNumber = 4
-
- For i = startNumber To endNumber
- Msgbox i
- Next i
Mã: Chọn hết
- Dim chuoi(4) As String
- Dim hien as String
- chuoi(0) = "Only Nguyen"
- chuoi(1) = "is"
- chuoi(2) = "my"
- chuoi(3) = "best"
- chuoi(4) = "friend"
- For Each hien in chuoi
- ListBox1.Items.Add(hien)
- Next hien
-
Mã: Chọn hết
- Dim number as Integer
-
- number = 1
-
- Do While number < 5
- MsgBox number
- number = number + 1
- Loop
Mã: Chọn hết
- Do
-
- number = number + 1
-
- Loop While number < 5
Mã: Chọn hết
- Do Until number >= 5
-
- MsgBox number
- number = number + 1
-
- Loop
Mã: Chọn hết
- Do
-
- MsgBox number
- number = number + 1
-
- Loop Until number >= 5
Mã: Chọn hết
- Textbox2.Text = "Debug"
Mã: Chọn hết
- strText = "Debug"
- TextBox1.Text = strText
Mã: Chọn hết
- Dim strText As String
-
- strText = "Debug"
- TextBox1.Text = strText
Mã: Chọn hết
- strText = "Debug"
- TextBox1.Text = strText
-
- Dim strText As String
. Các lỗi dạng này thường xảy ra khi chương trình đang được chạy. Runtime Error là một lí do làm cho chương trình của bạn bị sụp đổ. Một lỗi đơn giản nhất là chia cho 0. Sửa code cho button và chạy thử nó:Mã: Chọn hết
- Dim Num1 As Integer
- Dim Num2 As Integer
-
- Num1 = 10
- Num2 = 0
-
- TextBox1.Text = CInt(Num1 / Num2)
Mã: Chọn hết
- rt1.LoadFile("C:\test10.txt", RichTextBoxStreamType.PlainText)
. Bạn không muốn chương trình của mình lại như thế phải không? Chúng ta hãy tiếp tục học về cách xử lí lỗi.Mã: Chọn hết
- Try
-
- Catch ex As Exception
-
- End Try
Mã: Chọn hết
- Try
-
- rt1.LoadFile("C:\test10.txt", RichTextBoxStreamType.PlainText)
-
- Catch ex As Exception
-
- End Try
Mã: Chọn hết
- MsgBox(ex.Message)
Mã: Chọn hết
- Catch ex As Exception
Mã: Chọn hết
- Catch ex As System.IO.FileNotFoundException
Mã: Chọn hết
- Try
-
- rt1.LoadFile("C:\test10.txt", RichTextBoxStreamType.PlainText)
-
- Catch ex As System.IO.FileNotFoundException
-
- MsgBox(ex.Message)
-
- Catch ex As Exception
-
- MsgBox(ex.Message)
-
- End Try
Mã: Chọn hết
- Try
-
- Catch ex As Exception
-
- Finally
-
- End Try
Mã: Chọn hết
- Dim x As Integer
- Dim y As Integer
- Dim answer As Integer
-
- x = 10.5
- y = 3
- answer = x * y
- TextBox1.Text = answer
Mã: Chọn hết
- Dim strUpper As String
-
- strUpper = TextBox1.Text
- TextBox2.Text = strUpper.ToUpper( )
Mã: Chọn hết
- Dim strTrim As String
-
- strTrim = TextBox1.Text
- TextBox2.Text = strTrim.Trim( )
Mã: Chọn hết
- Dim OneCharacter As Char
Mã: Chọn hết
- OneCharacter = "A"
Mã: Chọn hết
- Dim OneCharacter As Char = "a"
Mã: Chọn hết
- Dim OneCharacter As Char = "apple"
Mã: Chọn hết
- Dim SomeString As String
- Dim OneCharacter As Char
-
- SomeString = "gatoi"
- OneCharacter = SomeString.Chars(2)
Mã: Chọn hết
- FirstString = "gatoi.it@gmail.com"
- SecondString = "@"
-
- position = InStr(FirstString, SecondString)
Mã: Chọn hết
- position = InStr(1, FirstString, SecondString)
Mã: Chọn hết
- If position = 0 Then
-
- MsgBox "Not a Valid email address: There was No @ Sign"
-
- End If
Mã: Chọn hết
- Dim Email as String
- Dim DotCom as String
-
- Email = "gatoi.it@gmail.com"
- DotCom = Email.Substring(14, 4)
-
- MsgBox(DotCom)
Mã: Chọn hết
- Dim Email As String
- Dim length As Integer
- Email = "gatoi.it@gmail.com"
- length = Email.Length
-
- MsgBox(length)
Mã: Chọn hết
- Dim Email As String
- Dim DotCom As String
-
- Email = "gatoi.it@gmail.com"
- DotCom = Email.Substring(Email.Length - 4, 4)
Mã: Chọn hết
- If DotCom = ".com" Then
- MsgBox("Ends in Dot Com")
- Else
- MsgBox("Doesn't End in Dot Com")
- End If
Mã: Chọn hết
- If DotCom.Equals(".com") Then
Mã: Chọn hết
- Dim OldText As String
- Dim NewText As String
-
- OldText = "This is some test"
- NewText = OldText.Replace("test", "text")
-
- MsgBox(OldText)
- MsgBox(NewText)
Mã: Chọn hết
- Dim SomeText As String
- Dim NewText As String
-
- SomeText = "This some text"
- NewText = SomeText.Insert(5, "is ")
-
- MsgBox(SomeText)
- MsgBox(NewText)
Mã: Chọn hết
- Dim LineOfText As String
- Dim i As Integer
- Dim aryTextFile() As String
-
- LineOfText = "UserName1, Password1, UserName2, Password2"
-
- aryTextFile = LineOfText.Split(",")
-
- For i = 0 To UBound(aryTextFile)
- MsgBox(aryTextFile(i))
- Next i
Mã: Chọn hết
- Dim LineOfText As String
- Dim i As Integer
- Dim aryTextFile(3) As String
-
- aryTextFile(0) = "UserName1"
- aryTextFile(1) = "Password1"
- aryTextFile(2) = "UserName2"
- aryTextFile(3) = "Password2"
-
- LineOfText = LineOfText.Join("-", aryTextFile)
-
- MsgBox(LineOfText)
Mã: Chọn hết
- LineOfText = LineOfText.Join("-", aryTextFile)
This
is
a
text file
Mã: Chọn hết
- Dim FILE_NAME As String = "C:\test.txt"
-
- Dim objReader As New System.IO.StreamReader(FILE_NAME)
- TextBox1.Text = objReader.ReadToEnd
-
- objReader.Close()
Mã: Chọn hết
- System.IO.StreamReader
Mã: Chọn hết
- Dim FILE_NAME As String = "C:\test.txt"
-
- If System.IO.File.Exists(FILE_NAME) = True Then
- Dim objReader As New System.IO.StreamReader(FILE_NAME)
- TextBox1.Text = objReader.ReadToEnd
- objReader.Close()
- Else
- MsgBox("File Does Not Exist")
- End If
Mã: Chọn hết
- Dim TextLine As String
-
- Do While objReader.Peek() <> -1
- TextLine = TextLine & objReader.ReadLine() & vbNewLine
- Loop
Mã: Chọn hết
- Dim FILE_NAME As String = "C:\test.txt"
- Dim TextLine As String
-
- If System.IO.File.Exists(FILE_NAME) = True Then
-
- Dim objReader As New System.IO.StreamReader(FILE_NAME)
-
- Do While objReader.Peek() <> -1
- TextLine = TextLine & objReader.ReadLine() & vbNewLine
- Loop
-
- Textbox1.Text = TextLine
-
- Else
-
- MsgBox("File Does Not Exist")
-
- End If
Mã: Chọn hết
- Dim FILE_NAME As String = "C:\test.txt"
-
- If System.IO.File.Exists(FILE_NAME) = True Then
- Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
- objWriter.Write(TextBox1.Text)
- objWriter.Close()
- MsgBox("Text written to file")
- Else
- MsgBox("File Does Not Exist")
- End If
Mã: Chọn hết
- Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
Mã: Chọn hết
- objWriter.Write(TextBox1.Text)
Mã: Chọn hết
- objWriter.Write("I'm gatoi_it")
Mã: Chọn hết
- Dim FILE_NAME As String = "C:\test.txt"
- Dim i As Integer
- Dim aryText(4) As String
- Dim text As String
- aryText(0) = "This"
- aryText(1) = "is"
- aryText(2) = "a"
- aryText(3) = "text"
- aryText(4) = "file"
-
- Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
-
- For Each text In aryText
- objWriter.WriteLine(text)
- Next
-
- objWriter.Close()
Mã: Chọn hết
- Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
Mã: Chọn hết
- Dim FILE_NAME As String = "C:\test.txt"
- Dim i As Integer
- Dim aryText(4) As String
- Dim text As String
- aryText(0) = "This"
- aryText(1) = "is"
- aryText(2) = "a"
- aryText(3) = "text"
- aryText(4) = "file"
-
- Dim objWriter As New System.IO.StreamWriter(FILE_NAME,True)
-
- For Each text In aryText
- objWriter.WriteLine(text)
- Next
-
- objWriter.Close()
- MsgBox("Text Appended to the File")
Mã: Chọn hết
- Dim objWriter As New System.IO.StreamWriter(FILE_NAME, False)
Mã: Chọn hết
Mã: Chọn hết
Mã: Chọn hết
- MoveLocation = "C:\TestFolder\test.txt"
Mã: Chọn hết
- MoveLocation = "C:\TestFolder\NewName.txt"
Mã: Chọn hết
nth4 đã viết:bạn cho mình hiểu về withevents đi, mình ko hiểu về cái này
Mã: Chọn hết
- Public Class Class1
- Public Event TheEvent()
-
- Public Sub Work()
- RaiseEvent TheEvent()
- End Sub
- End Class
Mã: Chọn hết
-
- Public Class Form1
- Dim WithEvents obj As New Class1
-
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- obj.Work()
- End Sub
-
- Private Sub obj_TheEvent() Handles obj.TheEvent
- MsgBox("Xu li event tu class")
- End Sub
- End Class
Quay về “[.NET] Bài viết hướng dẫn”
Đang xem chuyên mục này: Không có thành viên nào trực tuyến. và 1 khách