مرحباً :
اكواد برمجية في لغة VB6 , وبامكانك استخدام الاكواد بالكوماندات , لكن رح يصير عندك فد شيء مو منطقي ومو حلو
يعني يصير خيار النسخ اول اللصق من خلال كوماند , والافضل الك هو عمل هذا الخيارات من خلال القوائم وهذا الشيء الانسب والمنطقي
وبالتالي بامكانك عمل الاختصارات لها من خلال خيارالشورت كات المهم : ما اطول عليكم هذه الاكواد من تجميعي
النسخ :
Clipboard.SetText Text1.SelText
اللصق :
Text1.SelText = Clipboard.GetText
القص :
Clipboard.SetText Text1.SelText
التراجع :
Call TextUndo(Text1)
الخروج :
If Text1.Text = "" Then
End
Else
Value& = MsgBox("Are you want to save your changes ?", vbExclamation + vbYesNoCancel, "Text Editor")
If Value& = vbYes Then
If Form1.Label1.Caption = "Label1" Or Form1.Label1.Caption = "" Then
On Error Resume Next
Form1.CommonDialog1.Filter = "Text Document (*.txt)||All Files|*.*"
Form1.CommonDialog1.ShowSave
Form1.R.SaveFile Form1.CommonDialog1.FileName, rtfText
Form1.Label1.Caption = Form1.CommonDialog1.FileName
Form1.Caption = Form1.CommonDialog1.FileTitle + " - Text Editor"
Else
On Error Resume Next
Form1.R.SaveFile Form1.Label1.Caption, rtfText
End If
ElseIf Value& = vbNo Then
End
Else
Print
End If
End If
الحفظ :
On Error Resume Next
If Text1.Text = "" Or R.Text = "" Then: Exit Sub
If Label1.Caption = "Label1" Or Label1.Caption = "" Then
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Text Document (*.txt)|*.txt|All Files|*.*"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
R.SaveFile CommonDialog1.FileName, rtfText
Label1.Caption = CommonDialog1.FileName
Form1.Caption = Form1.CommonDialog1.FileTitle + " - Text Editor"
R.SaveFile CommonDialog1.FileName, rtfText
Label1.Caption = CommonDialog1.FileName
Form1.Caption = Form1.CommonDialog1.FileTitle + " - Text Editor"
End If
Else
R.SaveFile (Label1.Caption), rtfText
End If
الحفظ بأسم :
On Error Resume Next
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Text Document (*.txt)|*.txt|All Files|*.*"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
R.SaveFile CommonDialog1.FileName, rtfText
Label1.Caption = CommonDialog1.FileName
Form1.Caption = Form1.CommonDialog1.FileTitle + " - Text Editor"
End If
فتح نافذة جديدة :
On Error Resume Next
If Form1.Label1.Caption = "Label1" Or Form1.Label1.Caption = "" Then
CommonDialog1.Filter = "Text Document (*.txt)|*.txt|All Files|*.*"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
R.LoadFile CommonDialog1.FileName
Text1.Text = R.Text
Label1.Caption = CommonDialog1.FileName
Form1.Caption = Form1.CommonDialog1.FileTitle + " - Text Editor"
End If
Else
Value& = MsgBox("Are you want to save your changes ?", vbExclamation + vbYesNoCancel, "Text Editor")
If Value& = vbYes Then
On Error Resume Next
R.SaveFile (Label1.Caption), rtfText
Form1.Caption = GetFileName(Label1.Caption) + " - Text Editor"
CommonDialog1.Filter = "Text Document (*.txt)|*.txt|All Files|*.*"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
R.LoadFile CommonDialog1.FileName
Text1.Text = R.Text
Label1.Caption = CommonDialog1.FileName
Form1.Caption = Form1.CommonDialog1.FileTitle + " - Text Editor"
On Error Resume Next
Form1.R.SaveFile Form1.Label1.Caption, rtfText
امر الطباعة :
On Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter
Printer.Print , Text1
تحديد الكل :
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus
عدم تحديد الكل
Text1.SelStart = 9999
Text1.SelLength = Len(Text1)
Text1.SetFocus
اظهار انواع الخطوط الموجودة بالحاسبة
On Error Resume Next
R.SelStart = 0
R.SelLength = Len(R)
R.SetFocus
CommonDialog1.Flags = 1
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
Text1.FontBold = CommonDialog1.FontBold
R.SelBold = CommonDialog1.FontBold
R.SelFontName = CommonDialog1.FontName
R.SelFontSize = CommonDialog1.FontSize
محاذاة الى اليمين :
Text1.Alignment = 1
R.SelAlignment = 1
توسيط :
Text1.Alignment = 2
R.SelAlignment = 2
محاذاة الى اليسار :
Text1.Alignment = 0
R.SelAlignment = 0
لمعرفة مواصفات الحاسبة الخاصة بك :
Call StartSysInfo
ان شاء الله هذه الاكواد تفيد المبرمجين المبتدئين
من تجميعي 7\8\2010
رد مع اقتباس
