تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لماذا يختفي الفورم عند النقر على اي زر كومند
#1
السلام عليكم 

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

ولكن عند النقر على اي زر يختفي فورم الاله الحاسبة تماما 

ما هو السبب ساعدوني جزاكم الله خير 

PHP كود :
Imports System.Math
Public Class Calculator
    
'================== calculator
    Dim s1, s2 As Int64
    Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a0, adot As Int64
    Dim op, anum As String
    '
==============================
 
   Private Sub Calculator_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

    End Sub

    Private Sub B1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles B1.Click
        Try
            Tstring
.Text Tstring.Text "1"
 
           a1 a1 "1"
 
           anum anum "1"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub B2_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles B2.Click
        Try
            Tstring
.Text Tstring.Text "2"
 
           a2 a2 "2"
 
           anum anum "2"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub B3_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles B3.Click
        Try
            Tstring
.Text Tstring.Text "3"
 
           a3 a3 "3"
 
           anum anum "3"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub Bclear_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Bclear.Click
        Try
            Tstring
.Clear()
 
           Tout.Clear()
 
           anum ""
 
           Tstring.Focus()
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub B4_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles B4.Click
        Try
            Tstring
.Text Tstring.Text "4"
 
           a4 a4 "4"
 
           anum anum "4"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub B5_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles B5.Click
        Try
            Tstring
.Text Tstring.Text "5"
 
           a5 a5 "5"
 
           anum anum "5"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub B6_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles B6.Click
        Try
            Tstring
.Text Tstring.Text "6"
 
           a6 a6 "6"
 
           anum anum "6"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub Bsqr_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Bsqr.Click
        Try
            Dim sqr 
As Double
            sqr 
anum ^ (2)
 
           Tstring.Text Tstring.Text "sqr"
 
           Tout.Text Str(sqr)
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub B7_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles B7.Click
        Try
            Tstring
.Text Tstring.Text "7"
 
           a7 a7 "7"
 
           anum anum "7"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub B8_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles B8.Click
        Try
            Tstring
.Text Tstring.Text "8"
 
           a8 a8 "8"
 
           anum anum "8"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub B9_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles B9.Click
        Try
            Tstring
.Text Tstring.Text "9"
 
           a9 a9 "9"
 
           anum anum "9"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub Bpow_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Bpow.Click
        Try
            Dim Sum 
As Integer
            Sum 
0
            Sum 
Sum + (anum anum)
 
           Tstring.Text Tstring.Text "x^"
 
           Tout.Text Str(Sum)
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub B0_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles B0.Click
        Try
            Tstring
.Text Tstring.Text "0"
 
           a0 a0 "0"
 
           anum anum "0"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub Bdot_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Bdot.Click
        Try
            Tstring
.Text Tstring.Text "."
 
           anum anum "."
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub Bfact_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Bfact.Click
        Try
            Dim fac
As Integer
            fac 
1
            For i 
1 To anum
                fac 
fac i
            Next
            Tstring
.Text Tstring.Text "n!"
 
           Tout.Text Str(fac)
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub Bblus_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Bblus.Click
        Try
            s1 
Val(anum)
 
           anum 0
            Tstring
.Text Tstring.Text "+"
 
           op "+"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub Bmains_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Bmains.Click
        Try
            s1 
Val(anum)
 
           anum ""
 
           Tstring.Text Tstring.Text "-"
 
           op "-"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub Bx_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Bx.Click
        Try
            s1 
Val(anum)
 
           anum ""
 
           Tstring.Text Tstring.Text "*"
 
           op "*"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub Bdiv_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Bdiv.Click
        Try
            s1 
Val(anum)
 
           anum ""
 
           Tstring.Text Tstring.Text "/"
 
           op "/"
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub

    Private Sub Bequl_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Bequl.Click
        Try
            s2 
Val(anum)
 
           anum ""
 
           If op "+" Then
                Tout
.Text = (s1 s2)
 
           End If
 
           If op "-" Then
                Tout
.Text = (s1 s2)
 
           End If
 
           If op "*" Then
                Tout
.Text = (s1 s2)
 
           End If
 
           If op "/" Then
                Tout
.Text = (s1 s2)
 
           End If
 
           Me.Hide()
 
       Catch ex As Exception
            MsgBox
("some error"MsgBoxStyle.Critical)
 
       End Try
 
   End Sub
End 
Class 

هههههههههههههههههههه

العفو منكم يا شباب والله اني لم اعلم اني كتبت السطر البرمجي me.hide

الا بعد ان نشرت الاستفسار
اسمحوا لي ارجوا المعذرة

عسى ان تستفيدو ان شاء الله


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 288 27-02-24, 09:38 PM
آخر رد: aljzazy
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 209 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 254 29-12-23, 10:44 PM
آخر رد: Kamil
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 508 11-10-23, 07:17 PM
آخر رد: bidaya
  [VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير visualist2015 6 6,354 29-09-23, 03:09 AM
آخر رد: Taha Okla
Photo [سؤال] كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server salam82 3 452 20-09-23, 01:42 PM
آخر رد: salam82
  [VB.NET] حدث النقر على الزر flawer69 3 376 23-08-23, 05:49 PM
آخر رد: أبو خالد الشكري
  [VB.NET] نسخ الصور من الفورم الى الوورد صبيح 1 300 17-08-23, 03:03 PM
آخر رد: تركي الحلواني
  [VB.NET] احتاج كود يغلق جميع الفورم ويبقي فقط الفورم Home Ali_hassn 4 542 15-08-23, 06:43 PM
آخر رد: Alexander Max2
Wink كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2010 RADOS 1 396 09-08-23, 09:39 PM
آخر رد: أبووسم

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


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