گرفتن متن از بانک اطلاعات و حرکت آن بر روی دسکتاپ

[zahedi121]

سلام
لطفا سورس ضمیمه شده را بگیرید .
سه تا سوال :
1- با نقاط سفید دور متن در حال حرکت چکار میشه کرد ؟ میخوام فقط متن سبز رنگ حرکت کند. برای عکسها میشه از png استفاده کرد ولی حالا که می خوام متن باشه چه راه حلی داره ؟
2- نمیدونم کجا اشتباه کردم ! چرا وقتی متن اول خارج میشه ، رکورد بعدی اجرا نمیشه ؟!! میخوام رکوردها یکی یکی نمایش داده بشن.
3- با اینکه تعریف کردم متن ها از ابتدا ، وارد صفحه بشن ولی همون متن اولی هم از آخر دیده میشه !!

[roya.raha]

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

[xxnagin]

سلام


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

فقط کافیه

Me.TransparencyKey = Me.BackColor
قرار بدید

Public Class Form1
'Make sure you put a space " " at the end of your string.
Dim scrolledString As String = "Hello there, here is my scrolling text demo!! :-) "
Dim myStrings(scrolledString.Length - 1) As String
Dim position As Integer = -1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Top = 0
Me.Left = 0
Me.Height = 110
Me.TransparencyKey = Me.BackColor
Label1.Left = 0
Label1.Top = 0
Me.Width = Screen.PrimaryScreen().Bounds.Width
'You might want to change these size values?

Call ScrollType2(scrolledString)
'Make this value smaller say as low as 25 for
'a faster scroll effect.
Timer1.Interval = 75
Timer1.Enabled = True
Timer1.Start()
End Sub
Private Sub ScrollType1(ByVal someString As String)
For index As Integer = 0 To UBound(myStrings)
Dim workedString As String = ""
workedString = someString.Substring(index)
myStrings(index) = workedString
Next
End Sub
Private Sub ScrollType2(ByVal someString As String)
For index As Integer = 0 To UBound(myStrings)
Dim workedString As String = ""
workedString = someString.Substring(index) & " " & someString.Substring(0, index)
myStrings(index) = workedString
Next
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
position += 1
Dim testString As String
testString = myStrings(position)
Label1.Text = testString
'You could add this line to scroll the FORM title text too!!
Me.Text = testString
If position = UBound(myStrings) Then position = -1
End Sub
End Class

[zahedi121]

100485سلام

در مورد سوالاتی که من پرسیدم چی ؟ :لبخندساده:
با سورسی که گذاشتید مثل سورس من متن حاشیه های زشتی دارد.
در مورد پایگاه داده هم اگر کمک کنید ممنون میشم.

[xxnagin]

سلام
اینم من گیر اوردم
ولی حیف که برای Graphics هستش
http://stackoverflow.com/questions/1596961/anti-aliased-text-in-a-transparent-net-form
این formGraphics.TextRenderingHint را برابر SingleBitPerPixelGridFit قرار دادم

Dim formGraphics As Graphics = e.Graphics
Dim myFont As Font = New Font("Microsoft Sans Serif", 24, FontStyle.Bold)
formGraphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.SingleBitPer PixelGridFit
''formGraphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.SingleBitPer Pixel;
formGraphics.DrawString("00:00:00", myFont, Brushes.Black, 0.0F, 0.0F)
myFont.Dispose()

[zahedi121]

سلام
میشه راجع به کدها توضیح بدهید.
راستی یک فکر دیگم به ذهنم رسید میشه از طیفهای نزدیک رنگ برای بک گراند و رنگ متن استفاده کرد . حاشیه حذف میشه ولی باز یکم فونتها زشت میشه.

بقیه دوستان نظری ندارند ؟ راستی چرا سورس من رکورد بعدی بانک را نشون نمیده ؟:متفکر:

[roya.raha]

فونتی با بک گراند بی رنگ نداریم ؟
در خصوص بانکتون فکر کنم جاییکه میخواهید برید رکورد بعد اشتباه باشه ، من که تا حالا با این دستور کار نکردم .

[zahedi121]

در خصوص بانکتون فکر کنم جاییکه میخواهید برید رکورد بعد اشتباه باشه ، من که تا حالا با این دستور کار نکردم .

سلام
چرا اشتباهه ؟ اگر توضیح بدید ممنون میشم.

[zahedi121]

سلام
با بانک جدید و اصلاح کد اینطوری شد .
ببینید می تونید با همون بانک اصلی درستش کنید . در بانک اصلی در یک رکورد سه سطر و جود داره.

سپاسگزارم