تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير اللون الى لون غير معروف 43:43:43
#11
استخدم هذا الكود
كود :
       Dim SP_ As String() = Split("35.583038,8.667192", ",")
       MsgBox(SP_(0))
       MsgBox(SP_(1))

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#12
ما مشكلة عذا الكود ؟ :
TextBox2.Text = WebBrowser1.Document.GetElementById("location").InnerText
أريد من الtextbox2 أن يساوي هذه القيمة بالصورة بحيث أجلب الإحداثيات إليه
كنت أخطط لإستعمالل هذا الكود لكنه لا يعمل 
ملاحظة ال id صحيحة
الموقع : http://latitudelongitude.org/address-latlong


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#13
اليك مثال مرفق بالرد السورد + البرنامج

مع صور لتوضيح المشروع المرفق

1- عند فتح البرنامج.


عند تشغيل البرنامج يبقي زر Search... 
غير مفعل حتى اكتمال تحميل الصفحة داخل
WebBrowser

ويمكنك الاستفادة من ذلك من خلال اخفاء 
WebBrowser

عن طريق تحديد GroupBox2
وجعل قيمة Size 0;0

وتصغير حجم اطار الفورم 
بحيث يبقى الشكل عبارة عن زر البحث وجلب الاحداثيات
الامر يرجع لك اذا كنت تريد اخفاء الموقع...

2- صورة عند كتابة اسم الدولة للبحث كمثال


3- صورة عند ضغط على زر Search...


4- صورة عند الضغط على زر Get Data... لجلب الاحداثيات


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

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


الملفات المرفقة
.zip   WebGetLocation.zip (الحجم : 73.37 ك ب / التحميلات : 21)
.zip   Pro GetLocation.zip (الحجم : 8.24 ك ب / التحميلات : 17)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: hichem1 , hichem1 , sendbad100 , asemshahen5 , asemshahen5
#14
والله إنك معلم <3 <3
الرد }}}
تم الشكر بواسطة: elgokr



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


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