misagh1370
یک شنبه 28 مهر 1392, 00:19 صبح
با سلام به همه مهندسین گل
دوستان یه اسلاید شو توی صفحه ی اصلی برنامم درست کردم که تصاویرش فعلا توی داریو e سیستم خودم هستش،حالا برای اجرایی کردن برنامه میخوام تصاویر مورد نظر رو توی مسیر پروژه ذخیره کنم تا موقع نصب همیشه همراه برنامم باشن.اماااا مشکلا اینجاست که نمیدونم این کد رو چطور تغییر بدم .تنهاچیزی که میدونم اینه که باید از startupتوی کدم استفاده کنم اما نمیدونم به چه شکل؟؟؟؟دوستان عزیز خواهشا راهنمایی بفرمایید.
Dim i As Byte = 1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim s As String = "e:\b\"
s += LTrim(Str(i) + ".jpg")
PictureBox1.Image = System.Drawing.Image.FromFile(s)
i += 1
If i = 16 Then
i = 1
End If
End Sub
دوستان یه اسلاید شو توی صفحه ی اصلی برنامم درست کردم که تصاویرش فعلا توی داریو e سیستم خودم هستش،حالا برای اجرایی کردن برنامه میخوام تصاویر مورد نظر رو توی مسیر پروژه ذخیره کنم تا موقع نصب همیشه همراه برنامم باشن.اماااا مشکلا اینجاست که نمیدونم این کد رو چطور تغییر بدم .تنهاچیزی که میدونم اینه که باید از startupتوی کدم استفاده کنم اما نمیدونم به چه شکل؟؟؟؟دوستان عزیز خواهشا راهنمایی بفرمایید.
Dim i As Byte = 1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim s As String = "e:\b\"
s += LTrim(Str(i) + ".jpg")
PictureBox1.Image = System.Drawing.Image.FromFile(s)
i += 1
If i = 16 Then
i = 1
End If
End Sub