20-02-14, 07:31 PM
السلام عليكم...
كلامك صحيح إلى حد كبير أخي Microformt.
السبب هو أن وجود إطار دوت نت (NET Framework.) ضروري لتشغيل برامج الدوت نت لأنها مبنية عليه، و هذا الإطار حجمه كبير جداً. و هو كان لا بد أن يكون كبيراً بسبب التسهيلات و الخدمات العديدة التي يوفرها، و التي جعلت من الممكن إنجاز مهام بسطر واحد أو سطرين من الكود، كان إنجازها سابقاً يحتاج إلى عدة أو عشرات الأسطر. هنا مجرد مثال بسيط (الحصول على مسار مجلد خاص مثل مجلد المستندات):
ربما المشكلة الأساسية هي عدم وجود الإطار (NET Framework.) المناسب على الحاسوب الذي سيعمل عليه البرنامج، و هو ما قد يتطلب الاتصال بالإنترنت لتنزيل و تثبيت إطار دوت نت. و لكن أعتقد أنه يمكن تجنب ذلك بأن تقوم بتنزيل و حفظ حزمة الدوت نت التي تعمل عليها و تطور بها برامجك، ثم تقوم بتنصيبها - إذا لزم الأمر - من الحزمة المحفوظة بدلاً من الإنترنت مباشرة.
* أعتقد - و ربما - يكون NET Framewrok. جزءاً من أنظمة Windows الحديثة مثل Win 8 (لست متأكداً من ذلك) بحيث لا نحتاج إلى تثبيته إلا إذا كانت النسخة المستعملة في تطوير البرنامج أحدث من النسخة الموجودة على الجهاز الهدف.
سلام.
كلامك صحيح إلى حد كبير أخي Microformt.
السبب هو أن وجود إطار دوت نت (NET Framework.) ضروري لتشغيل برامج الدوت نت لأنها مبنية عليه، و هذا الإطار حجمه كبير جداً. و هو كان لا بد أن يكون كبيراً بسبب التسهيلات و الخدمات العديدة التي يوفرها، و التي جعلت من الممكن إنجاز مهام بسطر واحد أو سطرين من الكود، كان إنجازها سابقاً يحتاج إلى عدة أو عشرات الأسطر. هنا مجرد مثال بسيط (الحصول على مسار مجلد خاص مثل مجلد المستندات):
كود :
' With VB6:
Private Const SPL_FOLDER_PERSONAL = &H5&
Private Const MAX_PATH = 260
Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hWndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
Public Function GetSpecialFolderPath(ByVal FolderID As Long) As String
Dim SpclFolder As String
SpclFolder = String(MAX_PATH, " ")
If SHGetSpecialFolderPath(0&, SpclFolder, CLng(FolderID), 0&) Then
GetSpecialFolderPath = Trim(SpclFolder)
Else
GetSpecialFolderPath = ""
End If
End Function
Private Sub Command1_Click()
Dim MyDocPath As String
MyDocPath = GetSpecialFolderPath(SPL_FOLDER_PERSONAL)
MsgBox MyDocPath
End Sub
' ======================
' ======================
' With VB.NET:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(My.Computer.FileSystem.SpecialDirectories.MyDocuments)
End Subربما المشكلة الأساسية هي عدم وجود الإطار (NET Framework.) المناسب على الحاسوب الذي سيعمل عليه البرنامج، و هو ما قد يتطلب الاتصال بالإنترنت لتنزيل و تثبيت إطار دوت نت. و لكن أعتقد أنه يمكن تجنب ذلك بأن تقوم بتنزيل و حفظ حزمة الدوت نت التي تعمل عليها و تطور بها برامجك، ثم تقوم بتنصيبها - إذا لزم الأمر - من الحزمة المحفوظة بدلاً من الإنترنت مباشرة.
* أعتقد - و ربما - يكون NET Framewrok. جزءاً من أنظمة Windows الحديثة مثل Win 8 (لست متأكداً من ذلك) بحيث لا نحتاج إلى تثبيته إلا إذا كانت النسخة المستعملة في تطوير البرنامج أحدث من النسخة الموجودة على الجهاز الهدف.
سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
