تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Dos4Win مشروع للتطوير
#1
كاتب الموضوع : FlyToAbd

هذا المشروع (مقتبس ما بتذكر من وين) بسيط ومفيد ويحتاج تطوير

شغل البرنامج واكتب بمربع النص العلوي Dir ثم انقر على الزر
}}}
تم الشكر بواسطة:
#2
ضع اثنين مربع نص وزر
مربع النص الثاني اجعل الخاصية MutilLine الى True

الصق الكود التالي
كود :
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then Exit Sub
Dim TmpFile As String = "D:\Temp.Txt"
If Dir(TmpFile) <> "" Then Kill(TmpFile)
If TextBox1.Text = "clr" Then
TextBox2.Text = ""
TextBox1.Text = ""
Exit Sub
End If
Shell("cmd.exe /c " & TextBox1.Text & " > " & TmpFile, AppWinStyle.Hide, True)
Dim OpenResult As New StreamReader(TmpFile)
TextBox2.Text = OpenResult.ReadToEnd
OpenResult.Close()
Application.DoEvents()
TextBox1.Text = ""
End Sub
End Class
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم