تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] محتاج تعديل بسيط في كود
#1
السلام عليكم ورحمة الله وبركاته

كنت محتاج تعديل بسيط في كود تحديث

اولا عايز اخفي Label1 لما ميكنش فيه تحديث

ثانيا  لو مفيش تحديث يعرض ليا تلقائي فورم
ScreamAct

ويقفل الفورم اللي موجود

الكود المستخدم
كود :
Imports System.Net
Public Class ScreamUPdate

   Dim WEB_ As New WebClient
   Dim Process_() As Process = Process.GetProcessesByName("ScreamSport1") ' Name file your program
   Dim VProject As Integer = WEB_.DownloadString("E:\Programs\Scream Sport\v.txt") ' You can use link Example: http://www.mysite.com/file.txt  (Link Direct...)

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       PictureBox1.Visible = False

           If VProject > My.Settings.VProject Then
           Label1.Text = "Download The New Version"
           PictureBox1.Visible = True
           End If

   End Sub

   Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
       If VProject > My.Settings.VProject Then
           If Process_.Count > 0 Then
               For Each MyProject_ In Process_
                   MyProject_.Kill()              ' Close Your Project.
               Next
               GoTo GoDownlod_
           Else
GoDownlod_:
               WEB_.DownloadFileAsync(New Uri("E:\Programs\Scream Sport\ScreamSport1.exe"), Application.StartupPath & "\ScreamSport1.exe", True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)
               My.Settings.VProject = VProject
               My.Settings.Save()
               MsgBox("تم تحديث البرنامج.")
               Process.Start(Application.StartupPath & "\ScreamSport1.exe") ' Open Your Project After Finish Update.
               Application.Exit()
           End If
       End If
   End Sub

   
End Class
الرد
تم الشكر بواسطة:
#2
جرب هذا

كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   PictureBox1.Visible = False
   Label1.Visible = False

   If VProject > My.Settings.VProject Then
       Label1.Text = "Download The New Version"
       PictureBox1.Visible = True
       Label1.Visible = True
   End If

End Sub
الرد
تم الشكر بواسطة: ScreamVoice , ScreamVoice , elgokr
#3
(04-10-18, 03:18 AM)rnmr كتب : جرب هذا

كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   PictureBox1.Visible = False
   Label1.Visible = False

   If VProject > My.Settings.VProject Then
       Label1.Text = "Download The New Version"
       PictureBox1.Visible = True
   End If

End Sub


بيلغي نفس الليبل لو فيه تحديث
الرد
تم الشكر بواسطة: elgokr , elgokr
#4
تم تحديث الكود
الرد
تم الشكر بواسطة: ScreamVoice , elgokr
#5
(04-10-18, 04:43 AM)rnmr كتب : تم تحديث الكود


انا حليت المشكله دي بالكود دا
إقتباس :If VProject <= My.Settings.VProject Then
            Label1.Visible = False
            PictureBox1.Visible = False
        End If

واشتغل تمام 
باقي ليا ان لما ما يكون فيه تحديث يقفل فورم التحديث ويدخل علي الفورم التالي اللي اسمه
ScreamAct
الرد
تم الشكر بواسطة: elgokr , elgokr
#6
جرب هذا

كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   PictureBox1.Visible = False
   Label1.Visible = False

   If VProject > My.Settings.VProject Then
       Label1.Text = "Download The New Version"
       PictureBox1.Visible = True
       Label1.Visible = True
   Else
       ScreamAct.ShowDialog()
       Application.ExitThread()
   End If

End Sub
الرد
تم الشكر بواسطة: ScreamVoice , elgokr
#7
(04-10-18, 05:08 AM)rnmr كتب : جرب هذا

كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   PictureBox1.Visible = False
   Label1.Visible = False

   If VProject > My.Settings.VProject Then
       Label1.Text = "Download The New Version"
       PictureBox1.Visible = True
       Label1.Visible = True
   Else
       ScreamAct.ShowDialog()
       Application.ExitThread()
   End If

End Sub


الف الف شكر حليت لي المشكله 
بدل ما كنت عمال البخ في التايمر 
ههههههه

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

ممكن نغير
Application.ExitThread()
بامر تاني يقفل الفورم نفسه فقط اللي هو اسمه
ScreamUpdate
الرد
تم الشكر بواسطة: elgokr
#8
معلش تعبتك معايا حليت المشكله خلاص
بدلت الكود دا
Application.ExitThread()
بـ
Me.Cloce()

وعملت التعديل دا 

[صورة مرفقة: AzO336.jpg]
الرد
تم الشكر بواسطة: ابو روضة , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب كود بسيط تحويل القريد فيو في الوورد نور الهدى الهدى 2 43 أمس, 05:30 PM
آخر رد: dasktop
  شباب محتاج مساعدة فى اداة ال vlc Mohamed Magdy 2 64 05-12-18, 10:49 AM
آخر رد: Mohamed Magdy
  خطأ بسيط لا اعلم مغزاه ابو روضة 6 169 03-12-18, 02:32 AM
آخر رد: ابو روضة
  محتاج كود يا شباب يبحث عن سطر او كلمة دخل الاسطضافة Mohamed Magdy 5 100 01-12-18, 12:26 PM
آخر رد: asemshahen5
  محتاج مساعدة فى عمل بسورد لى برنامجى+رابط قاعدة البينات من الاسطضافة Mohamed Magdy 14 261 29-11-18, 10:36 PM
آخر رد: Mohamed Magdy
  محتاج مساعدة فى تفعيل لى البرنامج Mohamed Magdy 8 175 27-11-18, 09:27 PM
آخر رد: Mohamed Magdy
  محتاج مساعدة فى تشفير برنامجي تشفير قوى Mohamed Magdy 2 59 27-11-18, 09:15 PM
آخر رد: mero5000
  [مشروع] طلب بسيط اسامه الهرماوي 1 79 27-11-18, 12:03 AM
آخر رد: elgokr
  محتاج كود فى الويب بروزر Mohamed Magdy 3 83 25-11-18, 01:30 PM
آخر رد: Mohamed Magdy
  محتاج مساعدة فى عمل اكثر من بسورد لى البرنامج Mohamed Magdy 2 65 23-11-18, 09:41 AM
آخر رد: Mohamed Magdy

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


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