من يعطيني اكواد الRichTextBox

1) القص و اللصق و النسخ:

'Cut

If TypeOf Screen.ActiveControl Is TextBox Or ComboBox Or RichTextBox Then

Clipboard.SetText Screen.ActiveControl.SelText

Screen.ActiveControl.SelText = ""

End If

'Copy

If TypeOf Screen.ActiveControl Is TextBox Or ComboBox Or RichTextBox Then

Clipboard.SetText Screen.ActiveControl.SelText

End If

'Paste

If TypeOf Screen.ActiveControl Is TextBox Or ComboBox Or RichTextBox Then

Screen.ActiveControl.SelText = Clipboard.GetText()

End If

2) التراجع:

'Genral

Private Declare Function SendMessageBynum& Lib "user32" _

Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _

As Long, ByVal wParam As Long, ByVal lparam As Long)

Private Const EM_UNDO = &HC7&

Private Sub TextUndo(T As TextBox)

SendMessageBynum T.hwnd, EM_UNDO, 0, 0

End Sub

'Code

Private Sub Command1_Click()

Call TextUndo(RichTextBox1)

End Sub

3) المحاذاه:

ٌRichTextBox1.Alignment = X

و X هي اما 1 لليمين و 0 لليسار و 2 للوسط

;)