PDA

View Full Version : مشکل با انتقال داده از vb به textbox یک سایت در webbrowser



just4froum
چهارشنبه 02 شهریور 1390, 22:08 عصر
با سلام به همه ی دوستان :

من دارم یک برنامه ای می نویسم که باید در اون یک مقداری را از یک textbox در vb به یک textbox در یک سایت انتقال بدم. خوب کد این که معلومه یعنی با این میشه :

WebBrowser1.Document.All("item Name").Value =Text1.Text


اما مشکل من این که id textbox هر دفعه عوض میشه که البته من با inet و دستور های instr و mid میتونم id textbox رو پیدا کنم اما مشکل من این که وقتی اونو تو یه متغیر ذخیره می کنم نمی تونم با دستور بالا مقداردهیش کنم. یعنی اگر id textbox در متغیر text_id باشه کد زیر error میده.

WebBrowser1.Document.All(text_id).Value = Text1.Text


راستی error که میده :

Run-time error '91':
Object variable or With block variable not set

با تشکر از همه.

setroyd
چهارشنبه 02 شهریور 1390, 23:47 عصر
احتما شما SET نکردی .

just4froum
پنج شنبه 03 شهریور 1390, 00:04 صبح
میشه یکم بیشتر توضیح بدین :

اگر فرض کنیم که id textbox من 2255h باشه که البته دفعه ی بعد تغییر خواهد کرده من از این روش استفاده می کنم:
dim txt_id as string
txt_id = "2255h"
set q = WebBrowser1.Document
q.all(txt_id).value = text1.text

حالا به نظر شما اشکال من از کجاست ؟؟؟

just4froum
پنج شنبه 03 شهریور 1390, 01:59 صبح
من خودم یه راه پیدا کردم ولی دوستان اگر راه دیگری بلدن لطفا بگن :


"targetinputname = "2255h
For n = 0 To WebBrowser1.Document.All.length - 1
If WebBrowser1.Document.All(n).tagName = "INPUT" Then
If WebBrowser1.Document.All(n).Name = targetinputname Then
WebBrowser1.Document.All(n).Value = Text1.Text
Exit Sub
End If
End If
Next n