کد فایل پشتیبانی گیری رو کسی بلده؟

[aliadhami]

مثلا میخوام تو این فایل ضمیمه کق گذاشتم ازlist1 یک بک آپ بگیره با فرمت تکست (txt.) بگیره سریع کمک کنید:چشمک:
81364

[joker_pok]

سریع ؟؟؟؟؟؟؟؟؟؟؟

[karimkpg]

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


Open "c:\backup.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close 1

[aliadhami]

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

[IamOverlord]

List1.Clear
ff = FreeFile
Open "C:\backup.txt" For Input As #ff
While Not EOF(ff)
Line Input #ff, strLine
List1.AddItem strLine
Wend
Close #ff

[aliadhami]

حالا اگر بخوام یک لیست باکس که داخل آن مثلا نوشته شده است "salam" بعد میخواهیم که وقتی روی "salam" توی لیست باکس انتخاب کنی همین نوشته به درون یک label برود

[IamOverlord]

Private Sub List1_Click()
Label1.Caption = List1.List(List1.ListIndex)
End Sub

[aliadhami]

آگه بخوام بجای label1 یک text box بزاریم چه کدی داره

[IamOverlord]

TextBox1.Text

[aliadhami]

ممنون از کمک همه:بوس:

[a.adhami]

میشه وقتی رویه یک کامند کلیک کنید عکس pictures box عوض شه میشه کمک کنید؟:متفکر:

[IamOverlord]

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("c:\picture1.jpg")
End Sub

[a.adhami]

میشه کد همونی که بالا توضیح دادین برای سیو کردن میخوام که یک چیزی بیاد که save as کنه مثل عکس اگه میشه کمکم کنید :چشمک:
http://uploadkon.ir/uploads/40dd4cfe007931476c11c33b5594de46.jpg

[a.adhami]

در یک text box در موقع نوشتن با زدن دکمه Enter به خط بعدی برود

[IamOverlord]

میشه کد همونی که بالا توضیح دادین برای سیو کردن میخوام که یک چیزی بیاد که save as کنه مثل عکس اگه میشه کمکم کنید :چشمک:
http://uploadkon.ir/uploads/40dd4cfe007931476c11c33b5594de46.jpg

می تونی از Common Dialog استفاده کنی:

Private Sub Command1_Click()
CommonDialog1.ShowSave
SavePicture Picture1.Picture, CommonDialog1.FileName
End Sub

[IamOverlord]

البته اگه می خواید عکسی رو Open کنید می تونید از این روش استفاده کنید:

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

[a.adhami]

من این سیو و لود را برای TextBox مخواهم نه برای عکس اگه میشه راهنمایی کنید مرا:خجالت:

[IamOverlord]

یعنی دقیقا با TextBox می خواید چی کار کنید؟

[a.adhami]

مثل یک نوت پد بشه:متفکر:

[a.adhami]

یعنی با فرمت txt. اوپن و سیو کنه

[IamOverlord]

Private Sub Command1_Click()
CommonDialog1.ShowOpen
RichTextBox1.Text = ReadFile(CommonDialog1.FileName)
End Sub

Private Sub Command2_Click()
CommonDialog1.ShowSave
WriteFile RichTextBox1.Text, CommonDialog1.FileName
End Sub

Public Function ReadFile(FileAddress)
Dim strFileData As String
ff = FreeFile
Open FileAddress For Binary Access Read As #ff
strFileData = Space$(LOF(ff))
Get #ff, , strFileData
Close #ff
ReadFile = strFileData
End Function

Public Function WriteFile(strFileData, FileAddress)
ff = FreeFile
Open FileAddress For Output As #ff
Print #ff, strFileData
Close #ff
End Function

[a.adhami]

نفهمیدم چی شد ببین کد که تو Text1 با فشار دادن کیلید enter به خط بعدی برود

[a.adhami]

کدی که به خط بعدی در textbox برود رو میگی؟(لطفا)

[IamOverlord]

ویژگی TextBox1.MultiLine رو True کن.
این ها سوالات جداگانه ای هستند، بهتره که در تاپیک های جدایی باشن.

[a.adhami]

شما در جواب 21# موقع اجرا میگه =ff رو نمیخونه چیکار کنم؟