[the viper]

لو سمحتوا شباب ممكن شرح الكود هذا بالتفصيل

PHP كود :

Dim typing As String
Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.Filter = "txt |*.txt|"
CommonDialog1.ShowOpen
typing = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1
End Sub

Private Sub Command2_Click()
Text1 = ""
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Open typing For Output As #1
Print #1, Text1.Text
Close #1
End Sub