نوشتن متن در لیبل به صورت خبری (تایپی)

[vb-sosol]

سلام دوستان
چطوری میتونم توی یک لیبل یک نوشته رو به صورت تایپی نمایش بدهم؟
ممنون

[SlowCode]

سلام
یعنی چی به صورت تایپی؟ بیشتر توضیح بده!

اگه منظورت اینه که قابل فوکوس باشه و متنش رو بشه کپی کرد، بهتره از تکست باکس استفاده کنی و lock رو true کنی.
بعد borderstyle رو none کن و background رو روی رنگ پس زمینه ست کن.

اگر هم منظورت این نیست توضیح بده.

[IamOverlord]

شاید منظورشون اینه که متن در حال تایپ شدن باشه... :متفکر:

[vb-sosol]

مثل این سایتهای خبری هست که میریم
آخرین اخبار دارن
به صورت تایپ شدنی کلمات یکی یکی به هم میچسبن و تشکیل یه جمله میدن

[SlowCode]

یه تایمر و یه لیبل بزار روی فرم بعد اینو بنویس:

Dim txt As String, pos As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Label1.Caption = vbNullString
txt = "This is an example text."
Timer1.Enabled = False
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()

pos = pos + 1
If pos > Len(txt) Then Timer1.Enabled = False

Label1.Caption = Mid(txt, 1, pos)
Label1.Refresh

End Sub


سرعت تایپ شدن رو میتونی با کم کردن interval افزایش بدی.

[ms-ninja]

حالا اگه بخوایم یه متنی رو از یک فایل تکست بخونه چی؟

[SlowCode]

این کدها رو به جای خط هشتم بنویس:

open "C:\file.txt" for input as #1
txt=input(lof(1),1)
close

به جای C:\file.txt مسیر فایلت رو بنویس.

[ms-ninja]

مرسی خیلی عالی بود

اگربخوایم از یک لینک اینترنتی فایل تکست استفاده کنیم مثلا http://google.com/1.txt

این با چه روشی انجام میشه

[SlowCode]

میتونی از وب بروزر یا Inet اون صفحه رو باز کنی بعد بریزیش تو متغیر txt
مثلا:
txt=Inet.Openurl("http://google.com/1.txt")

[ms-ninja]

Dim txt As String, pos As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Label1.Caption = vbNullString
txt=Inet.Openurl("<a href="http://nodroon.org/serverlist.txt" target="_blank">http://nodroon.org/serverlist.txt</a>")
Timer1.Enabled = False
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()

pos = pos + 1
If pos > Len(txt) Then Timer1.Enabled = False

Label1.Caption = Mid(txt, 1, pos)
Label1.Refresh

End Sub



اخطار میده

[Veteran]

اول از قسمت componnet ابزار رو اضافه کنید بعد یک نمونه از اون رو روی فرم قرار بدید

[SlowCode]

برای متد openurl باید آدرس صفحت رو بدی، احتمالا همون متنی رو که من نوشتم رو نوشتی به همین دلیل خطا میده(سایت برنامه نویس آدرس لینکها رو یکمبه هم میریزه-خودت دستی بنویس)
البته همون طور که دوستمون گفتن اول باید کامپوننت microsoft internet transfer control رو اضافه کنی.

[program2vb]

مرسی خیلی عالی بود

اگربخوایم از یک لینک اینترنتی فایل تکست استفاده کنیم مثلا http://google.com/1.txt

این با چه روشی انجام میشه

سلام ;
میتونی از کد زیر استفاده کنی دوست عزیز :


Private Sub label1_Click()
Set w = CreateObject("wscript.shell")
w.run Label1.Caption, vbNormalNoFocus
End Sub


و یا


Shell "explorer http://google.com", vbNormalFocus



اون آدرس هم که
نوشتین تو ویبی کار نمیکنه باید بجای " از chr(34) استفاده کنی ..... چون تو ویبی از " برای رشته استفاده میکنیم و برنامه خطا میده


یا هم میتونین اون کد html رو داخل تکست بنویسید و مقدار اونو داخل متغییر بریزید یا بطور مستقیم ازش استفاده کنین ........


موفق و پیروز باشی در پناه خدا ..... یاعلی

[ms-ninja]

106424

به این نگاه کنین

[alipoor2009]

کد Ninja مشکل داشت اصلاحش کردم

می تونید استفاده کنید

البته واسه متن فارسی نمی شه اگه نیاز شد بگید و بزارم

[ms-ninja]

برای فارسی میخوام