[hichem1]

ما الخطا؟ 

كود :

       Dim u As String
       Dim z As String
       Dim y As String
       z = TextBox2.Text
       y = TextBox3.Text
       u = TextBox5.Text
       Me.ListBox1.Items.Add(New CityInfo("city",
                                  z, y, u))

[elgokr]

(07-06-18, 01:24 AM)hichem1 كتب : ما الخطا؟ 

كود :

       Dim u As String
       Dim z As String
       Dim y As String
       z = TextBox2.Text
       y = TextBox3.Text
       u = TextBox5.Text
       Me.ListBox1.Items.Add(New CityInfo("city",
                                  z, y, u))

اتمني ارفاق الصورة فى المرفقات لانها لا تعمل معى

وغالباً سيكون الخطاء فى الكود 

من خلال جلب البيانات من خلال CityInfo

لاتمام ادخاله داخل ListBox1

تحياتى لك

[hichem1]

(07-06-18, 01:36 AM)elgokr كتب :

(07-06-18, 01:24 AM)hichem1 كتب : ما الخطا؟ 

كود :

       Dim u As String
       Dim z As String
       Dim y As String
       z = TextBox2.Text
       y = TextBox3.Text
       u = TextBox5.Text
       Me.ListBox1.Items.Add(New CityInfo("city",
                                  z, y, u))

اتمني ارفاق الصورة فى المرفقات لانها لا تعمل معى

وغالباً سيكون الخطاء فى الكود 

من خلال جلب البيانات من خلال CityInfo

لاتمام ادخاله داخل ListBox1

تحياتى لك

تمت إظافة المشروع في الملحقات

[mrnooo2000]

الخطأ فى نوع الداتا DataType

لأن الكلاس يحتاج الى نوع داتا عبارة عن  Double
و المدخلات عبارة عن نص

ضع أرقام فى مربعات النص 
و كذلك للتغلب على الخطأ استخدم هذا التعديل البسيط

كود :

       a = Val(TextBox1.Text)
       b = Val(TextBox2.Text)
       c = Val(TextBox3.Text)

[elgokr]

الفكرة كلها من الخطاء هو التالى

انت تستخدم الكود بالشكل ده

كود :

Me.ListBox1.Items.Add(New CityInfo("تونس - تونس", a, b, c))

داخل منطقة Form1_Load

حيث ان CityInfo هو كلاس يقوم بتدريج احداثيات لمواقع الدولة وفارق التوقيت

لكن القيم لكل من 

A و B و C

عبارة عن

Double - Double - Integer

وانت بالاعلى قمت بتعريف كل من الاحرف الى

كود :

Dim a As String
       Dim b As String
       Dim c As String

كما قمت بجلب قيم كل حرف من خلال

كود :

a = TextBox1.text
       b = textbox2.text
       c = TextBox3.Text

وقمت بجعل كلاً من TextBox 1:3 البيانات التالية

gmt - lat - long

فهل تعتقد هذه القيمة الافتراضية للاسماء بالاعلى هى احداثيات لاى دولة

او باصح هى هي قيمة من نوع

Double - Double - Integer

كل ما تحتاج اليه هو عمل التالى

1- انشاء Button
2- جعل كل من TextBox من 1 : 3 يقوم بالكتابة الارقام مع علامة . فقط
3- وضع الكود التالى داخل Button

كود :

Me.ListBox1.Items.Add(New CityInfo("تونس - تونس", a, b, c))

بحيث عند اتمام ادخال بيانات واحداثيات دولة معينة بعد الضغط على Button

يقوم باضافتها داخل ListBox وعرضها بها

وبكده تكون حليت مشكلة الكود

اتمنى اكون وضحت بالشرح سبب الخطاء

وكيفية ببساطة حل المشكلة

تحياتى لك

وتمنياتى لك التوفيق