تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية فتح صفحة انترنت عن طريق الضغط علي اسم الموقع
#1
سلام عليكم
اريد من اخوتي الاعزا مساعدتي في انشاء 
كيفية فتح صفحة انترنت عن طريق الضغط علي اسم الموقع
 كيفية فتح صفحة انترنت عن طريق الضغط على  اسم الموقع وليس اللينك عن طريق وضع أسماء المواقع في listbox و بمجرد الضغط عليها يظهر الموقع داخل webbrowser
يوجد الشرح هاذا
https://www.youtube.com/watch?v=MKmNqrqOctI
لكن المشكلة انه 
الكتابة الاكواد ليست واضحة في الفيديو لو يتكرم شخص و يكتبه لي او يعمله شبيه له للبرنامج ويرسله لس لكي اعدل عليه 
في انتظاركم
الرد
تم الشكر بواسطة:
#2
اتفضل اخي هذا الفيدو امعقدها اشوية 

كود :
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate("https://www.google.com" & ListBox1.Items.Add("Google"))

   End Sub

وهذا كود اخر عن طريق التكست

كود :
Imports System.IO

Public Class Form1
   Private channelList As New List(Of String)

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim lines() As String = File.ReadAllLines("C:\Users\xboobx\Desktop\HWID.txt")
       For Each l As String In lines
           Dim data() As String = l.Split(",")
           If data.Length = 2 Then
               Me.ListBox1.Items.Add(data(0))
               channelList.Add(data(1))
           End If
       Next

   End Sub

   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       If Me.ListBox1.SelectedIndex >= 0 Then
           Me.WebBrowser1.Navigate(channelList(Me.ListBox1.SelectedIndex))
       End If
   End Sub
End Class
اضافة الرابط داخل التكست بهذا الشكل 

google , www.google.com

بالتوفيق اخي
الرد
تم الشكر بواسطة: hamadz
#3
(22-10-18, 07:08 PM)XBOOBX كتب :
اتفضل اخي هذا الفيدو امعقدها اشوية 

كود :
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       WebBrowser1.Navigate("https://www.google.com" & ListBox1.Items.Add("Google"))

   End Sub

وهذا كود اخر عن طريق التكست

كود :
Imports System.IO

Public Class Form1
   Private channelList As New List(Of String)

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim lines() As String = File.ReadAllLines("C:\Users\xboobx\Desktop\HWID.txt")
       For Each l As String In lines
           Dim data() As String = l.Split(",")
           If data.Length = 2 Then
               Me.ListBox1.Items.Add(data(0))
               channelList.Add(data(1))
           End If
       Next

   End Sub

   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       If Me.ListBox1.SelectedIndex >= 0 Then
           Me.WebBrowser1.Navigate(channelList(Me.ListBox1.SelectedIndex))
       End If
   End Sub
End Class
اضافة الرابط داخل التكست بهذا الشكل 

google , www.google.com

بالتوفيق اخي

شكرا لك سوف اجربها و ارد عليك
الرد
تم الشكر بواسطة:
#4
أتفضل أخى

كود :
Public Class Form1
   Dim ss As New List(Of String)
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ListBox1.Items.Add("Google")
       ss.Add("https://www.google.com.eg/")
   End Sub

   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       WebBrowser1.Navigate(ss(sender.selectedindex))
   End Sub
End Class
الرد
تم الشكر بواسطة:
#5
تفضل
اخي الكريم

PHP كود :
 Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        If ListBox1
.SelectedItem "Google" Then
            WebBrowser1
.Navigate("http://www.google.com")
 
       ElseIf ListBox1.SelectedItem "Youtube" Then
            WebBrowser1
.Navigate("https://www.youtube.com")
 
       Else
            WebBrowser1
.Url Nothing
        End 
If
 
   End Sub 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 111 منذ 11 ساعة مضت
آخر رد: EYADISMAIL
  [سؤال] كيفية البحث داخل حقل تيكست عن كلمة بداخله والمقارنة dametucorazon 3 122 09-01-19, 11:29 AM
آخر رد: dametucorazon
  طريقة تكرار الامر تلقائيا | حل مشكلة script error في webbrowser عند فتح صفحة ما soloxocf1 0 56 08-01-19, 07:05 AM
آخر رد: soloxocf1
Exclamation [كود] احتاج كود لحفظ التغيرات اللتي بالفورم عن طريق الريجستري YousefOkasha 3 428 01-01-19, 01:12 AM
آخر رد: YousefOkasha
  كيفية رفع ملف على جوجل درايف خالد شكري 0 60 27-12-18, 11:27 PM
آخر رد: خالد شكري
  اريد جلب روابط من سورس صفحة ابو روضة 0 54 26-12-18, 03:01 AM
آخر رد: ابو روضة
  [VB.NET] سؤال عن حفظ ملف معد بـ FileStream عن طريق SaveFileDialog عماد البشبيشى 0 59 23-12-18, 01:17 AM
آخر رد: عماد البشبيشى
  مشكلة عند الضغط على زر التخزين nooralcown 1 74 10-12-18, 03:10 PM
آخر رد: elgokr
  عند الضغط Next يتم تجاوز صف Hazem1 3 104 10-12-18, 03:02 PM
آخر رد: elgokr
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 128 08-12-18, 08:36 PM
آخر رد: masry4u

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


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