اگر متن RichTextBox را بوسیله کلاس File ذخیره کنید یک متن خالی و بدون استایل های اعمال شده خواهید داشت. برای اینکه بتوانید کدهای RTF آن را ذخیره کنید دو راه دارید.
1- گرفتن کدهای Rtf و سپس ذخیره توسط کلاس File
در این روش به این صورت عمل می کنید که کدهای Rtf را گرفته و سپس آن ها را در قالب یک فایل ذخیره می کنید.
File.WriteAllText("C://", Editor.Rtf, Encoding.UTF8);در ادامه با ما همراه باشید.
کتابخانه ای جهت کار با دیتابیس برای شما آماده کرده ایم. این کتابخانه مورد استفاده در B4J می باشد. توضیحات و نمونه کد ها در قسمت توضیحات هر متد ذکر شده، اما مثالی هم قرار دادم. برای مشاهده ویژگی ها و دانلود این کتابخانه به ادامه مطلب مراجعه کنید.
Environment.CurrentDirectoryبرای تولید یک پوشه در کامپیوتر کاربر در سی شارپ از کد ساده زیر استفاده می شود:
System.IO.Directory.CreateDirectory(@"C:\\NewFolder");جهت ذخیره یک فایل متنی با محتویات دلخواه و قابلیت انتخاب نوع کدگذاری آن در سی شارپ از کد زیر استفاده کنید.
System.IO.File.WriteAllText(@"C://filename.txt", "Learn-net.ir", System.Text.Encoding.UTF8);در پارامتر اول مسیر و نام فایل ذخیره شده را وارد کنید. در پارامتر دوم نیز محتویات مورد نظر را تایپ کنید. در پارامتر آخر یعنی سوم می توانید کدگذاری متون را انتخاب کنید. در این جا شما می توانید از اکثر کدگذاری را استفاده کنید اما UTF8 هم از زبان فارسی و هم از زبان انگلیسی پشتیبانی می کند.
برای نمایش یک کادر محاوره ای ساده (پیام) به کاربر می توانید از کد زیر استفاده کنید.
MessageBox.Show("متن پیام شما","عنوان");برای گرفتن متن از کلیپبورد ابتدا باید بررسی کنیم که آیا متنی در کلیپبورد وجود دارد یا خیر. سپس از اگر متن وجود داشت آن را از کلیپبورد بگیریم:
Dim a As String
If fx.Clipboard.HasString = True Then
a = fx.Clipboard.GetString
End If
برای کپی کردن یک متن در برنامه از کد زیر استفاده می شود:
fx.Clipboard.SetString("متن مورد نظر")برای گرفتن آیکون یک فایل اجرایی ابتدا باید ساب زیر را بنویسید:
برای استفاده هم باید نام ساب یعنی GetFileIcon را بنویسید و ورودی اول مسیر فایل و ورودی دوم نام فایل را از شما می گیرید و یک متغیراز نوع Image به شما برگردانده می شود.Sub GetFileIcon(Dir As String, FileName As String) As Image
Dim jo As JavaObject
Dim JavaFile As JavaObject
JavaFile.InitializeNewInstance("java.io.File", Array(File.Combine(Dir, FileName)))
Dim icon As JavaObject = jo.InitializeStatic("sun.awt.shell.ShellFolder").RunMethodJO( _
"getShellFolder", Array(JavaFile)).RunMethod("getIcon", Array(True))
Return AwtImageToImage(icon)
End Sub
Private Sub AwtImageToImage(img As JavaObject) As Image
Dim jo As JavaObject
Return jo.InitializeStatic("javafx.embed.swing.SwingFXUtils").RunMethod("toFXImage", Array(img, Null))
End Sub