Câu lạc bộ Visual Basic

Chuyển mảng đó về dạng không dấu rồi thực hiện tìm kiếm trên đó

Bạn tham khảo cái này nhé

Tên chương trình: Lịch âm dương
Phiên bản: 1.0
Tác giả: Nguyễn Viết Chiến
Chức năng: Tra cứu ngày âm, dương, in lịch, xem theo ngày, tháng...

---

Tên chương trình: Cdict
Phiên bản: 1.0
Tác giả: Nguyễn Viết Chiến
Chức năng: Tra từ Anh - Việt, Việt - Anh với hơn 100.000 từ, phát âm từ/đoạn văn, dịch văn bản...
Yêu cầu: .NET framework 4.0 trở lên

---

[vbnet]
Function GetFilesCount(path as string) as integer
Return IO.Directory.GetFiles(path, "*.*").Count
End function
[/vbnet]

Nó vẫn hiện nhưng bị lấp bởi Button1. Thêm dòng này vào sau dòng Me.controls.add(button) để cho nó lên trước Button1
[vbnet]button.BringToFront()
[/vbnet]

Mình thấy nó vẫn hiện đấy chứ

Dùng cú pháp Adhandler , AddressOf de bat su kien. Xem ví dụ dưới đây: Trong sự kiện Form_Load: [vbnet] Dim button as new Button button.Location = new Point(10, 10) button.Text = "Button1" Adhandler button.Click, addressOf button_Click Me.controls.add(button) Sub button_Click(sender as Obj...

[vbnet] Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim lst1, lst2 As New List(Of Integer) lst1 = FindStringLoc(TextBox1.Text, "<title1>") lst2 = FindStringLoc(TextBox1.Text, "</title1>") TextBox2.Text = "" For i As Integer = 0 To l...

Ông vẫn không hiểu ah

Sử dụng hàm Replace thay thế <title1> và </title1> bằng kí tự trống ""

Bạn sửa lại thành: Module Module1 Sub Main() Dim n As Integer n = CLng(InputBox("Nhap n : ")) For i = 1 To n / 2 If (i * i = n) Then MsgBox(Str(n) + " la so chinh phuong") Exit sub End if MsgBox(Str(n) + " ko phai la so chinh phuong ") Next End Sub End Module Cách khác:...

Tên chương trình: Unblock me
Phiên bản: 1.0
Tác giả: Nguyễn Viết Chiến
Chức năng: Giải trí. Cách chơi: di chuyển các thanh gỗ để thanh màu đỏ có thể đi ra ngoài được
Download: https://onedrive.live.com/redir?resid=BD34935FD60712E2!12557&authkey=!AAIKFvGjRArAE2A&ithint=file%2cexe

Đây là chương trình demo bạn tham khảo nhé

Picture Puzzle 1.0 Nguyễn Viết Chiến Trò chơi ghép hình Download: https://onedrive.live.com/redir?resid=BD34935FD60712E2!12143&authkey=!ANSUnc6Yo5TjNIM&ithint=file%2cexe Download mã nguồn: https://onedrive.live.com/redir?resid=BD34935FD60712E2!12340&authkey=!AEkDBKmrRNuwKo0&ithint=f...

Download mã nguồn tại đây

Tên chương trình: Logic Blocks Exclusive
Phiên bản: 1.0
Tác giả: Nguyễn Viết Chiến
Chức năng: Puzzle Game
Cách chơi: ghép các hình thành phần ở dưới vào hình cho trước ở trên để được 1 hình hoàn chỉnh

Đặt con trỏ vào bất kì chấm tròn nào sau đó vừa giư chuột trái vừa di chuyển qua từng chấm tròn sao cho đường vẽ đi qua được toàn bộ các chấm tròn quay về vị trí ban đầu là được

Tên chương trình: One Touch Drawing
Phiên bản: 1.0
Tác giả: Nguyễn Viết Chiến
Chức năng: Giải trí
Cách chơi: vẽ lại mỗi hình bằng 1 nét duy nhất, bắt đầu và kết thúc ở cùng 1 điểm

---

Khai báo biến: Dim xo, yo As Integer Gán giá trị ban đầu: Private Sub Form_Load() xo = Picture1.Width / 2 yo = Picture1.Height / 2 End Sub Thủ tục vẽ trục tọa độ: Sub OXY() Picture1.DrawStyle = 0 Picture1.Cls ' Picture1.Line (xo, 0)-(xo, 2 * yo) Picture1.Line (0, yo)-(2 * xo, yo) Picture1.PSet (xo -...