banner

[Rule] Rules  [Home] Main Forum  [Portal] Portal  
[Members] Member Listing  [Statistics] Statistics  [Search] Search  [Reading Room] Reading Room 
[Register] Register  
[Login] Loginhttp  | https  ]
 
Messages posted by: adri  XML
Profile for adri Messages posted by adri [ number of posts not being displayed on this page: 8 ]
 
Mình muốn hỏi về cách thức hoạt động của những trang web kiểm tra nick ẩn, nó hoạt động như thế nào, có ai biết cách để viết code những trang tương tự như vậy ko, cám ơn nhiều nhé
những gì bạn nói thì thật sự mình không hiểu rõ lắm vì mình chỉ bắt đầu học VB.net được 2 tháng nay, chưa biết nhiều nên nghe nói như thế thì khó hình dung, giờ mình chỉ hiểu khi nói rõ ràng và có lẽ nhìn code thì tốt nhất, xin lỗi nhé chỉ là vì mình là người mới học thôi........
Mình mới có tài liệu về cách viết Undo nên post lên để mọi người tham khảo nhé

We will introduce undo using a simple application that keeps a running total of the numbers enterered.
Instruction Running total List
Start 0 -

Add 5
Add 7
Add 6
Undo
Undo
Add 4
Add 3
Undo
Add 7
Undo
Undo

To implement udo we need:
• Running total
• List of numbers added


Dim runningTotal As Integer = 0
Dim listSize As Integer = 0
Const MaxList As Integer = 100
Dim numbers(100) As Integer

Private Sub TabRunningTotal_Enter(...
lblRunningTotal.Text = "Running total = " & _
runningTotal
End Sub

Private Sub cmdAdd_Click(...
AddNumber(CInt(txtNumber.Text))
WriteNumbers()
lblRunningTotal.Text = "Running total = " & _
runningTotal
End Sub

Sub AddNumber(ByVal number As Integer)
runningTotal += number
numbers(listSize) = number
listSize += 1
End Sub

Sub WriteNumbers()
' display current number list
Dim nx As Integer
lblNumbers.Text = "Numbers"
For nx = 0 To listSize - 1
lblNumbers.Text &= vbNewLine & numbers(nx)
Next nx
End Sub

`Private Sub cmdUndo_Click(...
RemoveNumber()
WriteNumbers()
lblRunningTotal.Text = "Running total = " & _
runningTotal
End Sub

Sub RemoveNumber()
If (listSize > 0) Then
listSize -= 1
runningTotal -= numbers(listSize)
End If
End Sub


The code above is straightforward. Notes:
• Only the last two subs are required for undo.
• “RemoveNumber” protects against undoing with and empty list.
Could (should) also disable the undo button.
• Displaying the list of numbers is used for both “Add” and “Undo”
• The application uses tab controls. The equivalent of “Form_Load” is “Tab…_Enter”.
• The event methods (“cmdAdd_Click”, “cmdUndo_Click”) only do UI. The list handling is done by
separate subs. This is good style.

nghe có vẻ hơi mơ hồ 1 chút, nhưng bạn nói đúng, nếu có ebook để đọc thì sẽ tốt hơn
Xin chào, mình đang viết code cho phần Graphics, viết về chương trình vẽ, trong đó có phần người sử dụng sẽ undo (remove) the bursts trở về bước trước đó, nếu ai biết cách hay biết ebook nào chỉ về phần này, chỉ mình nhé, cám ơn nhiều............. smilie
Xin chào, mình đang tìm cuốn sách visual basic.net how to program 2008 của Deitel, mình đang cần phiên bản này, có ai có cuốn này chưa vậy, có thể chỉ cho mình với, cám ơn nhiều
cám ơn mọi người nhiều nhé................. hehe diệt xong rồi
Máy ở nhà mình bị con worm win32 netbooster giờ win bị lỗi tùm lum nhưng không biết chương trình nào diệt được con virus này, ai biết chương trình nào diệt được con này chỉ dùm nhé, giờ ko xài được máy gì hết........
sau tải về làm giống vậy mà nó cũng thế ko sửa được lỗi đó nhỉ, có cách nào khác ko, cài lại Win rồi mà cũng vậy à
 

Powered by JForum - Extended by HVAOnline
 hvaonline.net  |  hvaforum.net  |  hvazone.net  |  hvanews.net  |  vnhacker.org
1999 - 2013 © v2012|0504|218|