Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giải thích dùm e cái code chạy chữ
#1
Private Sub Form_Timer()
Dim S As String
S = lblchuchay.Caption
lblchuchay.Caption = Mid(S, 2) & Left(S, 1)
Dim T As String
T = chaychu.Caption
chaychu.Caption = Right(T, Len(T) - 1) & Left(T, 1)
End Sub

xin các anh chị giải thích dùm e cái code này với e cảm ơn nhieu
Chữ ký của cuongvan09 Xin chào, mình là cuongvan09, Tham gia http://thuthuataccess.com/forum từ ngày 17-03 -12.
Reply
Những người đã cảm ơn
#2
Trên form có 2 cái label tên là lbchuchaychaychu chứa sẵn nội dung nào đó. Tác dụng của đoạn code trên là: trong một khoảng thời gian (được định sẵn trong Properties của form) sẽ tiến hành di chuyển 1 kí tự đầu tiên trên label đem ra phía sau đuôi của nó. Và lặp lại hoài nên bạn sẽ có cảm giác như 2 cái dòng chữ trên label đó chạy chạy như mấy cái bảng đèn LED quảng cáo bạn thấy ngoài đường áh.
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cuongvan09
#3
Private Sub Form_Timer() ' Trong sự kiện thời gian của Form
Dim S As String ' Khai báo một biến tên là S dạng chuỗi
S = lblchuchay.Caption ' Gán biến S bằng giá trị của label lblchuchay
lblchuchay.Caption = Mid(S, 2) & Left(S, 1) ' Giá trị nhãn chuchay = Chữ thứ 2 trở đi của chuỗi S và chữ đầu tiên của chuỗi S. Dòng này mục đích là lấy ký tự bên trái, bỏ vào bên phải chuỗi. Ví dụ Cụm từ ban đầu là "Tiếng Việt" thì nó sẽ hiển thị thành "iếng ViệtT"
Dim T As String ' Tạo một biến T dạng chuỗi
T = chaychu.Caption ' Gán T bằng giá trị của label chaychu
chaychu.Caption = Right(T, Len(T) - 1) & Left(T, 1) ' gán lable chaychu bằng giá trị T bỏ ký tự đầu tiên & Ký tự đầu tiên. Mục đích y chang dòng trên
End Sub[ kết thúc sự kiện thời gian của form
Lưu ý cách đặt tiêu đề của bạn nhé, làm sao để topic của mình người ta nhìn vào tiêu đề thì biết bạn muốn hỏi gì, những người gặp vấn đề tương tự cũng biết là đã có chủ đề đó và không cần đặt lại câu hỏi nữa!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cuongvan09
#4
(31-03-12, 03:34 PM)cuongvan09 Đã viết: Private Sub Form_Timer()
Dim S As String
S = lblchuchay.Caption
lblchuchay.Caption = Mid(S, 2) & Left(S, 1)
Dim T As String
T = chaychu.Caption
chaychu.Caption = Right(T, Len(T) - 1) & Left(T, 1)
End Sub

xin các anh chị giải thích dùm e cái code này với e cảm ơn nhieu

ak code chữ chạy trong access
Dim S As String khai báo biến s kiểu chuỗi
S = lblchuchay.Caption ( lblchuchay là cái dữ liệu của label ngoài from á)
blchuchay.Caption = Mid(S, 2) & Left(S, 1)
Dim T As String
T = chaychu.Caption
chaychu.Caption = Right(T, Len(T) - 1) & Left(T, 1) //cái này dùng để tạo cho nó chạy đó bạn nhìn code hiểu
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , cuongvan09
#5
Long bàn ngoài lề 1 tí: AC là hệ quản trị CSDL, công dụng chính của nó là xử lý và quản lý dữ liệu, nên khi tìm đến với AC để lập trình thì a/e nên chuyên tâm vào CSDL sẽ hay hơn là mất thời gian vào những option "râu ria" này. Nếu muốn "tung tăng" thì hãy chọn ngôn ngữ khác sẽ tốt hơn (VB.NET chẳng hạn).

Nếu đắc tội xin bỏ wa dùm ^..^ big green
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , cuongvan09


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 231 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Không chạy được VBA Code hungthanmx 3 219 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep
  [Hỏi] File chạy chậm vì trong quá trình design phải chỉnh sửa và test thử nhiều. toancvp 4 267 29-07-16, 11:36 PM
Bài mới nhất: toancvp
  chạy file access trên mạng internet thanhtruong 15 867 11-06-16, 01:38 AM
Bài mới nhất: nguyenvantien87
  [Help] ai giúp mình code lại sql này thành access với li_95 0 133 24-04-16, 05:59 PM
Bài mới nhất: li_95

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ