22-05-13, 03:21 PM
لو سمحتوا شباب ممكن شرح الكود هذا بالتفصيل
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