منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم مكتبة أكواد vb6.0 > كود لجعل برنامجك تجريبي .
نسخة كاملة : كود لجعل برنامجك تجريبي .
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

YousefOkasha

31-01-18, 02:23 PM
الكود هو عبارة عن أن المستخدم يستخدم البرنامج لمدة 5 أيام فقط و للمبرمج بإستطاعتة تغيير المدة

كود :
' XpressLayer , Eng. Hazem Ali
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 5 Then
MsgBox ("انتهت مدة عمل البرنامج ، رجاء شراء النسخة الاصلية")
Unload Me
End If

ِAhmed Bahshwan

29-03-18, 11:24 AM
هدا الكود وين مكانه المناسب في البرنامج

عبدالله الدوسري

29-03-18, 11:59 AM
هذا الكود خاص بــ VB6 وليس للـ VB.NET

smai

18-03-20, 10:13 PM
لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف النص الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة
لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف الصورة الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة

Whled2020

05-01-24, 06:18 AM
شكرا
بارك الله فيك

HALIM ELEULMA

06-01-24, 02:22 AM
(18-03-20, 10:13 PM)smai كتب : [ -> ]لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف النص الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة
لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف الصورة الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة

يرجى استبدال "اسم_الملف_في_المورد" بالاسم الصحيح الذي قمت بإعطائه للملف في المورّد. هذا الكود يستخدم مكتبة
كود :
System.IO
للتعامل مع ملفات النظام ويحفظ الملف على سطح المكتب.

PHP كود :
Imports System.IO

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' احلل الملف من المورد واحفظه على سطح المكتب
        Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Dim filePath As String = Path.Combine(desktopPath, "اسم_الملف.txt")

        ' اسم الملف الذي أضفته في المورّد
        Dim resourceName As String = "اسم_الملف_في_المورد"

        ' افحص إذا كان الملف موجوداً على سطح المكتب مسبقاً
        If Not File.Exists(filePath) Then
            ' انسخ الملف من المورد إلى سطح المكتب
            Using resource = New StreamReader(My.Resources.ResourceManager.GetStream(resourceName))
                Using file = New StreamWriter(filePath)
                    file.Write(resource.ReadToEnd())
                End Using
            End Using

            MessageBox.Show("تم حفظ الملف على سطح المكتب بنجاح!", "نجاح")
        Else
            MessageBox.Show("الملف موجود بالفعل على سطح المكتب.", "تنبيه")
        End If
    End Sub
End Class 
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم مكتبة أكواد vb6.0 > كود لجعل برنامجك تجريبي .