قرار دادن عکس روی دسکتاپ با تنظیمات و حل مشکل
من یه سوال کرده بودم که :
ما 3 تا متن داریم میخواهیم در فاصله زمانی مثلا 5 ثانیه این متن ها به طور جداگانه در یک لیبل دیده بشه . مثلا پنج ثانیه اول متن اول در لیبل دیده بشه و 5 ثانیه دوم متم دوم و........
و جواب دادید :
خوب یک کنترل timer به برنامه اضافه کن.خاصیت Interval رو 5000 قرار بده.
توی رویداد Tick کد زیر رو بنویس:
Dim Myarray() As String = {"a", "b", "c", "d"}
Dim I As Integer = 0
Label3.Text = Myarray(I)
I = I + 1
ولی فقط مقدار اول یعنی A رو نشون میده مشکل کجاست ؟
و یه سوال دیگه داشتم که چه طور میشه برای یه کنترل آرایه درست کرد . مثلا ما در ویبی 6 برای این کار index کنترل را برابر صفر قرار می دادیم و بعد با کپی کردن آن خود کنترل index های بعدی را تنظیم می کرد . حالا این کار یا مشابه اونو در ویبی 2008 چه طور انجام میدن؟
چه طور میشه عکس پس زمینه دسکتاب رو تغییر داد و از مهمتر اینکه چه طوری انتخاب کنیم که عکسی رو که روی دسکتاب می اندازیم با حالت Stretch باشه یا Tile ویا Center .
Public Sub List_Save(TheList As ListBox, fileName As String)
'Save a listbox as FileName
On Error Resume Next
Dim save As Long
Dim fFile As Integer
fFile = FreeFile
Open fileName For Output As fFile
For save = 0 To TheList.ListCount - 1
Print #fFile, TheList.List(save)
Next save
Close fFile
End Sub
Public Sub List_Load(TheList As ListBox, fileName As String)
'Loads a file to a list box
On Error Resume Next
Dim TheContents As String
Dim fFile As Integer
fFile = FreeFile
Open fileName For Input As fFile
Do
Line Input #fFile, TheContents$
Call List_Add(TheList, TheContents$)
Loop Until EOF(fFile)
Close fFile
End Sub
Public Sub List_Add(List As ListBox, txt As String)
List.AddItem txt
End Sub
توی ویبی 6 با کد های بالا اطلاعات داخل یک لیست باکس رو توی یک فایل به همون شکلی که توی لیست باکس بود رو ذخیره می کردم و یا ازش بازیافت می کردم و یا به لیست اضافه می کردم . می خوام بدونم این کار رو توی ویبی 2008 چه طور انجام می دند.
و با کد زیر همون کار رو انجام می دادم .فقط به جای لیست باکس از کمبو باکس استفاده می کردم.
Public Sub SaveList(fileName As String, List As ComboBox)
On Error Resume Next
Dim lngSave As Long
If fileName$ = "" Then Exit Sub
Open fileName$ For Output As #1
For lngSave& = 0 To List.ListCount - 1
Print #1, List.List(lngSave&)
Next lngSave&
Close #1
End Sub
Public Sub LoadList(fileName As String, List As ComboBox)
If fileName = "" Then Exit Sub
Dim lstInput As String
On Error Resume Next
Open fileName$ For Input As #1
While Not EOF(1)
Input #1, lstInput$
If lstInput$ = "" Then Exit Sub
List.AddItem lstInput$
Wend
Close #1
End Sub
آقای _H2_ ممنون میشم کذ زو بذازید چون من چیز زیادی از سز در نمیارم و نمی تونم اجراش کنم
جواب بصورت نقل قول