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

نسخة كاملة : مشكلة ارجو حلها :( مهم جدا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
. .
اخي الكريم ارفع الصورة على موقع آخر لان هذا محظور بواسطة kaspersky
phishing link
السلام عليكم 
اخي الكريم جرب الكود بهذه الطريقة
 المتغير G يكفي ان تعرفه مرة واحدة فقط ثم تسند اليه القيم حسب الاختيار من الكمبوبوكس

PHP كود :
   Dim G As Long

    Private Sub ComboBox2_SelectedIndexChanged
(sender As ObjectAs EventArgsHandles ComboBox2.SelectedIndexChanged
        If ComboBox2
.Text "512 MB" Then
            G 
268435456
        ElseIf ComboBox2
.Text "1 GB" Then
            G 
536870912
        ElseIf ComboBox2
.Text "2 GB" Then
            G 
1073741824
        ElseIf ComboBox2
.Text "4 GB" Then
            G 
2147483648
        ElseIf ComboBox2
.Text "6 GB" Then
            G 
3221225472
        ElseIf ComboBox2
.Text "8 GB" Then
            G 
4294967296
        ElseIf ComboBox2
.Text "16 GB" Then
            G 
8589934592
        ElseIf ComboBox2
.Text "32 GB" Then
            G 
17179869184
        ElseIf ComboBox2
.Text "64 GB" Then
            G 
34359738368
        ElseIf ComboBox2
.Text "120 GB" Then
            G 
64424509440

        End 
If

 
       Dim Filewriter As New System.IO.StreamWriter("Space.TXT")

 
       Filewriter.WriteLine("FreeMem=Space(" ")")
 
       Filewriter.Close()
 
       Process.Start("Space.TXT")

 
   End Sub