انتقال اطلاعات combo box وب سایت در combo box وی بی ؟

[maxtools]

سلام

دوستان چطور یک combo box توی وب رو تمامی ایتم هاشو به combo box درون وی بی منتقل کنیم ؟

[محسن واژدی]

سلام علیکم
کد زیر بررسی کنید:

Private Sub Command1_Click()

  Dim vCI

  Combo1.Clear

  For Each vCI In WebBrowser1.Document.getElementById("CB_NAME").Opt  ions

    Combo1.AddItem vCI.Text

  Next 'vCI

End Sub

موفق باشید

[maxtools]

آقای واژدی ممنون از پاسخ دهی اما

یه مشکلی هست خطا میده کد رو



اطلاعات یک کمبو باکس سایتی رو استخراج کنه به کمبو باکس وی بی و با انتخاب کمبو باکس وی بی مثلا با کلیک بر روی سومین ایتم کمبو باکس در وی بی سومین کمبو باکس سایت انتخاب بشه ؟

[محسن واژدی]

...
یه مشکلی هست خطا میده کد رو



اطلاعات یک کمبو باکس سایتی رو استخراج کنه به کمبو باکس وی بی و با انتخاب کمبو باکس وی بی مثلا با کلیک بر روی سومین ایتم کمبو باکس در وی بی سومین کمبو باکس سایت انتخاب بشه ؟

طبیعیه پیش از استفاده بایستی جایگزینی هایی در کد انجام می دادین،
ابتدا نام "CB_NAME" را با نام ComboBox موجود در Web-Browser جایگزین کنید، همچنین فضای متد "Opt ions" را حذف کنید: "Options"

موفق باشید

[maxtools]

داداش دستت درد نکنه کار کرد اما فقط value رو استخراج می کنه من لیبل کمبو باکس ها رو می خوام ؟

[محسن واژدی]

داداش دستت درد نکنه کار کرد اما فقط value رو استخراج می کنه من لیبل کمبو باکس ها رو می خوام ؟

بله، اصلاح شد

[maxtools]

بشه لیبل ها استخراج بشه . با انتخاب کمبو باکس در وی بی ---- کمبو باکس در وب سایت هم انتخاب بشه ؟


کد قبل لیبل رو استخراج نمی کرد !