انتقال اطلاعات 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").Options
Combo1.AddItem vCI.Text
Next 'vCI
End Sub

موفق باشید

[maxtools]

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

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

http://upload7.ir/images/84581861377701325286.jpg

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

[محسن واژدی]

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

http://upload7.ir/images/84581861377701325286.jpg

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

موفق باشید

[maxtools]

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

[محسن واژدی]

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

بله، اصلاح شد

[maxtools]

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


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

http://8pic.ir/images/65973222354381990092.jpg