chữ chạy từ dưới lên

[fire286]

Gửi các bác DKT, em muốn làm một cái form giới thiệu nó đẹp đẹp tí, các bác có cách nào cho chữ chạy từ dưới lên không ạ. Cho em xin code VBA về để học tập nhé!

 

[fire286]

Ðề: chữ chạy từ dưới lên

Bạn cho chữ vào Textbox hoặc label, ở sự kiện On Timer bạn thay đổi thuộc tính Top cho nó (giảm) kiểm trả khi đã chạy khuất lên trên rồi thì đặt lại giá trị Top để nó lại chui từ dưới form lên. Chữ chạy nhanh hay chậm phụ thuộc vào giá trị Timer Interval bạn đặt.
Chúc thành công!

Hix bác cho em một ứng dụng mẫu được không? Bác nói sơ sơ thế em chịu thua

 

[xilanhtt]

Ðề: chữ chạy từ dưới lên

vụ này hay đấy
các bác cao thủ cho chúng e vài đường chỉ dẫn nữa đi, mà chỉ kỹ kỹ, chi tiết vào 1 chút nhé.

 

[hien luong]

Ðề: chữ chạy từ dưới lên

các bác ơi!em muốn dùng atvart la một hình ảnh có ở trong mypicter nhưng sao không dùng được. các bác chỉ cho em với

 

[tienduyet]

Ðề: chữ chạy từ dưới lên

các bác ơi!em muốn dùng atvart la một hình ảnh có ở trong mypicter nhưng sao không dùng được. các bác chỉ cho em với

Bác dongnamnb đã cho file rồi đó, bạn dựa vào đó mà biến thành của mình được mà.

 

[sinhvienpy89]

Ðề: chữ chạy từ dưới lên

các bác ơi!em muốn dùng atvart la một hình ảnh có ở trong mypicter nhưng sao không dùng được. các bác chỉ cho em với

Chào bạn.Muon chèn hình ảnh vào Form bạn có thể vào thanh công cụ Toolbox rà trên thanh công cụ thấy xuất hiẹn chữ Image là bạn kích vào Form ở chế độ thiết kế thì nó xuất hiện hộp thoại cho bạn chọn hình ảnh đưa vào.
Cách 2:Thì bạn đưa hình ảnh vào Table.
Giả sử bạn có trường hình ảnh thì bạn cho Type là OLE Object.Như thế là bạn đua được hình ảnh vào Table.Roi khi thiết kế Form bạn đưa trường hình ảnh vào se thấy thôi.Chúc bạn thanh công!

 

[fire286]

Ðề: chữ chạy từ dưới lên

Cảm ơn bác dongnamnb. Trong ví dụ của bác là cả cái textbox chạy lên, như vậy có một nhược điểm là khi em đánh nhiều chữ vào textbox thì chiều dài form cũng phải kéo dài ra rất mất thẩm mĩ. Các bác có cách nào mà để textbox đó đứng yên chỉ có chữ bên trong cuộn lên không?
-Hơn nữa làm sao cho dòng chữ kéo lên hết sau đó mới bát đầu cuộn lại vì trong ví dụ bên trên vừa đến top của form nó đã nhảy xuống dưới rồi?

 

[fire286]

Ðề: chữ chạy từ dưới lên

HIx các bác giúp thì giúp cho chót được không ạ :-S

 

[khanghi4288]

Ðề: chữ chạy từ dưới lên

Các bác làm rất hay, em thích lắm. Nhưng khi down file về máy em, thì không chạy được. Các bác chỉ em với.....
Em cũng làm chữ chạy trên form bằng code sau:
Private Sub Form_Timer()
Dim x, y As String
x = Left(lb.Caption, 10)
y = Right(lb.Caption, Len(lb.Caption) - 10)
lb.Caption = y + x
End Sub

Nhưng nó chỉ chạy được có 1 lần duy nhất, khi tắt access đi, rồi mở form lại thì không chạy được nữa.
Giúp em với
email của em khanghi4288@gmail.com

---------- Post added at 05:25 ---------- Previous post was at 05:21 ----------

Ngoài ra, em cũng thử làm theo cách tạo một nút lệnh, và một textbox, rồi sử dụng code

Private Sub com_Click()
lb.Caption = " chao ban ...... " & Space(3)
Me.TimerInterval = 200
End Sub

Private Sub Form_Timer()
Dim x, y As String
x = Left(lb.Caption, 1)
y = Right(lb.Caption, Len(lb.Caption) - 1)
lb.Caption = y + x
End Sub


Kết quả cũng tương tự (chỉ chạy được một lần duy nhất, lần sau không chạy được nữa)