• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Giải thích dùm e cái code chạy chữ

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Giải thích dùm e cái code chạy chữ
• Giải thích dùm e cái code chạy chữ

• Giải thích dùm e cái code chạy chữ

  cuongvan09 > 31-03-12, 03:34 PM

  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

• RE: các anh chị giải thích dùm e cái code này với

  bomnhauag > 31-03-12, 04:09 PM

  Trên form có 2 cái label tên là lbchuchay và chaychu 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.

• RE: Giải thích dùm e cái code chạy chữ

  Noname > 31-03-12, 04:29 PM

  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!
  

• RE: Giải thích dùm e cái code chạy chữ

  quan_pc > 01-04-12, 12:05 AM

  (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
  

• RE: Giải thích dùm e cái code chạy chữ

  bomnhauag > 01-04-12, 01:18 PM

  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 ^..^
• Bài trước Bài tiếp